Sample JCL for CVAFSEQ macro to process a volume in sequential order

The following is the sample JCL used to Assemble, Link, and Execute the example source. Changes will have to be made to this JCL, as appropriate, for each customer environment.

//SEQXMP2  JOB ,MSGCLASS=X,TIME=(,10),
//             NOTIFY=&SYSUID
//*
//STEP01  EXEC PROC=ASMACLG
//SYSIN     DD *
    (INCLUDE EXAMPLE SOURCE HERE)
/*
//*
//L.SYSLMOD DD DSN=YOUR.AUTH.LINKLIB(SEQXMP2),DISP=SHR
//L.SYSIN   DD *
  SETCODE AC(1)
  ENTRY   SEQXMP2
/*
//*
//G.SYSABEND DD  SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//*
//G.CVAFDD  DD DISP=SHR,UNIT=3390,VOL=SER=339003
//G.OUTDD   DD DSN=CVAFSEQ1.OUTPUT,
//             DISP=(NEW,CATLG),
//             UNIT=3390,VOL=SER=339001,
//             SPACE=(TRK,(2,2)),
//             DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//*
//