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

95
JCL/DTSACHZ1.jcl Normal file
View File

@ -0,0 +1,95 @@
//DTSACH01 JOB (UI,4300,3400,T),'ACHREPORT',CLASS=A,MSGCLASS=X, 00000199
// NOTIFY=ECNTSUP 00000299
//** 00000499
// SET LVLNODE='PROD' 00000599
// SET MSTNODE='PROD' 00000699
// SET FYYEAR='FY2009' 00000699
// SET LVDHOLD='YES'
// SET LDEST='LOCAL'
//** 00000499
//******************************************************************** 00000499
//** THIS JOB WILL REPRINT ANY REPORT TYPES THAT HAVE BEEN ARCHIVED * 00000499
//** SEE PROGRAM DTSACH01 FOR A LIST OF REPORTS THAT HAVE BEEN * 00000499
//** ARCHIVED. * 00000499
//** DUTAS ARCHIVE MASTER FILE: DOESTAX.PROD.ARCHIVE.FY2009.FY???? * 00000499
//** * 00000499
//** TO REPRINT REPORTS PERFORM THE FOLLOWING BEFORE SUBMITTING JOB: * 00000499
//** 1. INPUT EMPLOYER NUMBERS INTO DOESTAX.PROD.ARCHIVE.EMPL * 00000499
//** 2. CHANGE PARM CARD IN STEP0300 * 00000499
//** PARM CARD FORMAT: 417002009061020090610 * 00019199
//** A. 1-3 = REPORT TYPE TO REPRINT * 00000499
//** B. 4-5 = REPORT SUB TYPE(ALWAYS 00) * 00000499
//** C. 6-13 = MAIL START DATE (YYYYMMDD) * 00000499
//** D. 14-21 = MAIL END DATE (YYYYMMDD) * 00000499
//** * 00000499
//******************************************************************** 00004549
//** * 00000499
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 00001399
//* 00001400
//LOADLIBS INCLUDE MEMBER=DTSIXLIB 00001599
//* 00001600
//********************************************************************* 00004549
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//*ORTIN DD DSN=DOESTAX.PROD.ARCHIVE.FY2009.&FYYEAR.,DISP=SHR 00005099
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.&FYYEAR.,DISP=SHR 00005099
//*ORTIN DD DSN=DOESTAX.PROD.RATE517.RPT.AN2010,DISP=SHR 00005099
//*SORTIN DD DSN=DOESTAX.PROD.PER.RPT.G2621V00,DISP=SHR 00005099
//*SORTOUT DD DSN=&&SRTOUT,
//* DISP=(NEW,PASS,DELETE),
//SORTOUT DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(9000,9000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSAR417),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00007499
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00008099
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00009099
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00010099
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK06 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK07 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK08 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK09 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//SORTWK10 DD UNIT=SYSDA,SPACE=(CYL,(100,40),RLSE) 00011099
//********************************************************************* 00018000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT EMPLOYER RECORDS 00004600
// COND=(0,LT) 00004700
//SYSOUT DD SYSOUT=* 00004800
//SORTIN DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
//SORTOUT DD DSN=DOESTAX.PROD.ARCHIVE.EMPL,DISP=SHR 00005099
//SYSIN DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSSEMPL),DISP=SHR 00007399
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1),RLSE) 00007499
//********************************************************************* 00018000
//STEP0300 EXEC PGM=DTSACH01, ARCHIVE REPRINT PGM 00018100
// COND=(0,LT) 00018300
//SYSOUT DD SYSOUT=* 00018400
//SYSABOUT DD SYSOUT=* 00018500
//SYSUDUMP DD SYSOUT=* 00018600
//DTSACHPM DD * 00018899
417002013082020130930 00019199
/* 00019599
//** 00019699
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00070099
//* 00090099
//DTSACHEM DD DSN=DOESTAX.&LVLNODE..ARCHIVE.EMPL,DISP=SHR 00071099
//*DTSACHIN DD DSN=&&SRTOUT,
//* DISP=(OLD,PASS,DELETE),
//DTSACHIN DD DSN=DOESTAX.DEVL.ARCHIVE.R417,
// DISP=SHR,
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//DTSFVRO1 DD DSN=&&RPTOUT,
// DISP=(NEW,PASS,DELETE),
// UNIT=SYSDA,
// SPACE=(8192,(1000,1000),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//* 00100199
//SYSABEND DD SYSOUT=* 00153099
//CAIMRPTS DD SYSOUT=* 00154099
//* 00157099
//STEP0400 EXEC DTSACH01 00018100
// 00157099