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   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=*

0 comments:

Computers TopOfBlogs Technology Blogs Mainframe interview question and answers,mainframe jobs,cobol,vsam,jcl,cics,db2,rdbms,mvs,tso,ispf,ibm,hcl,tcs,cts,wibro Blog Directory