> 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.
Billy,
Here is the job that will give you the desired results. Look at the OUTFIL
INCLUDE statement which lets you filter on the jobnames. The job name is
available at position 152 for 8 bytes.
//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=(134,8,A)
JOINKEYS F2=INB,FIELDS=(039,8,A)
REFORMAT FIELDS=(F1:1,150)
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(143,01,CH,GT,C' '),
PUSH=(143:134,08, $ JOBID
152:143,08)) $ JOBNAME
OUTFIL BUILD=(1,133),
INCLUDE=((134,8,CH,EQ,143,08,CH),AND,
152,4,CH,EQ,C'ABCD')
/*
//JNF1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(21,5,CH,GT,C' '),
PUSH=(134:39,08)), $ JOBID
IFTHEN=(WHEN=(58,8,CH,EQ,C'$HASP373'),
OVERLAY=(143:67,08)) $ JOBNAME
/*
//JNF2CNTL DD *
INCLUDE COND=(58,8,CH,EQ,C'IEC988I')
/*
>My brain is not working well today due to the flu, and I am struggling a
bit.
Hope you feel better.
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
