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)
S
Such a neat solution Kolusu, thanks. I'll try it out.
Thanks,
Karthik Premnath.
On Mon, Aug 2, 2021 at 9:23 PM Sri h Kolusu wrote:
> > 2) Please check if the card below is working.
>
>
> Karthik,
>
> You don't need multiple IFTHEN statements. A simple Overlay of 52 byte with
> a space will get
HTH,
1) Hope the RDW 4 bytes are considered while processing the VB file.
2) Please check if the card below is working.
//CTL1CNTL DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(45,2,CH,EQ,C'NO'),
BUILD=(1:1,44,45:45,2,48:5X)),
IFTHEN=(WHEN=(45,2,CH,EQ,C'YES'),
HTH
//RSPROF EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IRRDBU00 DD DISP=SHR,DSN=&IRRDBU00
//OUTPUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IRRDBU00) TO(OUTPUT) USING(CTL1)
/*
//CTL1CNTL DD *
INCLUDE COND=(50,8,CH,NE,60,8,CH)
/*
Assuming 50,8 & 60,8 are offset and length of useri
Please try using chown -R option as mentioned below. Anyways, I suggest you
to try this command with your test directory before issuing it against prod
environment.
https://www.ibm.com/docs/en/zos/2.4.0?topic=descriptions-chown-change-owner-group-file-directory
Thanks.
Karthik Premnath.
On W
