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

Dutas main branch commit

Browse Source
This commit is contained in:
faizana
2025-09-04 09:19:40 -04:00
parent ca3572c5df
commit 62d95f14f0
22 changed files with 101212 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Procs/DTSACHD1
View File

@ -3,7 +3,7 @@
//* DAILY RUN. * * 00020305
//* * 00020405
//******************************************************************* 00020805
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00031000
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00031000
// COND=(4,LT) 00032011
//SYSOUT DD SYSOUT=(*) 00040000
//SYSPRINT DD SYSOUT=(*) 00041000

2
Procs/DTSBX415
View File

@ -15,7 +15,7 @@
//*&& MAGNETIC MEDIA WAGE (X144) FILES.
//******* NO LONGER NEEDED 11/14/19 ZL1 00001700
//*************************************************************** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE INPUT FILES
//STEP0100 EXEC PGM=SORT, COMBINE INPUT FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

4
Procs/DTSBX420
View File

@ -6,7 +6,7 @@
//** 00001700
//DTSBX420 PROC
//** 00001700
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0100 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
@ -101,7 +101,7 @@
// SPACE=(8192,(100,200),RLSE),
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
//*
//STEP0300 EXEC PGM=SORT,PARM='VLTEST=0', COMBINE BATCH XREF FILES
//STEP0300 EXEC PGM=SORT, COMBINE BATCH XREF FILES
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.&LVLNODE..BX422.BX214,DISP=SHR

2
Procs/DTSBX427
View File

@ -6,7 +6,7 @@
//** 00001700
//DTSBX427 PROC
//** 00001700
//STEP0080 EXEC PGM=SORT,PARM='VLTEST=0', SORT TRANSACTIONS
//STEP0080 EXEC PGM=SORT, SORT TRANSACTIONS
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

1058
Procs/DTSBX427.TXT Normal file
View File

File diff suppressed because it is too large Load Diff

4
Procs/DTSBX442
View File

@ -10,7 +10,7 @@
//** CREATE A FILE WITH X163 AND X164 RECORDS ONLY 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4421 EXEC PGM=SORT,PARM='VLTEST=0',
//STEP4421 EXEC PGM=SORT,
// COND=(0,NE)
//SYSOUT DD SYSOUT=*
//*
@ -30,7 +30,7 @@
//** SORT BY RECORD TYPE/EMPLOYER/QUARTER 00001700
//** 00001700
//*********************************************************** 00001700
//STEP4422 EXEC PGM=SORT,PARM='VLTEST=0',
//STEP4422 EXEC PGM=SORT,
// COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*

63
Procs/DTSD0A
View File

@ -6,36 +6,43 @@
//* FOR REPORT TO GO INTO TRMS CHANGE CLASS TO O 00032000
//***** 00033000
//**** /* GEN A DUMMY RECORD FOR THE LABELS FILE 00040000
//DOESLBL1 EXEC PGM=IEBDG, 00050000
// COND=(0,LT) 00060000
//SYSPRINT DD SYSOUT=* 00070000
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
// UNIT=SYSDA, 00090000
// SPACE=(TRK,1), 00100000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
// DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//*DOESLBL1 EXEC PGM=IEBDG, 00050000
//* COND=(0,LT) 00060000
//*SYSPRINT DD SYSOUT=* 00070000
//*LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 00080000
//* UNIT=SYSDA, 00090000
//* SPACE=(TRK,1), 00100000
//* DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00110000
//*SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL01), 00120000
//* DISP=SHR 00130000
//**** /* POPULATE THE LABELS WORK FILE 00140000
//DOESLBL1 EXEC PGM=GENT350, 43243434
// COND=(4,LT) 43243434
//SYSOUT DD SYSOUT=* 43243434
//LBLOUT DD DSN=&&TMP901,DISP=(NEW,PASS,DELETE), 43243434
// UNIT=SYSDA, 43243434
// SPACE=(TRK,1), 43243434
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 43243434
//DOESLBL2 EXEC PGM=IDCAMS, 00150000
// COND=(0,LT) 00160000
// COND=(0,LT) 00160000
//SYSPRINT DD SYSOUT=* 00170000
//FILEIN DD DSN=&&TMP901, 00180000
// DISP=(OLD,DELETE,DELETE), 00190000
// UNIT=SYSDA 00200000
//DOESVRO1 DD DSN=&&LBL901, 00210000
// DISP=(NEW,PASS,DELETE), 00220000
// UNIT=SYSDA, 00230000
// UNIT=SYSDA, 00230000
// SPACE=(8192,(1000,1000),RLSE), 00240000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00250000
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSLBL02), 00260000
// DISP=SHR 00270000
//** 00280000
//STEP0990 EXEC PGM=DTSBD800, OUTPUT GENERATION 00290000
// COND=(0,LT) 00300000
//SYSOUT DD SYSOUT=* 00310000
//SYSABOUT DD SYSOUT=* 00320000
//SYSUDUMP DD SYSOUT=* 00330000
//SYSPRINT DD SYSOUT=* 00340000
//SYSOUT DD SYSOUT=I 00310000
//SYSABOUT DD SYSOUT=I 00320000
//SYSUDUMP DD SYSOUT=I 00330000
//SYSPRINT DD SYSOUT=I 00340000
//** 00350000
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00360000
//** 00370000
@ -404,15 +411,15 @@
// HOLD=&PRTHOLD., 02621000
// DEST=&LDEST. 02630000
//** 02640000
//DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
// COND=(0,LT), 02660000
// REGION=4096K 02670000
//DOESVRI1 DD DSN=&&LBL901, 02680000
// DISP=(OLD,DELETE,DELETE) 02690000
//SYSOUT DD SYSOUT=* 02700000
//SYSABOUT DD SYSOUT=* 02710000
//SYSABEND DD SYSOUT=* 02720000
//CAIMRPTS DD SYSOUT=* 02730000
//DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
// DEST=U@PRT155 02750000
//*DOESLBLP EXEC PGM=DOESLABL, /* PRINT DOES LABELS 02650000
//* COND=(0,LT), 02660000
//* REGION=4096K 02670000
//*DOESVRI1 DD DSN=&&LBL901, 02680000
//* DISP=(OLD,DELETE,DELETE) 02690000
//*SYSOUT DD SYSOUT=* 02700000
//*SYSABOUT DD SYSOUT=* 02710000
//*SYSABEND DD SYSOUT=* 02720000
//*CAIMRPTS DD SYSOUT=* 02730000
//*DOESLBL1 DD SYSOUT=(C),FCB=P104, 02740000
//* DEST=U@PRT155 02750000
//** 02760000

10
Procs/DTSDUPDT
View File

@ -154,7 +154,7 @@
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00929600
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR 00929700
//****************************************************************** 00929800
//STEP0480 EXEC PGM=SORT,PARM='VLTEST=0', SORT BTC RECORDS 00930000
//STEP0480 EXEC PGM=SORT, SORT BTC RECORDS 00930000
// COND=(0,LT) 00940000
//SYSOUT DD SYSOUT=* 00960000
//SORTIN DD DSN=DOESTAX.&LVLNODE..BX415.BTC,DISP=SHR 00970000
@ -273,7 +273,7 @@
// SPACE=(CYL,(10,5)), 01798600
// DCB=(RECFM=FB,LRECL=134,BLKSIZE=13400) 01798700
//** WAGE EXPORT TO SERVER 01798800
//DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153, 01798900
//DTSFW153 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.W153, 01798900
//* DISP=(NEW,CATLG,CATLG), 01799000
// DISP=(OLD,KEEP,KEEP), 01799100
// SPACE=(CYL,(10,5)), 01799200
@ -341,7 +341,7 @@
// AMP=('BUFNI=5,BUFND=10') 02079500
//* 02079600
//****************************************************************** 02079700
//STEP0910 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 02080000
//STEP0910 EXEC PGM=SORT, SORT REPORT RECORDS 02080000
// COND=(0,LT) 02090000
//SYSOUT DD SYSOUT=* 02110000
//SORTIN DD DSN=DOESTAX.&LVLNODE..BD110.RPT(&S0100.),DISP=SHR 02120000
@ -405,10 +405,10 @@
//CAIMRPTS DD SYSOUT=* 02264118
//INDD01 DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.X153,DISP=SHR 02264218
// DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.X153,DISP=SHR 02264318
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264418
// DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.W153,DISP=SHR 02264418
//OUTDD01 DD DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.X153,DISP=SHR 02264518
//**** 02264618
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264718
//*SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSRONE),DISP=SHR 02264718
//**** 02264818
//** 02264918
//DTSDRPTS INCLUDE MEMBER=DTSD0A /* OUTPUT GENERATION 02265033

2
Procs/DTSWGZ07
View File

@ -3,7 +3,7 @@
//* SORT DUTAS W4 WAGE FILE 00010200
//* 11/10/11 ZL1 00010300
//******************************************************************** 00010400
//STEP0100 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS 00011000
//STEP0100 EXEC PGM=SORT, SORT REPORT RECORDS 00011000
//SYSOUT DD SYSOUT=(*) 00012000
//SYSPRINT DD SYSOUT=(*) 00013000
//SORTIN DD DSN=DOESTAX.&LVLNODE..DTS.W4FILE,DISP=SHR 00014000