//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
//*
//*
//*