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:[email protected]] On Behalf Of
Thomas Berg
Sent: Thursday, April 16, 2009 3:44 PM
To: [email protected]
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:[email protected]] För Visser, Hans (PinkRoccade
> Infrastructure Services Technisch Specialist)
> Skickat: den 16 april 2009 15:24
> Till: [email protected]
> Ä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:[email protected]] On Behalf Of Thomas Berg
> Sent: Thursday, April 16, 2009 2:14 PM
> To: [email protected]
> 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:[email protected]] För Hans Visser
> > Skickat: den 16 april 2009 13:58
> > Till: [email protected]
> > Ä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 [email protected] 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 [email protected] 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 [email protected] 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 [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
