Pull SDSF Data Batch

Main frame Job to Pull SDSF data in Batch

The following Job will help you pull the desired data from spool (SDSF). This may serve as an important tool in gathering the stats of a job just finished.

//SDSFOUT    JOB (ACC INFO,,,,,XXXX),’      //            MSGCLASS=Y,NOTIFY=&SYSUID     //STEP01   EXEC PGM=IEFBR14                    //DD01     DD  DSN=USERID.DATASET.ONE,         //            DISP=(MOD,DELETE),UNIT=SYSDA     //DD02     DD  DSN=USERID.DATASET.TWO,      //            DISP=(MOD,DELETE),UNIT=SYSDA     //STEP02 EXEC PGM=SDSF,PARM=’++30,256′               //ISFOUT   DD DSN=USERID.DATASET.ONE,             //            DISP=(,CATLG,DELETE),UNIT=SYSDA        //SYSUDUMP DD SYSOUT=*                               //SYSPRINT DD SYSOUT=*                               //SYSTSPRT DD SYSOUT=*                               //SYSOUT   DD SYSOUT=*                               //DATAOUT DD DSN=USERID.DATASET.ONE,                 //            DISP=(,CATLG,DELETE),UNIT=SYSDA        //ISFIN    DD *                                      ST                                                   

PRE JOBNAME1                                         

FILTER JOBNAME EQ JOBNAME1                                        
FIND ‘JOBNAME1‘                                      ++?                                                  FIND ‘JESMSGLG’                                      ++S                                                  PRINT FILE DATAOUT                                   PRINT 1 999                                          PRINT CLOSE                                          END                                                  /*                                                   //STEP03   EXEC PGM=SORT                             //SYSOUT   DD SYSOUT=*                               //SORTIN   DD DSN=USERID.DATASET.ONE,DISP=SHR        //SORTOUT  DD DSN=USERID.DATASET.TWO,                //            DISP=(,CATLG,DELETE),UNIT=SYSDA,       //            DCB=(LRECL=80,RECFM=FB)                //SYSIN    DD  *                                       SORT FIELDS=COPY                                     OUTREC FIELDS(1:6,80),CONVERT                      /*                                                   



Where Jobname1is the Job for which data needs to be pulled from SDSF. In the above example we are retrieving the JESMSGLG, but you may try JESJCL etc. Basically the commands given under ISFIN are the SDSF commands only.