Re: JES2 Spool Data Set Browse (SDSB) sample
I did not know/think that DALSSREQ was optional. Certainly the name is unique and is not a cataloged DSN. CharlesSent from a mobile; please excuse the brevity. Original message From: Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> Date: 8/19/18 4:21 PM (GMT-05:00) To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: JES2 Spool Data Set Browse (SDSB) sample On Sun, 19 Aug 2018 12:51:54 -0700, Ed Jaffe wrote: > >It's pretty trivial if you already know how to do allocation via SVC99. >Looking at (E)JES code, I see we use the following keys: > >DALRTDDN (let the system choose DD name) >DALDSNAM (owner.jobname.jobid.dsnum.dsname) >DALSTATS (SHR) >DALSSREQ (technically only needed for secondary JES) >DALRECFM >DALLRECL >DALPERMA >DALCLOSE (same as FREE=CLOSE) >DALBRTKN (see mapping macro IAZBTOKP) > Absent DALSSREQ, what tells DYNALLOC that this is a request for a spool file rather than an ordinary data set? Perhaps that DALDSNAM contains a qualifier (dsnum?) that would be invalid otherwise? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 Spool Data Set Browse (SDSB) sample
On Sun, 19 Aug 2018 12:51:54 -0700, Ed Jaffe wrote: > >It's pretty trivial if you already know how to do allocation via SVC99. >Looking at (E)JES code, I see we use the following keys: > >DALRTDDN (let the system choose DD name) >DALDSNAM (owner.jobname.jobid.dsnum.dsname) >DALSTATS (SHR) >DALSSREQ (technically only needed for secondary JES) >DALRECFM >DALLRECL >DALPERMA >DALCLOSE (same as FREE=CLOSE) >DALBRTKN (see mapping macro IAZBTOKP) > Absent DALSSREQ, what tells DYNALLOC that this is a request for a spool file rather than an ordinary data set? Perhaps that DALDSNAM contains a qualifier (dsnum?) that would be invalid otherwise? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 Spool Data Set Browse (SDSB) sample
On 8/19/2018 12:51 PM, Ed Jaffe wrote: DALSSREQ (technically only needed for secondary JES) Actually, I think it's probably required for spool browse and optional when submitting to internal reader. -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://www.phoenixsoftware.com/ This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 Spool Data Set Browse (SDSB) sample
On 8/16/2018 7:00 AM, Chris Cantrell wrote: We are on release 2.2. I am wanting to read the JCL in the first step of the job and perform very specific (which may change) verifications to the JCL and abend the job if the 'standards' are not met. It's pretty trivial if you already know how to do allocation via SVC99. Looking at (E)JES code, I see we use the following keys: DALRTDDN (let the system choose DD name) DALDSNAM (owner.jobname.jobid.dsnum.dsname) DALSTATS (SHR) DALSSREQ (technically only needed for secondary JES) DALRECFM DALLRECL DALPERMA DALCLOSE (same as FREE=CLOSE) DALBRTKN (see mapping macro IAZBTOKP) Good luck! -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://www.phoenixsoftware.com/ This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 Spool Data Set Browse (SDSB) sample
On Sun, 19 Aug 2018 13:56:41 -0400, scott Ford wrote: >You can in Rexx and SDSF , we do it via our DevOPS process we use from >bitbucket where our source and CI processes are stored. >It takes some work..but works well, > There are some examples at or about: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.isfa600/rxbrs1.htm z/OSIBM SDSF User's Guide Version 2 Release 3 SC27-9028-30 ... the essence is that SDSF will allocate a DDNAME for you which you can read with EXECIO (directly) or IEBGENER (e.g., with alternate DDNAME list). -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: StackExchange proposed mainframe discussion group
MVS-OE is more targeted than IBM-MAIN. A z/OS Unix question could legitimately be posted in either. You may find some SMEs that read only the specialized groups. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List on behalf of Charles Mills Sent: Sunday, August 19, 2018 11:26 AM To: IBM-MAIN@listserv.ua.edu Subject: Re: StackExchange proposed mainframe discussion group "The archives" are partitioned inconveniently now. MVS-OE is an example all by itself. How is a z/OS UNIX ("MVS-OE") problem different from a mainframe ("IBM-MAIN") problem? And aren't the IBM-MAIN archives themselves partitioned into "old" and "new"? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin > Would this partition the archives inconveniently This week I searched successfully for a 15-year old article in MVS-OE. Would I lose this capability? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: StackExchange proposed mainframe discussion group
Non-technical clarification. On Friday Harry became SHARE's Immediate Past President. Pres is now Justin Bastin. Long live the Pres! . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Edward Finnell Sent: Sunday, August 19, 2018 11:18 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: StackExchange proposed mainframe discussion group I guess eventually we'll all be 'googlized' and tracked. The partitioning is by server locale. Harry Williams at Marist saw the need to separate Mainframe topics into more specialized lists early on. He fired up MVS-OE then DOMino and a few others.(He's now SHARE pres). Other sites host topics they hold 'near and dear'-RACF, DB/2, IMS, CICS. Darren recommend splitting ibm-main into old and new for performance reasons. The old archives are from Jun 86(start date) to 2003 and require a separate sign-up. The working ibm-main is from 2004 forward. In a message dated 8/19/2018 10:26:56 AM Central Standard Time, charl...@mcn.org writes: How is a z/OS UNIX ("MVS-OE") problem different from a mainframe ("IBM-MAIN") problem? And aren't the IBM-MAIN archives themselves partitioned into "old" and "new"? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: StackExchange proposed mainframe discussion group
I guess eventually we'll all be 'googlized' and tracked. The partitioning is by server locale. Harry Williams at Marist saw the need to separate Mainframe topics into more specialized lists early on. He fired up MVS-OE then DOMino and a few others.(He's now SHARE pres). Other sites host topics they hold 'near and dear'-RACF, DB/2, IMS, CICS. Darren recommend splitting ibm-main into old and new for performance reasons. The old archives are from Jun 86(start date) to 2003 and require a separate sign-up. The working ibm-main is from 2004 forward. In a message dated 8/19/2018 10:26:56 AM Central Standard Time, charl...@mcn.org writes: How is a z/OS UNIX ("MVS-OE") problem different from a mainframe ("IBM-MAIN") problem? And aren't the IBM-MAIN archives themselves partitioned into "old" and "new"? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: JES2 Spool Data Set Browse (SDSB) sample
You can in Rexx and SDSF , we do it via our DevOPS process we use from bitbucket where our source and CI processes are stored. It takes some work..but works well, Scott On Thu, Aug 16, 2018 at 3:13 PM Paul Gilmartin < 000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > On Thu, 16 Aug 2018 11:26:14 -0500, Kirk Wolf wrote: > > > >You don't need to use the SSI to read a spool data set, although you do > >need a way to get the JES SSID and jobid (like from the current JSAB). > > > >It is not too complicated: you just allocate it using SVC99 (and some > >special purpose keys) and open the DD with either a DCB or ACB. > >See Chapter 2 in "z/OS JES Application Programming" - JES Spool Data Set > >Browse > > > Is the Rexx API to SDSF available outside TSO? E.g. in IRXJCL? > (The hard part may be discovering your own JOBID.) > > > >PS> You can use our free Co:Z Utilities in batch to read any spool file > and > >pass the data to your program. > >For example: > > > >//SHELL EXEC PGM=COZBATCH > >//STDIN DD *# Run z/OS UNIX login shell > > > ># get the 8 character jobid of the current job > >jobid=$(echo $JES_SYS_CORR_CURRJOB | cut -c1-8) > > > >fromdsn -jes.$jobid.jesjclin | > >awk myreport.awk # or your program that reads from /dev/stdin > > -- gil > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- Scott Ford IDMWORKS z/OS Development -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question ABout ISPF Panels
I don't want to belabor the point. Well, OK, maybe a bit. The REXX-embedded panel I sampled from has no mention of ZSEL at all. The REXX stuff is in the )Init section. The panel itself is displayed by a REXX: "DISPLAY PANEL(SHOPORD1)" As I said before, I would not necessarily recommend panel-embedded REXX, but it works. I last updated this app in 2005 and use it frequently to pull PTFs via RECEIVE ORDER. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Hobart Spitz Sent: Sunday, August 19, 2018 4:40 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Question ABout ISPF Panels Peter cover it well. A DISPLAYd panel cannot invoke a CLIST. A SELECTd panel can invoke any command, CLIST, REXX EXEC, or PGM, by setting &ZSEL. On Sun, 19 Aug 2018, 12:36 am Jesse 1 Robinson, wrote: > I have an app that imbeds REXX code in a panel. The REXX code happens > to be in the )Init section, but I think it could be )Proc. It has a > marked beginning and end: > > *REXX(*,shopcsij,shoptgtj,zedsmsg,zedlmsg) > > TRACE N > > IF LEFT(shopcsij,1) = "4" THEN DO > shopcsij = shopcsi1 > shoptgtj = shopc1tg > RETURN > END > ... > RETURN > > *ENDREXX > > I wrote this partly to see if I could. It works, but I don't think I'd > do it again. > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of CM Poncelet > Sent: Saturday, August 18, 2018 8:18 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: Question ABout ISPF Panels > > The Clist or program should be invoked from the )PROC section in the > panel, as the value of &ZSEL. E.g. > > )BODY WIDTH(&ZSCREENW) EXPAND(//) > %---/-/- > !OPTION %===>¯ZCMD )PROC > &ZSEL = TRANS( &ZCMD > B,'CMD(%ZBROWSE &ZTRAIL)' /* Clist */ > T,'PGM(ISRPTC)'/* Program */ > U,'PANEL(ISRUTIL)' /* Panel */ > *,'' ) > )END > > Your 'PAULD01.SPEX.CLIST' should be in your SYSPROC concatenation, > unless you want to invoke a SYSPROC Clist that issues its own EX > 'PAULD01.SPEX.CLIST(XGETSYS)'. > > To invoke XGETSYS from a panel, code: > > )PROC > IF (&T01 = ABX3 ) > &ZSEL = 'CMD(%XGETSYS)' > > else see the above "&ZSEL = TRANS( &ZCMD " to include multiple > panel options. > > Chris Poncelet > > > > On 18/08/2018 14:18, esst...@juno.com wrote: > > Hi,.I am trying to find examples of invoking a CLIST and a Program > > from the )PROC Section of a ISPF PANEL . > > I consistently get a syntax error. > > . > > For example: > > )PROC > > IF (&T01 = ABX3 ) > >EX 'PAULD01.SPEX.CLIST(XGETSYS)' > > . > > My first question would be, is it legitimate to invoke either a > > CLIST or Assembler Program from the )PROC section of a PANEL ? > > . > > And secondly could some one post an example of each ? > > . > > . > > Paul -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: StackExchange proposed mainframe discussion group
"The archives" are partitioned inconveniently now. MVS-OE is an example all by itself. How is a z/OS UNIX ("MVS-OE") problem different from a mainframe ("IBM-MAIN") problem? And aren't the IBM-MAIN archives themselves partitioned into "old" and "new"? Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Paul Gilmartin > Would this partition the archives inconveniently This week I searched successfully for a 15-year old article in MVS-OE. Would I lose this capability? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Question ABout ISPF Panels
Peter cover it well. A DISPLAYd panel cannot invoke a CLIST. A SELECTd panel can invoke any command, CLIST, REXX EXEC, or PGM, by setting &ZSEL. On Sun, 19 Aug 2018, 12:36 am Jesse 1 Robinson, wrote: > I have an app that imbeds REXX code in a panel. The REXX code happens to > be in the )Init section, but I think it could be )Proc. It has a marked > beginning and end: > > *REXX(*,shopcsij,shoptgtj,zedsmsg,zedlmsg) > > TRACE N > > IF LEFT(shopcsij,1) = "4" THEN DO > shopcsij = shopcsi1 > shoptgtj = shopc1tg > RETURN > END > ... > RETURN > > *ENDREXX > > I wrote this partly to see if I could. It works, but I don't think I'd do > it again. > > . > . > J.O.Skip Robinson > Southern California Edison Company > Electric Dragon Team Paddler > SHARE MVS Program Co-Manager > 323-715-0595 Mobile > 626-543-6132 Office ⇐=== NEW > robin...@sce.com > > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of CM Poncelet > Sent: Saturday, August 18, 2018 8:18 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: (External):Re: Question ABout ISPF Panels > > The Clist or program should be invoked from the )PROC section in the > panel, as the value of &ZSEL. E.g. > > )BODY WIDTH(&ZSCREENW) EXPAND(//) > %---/-/- > !OPTION %===>¯ZCMD )PROC > &ZSEL = TRANS( &ZCMD > B,'CMD(%ZBROWSE &ZTRAIL)' /* Clist */ > T,'PGM(ISRPTC)'/* Program */ > U,'PANEL(ISRUTIL)' /* Panel */ > *,'' ) > )END > > Your 'PAULD01.SPEX.CLIST' should be in your SYSPROC concatenation, unless > you want to invoke a SYSPROC Clist that issues its own EX > 'PAULD01.SPEX.CLIST(XGETSYS)'. > > To invoke XGETSYS from a panel, code: > > )PROC > IF (&T01 = ABX3 ) > &ZSEL = 'CMD(%XGETSYS)' > > else see the above "&ZSEL = TRANS( &ZCMD " to include multiple panel > options. > > Chris Poncelet > > > > On 18/08/2018 14:18, esst...@juno.com wrote: > > Hi,.I am trying to find examples of invoking a CLIST and a Program > > from the )PROC Section of a ISPF PANEL . > > I consistently get a syntax error. > > . > > For example: > > )PROC > > IF (&T01 = ABX3 ) > >EX 'PAULD01.SPEX.CLIST(XGETSYS)' > > . > > My first question would be, is it legitimate to invoke either a CLIST > > or Assembler Program from the )PROC section of a PANEL ? > > . > > And secondly could some one post an example of each ? > > . > > . > > Paul > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN