69 lines
2.5 KiB
Plaintext
69 lines
2.5 KiB
Plaintext
//DTSRQ418 JOB (UI,4300,3400,T),PROD.BE418,CLASS=P,MSGCLASS=X,
|
|
// NOTIFY=ECNTSUP,
|
|
// USER=#DOADTS,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET ACHYEAR='FY2009' <<<< ARCHIVING YEAR
|
|
// SET TPSYRQ='YR2013' <<<< CHANGE FOR RUN
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='NO'
|
|
//******************************************************************
|
|
//* JOB : DELINQUENT G QTRLY RPT NOTICE (417)
|
|
//* DELINQUENT ACCT NBR LIST (418)
|
|
//******************************************************************
|
|
//* 1. RUN ONE MONTH AFTER DTSRQ417 RUN
|
|
//*================================================================|
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN IMMEDIATELY AFTER A REGULAR DAILY)
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//****
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='QD',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ418),
|
|
// DISP=SHR
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0100.DTSFE417 DD DSN=DOESTAX.&LVLNODE..DTSFE417,
|
|
//* DISP=(NEW,CATLG,CATLG),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(2,2)),
|
|
// DCB=(RECFM=FB,LRECL=51,BLKSIZE=25500)
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//*** REPORT GENERATION
|
|
//STEP0300 EXEC DTSTPRPT
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0100.RPT418R1 DD SYSOUT=0
|
|
//** TPS REPORT DELINQUENCY RECORDS (EXPORT)
|
|
//**
|
|
//STEP0100.RPT417R1 DD SYSOUT=*
|
|
//STEP0100.RPT715R1 DD DUMMY
|
|
//STEP0100.RPT717R1 DD DUMMY
|
|
//STEP0100.RPT718R1 DD DUMMY
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT720R1 DD DUMMY
|
|
//STEP0100.RPT720R2 DD DUMMY
|
|
//STEP0100.RPT722R1 DD DUMMY
|
|
//**
|
|
//STEP0100.RPT907R1 DD SYSOUT=0
|
|
//STEP0100.RPT907R2 DD DUMMY
|
|
//STEP0100.RPT980R1 DD SYSOUT=0
|
|
//*
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//*
|
|
//***** MOVED FROM RQ417 ARCHIVE RECORD TYPE 417
|
|
//*
|
|
//STEP0400 EXEC DTSAR417
|
|
//*
|
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
|
//*TEP0500 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//*** BKUPGEN='(+2)' /* USE ONLY IF BKP DONE IN STEP0100
|
|
//*
|