Not much heavy lifting required - here is some sample ISFACT code that just
performs a "say" operation for a specified "unique job" , but the basic
framework is there.
Lastrc = isfcalls('ON')
ISFPREFIX=“ROBUNIQ1”
address SDSF “ISFEXEC ST”
address SDSF “ISFACT ST TOKEN(‘”token.1”’) PARM(NP SA)”
do ddindex = 1 to ISFDDNAME.0
say “Now reading : “ISFDSNAME.ddindex
address TSO “EXECIO * DISKR “ISFDDNAME.ddindex “ (STEM line. FINIS”
say “Lines read : “line.0
do lineindex = 1 to line.0
say substr(line.lineindex,1,72)
end
end
lastrc = isfcalls('OFF')
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Gadi Ben-Avi
Sent: Thursday, October 10, 2019 12:17 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Saving job output
Thanks Rob,
I was asking if someone had already done the heavy lifting.
Gadi
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Rob
Scott
Sent: Thursday, October 10, 2019 2:13 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Saving job output
Gadi,
You can accomplish what you want very easily using the SDSF REXX interface, you
even have two options of how :
(1) Use ISFACT and the "SA" action to allocate a DDName to each different spool
dataset and then use EXECIO to put the records wherever you want
(2) Use ISFBROWSE to process data at the "cursor" position.
Option (1) is probably easier conceptually, however because it reads the data
into stems it could have storage constraints for large spool datasets.
Option (2) uses a logical cursor so will be a better general purpose solution.
See Share session 24671 "Learn to use SDSF Rexx" that I gave in Phoenix
Rob Scott
Rocket Software
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Gadi Ben-Avi
Sent: Thursday, October 10, 2019 11:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Saving job output
Hi,
Every now and again, I have to send the output from a job or started task to
support.
Saving all of the output is simple using SDSF's XDC command, but that saves all
of the output to one file.
It's much easier to deal with the individual spool files.
Does anyone have a utility that can split the output according to the different
spool files?
Gadi
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
================================ Rocket Software, Inc. and subsidiaries ■ 77
Fourth Avenue, Waltham MA 02451 ■ Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://nam01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.rocketsoftware.com%2FRocketCommunity%2FRCEmailSupport&data=02%7C01%7C%7C87872526f0384d55ee6b08d74d736926%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637063030407422035&sdata=3iIRsOnxWxhdFrpcQMiloDOIZcnePiLIDqrqhltFyAs%3D&reserved=0
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fmanage-your-email-preferences&data=02%7C01%7C%7C87872526f0384d55ee6b08d74d736926%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637063030407432030&sdata=PVrXZGBCvgR9FDfPr4%2FD9ZO6dgtwtbp1wnQYbl7FBYM%3D&reserved=0
Privacy Policy -
https://nam01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.rocketsoftware.com%2Fcompany%2Flegal%2Fprivacy-policy&data=02%7C01%7C%7C87872526f0384d55ee6b08d74d736926%7C79544c1eed224879a082b67a9a672aae%7C0%7C0%7C637063030407432030&sdata=NcnGE2I0VYjsEfn6IsMhj2Hz%2FmDE2VQ%2BF2FvSXV8oWM%3D&reserved=0
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Email secured by Check Point
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
