How to use Referbacks statement in JCL

A job that uses referbacks:
//MM01AR   JOB  (36512),LYNCH,MSGCLASS=X,MSGLEVEL=(1,1),
//             CLASS=A,NOTIFY=&SYSUID
//STEP1    EXEC PGM=TRANS
//TRANFILE DD   DSNAME=AR.TRANS.FILE,DISP=(NEW,KEEP),
//             UNIT=SYSDA,VOL=SER=MPS800,
//             SPACE=(CYL,(5,1)),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=80)
//TRANERR  DD   DSNAME=AR.TRANS.ERR,DISP=(NEW,KEEP),
//             UNIT=SYSDA,VOL=SER=MPS801,
//             SPACE=(CYL,(2,1)),
//             DCB=*.TRANFILE

//STEP2    EXEC PGM=TRANSEP
//TRANIN   DD   DSNAME=*.STEP1.TRANFILE,DISP=SHR
//TRANOUT  DD   DSNAME=AR.TRANS.A.FILE,DISP=(NEW,KEEP),
//             UNIT=SYSDA,VOL=REF=*.STEP1.TRANFILE,
//             SPACE=(CYL,(5,1)),
//             DCB=*.STEP1.TRANFILE
.
.
//STEP5    EXEC PGM=*.STEP3.LOADMOD
.
.

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