120 lines
5.7 KiB
Plaintext
120 lines
5.7 KiB
Plaintext
//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='QTR251' <<<<<<<<<<<< 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..PROCLIB 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
|
|
//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
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//**
|