Kolusu, thanks for the sample, it does work great for what you said, and
I can use this. I'm afraid I did not ask this correctly, and it will
explain why I think two steps, unless you think otherwise. Let me
restate the logic using your sample below.
1. Look for any job ABCDE123 having message IEC988I, and note the JOBID.
2. If you find that message, display all the messages for Job ABCDE123
with that same JOBID.
I would also assume I could change the search for the jobname to use a
shorter version, like 4,CH,C'ABCD' to give me all of these jobs. But I
will let you see what you think. My brain is not working well today due
to the flu, and I am struggling a bit.
Thanks,
Billy
Sri h Kolusu wrote on 12/21/2021 13:54:
I would like to ask one extension to this, if you please. I would like
to be able to further screen the syslog by Jobname, but knowing that
there could be multiple job numbers, I would need a way to capture
those, too.
Billy,
It is quite simple. The $HASP373 message contains the jobname and job
number which can be written to the output file quite easily.
So in using this example, I would want to see HASM* messages, but only
if they were in any job ABCDE123. If so, it would be great to see all
the ABCDE123 messages, but I suspect that this is now a two-step job of
some kind.
It can be done using JOINKEYS. in a single step. Here is a sample job that
extracts a particular job which issued the message IEC988I
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//INA DD DISP=SHR,DSN=Your.Input.FBM.133.LRECL.SYSLOG
//INB DD DISP=SHR,DSN=Same.Input.FBM.133.LRECL.SYSLOG
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
JOINKEYS F1=INA,FIELDS=(39,8,A) $ Jobid
JOINKEYS F2=INB,FIELDS=(39,8,A) $ Jobid
REFORMAT FIELDS=(F1:1,141)
INCLUDE COND=(134,8,CH,EQ,C'ABCDE123')
INREC BUILD=(1,133)
/*
//JNF1CNTL DD *
INCLUDE COND=(58,8,CH,EQ,C'IEC988I')
INREC PARSE=(%01=(ABSPOS=66,ENDBEFR=C',',FIXLEN=8)),
OVERLAY=(134:%01)
/*
//JNF2CNTL DD *
INCLUDE COND=(58,8,CH,EQ,C'$HASP373')
/*
if you need further help, please send me a sample input file and rules to
extract the data, and I will come up with a solution.
Thanks,
Kolusu
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
