//DTSCHGQ2 JOB (UI,4300,3400,T),QUARTERLY-CHRGS,CLASS=S,                00010011
//         MSGCLASS=X,                                                  00020011
//         USER=#DOADTS,
//         NOTIFY=ECNTZL1,                                              00020111
//***      TYPRUN=SCAN,                                                 00030001
//         REGION=0M                                                    00040000
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****                                                                  00050000
//*******************************************************************   00051011
//*   SELF INSURED QUARTERLY CHARGING ONLY                              00052011
//****           JOB 1. DTSCHGQ1  - BEFORE DAYILY UPDATE (DTSPDAY1)     00053011
//****           JOB 2. DTSPDAY1  - DAILY UPDATE                        00054011
//****           JOB 3. DTSCHGQ2  - UPDATE CHARGE RUN DATE              00055011
//****                                                                  00055111
//****  CHANGE QTRLY PARM BELOW BEFORE RUNNING                          00056011
//*******************************************************************   00057011
//****                                                                  00058011
//  SET LVLNODE='PROD'                                                  00060009
//  SET MSTNODE='PROD'                                                  00070009
//  SET CHGNODE='PROD'                                                  00080000
//  SET CHGMNBR='CHGM002'                                               00090000
//  SET   QTRLY='QTR253'   <<<<<<<<<<<< CHANGE PARM  <<<<<<<<<          00091021
//  SET   LDEST=U@PRT65                                                 00092005
//  SET LVDHOLD='YES'                                                   00093014
//  SET   LHOLD='NO'                                                    00094014
//**                                                                    00100000
//  SET LDEST=U@PRT65                                                   00110000
//  SET LHOLD='NO'                                                      00120000
//****                                                                  00130000
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB                       00140000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00141006
//****                                                                  00150000
//STEP0100 EXEC DTSCHGQ2                                                00180114
//*                                                                     00180513
//*********************************************************************
//*        STEP TO COPY CONVERT FILE TO DASD-PART1                  *
//*********************************************************************
// 
//STEP0200 EXEC PGM=SORT
//*
//SORTIN DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,
//          DISP=SHR
//*
//SORTOUT DD DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//*             DISP=(,CATLG,DELETE),
//*             SPACE=(8192,(100,200),RLSE),
//*             DCB=(RECFM=FB,LRECL=54,BLKSIZE=5400)
//SYSIN DD *
 SORT FIELDS=COPY
 INCLUDE COND=(6,1,CH,EQ,C'0',OR,
               6,1,CH,EQ,C'1',OR,
               6,1,CH,EQ,C'2',OR,
               6,1,CH,EQ,C'3',OR,
               6,1,CH,EQ,C'4',OR,
               6,1,CH,EQ,C'5',OR,
               6,1,CH,EQ,C'6',OR,
               6,1,CH,EQ,C'7',OR,
               6,1,CH,EQ,C'8',OR,
               6,1,CH,EQ,C'9')
 OUTREC FIELDS=(1:6,54)
//SYSOUT   DD SYSOUT=(*)
//*
//*
//*   PRINT EVENT LOG (SCR 72) FOR SI BILLS SENT TO EMPLOYER
//*
//STEP0300 EXEC PGM=CHGBX666,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//*
//EMPFILE1 DD  DSN=DOESTAX.CONV.SI.CHARGE.SORTED,DISP=SHR
//*
//RPT093R1 DD  SYSOUT=*
//RPT093R2 DD  SYSOUT=*
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//*
//DTSFREF  DD  DSN=DOESTAX.DEVL.VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFATC  DD  DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWTC  DD  DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//DTSFWGH  DD  DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//DTSFBTCO DD  DSN=DOESTAX.&MSTNODE..BTC(+1),
//             DISP=(,CATLG,DELETE),
//             SPACE=(8192,(100,200),RLSE),
//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//*      ***  THIS PROC MOVED TO DTSCHGQ1  ***                          00183019
//*      UPDATE FQTR RECORD IF JOB RAN SUCCESSFULLY                     00190008
//****                                                                  00200008
//*TEP0200 EXEC DTSUXCGU                                                00210019
//*                                                                     00650000
//*                            /* STD BACKUP                            00670010
//*TEP0300 EXEC DTSUTVSM,                                               00680020
//*            BKUPGEN='(+1)'                                           00690020
//****                                                                  00700010
//*
//X101MAIL EXEC PGM=IEBGENER,COND=(0,LT),
//         REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1     OUTPUT DEST=U1003,
//  USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
//            'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
//*            'TO:JOY.DIGGS@DC.GOV',
//            'TO:MARGARET.HERNANDEZ@DC.GOV',
//            'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
//            'TO:RAJINI.JUJJAVARAPU@DC.GOV',
//         'SUBJECT: SI QUARTERLY CHARGES REPORTS PRINTED',
//         'FILENAME:SI_QTR_CHARGE.TXT'),
//         MAILFROM=DUTAS@DC.GOV
//SYSUT1   DD DSN=DOESTAX.CONV.SI.CHARGE.TXT,DISP=SHR,
//         CODEPAGE=1252,AUTOENCODE=YES 
//SYSUT2   DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN    DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//**