Thomas,

        I know, but how to GET that info.

        See REXX below:

/******************************** REXX ********************************/
/*                                                                    */
/*TRACE R                                                             */
/*                                                                    */
  rc = ISFCALLS('ON')                                                   
/*                                                                    */
  isfprefix = 'TC49*'                                                   
/*                                                                    */
  ADDRESS SDSF                                                          
/*                                                                    */
  "ISFEXEC ST (VERBOSE DELAYED)"                                        
/*                                                                    */
  DO jidx=1 TO jname.0                                                  
     IF jname.jidx = 'TC49VISF' THEN                                    
        DO                                                              
          "ISFACT ST TOKEN('"token.jidx"') PARM(NP ?) (PREFIX J_"       
/*                                                                    */
          DO didx=1 TO j_ddname.0                                       
             IF j_ddname.didx <> 'SYSUT2' THEN                          
                ITERATE                                                 
/*                                                                    */
             SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx
          END                                                           
        END                                                             
  END                                                                   
/*                                                                    */
  rc = ISFCALLS('OFF')                                                  
/*                                                                    */
  RETURN                                                                
/*                                                                    */

        Regards, Hans


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Thomas Berg
Sent: Thursday, April 16, 2009 2:14 PM
To: IBM-MAIN@bama.ua.edu
Subject: SV: SDSF info in Rexx

They are found in the JDS (Job Data Set) panel, 
with column names PAGEDEF and FORMDEF.
(And OD panel.)  

 

Regards, 
Thomas Berg 
__________________________________________ 
Thomas Berg   Specialist   IT-U   SWEDBANK 



 

> -----Ursprungligt meddelande-----
> Från: IBM Mainframe Discussion List 
> [mailto:ibm-m...@bama.ua.edu] För Hans Visser
> Skickat: den 16 april 2009 13:58
> Till: IBM-MAIN@bama.ua.edu
> Ämne: SDSF info in Rexx
> 
> Hi listers,
> 
>                 I want to extract column information from 
> SDSF in a REXX.
> 
>                 F.i. pagedef and formdef.
> 
>                 I can get and see a lot of data and columns 
> but NOT pagedef and formdef.
> 
>                 How can this be done?
> 
>                 Regards, Hans
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access 
> instructions, send email to lists...@bama.ua.edu with the 
> message: GET IBM-MAIN INFO Search the archives at 
> http://bama.ua.edu/archives/ibm-main.html
> 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
  • ... Hans Visser
    • ... Thomas Berg
      • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
    • ... Thomas Berg
      • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
        • ... Smith, Sean M
          • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
          • ... Smith, Sean M
            • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
    • ... Thomas Berg
      • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
    • ... Thomas Berg
      • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)

Reply via email to