Sri, I tried out your example and it worked like a charm. Great stuff. Thanks for sharing this with us.
-------------------------------------------- On Tue, 30/5/17, Sri h Kolusu <skol...@us.ibm.com> wrote: Subject: Re: SDSF in Batch To: IBM-MAIN@LISTSERV.UA.EDU Received: Tuesday, 30 May, 2017, 3:11 PM Steely Mark, Assuming you always have more than 1 job to extract in the DA queue, you can use SDSF block commands (//X - //) and extract the entire log. You can use utility of choice ( I used SORT) to extract out the contents you like. Some thing like this //************************************************************** //* DELETE IF OUTPUT DATASET EXISTS * //************************************************************** //STEP0100 EXEC PGM=IEFBR14 //DD01 DD DSN=&SYSUID..SDSF.OUTPUT, // DISP=(MOD,DELETE),UNIT=SYSDA, // SPACE=(TRK,(1,0),RLSE) //* //************************************************************** //* EXTRACT THE ENTIRE JOB OUTPUTS IN DA FOR PREFIX 'CICS' * //* USING SDSF BLOCK COMMANDS (//X - //) * //************************************************************** //STEP0200 EXEC PGM=SDSF,PARM='++30,256' //ISFOUT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DATAOUT DD DSN=&SYSUID..SDSF.OUTPUT, // DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(25,25),RLSE), // RECFM=FB,LRECL=133,BLKSIZE=0 //ISFIN DD * PRE CICS* DA PRINT FILE DATAOUT FIND 'CICS' ++//X FIND 'CICS' LAST ++// PRINT CLOSE END /* //************************************************************** //* EXTRACT THE JESMSGLG FOR EACH JOB LOOKING FOR THE TIME * //************************************************************** //STEP0300 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=&SYSUID..SDSF.OUTPUT //SORTOUT DD SYSOUT=* //SYSIN DD * OPTION COPY INCLUDE COND=(2,2,ZD,EQ,NUM,AND, 4,1,CH,EQ,C'.',AND, 5,2,ZD,EQ,NUM,AND, 7,1,CH,EQ,C'.',AND, 8,2,ZD,EQ,NUM) /* P.S : The block command will fail if you just have 1 active job in the DA queue. Thanks, Kolusu From: "Steely.Mark" <steely.m...@aaa-texas.com> To: IBM-MAIN@LISTSERV.UA.EDU Date: 05/30/2017 10:17 AM Subject: SDSF in Batch Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> I know this has been discussed before but I can't find anything that I am looking for. The only thing I found close was SDSFEXT from file 313 on the CBTAPE. I would like the batch SDSF job to perform PREFIX CICS*. Then DA. Then from that list print the JESMSGLG from each one listed. I have been able to do this successfully for 1 job. Any help would be appreciated. Thanks ---------------------------------------------------------------------- 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
