You may need to look at using the DELEAYED or DELAYED2 option on the ISFEXEC 
call to get these variables.  Check the ISFCOLS and ISFCOLS2 variable on return 
to see what variables are there for your choosing.

Sean

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of 
Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
Sent: Thursday, April 16, 2009 7:10 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: SDSF info in Rexx


        Thomas,

        Result:

SAY j_ddname.didx pagedef pagedef.didx j_pagedef j_pagedef.didx

SYSUT2 PAGEDEF PAGEDEF.4 J_PAGEDEF J_PAGEDEF.4




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

Initiate variable isfcols with (at least) 
pagedef and formdef, e g:

isfcols = 'DDNAME STEPN PROCS PAGEDEF FORMDEF'

immediately before:

"ISFACT ST TOKEN('"token.jidx"') PARM(NP ?) (PREFIX J_"       
 
 

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 Visser, Hans (PinkRoccade 
> Infrastructure Services Technisch Specialist)
> Skickat: den 16 april 2009 15:24
> Till: IBM-MAIN@bama.ua.edu
> Ämne: Re: SDSF info in Rexx
> 
> 
>       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
> 

----------------------------------------------------------------------
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)
    • ... Thomas Berg
      • ... Visser, Hans (PinkRoccade Infrastructure Services Technisch Specialist)
    • ... Thomas Berg

Reply via email to