Just adding to the solution.. alternatively try out the below snippet which
will save all job logs from spool with cics8* as prefix.
/*REXX*/
ISFTRACE="ON"
SMFID=MVSVAR('SYSNAME')
RC=ISFCALLS("ON")
ISFPREFIX="CICS8*"
ADDRESS SDSF("ISFEXEC ST")
DO I = 1 TO JNAME.0
HLQ=CICS8
RCX=RIGHT(RETCODE.I,5)
SRCX=STRIP(RCX)
CALL PRINT_ATTRI
ADDRESS SDSF "ISFACT ST TOKEN('"TOKEN.I"') PARM(NP XDC)"
LRC=RC
IF LRC<>0 THEN EXIT 20
END
EXIT 0
RC=ISFCALLS("OFF")
PRINT_ATTRI:
ISFPRTBLKSIZE = '0'
ISFPRTDISP = 'NEW'
ISFPRTLRECL = '300'
ISFPRTPRIMARY = '20'
ISFPRTRECFM = 'FB'
ISFPRTSECONDARY = '20'
ISFPRTSPACETYPE = 'CYLS'
ISFPRTUNIT = '3390'
ISFPRTDSNAME="'"HLQ".CICSXXXX."SMFID"."JNAME.I"."JOBID.I".RC"SRCX"'"
RETURN
Thanks,
Karthik Premnath.
On Fri, Aug 20, 2021 at 2:34 AM Billy Ashton <bill00ash...@gmail.com> wrote:
> Sure...I will try to copy it out tomorrow for you...
>
> kekronbekron wrote on 8/18/2021 23:15:
> > If you don't mind, can you show us how.
> >
> > - KB
> >
> > ‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐
> >
> > On Thursday, August 19th, 2021 at 5:33 AM, Billy Ashton <
> bill00ash...@gmail.com> wrote:
> >
> >> I found a way to call the Sysview batch processing program from my JCL,
> >>
> >> and I can save the whole job as I wanted.
> >>
> >> Thanks to everyone for your suggestions--I really like the way this
> >>
> >> group thinks out of the box!
> >>
> >> Billy
> >>
> >> Billy Ashton wrote on 8/18/2021 13:56:
> >>
> >>> Thanks, Lizette! I will give this a try.
> >>>
> >>> Billy
> >>>
> >>> Lizette Koehler wrote:
> >>>
> >>>> Go to the internet and look for John McKown's JES2DISK in a GIT Hub
> >>>>
> >>>> It will do what you want and it is free
> >>>>
> >>>> Lizette
> >>>>
> >>>> -----Original Message-----
> >>>>
> >>>> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On
> >>>>
> >>>> Behalf Of Billy Ashton
> >>>>
> >>>> Sent: Wednesday, August 18, 2021 6:47 AM
> >>>>
> >>>> To: IBM-MAIN@LISTSERV.UA.EDU
> >>>>
> >>>> Subject: Spool entire job to a file?
> >>>>
> >>>> Hi all...I have a need to run a bunch of jobs to do some changes to
> >>>>
> >>>> files, and we want to preserve the output of all these jobs for
> >>>>
> >>>> auditors. Is there a way to use an OUTPUT statement or something in
> >>>>
> >>>> the job itself that can redirect the entire job output to a PDS
> >>>>
> >>>> member? We don't have a Spooler utility on this LPAR, so I am trying
> >>>>
> >>>> to find an easy way to capture these jobs.
> >>>>
> >>>> TIA!
> >>>>
> >>>> Billy
> >>>>
> >>>> 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
> > ----------------------------------------------------------------------
> > 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
