58 lines
1.6 KiB
Plaintext
58 lines
1.6 KiB
Plaintext
//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..PROCLIB
|
|
//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)'
|
|
//*
|
|
//*
|