Sample JCL for printing SCRAPLOG records

Sample JCL for printing SCRAPLOG records

//SCRAPPRT  JOB
//*  PRINT IQCSELCT SCRAPSEL
//JOBLIB  DD DISP=SHR,DSN=IMS610.RESLIB
//SELECT  EXEC PGM=DFSERA10,REGION=512K
//SYSPRINT  DD SYSOUT=A
//SYSUT1 DD DSN=QCF.SCRAPSEL,DISP=SHR
//SYSIN     DD *
CONTROL  CNTL
OPTION   PRINT E=DFSERA30
END
/*
//CANCEL  EXEC PGM=DFSERA10,COND=EVEN,REGION=256K
//*  PRINT IQCCANCL SCRAPCAN
//SYSPRINT  DD SYSOUT=A
//SYSUT1 DD DSN=QCF.SCRAPCAN,DISP=SHR
//SYSIN     DD *
CONTROL  CNTL
OPTION   PRINT E=DFSERA30
END
//INSERT  EXEC PGM=DFSERA10,COND=EVEN,REGION=256K
//*  PRINT IQCINSRT SCRAPLOG
//SYSPRINT  DD SYSOUT=A
//SYSUT1 DD DSN=MRQ.SCRAPLOG,DISP=SHR
//SYSIN     DD *
CONTROL  CNTL
OPTION   PRINT E=DFSERA30
END
/*