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

65
Procs/EFTEX100 Normal file
View File

@ -0,0 +1,65 @@
//*****
//*
//* DAILY EFT EMPLOYER STATUS EXTRACT
//*
//*****
//EFTEX100 PROC RUNTYPE='OR',
// PREBACK='N',
// CHKONLY='N',
// IOTRACE='N'
//*
//*********************************************************************
//STEP0100 EXEC PGM=EFTBD400, PERIODIC EXTRACT
// COND=(0,LT),
// PARM='&RUNTYPE.,&PREBACK.,&CHKONLY.,&IOTRACE.'
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFWGH DD DSN=DOESTAX.&LVLNODE..VSAM.WGH,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFNAME DD DSN=DOESTAX.&LVLNODE..VSAM.WAGE.NAME,DISP=SHR,
// AMP=('BUFNI=5,BUFND=10')
//DTSFBTCO DD DUMMY
//* DISP=(,CATLG,DELETE),
//* SPACE=(16384,(100,100),RLSE),
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//DTSFVRO1 DD DSN=DOESTAX.&CYPNODE..GOV1.EFTEXT,
// DISP=SHR
//* DISP=(,CATLG,DELETE),
//* UNIT=SYSDA, 00003116
//** SPACE=(CYL,(400,100),RLSE),
//* SPACE=(8192,(1000,1000),RLSE), 00003216
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DDNAME=EXTPARM
//*************************************************************
//*TEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT OUTPUT RECORDS 00002116
//** COND=(0,LT) 00002216
//*YSOUT DD SYSOUT=* 00002316
//*ORTIN DD DSN=DOESTAX.&LVLNODE..EFTG1EXT,
//* DISP=(OLD,PASS,DELETE), 00003016
//* UNIT=SYSDA, 00003116
//** SPACE=(CYL,(400,100),RLSE),
//* SPACE=(8192,(1000,1000),RLSE), 00003216
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00003316
//* 00003416
//*SORTOUT DD DSN=DOESTAX.&LVLNODE..EFTESR(+1),
//*ORTOUT DD DSN=DOESTAX.&LVLNODE..EFTEX100,
//* DISP=(OLD,KEEP,KEEP),
//* DISP=(,CATLG,DELETE),
//* UNIT=CART, 00003116
//* VOLUME=(,RETAIN), 00003116
//* LABEL=(1,SL), 00003116
//* SPACE=(8192,(1000,1000),RLSE), 00003216
//* UNIT=SYSDA, 00003116
//* SPACE=(CYL,(400,100),RLSE),
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*YSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(EFTSREC1),DISP=SHR 00004016
//*ORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004116
//*ORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004216
//*ORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004316
//*ORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE) 00004416
//**** 00004516