The JCL for the report-preparation application

//MM01RP    JOB   36512,'A PRINCE',MSGCLASS=X,MSGLEVEL=(1,1), //              NOTIFY=MM03 //SORT1     EXEC PGM=SORT //SYSOUT    DD  ...

//MM01RP   JOB  36512,'A PRINCE',MSGCLASS=X,MSGLEVEL=(1,1),

//             NOTIFY=MM03

//SORT1    EXEC PGM=SORT

//SYSOUT   DD   SYSOUT=*

//SORTIN   DD   DSNAME=MM01.ACCOUNT.MASTER,DISP=SHR

//SORTOUT  DD   DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(NEW,KEEP),

//             UNIT=SYSDA,VOL=SER=MPS800,

//             SPACE=(CYL,(1,1)),

//             DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//SORTWK01 DD   UNIT=SYSDA,VOL=SER=MPS800,

//             SPACE=(CYL,(1,1))

//SYSIN    DD   *

 SORT   FIELDS=(16,5,CH,A,1,5,CH,A)

/*

//AR7100   EXEC PGM=AR7100

//ARSORT   DD   DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(OLD,DELETE),

//             UNIT=SYSDA,VOL=SER=MPS800

//CUSTMAST DD   DSNAME=MM01.CUSTOMER.MASTER,DISP=SHR

//DUNNING  DD   DSNAME=MM01.DUNNING.FILE,DISP=(NEW,KEEP),

//             UNIT=SYSDA,VOL=SER=MPS800,

//             SPACE=(CYL,(1,1)),

//             DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//AR7200   EXEC PGM=AR7200

//DUNNING  DD   DSNAME=MM01.DUNNING.FILE,DISP=OLD,

//             UNIT=SYSDA,VOL=SER=MPS800

//ATB      DD   SYSOUT=*

//OVERDUE  DD   SYSOUT=*

//SORT2    EXEC PGM=SORT

//SYSOUT   DD   SYSOUT=*

//SORTIN   DD   DSNAME=MM01.DUNNING.FILE,DISP=(OLD,DELETE),

//             UNIT=SYSDA,VOL=SER=MPS800,

//SORTOUT  DD   DSNAME=MM01.DUNNING.FILE.SORT,DISP=(NEW,KEEP),

//             UNIT=SYSDA.VOL=SER=MPS800,

//             SPACE=(CYL,(1,1))

//             DCB=(DSORG=PS,RECFM=FB,LRECL=400)

//SORTWK01 DD   UNIT=SYSDA,VOL=SER=MPS800,

//             SPACE=(CYL,(1,1))

//SYSIN    DD   *

 SORT   FIELDS=(43,2,CH,A,1,5,CH,A,50,5,CH,A)

/*

//AR7300   EXEC PGM=AR7300

//DUNSORT  DD   DSNAME=MM01.DUNNING.FILE.SORT,DISP=(OLD,DELETE),

//             UNIT=SYSDA,VOL=SER=MPS800

//XREF     DD   SYSOUT=*

//STMTS    DD   SYSOUT=*