//DTSRQ511 JOB (UI,4300,3400,T),COMP-SUR-CHG,CLASS=Z,MSGCLASS=X,        00000010
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP
//*                                                                     00001700
//   SET LVLNODE='PROD'
//   SET MSTNODE='PROD'
//   SET LHOLD='YES'
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*                                                                     00001700
//STEP0100 EXEC PGM=DTSBD511,     /* GENERATE NON PAYMNT SUR CHG LTR
//             COND=(0,LT),
//             REGION=0M
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR
//DTSFVRO1 DD  DSN=DOESTAX.&MSTNODE..PER.RPT(+1),
//         DISP=(,CATLG,DELETE),
//         SPACE=(CYL,(2,1),RLSE),
//         DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//STEP0200 EXEC DTSRSORT
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//**
//*TEP0400 EXEC DTSUTVSM,
//*           BKUPGEN='(+1)'
//**