Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Tony Harminc Sent: Monday, February 27, 2012 7:15 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On 27 February 2012 15:12, McKown, John john.mck...@healthmarkets.com wrote: I need to learn how to use the STORAGE function to do chain chasing in REXX. I generally dislike this any more. I am becoming more of a GUPI programmer as I age. Or maybe I'm just too lazy anymore. Regardless, you're a positive anymore guy - the only one on this list that I've noticed. Native or learned? I had thought it carried a young demographic, but I see not particularly. Midwestern US, mostly, it seems. Tony H. Neither learned nor native. I just don't have the energy to argue any more. grin Three years of ill health have just made it not worth while. I save my argument energy for use on the Windows weenies. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Tony, This is a great idea...btw there are a buch of Midwesterners I think on this listserver, I am a Hoosier originally, just living in NJ lol for 30 yrs Sent from my iPad Scott Ford Senior Systems Engineer www.identityforge.com On Feb 27, 2012, at 6:35 PM, Tony Harminc t...@harminc.net wrote: On 27 February 2012 06:18, Thomas Berg thomas.b...@swedbank.se wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Thirty years ago I would have said that it sounds like an ideal job for GPSAM (file 648 on the CBT site). You'd write a little access method that accepts a couple of DDNAMEs as arguments, and writes the output to both. Now I don't know if GPSAM has been updated for newer OS levels (the File 648 version is dated 1982), but conceptually and maybe even practically, it should still be fine on z/OS today. Preferably by JCL means. Um, well, once you write your little access method (all nice, unauthorized code, btw) and install GPSAM, it would all be by JCL means. It would look something like this: // EXEC PGM=yourprog //STEPLIB DD DSN=your.private.unauth.loadlib //SYSPRINT DD SUBSYS=(GPSM,DOUBLER,'COPY1,COPY2') //COPY1 DD SYSOUT=* //COPY2 DD DSN=dataset,DISP=...,etc. You just have to write the DOUBLER routine. Or make it as general as you like - TUPLER...? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
That's a bunch not buch Sent from my iPad Scott Ford Senior Systems Engineer www.identityforge.com On Feb 28, 2012, at 8:14 AM, Scott Ford scott_j_f...@yahoo.com wrote: Tony, This is a great idea...btw there are a buch of Midwesterners I think on this listserver, I am a Hoosier originally, just living in NJ lol for 30 yrs Sent from my iPad Scott Ford Senior Systems Engineer www.identityforge.com On Feb 27, 2012, at 6:35 PM, Tony Harminc t...@harminc.net wrote: On 27 February 2012 06:18, Thomas Berg thomas.b...@swedbank.se wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Thirty years ago I would have said that it sounds like an ideal job for GPSAM (file 648 on the CBT site). You'd write a little access method that accepts a couple of DDNAMEs as arguments, and writes the output to both. Now I don't know if GPSAM has been updated for newer OS levels (the File 648 version is dated 1982), but conceptually and maybe even practically, it should still be fine on z/OS today. Preferably by JCL means. Um, well, once you write your little access method (all nice, unauthorized code, btw) and install GPSAM, it would all be by JCL means. It would look something like this: // EXEC PGM=yourprog //STEPLIB DD DSN=your.private.unauth.loadlib //SYSPRINT DD SUBSYS=(GPSM,DOUBLER,'COPY1,COPY2') //COPY1 DD SYSOUT=* //COPY2 DD DSN=dataset,DISP=...,etc. You just have to write the DOUBLER routine. Or make it as general as you like - TUPLER...? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Mon, 27 Feb 2012 17:35:39 -0600, Kirk Wolf k...@dovetail.com wrote: So, I found that it is actually tricky to get the current jobid using REXX in a WLM-initiated environment. Here's a slightly patched REXX script that I found by Bill Lalonde that will do it: /* REXX */ /* curjobid.rexx (adapted from http://billlalonde.tripod.com/rexx/findjsab.txt ) */ ... Works in TSO and shell. And it's a great site -- I'll bookmark it alongside PlanetMVS and CBTTape. Do you feel left out of John G.'s CABAL? Thanks, gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In a6b9336cdb62bb46b9f8708e686a7ea00e924b3...@nrhmms8p02.uicnrh.dom, on 02/27/2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com said: I know how to write code to get it, Why is that not acceptable? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Shmuel Metz (Seymour J.) Sent: Tuesday, February 28, 2012 9:27 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) In a6b9336cdb62bb46b9f8708e686a7ea00e924b3...@nrhmms8p02.uicnrh.dom, on 02/27/2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com said: I know how to write code to get it, Why is that not acceptable? -- Shmuel (Seymour J.) Metz, SysProg and JOAT It works for me, but does not help the OP because he won't have my code. And, in some cases, I've been told that some shops can only use either in-house developed code or, in extremis, only vendor supplied code, no freeware or unsupported code allowed. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In a6b9336cdb62bb46b9f8708e686a7ea00e924b3...@nrhmms8p02.uicnrh.dom, on 02/27/2012 at 02:12 PM, McKown, John john.mck...@healthmarkets.com said: I need to learn how to use the STORAGE function to do chain chasing in REXX. Or to write Rexx-callable routines in HLA. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In 231f0103-e497-46e1-86bb-c2ccd6ebc...@yahoo.com, on 02/28/2012 at 08:14 AM, Scott Ford scott_j_f...@yahoo.com said: This is a great idea...btw there are a buch of Midwesterners I think on this listserver, I am a Hoosier originally, just living in NJ lol for 30 yrs I know of no reason that GPSAM wouldn't work in a current z/OS system. Michigander in exile, just inside the Capital Beltway. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In CAHm_n2=7u1del2+9s0zlmtkdz9sqp7cbrp11uyib7fgw0ow...@mail.gmail.com, on 02/27/2012 at 05:35 PM, Kirk Wolf k...@dovetail.com said: Here's a slightly patched REXX script that I found by Bill Lalonde that will do it: That looks overly complicated. Why not just pull it from the SSIB? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Tue, Feb 28, 2012 at 10:31 AM, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In CAHm_n2=7u1del2+9s0zlmtkdz9sqp7cbrp11uyib7fgw0ow...@mail.gmail.com, on 02/27/2012 at 05:35 PM, Kirk Wolf k...@dovetail.com said: Here's a slightly patched REXX script that I found by Bill Lalonde that will do it: That looks overly complicated. Why not just pull it from the SSIB? Someone else may know the details, but I have found that SSIBJBID is blank for WLM-initiated jobs. Kirk Wolf Dovetailed Technologies http://dovetail.com -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Tue, Feb 28, 2012 at 9:25 AM, Paul Gilmartin paulgboul...@aim.comwrote: On Mon, 27 Feb 2012 17:35:39 -0600, Kirk Wolf k...@dovetail.com wrote: ... Do you feel left out of John G.'s CABAL? Gil, If you are referring to John G's recent post: Still, their UNIX-oriented initiatives are a clear danger to legitimate, MVS-based undertakings; and some of the hybrid schemes they have urged are flagrantly subversive of good order. then, I would like to say absolutely: I'M IN (were the CABAL not so secretive :-). One might assume then that we are still two short of John G's phony 5-member benchmark, but this is not true. Hopefully, it will be more of a bandwagon than a CABAL :-) Kirk Wolf Dovetailed Technologies http://dovetail.com PS A secret weapon for subversive MVS-Unix hybrid batch jobs: http://dovetail.com/products/coz.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
And stupid me thought he just couldn't spell COBOL. sigh Penguinista and proud! Yes, I a member of FSF. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Kirk Wolf Sent: Tuesday, February 28, 2012 10:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Tue, Feb 28, 2012 at 9:25 AM, Paul Gilmartin paulgboul...@aim.comwrote: On Mon, 27 Feb 2012 17:35:39 -0600, Kirk Wolf k...@dovetail.com wrote: ... Do you feel left out of John G.'s CABAL? Gil, If you are referring to John G's recent post: Still, their UNIX-oriented initiatives are a clear danger to legitimate, MVS-based undertakings; and some of the hybrid schemes they have urged are flagrantly subversive of good order. then, I would like to say absolutely: I'M IN (were the CABAL not so secretive :-). One might assume then that we are still two short of John G's phony 5-member benchmark, but this is not true. Hopefully, it will be more of a bandwagon than a CABAL :-) Kirk Wolf Dovetailed Technologies http://dovetail.com PS A secret weapon for subversive MVS-Unix hybrid batch jobs: http://dovetail.com/products/coz.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Tue, 28 Feb 2012 11:31:16 -0500, Shmuel Metz (Seymour J.) wrote: That looks overly complicated. Why not just pull it from the SSIB? Someone shared such an example with me. It worked under TSO; not under z/OS UNIX. I was then asked (on TSO-REXX), Why don't you just run it under TSO, then? Kind of like: The heater in my car doesn't work. Move to a warmer climate, then. The following kludge works in both TSO and UNIX: /* Rexx */ signal on novalue; /* Doc: function JOBID() returns current Job ID. */ RC = BPXWDYN( 'alloc rtddn(DD) rtdsn(DSN) sysout msg(WTP)' ) RC = BPXWDYN( 'freedd('DD') msg(WTP)' ) parse value DSN with . '.' . '.' Job '.' . return( Job ) I'm not proud, gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Thomas, This is what I do to capture *any line range* from a SYSOUT being currently populated: //SDSFBTCH EXEC PGM=SDSF //ISFOUT DD SYSOUT=* //PRINTFL DD SYSOUT=*,DCB=RECFM=VB [or point to a FILE] //ISFINDD * PRE job-name OWNER ST FIND job-name ++? FIND dd-name for SYSOUT ++S PRINT FILE PRINTFL PRINT from-line-number to-line-number /* // HTH, -Victor- = Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
What happens if there are multiple jobs with the same name? We have that problem all the time. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Victor Gil Sent: Tuesday, February 28, 2012 1:27 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Thomas, This is what I do to capture *any line range* from a SYSOUT being currently populated: //SDSFBTCH EXEC PGM=SDSF //ISFOUT DD SYSOUT=* //PRINTFL DD SYSOUT=*,DCB=RECFM=VB [or point to a FILE] //ISFINDD * PRE job-name OWNER ST FIND job-name ++? FIND dd-name for SYSOUT ++S PRINT FILE PRINTFL PRINT from-line-number to-line-number /* // HTH, -Victor- = Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In a6b9336cdb62bb46b9f8708e686a7ea00e924b3...@nrhmms8p02.uicnrh.dom, on 02/28/2012 at 10:57 AM, McKown, John john.mck...@healthmarkets.com said: And stupid me thought he just couldn't spell COBOL. What's the Usenet COBOL? -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Thanks! Interesting variant of SDSF access. I'm so used with the rexx interface that I haven't thought of the more direct way. (I got the rexx way to work thanks to an example by Miklos Szigetvari.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Victor Gil Skickat: den 28 februari 2012 20:27 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Thomas, This is what I do to capture *any line range* from a SYSOUT being currently populated: //SDSFBTCH EXEC PGM=SDSF //ISFOUT DD SYSOUT=* //PRINTFL DD SYSOUT=*,DCB=RECFM=VB [or point to a FILE] //ISFINDD * PRE job-name OWNER ST FIND job-name ++? FIND dd-name for SYSOUT ++S PRINT FILE PRINTFL PRINT from-line-number to-line-number /* // HTH, -Victor- = Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
YES!. Define multiple output statements //out1 output. //out2 output... And refer to them //sysprint dd output=(*.out1,*.out2) HTH, -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Staller, Allan allan.stal...@kbmg.com wrote in message news:45e5f2f45d7878458ee5ca679697335502e25...@usdaexch01.kbm1.loc... YES!. Define multiple output statements //out1 output. //out2 output... And refer to them //sysprint dd output=(*.out1,*.out2) HTH, That is what I thought first, but I think he wants it to both sysout and a dataset. Kees. For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. I do a similar process, I write the SYSOUT to a dataset, then pass it to IEBGENER step to put it back to the JOB. Then I can use the SYSOUT DSN that was created for inspection later. I do not know of a process in JES that would create both a DSN and SYSOUT at the same time. If you have control over the program, then you could create 2 DCBs - one for SYSOUT and one for a DSN. Unfortunately I do not think that is what you want to do. And I know of no mechanism in JES that will do this. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
AFAIK, this will not work with a dataset. snip YES!. Define multiple output statements //out1 output. //out2 output... And refer to them //sysprint dd output=(*.out1,*.out2) HTH, That is what I thought first, but I think he wants it to both sysout and a dataset. /snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
That's right. I'm about to process DB2 REBIND en masse and need to see in realtime that it executes ok (if in error it needs to be stopped) and at the same time save it for processing in a later step. As the execution can take 30 minutes I don't want to wait until end. (Using the DSN command under IKJEFT01.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Vernooij, CP - SPLXM Skickat: den 27 februari 2012 14:44 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Staller, Allan allan.stal...@kbmg.com wrote in message news:45e5f2f45d7878458ee5ca679697335502e25...@usdaexch01.kbm1.loc... YES!. Define multiple output statements //out1 output. //out2 output... And refer to them //sysprint dd output=(*.out1,*.out2) HTH, That is what I thought first, but I think he wants it to both sysout and a dataset. Kees. For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On 2/27/2012 4:18 AM, Thomas Berg wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK If you want to 'follow the execution by inspecting the output' and 'in realtime', I gather you don't want an automated process. Why not just go to SDSF (or (E)JES or IOF or Flasher or ... ) and select the sysout file? It will show you what's been output so far, but does not disturb the final distribution. You can set up an automated, timed refresh of the screen (say, every 5 seconds) to watch the SYSOUT data grow, or just hit enter to see the latest entries. Or maybe I'm not clear on what you are after. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Steve Comstock Skickat: den 27 februari 2012 14:58 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On 2/27/2012 4:18 AM, Thomas Berg wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK If you want to 'follow the execution by inspecting the output' and 'in realtime', I gather you don't want an automated process. Why not just go to SDSF (or (E)JES or IOF or Flasher or ... ) and select the sysout file? It will show you what's been output so far, but does not disturb the final distribution. You can set up an automated, timed refresh of the screen (say, every 5 seconds) to watch the SYSOUT data grow, or just hit enter to see the latest entries. Or maybe I'm not clear on what you are after. The output needs to be processed in a later step. But if the output is directed to SYSOUT, are there any way for a later step to read that output ? Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
That's right. I'm about to process DB2 REBIND en masse and need to see in realtime that it executes ok (if in error it needs to be stopped) and at the same time save it for processing in a later step. As the execution can take 30 minutes I don't want to wait until end. (Using the DSN command under IKJEFT01.) Then why not put a REXX around it and then inspect the SQL as it is produced? You can use a REXX to invoke the DSNREXX or use DSN natively. Lizette -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On 2/27/2012 7:01 AM, Thomas Berg wrote: -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Steve Comstock Skickat: den 27 februari 2012 14:58 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On 2/27/2012 4:18 AM, Thomas Berg wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK If you want to 'follow the execution by inspecting the output' and 'in realtime', I gather you don't want an automated process. Why not just go to SDSF (or (E)JES or IOF or Flasher or ... ) and select the sysout file? It will show you what's been output so far, but does not disturb the final distribution. You can set up an automated, timed refresh of the screen (say, every 5 seconds) to watch the SYSOUT data grow, or just hit enter to see the latest entries. Or maybe I'm not clear on what you are after. The output needs to be processed in a later step. But if the output is directed to SYSOUT, are there any way for a later step to read that output ? Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK Ah! So the output is not originally SYSOUT? Can you direct the output to a z/OS UNIX file? Then from a UNIX session (omvs or telnet) you could use 'tail' commands to watch the file grow. If things are not going well, cancel the job. If all goes well, copy the UNIX file back to an MVS file (or just process the UNIX file if that would be supported). -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * To get a good Return on your Investment, first make an investment! + Training your people is an excellent investment * Try our tool for calculating your Return On Investment for training dollars at http://www.trainersfriend.com/ROI/roi.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Lizette Koehler Skickat: den 27 februari 2012 15:06 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) That's right. I'm about to process DB2 REBIND en masse and need to see in realtime that it executes ok (if in error it needs to be stopped) and at the same time save it for processing in a later step. As the execution can take 30 minutes I don't want to wait until end. (Using the DSN command under IKJEFT01.) Then why not put a REXX around it and then inspect the SQL as it is produced? You can use a REXX to invoke the DSNREXX or use DSN natively. I'm worried about performance. As it is now I'm feeding one invocation of DSN with 25000 REBIND's. If I do a new invoke of DSN for every (or every 10:th) REBIND it will prolong the execution (I think, haven't tested). My experience of DSNREXX is that performance is not one of its points... What I'm doing is to manually run a package cleaning routine for future automatic execution. So I want to have a close control of what's happening now in the beginning. Maybe I should go back to the drawing board... Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Hi I used to say : With the SDSF REXX interface you can process the output in the next STEP, but lately we have tested this again, and got some error codes during processing the own job. (i.e sfmsg is:JCT NOT AVAILABLE ) Anyhow if you submit a job to process the JES output from the previous job, it would work, even if the job is still ruing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Steve Comstock Skickat: den 27 februari 2012 15:13 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On 2/27/2012 7:01 AM, Thomas Berg wrote: -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Steve Comstock Skickat: den 27 februari 2012 14:58 Till: IBM-MAIN@bama.ua.edu Ämne: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On 2/27/2012 4:18 AM, Thomas Berg wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK If you want to 'follow the execution by inspecting the output' and 'in realtime', I gather you don't want an automated process. Why not just go to SDSF (or (E)JES or IOF or Flasher or ... ) and select the sysout file? It will show you what's been output so far, but does not disturb the final distribution. You can set up an automated, timed refresh of the screen (say, every 5 seconds) to watch the SYSOUT data grow, or just hit enter to see the latest entries. Or maybe I'm not clear on what you are after. The output needs to be processed in a later step. But if the output is directed to SYSOUT, are there any way for a later step to read that output ? Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK Ah! So the output is not originally SYSOUT? Can you direct the output to a z/OS UNIX file? Then from a UNIX session (omvs or telnet) you could use 'tail' commands to watch the file grow. If things are not going well, cancel the job. If all goes well, copy the UNIX file back to an MVS file (or just process the UNIX file if that would be supported). Well, I suppose that's a good idea. But here I'm out on unchartered territories. :) Although *NIX land is not totally unknown for me I haven't used the z/OS variant much. Maybe it's a time for me to explore it... But as this routine will go into automated production in future I prefer MVS proper (as I don't want to change the job to much between the manual period and the automated production. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Regarding even if the job is still running, is that true ? When I tried that last time I couldn't get hold of the output as long as the job was running. Exactly how do You do that ? (E g which ISF-commands etc.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Miklos Szigetvari Skickat: den 27 februari 2012 15:52 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Hi I used to say : With the SDSF REXX interface you can process the output in the next STEP, but lately we have tested this again, and got some error codes during processing the own job. (i.e sfmsg is:JCT NOT AVAILABLE ) Anyhow if you submit a job to process the JES output from the previous job, it would work, even if the job is still ruing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On 2/27/2012 9:01 AM, Thomas Berg wrote: The output needs to be processed in a later step. But if the output is directed to SYSOUT, are there any way for a later step to read that output ? Regards, Thomas Berg We use IOF, which allows a REXX EXEC in a later step to read the SYSOUT sent to a DD card in an earlier step. I would hope that rival products can do the same thing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Hi This is more or less a sample from the REXX SDSF book . /* REXX */ . /* trace ?i */ . /* accesses sdsf ST panel, thn list the column variables */ . /* This is an example taken from SDSF bookshelf */ . arg jobname ddname . Say 'jobname:'jobname . Say 'ddname:'ddname . rc=isfcalls('ON') . /* access the ST panel */. /* Address SDSF ISFEXEC ST */ . /* access the DA panel */. Address SDSF ISFEXEC INPUT ON . Say '1. rc:'rc . Address SDSF ISFEXEC DA. Say '2. rc:'rc . lrc=rc . if lrc0 . then do . call msgrtn. exit 20. end . /* Loop for all running SYSLOG jobs */ . do ix=1 to JNAME.0 . /* . Say 'JNAME.'ix':'JNAME.ix . Say 'TOKEN.'ix':'TOKEN.ix . */ . found = 1 /* if 1, then found */ . if JNAME.ix jobname then. found = 0. if found 0 . then do. Say 'JNAME.'ix':'JNAME.ix. Say 'STEPN.'ix':'STEPN.ix. Say 'TOKEN.'ix':'TOKEN.ix. /* Issue the ? (JDS) action agains the */. /* row to list the data sets in the job */ . Address SDSF ISFACT DA TOKEN('TOKEN.ix') PARM(NP ?) ,. ( prefix jds_. lrc=rc . Say 'aha lrc:'lrc. if lrc0. then do . call msgrtn. exit 20. end . /* Find the JESMSGLG data set and allocate it */ . /* using the SA action character */ . endindex = jds_DDNAME.0 . On 2/27/2012 4:03 PM, Thomas Berg wrote: Regarding even if the job is still running, is that true ? When I tried that last time I couldn't get hold of the output as long as the job was running. Exactly how do You do that ? (E g which ISF-commands etc.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Miklos Szigetvari Skickat: den 27 februari 2012 15:52 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Hi I used to say : With the SDSF REXX interface you can process the output in the next STEP, but lately we have tested
SV: SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Well that's what I did (IIRC), but I didn't get the ds, I think I got an in use msg when doing the SA. But if You can get this to work so must I be able to do. Will maybe try it again. Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Miklos Szigetvari Skickat: den 27 februari 2012 16:19 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Hi This is more or less a sample from the REXX SDSF book . /* REXX */ . /* trace ?i */ . /* accesses sdsf ST panel, thn list the column variables */ . /* This is an example taken from SDSF bookshelf */ . arg jobname ddname . Say 'jobname:'jobname . Say 'ddname:'ddname . rc=isfcalls('ON') . /* access the ST panel */. /* Address SDSF ISFEXEC ST */ . /* access the DA panel */. Address SDSF ISFEXEC INPUT ON . Say '1. rc:'rc . Address SDSF ISFEXEC DA. Say '2. rc:'rc . lrc=rc . if lrc0 . then do . call msgrtn . exit 20 . end . /* Loop for all running SYSLOG jobs */ . do ix=1 to JNAME.0 . /* . Say 'JNAME.'ix':'JNAME.ix . Say 'TOKEN.'ix':'TOKEN.ix . */ . found = 1 /* if 1, then found */ . if JNAME.ix jobname then. found = 0. if found 0 . then do . Say 'JNAME.'ix':'JNAME.ix. Say 'STEPN.'ix':'STEPN.ix. Say 'TOKEN.'ix':'TOKEN.ix. /* Issue the ? (JDS) action agains the */. /* row to list the data sets in the job */ . Address SDSF ISFACT DA TOKEN('TOKEN.ix') PARM(NP ?) ,. ( prefix jds_. lrc=rc . Say 'aha lrc:'lrc. if lrc0 . then do . call msgrtn. exit 20. end . /* Find the JESMSGLG data set and allocate it */ . /* using the SA action character */ . endindex = jds_DDNAME.0 . On 2/27/2012 4:03 PM, Thomas Berg wrote: Regarding even if the job is still running, is that true ? When I tried that last time I couldn't get hold of the output as long as the job was running. Exactly how do You do that ? (E g which ISF-commands etc.) Regards, Thomas Berg _ Thomas Berg Specialist A M SWEDBANK -Ursprungligt meddelande- Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För Miklos Szigetvari Skickat: den 27 februari 2012 15:52 Till: IBM-MAIN@bama.ua.edu Ämne: Re: SV: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Hi I used to say : With the SDSF REXX interface you can process the output in the next STEP, but lately we have tested this again, and got some error codes during processing the own job. (i.e sfmsg is:JCT NOT AVAILABLE ) Anyhow if you submit a job to process the JES output from the previous job, it would work, even if the job is still ruing. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
-Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Thomas Berg Sent: Monday, February 27, 2012 5:19 AM To: IBM-MAIN@bama.ua.edu Subject: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Preferably by JCL means. Regards, Thomas Berg Of course, change your program to write the record once to each DD. Oh, you want a system level function to do it for you? You didn't say that! grin To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. However, there is a possible work around, if you are open to new functionality and are writing TEXT data (no binary garbage). Instead of writing to a sequential output dataset, allocate a UNIX file to your output DD. //ddname DD PATH='/some/path/file', // FILEDATA=TEXT,PATHOPTS=(OWRONLY,OCREAT,OTRUNC), // PATHDISP=(KEEP,KEEP), // PATHMODE=(SIRWXU,SIRGRP,SIROTH), // RECFM=??,LRECL=??,BLKSIZE=?? Now, the OWRONLY says output. OCREAT says create it if it doesn't exist, but reuse it if it already exists. OTRUNC says to truncate the existing records (like VSAM REUSE) if the file already exists. In the reading step, replace those three with a single ORDONLY to indicate read. You can use IEBGENER to copy the data to a sequential dataset, if you need to. The plus is that z/OS does not do enqueues on UNIX file names like it does on sequential datasets. So you can browse the file using ISPF if you want to. If you are a UNIX shell user, you can use the tail command with the -f option. This makes the tail command follow the file and print new records to your UNIX shell every two seconds. I havent' tried this, but if might be possible to create the dataset in a separate job, and then write to it in this job with a DISP=SHR. You could then browse the dataset as the job runs. Don't know when or if this will hit the list. We're having Internet connectivity problems right now. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On Mon, 27 Feb 2012 10:20:34 -0600, McKown, John wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. Hmmm... Allocate a temporary data set. Use BPXWDYN( 'info dd(...) inrtdsn(X)' ) and PARSE the job name out of X? How many Rube Goldbergs in a day am I allowed? -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
In a90e503c23f97441b05ee302853b0e626401626...@fspas01ev010.fspa.myntet.se, on 02/27/2012 at 12:18 PM, Thomas Berg thomas.b...@swedbank.se said: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? For Unix applications there's the tee command. I'm not sure whether it is included in z/OS or ported tools. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see http://patriot.net/~shmuel/resume/brief.html We don't care. We don't have to care, we're Congress. (S877: The Shut up and Eat Your spam act of 2003) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
How about a simple REXX unix script that uses STORAGE to grab the jobid out of the SSIB? Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Feb 27, 2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
I need to learn how to use the STORAGE function to do chain chasing in REXX. I generally dislike this any more. I am becoming more of a GUPI programmer as I age. Or maybe I'm just too lazy anymore. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Kirk Wolf Sent: Monday, February 27, 2012 2:04 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) How about a simple REXX unix script that uses STORAGE to grab the jobid out of the SSIB? Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Feb 27, 2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
This seems to work: /* REXX */ NUMERIC DIGITS 24 ; CVTPTR=STORAGE(10,4) /*CVT*/ TCBW=STORAGE(D2X(C2D(CVTPTR)),4) TCB=STORAGE(D2X(C2D(TCBW)+4),4) TIOT=STORAGE(D2X(C2D(TCB)+12),4) JBID=STORAGE(D2X(C2D(TIOT)),8) JBID=STRIP(JBID) SAY JBID On Mon, Feb 27, 2012 at 2:04 PM, Kirk Wolf k...@dovetail.com wrote: How about a simple REXX unix script that uses STORAGE to grab the jobid out of the SSIB? Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Feb 27, 2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Thanks! -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Kirk Wolf Sent: Monday, February 27, 2012 2:15 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) This seems to work: /* REXX */ NUMERIC DIGITS 24 ; CVTPTR=STORAGE(10,4) /*CVT*/ TCBW=STORAGE(D2X(C2D(CVTPTR)),4) TCB=STORAGE(D2X(C2D(TCBW)+4),4) TIOT=STORAGE(D2X(C2D(TCB)+12),4) JBID=STORAGE(D2X(C2D(TIOT)),8) JBID=STRIP(JBID) SAY JBID On Mon, Feb 27, 2012 at 2:04 PM, Kirk Wolf k...@dovetail.com wrote: How about a simple REXX unix script that uses STORAGE to grab the jobid out of the SSIB? Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Feb 27, 2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
Duh. This prints the jobname, not the jobid. But you get the idea :-) On Mon, Feb 27, 2012 at 2:15 PM, Kirk Wolf k...@dovetail.com wrote: This seems to work: /* REXX */ NUMERIC DIGITS 24 ; CVTPTR=STORAGE(10,4) /*CVT*/ TCBW=STORAGE(D2X(C2D(CVTPTR)),4) TCB=STORAGE(D2X(C2D(TCBW)+4),4) TIOT=STORAGE(D2X(C2D(TCB)+12),4) JBID=STORAGE(D2X(C2D(TIOT)),8) JBID=STRIP(JBID) SAY JBID On Mon, Feb 27, 2012 at 2:04 PM, Kirk Wolf k...@dovetail.com wrote: How about a simple REXX unix script that uses STORAGE to grab the jobid out of the SSIB? Kirk Wolf Dovetailed Technologies http://dovetail.com On Mon, Feb 27, 2012 at 10:20 AM, McKown, John john.mck...@healthmarkets.com wrote: I was trying to write up a way to do something like that: fetching the sysout from the currently running job into a disk dataset in a later step. But ran into a problem in trying to find an IBM-supplied way to get the running job's JES job number. I know how to write code to get it, but I can't find a TSO or UNIX program to do it for me. I could then use Dovetail Technologies' Data Set Pipes to get the sysout into a disk dataset (fromdsn -jes.j.stepname.procstep.ddname | todsn //DD:ddname) in a subsequent step. But I got frustrated in trying to find the current JES job number. I would guess that somebody could use the SDSF/REXX interface to do it. But I still don't see how to get the jobname/jobnumber which I need. Using standard IBM programs, that is. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] On Behalf Of Paul Gilmartin Sent: Monday, February 27, 2012 10:15 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL) On Mon, 27 Feb 2012 08:02:36 -0600, McKown, John wrote: To the best of my knowledge, z/OS does not come with this functionality. You basically want the equivalent of the UNIX tee command. With a Rube Goldberg Rexx wrapper you could use tee, possibly under a BPXWUNIX task to write to SYSOUT and a data set concurrently. It might be more within your skill set to add an intervening step to use the Rexx SDSF interface to copy the SYSOUT from a previous step to a data set. In fact, at one point the Rexx SDSF interface allocates a DDNAME to the spool file -- you might be able to LINKMVS your postprocessor passing that DDNAME ln the alternate DDNAME list. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On 27 February 2012 06:18, Thomas Berg thomas.b...@swedbank.se wrote: Is there any possibility to duplicate the output to SYSOUT to another Ddname/DSname in realtime ? I want to follow the execution by inspecting the output but at the same time save it for processing in a following step. Thirty years ago I would have said that it sounds like an ideal job for GPSAM (file 648 on the CBT site). You'd write a little access method that accepts a couple of DDNAMEs as arguments, and writes the output to both. Now I don't know if GPSAM has been updated for newer OS levels (the File 648 version is dated 1982), but conceptually and maybe even practically, it should still be fine on z/OS today. Preferably by JCL means. Um, well, once you write your little access method (all nice, unauthorized code, btw) and install GPSAM, it would all be by JCL means. It would look something like this: // EXEC PGM=yourprog //STEPLIB DD DSN=your.private.unauth.loadlib //SYSPRINT DD SUBSYS=(GPSM,DOUBLER,'COPY1,COPY2') //COPY1 DD SYSOUT=* //COPY2 DD DSN=dataset,DISP=...,etc. You just have to write the DOUBLER routine. Or make it as general as you like - TUPLER...? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
So, I found that it is actually tricky to get the current jobid using REXX in a WLM-initiated environment. Here's a slightly patched REXX script that I found by Bill Lalonde that will do it: /* REXX */ /* curjobid.rexx (adapted from http://billlalonde.tripod.com/rexx/findjsab.txt) */ /* Based on expansion of IAZXJSAB macro */ /* This EXEC returns current jobname, jobid, userid and */ /* name of the component which created the JSAB */ /* for the current task / address space */ NUMERIC DIGITS 10 tcb = C2D(STORAGE(21C,4))/* get current TCB */ jsab = 0 /* null pointer*/ if tcb \= 0 then do stcb = C2D(STORAGE(D2X(tcb+312),4)) jsab = C2D(STORAGE(D2X(stcb+188),4)) end if jsab = 0 then do ascb = C2D(STORAGE(224,4))/* get current TCB */ assb = C2D(STORAGE(D2X(ascb+336),4)) if ascb = 0 then do call lineout stderr,'Unable to locate JSAB from ASCB at 'D2X(ascb) exit 8 end jsab = C2D(STORAGE(D2X(assb+168),4)) if jsab = 0 then do call lineout stderr,'Unable to locate JSAB from ASCB at 'D2X(ascb) exit 8 end end flg1 = C2D(STORAGE(D2X(jsab+13),1)) DO WHILE flg1 127 eye = STORAGE(D2X(jsab),4) If eye \= 'JSAB' then do call lineout stderr,'Invalid JSAB found at 'D2X(jsab) exit 8 end jsab = C2D(STORAGE(D2X(jsab+4),4)) if jsab = 0 then do call lineout stderr,'Unable to locate a valid JSAB' exit 8 end flg1 = C2D(STORAGE(D2X(jsab+13),1)) END /* jbnm = STORAGE(D2X(jsab+28),8) */ jbid = STORAGE(D2X(jsab+20),8) /* comp = STORAGE(D2X(jsab+16),4) */ /* usid = STORAGE(D2X(jsab+44),8) */ say jbid exit 0 So, then you can add this step to your job to copy a previous step's spool file to another DD: // EXEC PGM=COZBATCH //STDIN DD * fromdsn //-jes.$(curjobid.rexx).stepname.procstep.ddname | todsn //DD:OUT //OUT DD ... // -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
Re: Duplicating SYSOUT output to another DD/DSN in realtime ? (JCL)
On 27 February 2012 15:12, McKown, John john.mck...@healthmarkets.com wrote: I need to learn how to use the STORAGE function to do chain chasing in REXX. I generally dislike this any more. I am becoming more of a GUPI programmer as I age. Or maybe I'm just too lazy anymore. Regardless, you're a positive anymore guy - the only one on this list that I've noticed. Native or learned? I had thought it carried a young demographic, but I see not particularly. Midwestern US, mostly, it seems. Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN