65 lines
2.3 KiB
Plaintext
65 lines
2.3 KiB
Plaintext
//DTSPDAY7 JOB (UI,4300,3400,T),PROD.WEEKLY,CLASS=P,MSGCLASS=X, 00000010
|
|
//**** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//*
|
|
//*
|
|
// SET ACHYEAR='FY2009'
|
|
// SET LVLNODE='PROD'
|
|
// SET LVDHOLD='YES'
|
|
//*
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//* 09/30/99 - JHP
|
|
//* CLONE OF CEPTWEND FOR MODEL OF WEEKLY BATCH RUN
|
|
//****
|
|
//* UI TAX WEEKLY BATCH RUN
|
|
//*
|
|
//* NOTE: RUN ON LAST WORKING DAY OF WEEK AFTER LAST
|
|
//* DAILY BATCH RUN FOR THE WORK WEEK HAS
|
|
//* SUCCESSFULLY COMPLETED.
|
|
//****
|
|
//* WEEKLY BACKUP IS TAKEN HERE BEFORE WEEKLY UPDATE JOB
|
|
//*
|
|
//****
|
|
//* 11/9/12 CHANGED PROC FROM DTSRWVD TO DTSRWTR FOR TRMS RPTS ZL1
|
|
//*
|
|
//STEP0050 EXEC DTSUWVSM,
|
|
// BKUPGEN='(+1)'
|
|
//* THIS RESTORE IS DONE AT WEEK-END TO
|
|
//* REORG THE MAIN VSAM FILES (MSTA/B/C/D/E/F/G & AIX & WGH)
|
|
//* (OLA IS ALREADY RESET BY THE DAILY)
|
|
//* (ATC, REF & WRK WILL BE DONE IN THE QRTLY)
|
|
//* (NAIC & SIC NEED ONLY BE DONE AFTER
|
|
//STEP0100 EXEC DTSUEXT,
|
|
// RUNTYPE='WE'
|
|
//STEP0100.EXTPARM DD *
|
|
122
|
|
614
|
|
/*
|
|
//* SORT REPORT RECORDS
|
|
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0',
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.&LVLNODE..SRTDAY07.RPT(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
//* SPACE=(8192,(1000,1000),RLSE),
|
|
// SPACE=(CYL,(50,25),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSRREC),DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
|
|
//* WEEKLY REPORTS
|
|
//STEP0300 EXEC DTSRWTR,
|
|
// RPTGEN='(+1)',
|
|
// LDEST=U@PRT65,
|
|
// LHOLD='NO'
|
|
//* WEEKLY VD REPORTS
|
|
//STEP0400 EXEC DTSACHW1 /ARCHVIE RPT 433 SI 2ND LETTER
|
|
//*
|