And thanks for your help. :-)
All the others are sleeping. ;-)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Thomas Berg
Sent: vrijdag 17 april 2009 16:40
To: [email protected]
Subject: SV: SDSF info in Rexx
I missed that one!
Thanks for finding that... :)
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 16:22
> Till: [email protected]
> Ämne: Re: SDSF info in Rexx
>
>
> 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
>
----------------------------------------------------------------------
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
