83 lines
3.3 KiB
Plaintext
83 lines
3.3 KiB
Plaintext
//DTSRQ116 JOB (UI,4300,3400,T),PROD.BE119.UPDT, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,
|
|
//**** TYPRUN=SCAN,
|
|
// REGION=0M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET LVLNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//****
|
|
//* THIS JOB: |
|
|
//* RPT116R1 = NEW/INACT/DEACTIVATED EMPLYRS
|
|
//* RPT117R1 = GENERIC DEACTIVATION LTR
|
|
//* RPT119R1 = '8 QTRS OF NONE' RPT LIST (SEE PARMS BELOW)
|
|
//****
|
|
//* NOTES:
|
|
//* - THE CICS FILES MUST BE CLOSED FOR THIS RUN
|
|
//* - THIS RUN *WILL* UPDATE THE MASTER FILES W/DEACTIVATIONS!
|
|
//* (FOR A PRELIMINARY LIST WITHOUT UPDATE - TRY DTSRQ119)
|
|
//* - A .BTC FILE IS PRODUCED FOR PROCESSING BY THE NEXT DAILY
|
|
//*================================================================|
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT AFTER A DAILY)
|
|
//****
|
|
//STEP0100 EXEC DTSUEXT, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRQ116),
|
|
// DISP=SHR
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//** NEW/REACT/DEACTIVATED EMPLYRS
|
|
//STEP0100.RPT116R1 DD SYSOUT=0
|
|
//** GENRC/DEMAND/'8 QTRS 0' INACTIVATN LTR
|
|
//STEP0100.RPT117R1 DD SYSOUT=*
|
|
//** GENRC/DEMAND/'8 QTRS 0' INACTIVATN LTR
|
|
//STEP0100.RPT117R2 DD SYSOUT=*
|
|
//** '8 QTRS OF NONE' REPORT
|
|
//STEP0100.RPT119R1 DD DSN=DOESTAX.CONV.RPT119R1.TXT(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(30000,(100,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=1340)
|
|
//*
|
|
//***
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//***
|
|
//* STD BACKUP AFTER DATA FILE UPDATE
|
|
//* (NOT NEEDED IF RUN RIGHT *BEFORE* A DAILY)
|
|
//STEP0400 EXEC DTSUTVSM,
|
|
// BKUPGEN='(+1)' /* IF NO BKP DONE IN STEP0050
|
|
//** BKUPGEN='(+2)' /* IF A BKP DONE IN STEP0050
|
|
//***********************************************************
|
|
//* SEND EMAIL REPORT FOR INACTIVATIONS
|
|
//***********************************************************
|
|
//STEP0300 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('GERALD.SMART@DC.GOV',
|
|
// 'TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:LAWANNE.CRAIG@DC.GOV',
|
|
// 'CC:MACARENA.CANTELAS@DC.GOV',
|
|
// 'CC:ARAVIND.VITTA@SAGITEC.COM',
|
|
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'CC:JOY.DIGGS@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'SUBJECT: DUTAS 8QTR ZERO WAGE INACTIVATIONS....ZL1',
|
|
// 'FILEDESC: DUTAS INACTIVATIONS 8QTR AND ZERO RPT',
|
|
// 'FILENAME: DUTAS_8QTR_0WAGE_RPT.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.RPT119R1.TXT(+1),DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//*
|
|
//*
|
|
//*
|