Pull SDSF Data in 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 Jobname1 is 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.