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

98
Procs/DTSUX704 Normal file
View File

@ -0,0 +1,98 @@
//**** 00000104
//** 00000204
//** EXTRACT STEP FOR THE ANNUAL FUTA CERTIFICATION 00000304
//** 00000404
//DTSUX704 PROC 00000511
//** DEFNS NEEDED FOR THIS PROC: 00000611
//** LVLNODE = DEVL/TEST/PROD 00000711
//** FISCALYR = FYNNNN (WHERE NNNN=THE 4-DIGIT YEAR) 00000811
//** 00000911
//** 00001011
//********************************************************************* 00001111
//** FUTA CERTIFICATION - PART 2 00001211
//STEP0100 EXEC PGM=DTSBD610, 00001311
// COND=(0,LT), 00001412
// PARM='98' 00001512
//SYSOUT DD SYSOUT=* 00001611
//SYSABOUT DD SYSOUT=* 00001711
//SYSUDUMP DD SYSOUT=* 00001811
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00002011
//DTSFRQST DD DUMMY 00002111
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00002211
// AMP=('BUFNI=5,BUFND=10') 00002311
//DTSFZ50 DD DSN=DOESTAX.&LVLNODE..FUTAZ50.&FISCALYR., 00002412
// DISP=(,CATLG,DELETE), 00002511
// UNIT=SYSDA, 00002611
// SPACE=(CYL,(1,1),RLSE), 00002711
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=9780) 00002811
//DTSFNZ50 DD DSN=DOESTAX.&LVLNODE..FUTANZ50.&FISCALYR., 00002912
// DISP=(,CATLG,DELETE), 00003011
// UNIT=SYSDA, 00003111
// SPACE=(CYL,(1,1),RLSE), 00003211
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=9780) 00003311
//DTSFRPLY DD DSN=DOESTAX.&LVLNODE..RPT702.&FISCALYR., 00003411
// DISP=(,CATLG,DELETE), 00004000
// UNIT=SYSDA, 00005000
// SPACE=(TRK,(30,30),RLSE), 00006019
// DCB=(RECFM=FB,LRECL=326,BLKSIZE=27710) 00007018
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1), 00040004
// DISP=(,CATLG,DELETE), 00041000
// UNIT=SYSDA, 00042000
// SPACE=(CYL,(5,1),RLSE), 00043000
// DCB=(SYS3.MODEL,RECFM=VB,BLKSIZE=19069) 00044000
//DTSFCURR DD DSN=&&CURR, 00044111
// DISP=(,PASS,DELETE), 00044211
// UNIT=SYSDA, 00044311
// SPACE=(TRK,(15,15),RLSE), 00044411
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=8000) 00044511
//** 00047517
//** SORT AND ELIMINATE DUPLICATES 00047617
//** FROM CURRENT YEAR CERTIFICATION 00047717
//STEP0200 EXEC PGM=DTSBD620, 00047817
// COND=(0,LT) 00048005
//SYSOUT DD SYSOUT=* 00049000
//SYSABOUT DD SYSOUT=* 00050000
//SYSUDUMP DD SYSOUT=* 00060000
//DTSFIN DD DSN=&&CURR,DISP=(OLD,DELETE,DELETE) 00070000
//DTSFOUT DD DSN=&&SCURR, 00080000
// DISP=(,PASS,DELETE), 00090000
// UNIT=SYSDA, 00091000
// SPACE=(TRK,(15,15),RLSE), 00092000
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=8000) 00093000
//*** 00094010
//STEP0300 EXEC PGM=IDCAMS, DEFINE EMPLOYERS CERTIFIED FOR 00095000
// COND=(0,LT) CURRENT YEAR VSAM FILE 00096008
//SYSPRINT DD SYSOUT=* 00097000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSTCURR),DISP=SHR 00098009
//*** 00159810
//STEP0400 EXEC PGM=SORT, LOAD EMPLOYERS CERTIFIED FOR 00159900
// COND=(0,LT) CURRENT YEAR VSAM FILE 00160000
//SYSOUT DD SYSOUT=* 00170000
//SORTIN DD DSN=&&SCURR,DISP=(OLD,DELETE,DELETE) 00180000
//SORTOUT DD DSN=DOESTAX.&LVLNODE..VSAM.CURRCERT,DISP=SHR, 00190004
// AMP=('BUFNI=5,BUFND=20') 00200000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSCOPY),DISP=SHR 00210004
//*************************************************************** 00220000
//** FUTA NON FEDERAL FILER 00230006
//STEP0500 EXEC PGM=DTSBD630, 00240006
// COND=(0,LT) 00250000
//SYSOUT DD SYSOUT=* 00260000
//SYSABOUT DD SYSOUT=* 00270000
//SYSUDUMP DD SYSOUT=* 00280000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00310000
//DTSFCERT DD DSN=DOESTAX.&LVLNODE..VSAM.CURRCERT,DISP=SHR, 00311012
// AMP=('BUFNI=5,BUFND=10') 00312012
//DTSFREF DD DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR, 00320004
// AMP=('BUFNI=5,BUFND=10') 00330000
//DTSFPOT DD DUMMY 00340018
//**DTSFPOT DD DSN=DOESTAX.&LVLNODE..RPT706.&FISCALYR., 00341018
//** DISP=(,CATLG,DELETE), //** NO LONGER 00350018
//** UNIT=SYSDA, //** NEEDED 00360018
//** SPACE=(CYL,(15,15),RLSE), 00370018
//** DCB=(RECFM=FB,LRECL=401,BLKSIZE=2005) 00380018
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+2), 00390004
// DISP=(,CATLG,DELETE), 00400000
// UNIT=SYSDA, 00410000
// SPACE=(CYL,(5,1),RLSE), 00420000
// DCB=(SYS3.MODEL,RECFM=VB,BLKSIZE=19069) 00430000
//* 00440001