giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
JCL/DTSGSI99.jcl Normal file
View File

@ -0,0 +1,74 @@
//DTSGSI99 JOB (UI,4300,3400,T),JHP.CHGDLY,CLASS=A,MSGCLASS=X, 00000160
//** TYPRUN=SCAN, 00000225
// NOTIFY=ECNTSUP,REGION=0M 00000564
/*ROUTE PRINT U@PRT65 - *** NO CHARGE DATE CHECKING
//**** 00000637
// SET PRGNODE='PROD' /* DAILY CHARGING UPDATE FROM 00000760
// SET LVLNODE='PROD' /* GSI TO UI TAX ))))))))))) 00000860
// SET MSTNODE='PROD' 00000960
// SET CHGNODE='PROD' 00001060
// SET CHGMNBR='CHGM002' 00001149
// SET CHGMSSN='CHGM030' 00001249
// SET BKPGEN='(+1)' /* 200 BACKUP GENERATIONS 00001349
// SET LDEST=U@PRT65 00001449
// SET LHOLD='YES' 00001549
// SET BD200='Y' /* TOLERATE DUPS OR NOT 00001662
//**** 00001749
//* DAILY BENEFIT CHARGE PROCESS 00002003
//**** 00002425
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00003026
//*OADLIBS INCLUDE MEMBER=DTSIJLIB 00003227
//LOADLIBS INCLUDE MEMBER=DTSIKLIB 00003227
//**** 00003325
//STEP0100 EXEC CHGXX100 /*EXTRACT AND UPDATE CHARGE FILE 00003963
//**** 00005461
//STEP0300 EXEC DTSCGRD1, /* PRINT REPORTS 00005560
// LDEST=U@PRT65, 00005660
// LHOLD='YES' 00005760
//** 00005860
//*STEP0200.RPT907R1 DD HOLD=NO /* UNUS.COND. RPT 00006049
//STEP0200.RPT907R2 DD DUMMY /* UNUS.COND. RPT 00006149
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00007049
//* 00001749
//* DAILY BENEFIT CHARGE BACKUP 00002003
//*********************************************************************
//* REGULAR PROD VSAM CHARGE FILES DAITY BACKUP
//********************************************************************
//*
//*TEP0100 EXEC DTSUTCHG,
//* BKUPGEN='(+1)' 00002425
//*
// IF (STEP0100.STEP0100.RC NE 0) THEN
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT: !!!!! NO DAILY CHARGES-FROM GSI )',
// 'FILEDESC: GSI DAILY CHARGES ',
// 'FILENAME:GSICHARGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE
//EMAIL EXEC PGM=IEBGENER,
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'TO:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'SUBJECT: DAILY CHARGES-FROM GSI UPLOADED )',
// 'FILEDESC: GSI DAILY CHARGES ',
// 'FILENAME:GSICHARGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.GSI.CHARGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
//*