//DTSRQ602 JOB (UI,4300,3400,T),BE602,CLASS=S,MSGCLASS=X,
//         NOTIFY=ECNTSUP,
//****     TYPRUN=SCAN,
//         USER=#DOADTS,
//         REGION=0M
//*
//  SET LVLNODE='PROD'
//  SET MSTNODE='PROD'
//****
//* 03/02/2008
//*         NEW VERSION OF AUDIT ASSIGNMENT PROCESS
//****
//*    ON REQUEST REPORT DTSBR602 -
//*        RPT602R1 =    AUDIT SELECTION CRITERIA
//*        RPT602R2 =    AUDIT CANDIDATES
//*        RPT602R3 =    AUDIT CANDIDATES - SELF MAILER
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//*                       NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0200 EXEC DTSUX602,
//             RUNTYPE='OR',
//             PREBACK='Y'
//*
//STEP0100.EXTPARM DD *
602
/*
//*                        REPORT RECORD SORT
//STEP0300 EXEC DTSRS602
//*
//*                        REPORT GENERATION
//STEP0500 EXEC DTSRQ602
//STEP0100.RPT602R3 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//STEP0400 EXEC PGM=DTSBA602,     /* WRITE MFAS RECORDS
//             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.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//RPT602F3 DD  DSN=DOESTAX.PROD.AUDIT.F602,
//**           DISP=(,CATLG,DELETE),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(CYL,(25,10),RLSE),
//             DCB=(RECFM=FB,LRECL=1064,BLKSIZE=21280)
//*
//STEP0600 EXEC DTSUTVSM,
//         BKUPGEN='(+1)'
//*
//*