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

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
JCL/DTSGSID2.jcl
View File

@ -9,7 +9,9 @@
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//** 00001700
//**
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
//* 00001700
@ -42,7 +44,7 @@
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
INCLUDE COND=(11,2,CH,EQ,C'W1')
INCLUDE COND=(11,2,CH,EQ,C'W2')
//*
//** 00001700
//STEP0250 EXEC PGM=SORT,
@ -110,13 +112,13 @@
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
//** 00001700
//** 00001700
//STEP0200 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//*STEP0200 EXEC PGM=FTP,
//* COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//*INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PUTGSI02),DISP=SHR
//*
//STEP0100 EXEC PGM=DTSBX478,
// COND=(0,LT),
@ -130,7 +132,8 @@
//*
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//*
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -150,7 +153,8 @@
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//*******************************************************************