Found!!!!!!!!!
/******************************** REXX ********************************/
/* */
/*TRACE R */
/* */
rc = ISFCALLS('ON')
/* */
isfprefix = 'TC49*'
/* */
ADDRESS SDSF
/* */
"ISFEXEC ST (VERBOSE ALTERNATE DELAYED)"
/* */
DO jidx=1 TO jname.0
IF jname.jidx = 'TC49VISF' THEN
DO
"ISFACT ST TOKEN('"token.jidx"') PARM(NP ?)
(PREFIX j_ ALTERNATE DELAYED DELAYED2)"
<=============================
/* */
DO didx=1 TO j_ddname.0
SAY LEFT(j_ddname.didx,9) j_pagedef.didx j_formdef.didx
END
END
END
/* */
rc = ISFCALLS('OFF')
/* */
RETURN
/* */
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 14:54
To: [email protected]
Subject: SV: SDSF info in Rexx
My wrong, they are marked as changed by the
information: "(JES2 only)".
As I see these columns in "live" it can't be
authority problems, I think...
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 17 april 2009 14:48
> Till: [email protected]
> Ämne: Re: SDSF info in Rexx
>
>
> I'm looking in the z/OS V1R9.0 SDSF Operation and
> Customization manual but there are those fields NOT marked as new.
>
> Unfortunataly, the response of the list is rather poor.
>
>
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of Thomas Berg
> Sent: vrijdag 17 april 2009 14:34
> To: [email protected]
> Subject: SV: SDSF info in Rexx
>
> Have done a test myself with ST and H panels, with same result as You!
>
> It seems that there are a couple of fields that are not
> returned, among them PAGEDEF and FORMDEF but also ODNAME,
> ODTITLE, ODADR, etc.
>
> All these fields are marked as "new" in the manual as of z/OS
> 1.10. Though I'm running under 1.10 so... ?
>
>
>
> 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 17 april 2009 13:54
> > Till: [email protected]
> > Ämne: Re: SDSF info in Rexx
> >
> >
> > Yes, with no result.
> >
> > I tried everything - 1.
> >
> > And I'm looking for just that last 1. ;-)
> >
> > -----Original Message-----
> > From: IBM Mainframe Discussion List
> > [mailto:[email protected]] On Behalf Of Thomas Berg
> > Sent: vrijdag 17 april 2009 13:46
> > To: [email protected]
> > Subject: SV: SDSF info in Rexx
> >
> > Have You tried *without*:
> >
> > "IF j_ddname.didx <> 'SYSUT2' THEN" ?
> >
> >
> >
> >
> >
> > 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 17 april 2009 12:56
> > > Till: [email protected]
> > > Ämne: Re: SDSF info in Rexx
> > >
> > >
> > > Thomas,
> > >
> > > Setting a ...COLS variable is not necessary.
> > >
> > > If you don't set that variable, you get ALL the columns.
> > >
> > > My problem is that I get no columns at all.
> > >
> > > Regards,
> > >
> > > Hans
> > >
> > > -----Original Message-----
> > > From: IBM Mainframe Discussion List
> > > [mailto:[email protected]] On Behalf Of Thomas Berg
> > > Sent: vrijdag 17 april 2009 12:14
> > > To: [email protected]
> > > Subject: SV: SDSF info in Rexx
> > >
> > > Yes, isfdcols is probably the right variable to set FORMDEF and
> > > PAGEDEF in.
> > >
> > >
> > >
> > > 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 17 april 2009 10:55
> > > > Till: [email protected]
> > > > Ämne: Re: SDSF info in Rexx
> > > >
> > > >
> > > > Sean,
> > > >
> > > > I check ISFCOLS,ISFCOLS2, ISFDCOLS, ISFDCOLS2, ISFRCOLS
> > > and ISFRCOLS2
> > > > with "ISFEXEC ST (DELAYED)"
> > > >
> > > > DELAYED2 dos not exist.
> > > >
> > > > This is what I get:
> > > >
> > > > isfcols JNAME TOKEN JOBID OWNERID JPRIO QUEUE JCLASS POS
> > > > SYSAFF ACTSYS STATUS
> > > > PRTDEST SECLABEL TGNUM TGPCT ORIGNODE EXECNODE
> > > DEVID OFFDEVS RETCODE
> > > > SRVCLS
> > > > WLMPOS SCHENV DELAY SSMODE SPIN
> > > >
> > > >
> > > >
> > > > isfcols2 DDNAME TOKEN STEPN PROCS DSID OWNERID OCLASS
> > > > DESTN RECCNT PAGECNT
> > > > BYTECNT COPYCNT DEST NODE OGNAME SECLABEL
> > > PRMODE BURST DSDATE FORMS
> > > > FCBID UCSID
> > > > WTRID FLASHID FLASHC SEGID DSNAME CHARS
> CPYMOD CPYMODFT
> > > >
> > > >
> > > > isfdcols
> > > >
> > > >
> > > >
> > > > isfdcols2
> > > >
> > > >
> > > >
> > > > isfrcols SYSAFF
> > > >
> > > >
> > > >
> > > > isfrcols2
> > > >
> > > >
> > > > But NO pagedef
> > > >
> > > > Regards,
> > > >
> > > > Hans
> > > >
> > > > -----Original Message-----
> > > > From: IBM Mainframe Discussion List
> > > > [mailto:[email protected]] On Behalf Of Smith, Sean M
> > > > Sent: vrijdag 17 april 2009 0:16
> > > > To: [email protected]
> > > > Subject: Re: SDSF info in Rexx
> > > >
> > > > 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:[email protected]] On Behalf Of Visser, Hans
> > > (PinkRoccade
> > > > Infrastructure Services Technisch Specialist)
> > > > Sent: Thursday, April 16, 2009 7:10 AM
> > > > To: [email protected]
> > > > 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:[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
> > > >
> > > >
> > >
> >
> ----------------------------------------------------------------------
> > > > 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
> >
> >
> ----------------------------------------------------------------------
> > 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
