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

16
JCL/DTSGSID2.jcl
View File

@ -24,7 +24,7 @@
//** 00001700
//STEP0100 EXEC DTSBX479
//** 00001700
//STEP0200 EXEC PGM=SYNCSORT,
//STEP0200 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -34,7 +34,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -45,7 +45,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W1')
//*
//** 00001700
//STEP0250 EXEC PGM=SYNCSORT,
//STEP0250 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -54,7 +54,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W2FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -65,7 +65,7 @@
SORT FIELDS=(1,9,CH,A,44,5,CH,A,57,6,CH,A)
SUM FIELDS=NONE
//*
//STEP0300 EXEC PGM=SYNCSORT,
//STEP0300 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -75,7 +75,7 @@
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
@ -86,7 +86,7 @@
INCLUDE COND=(11,2,CH,EQ,C'W4')
//*
//** 00001700
//STEP0350 EXEC PGM=SYNCSORT,
//STEP0350 EXEC PGM=SORT,
// COND=(0,LT),
// REGION=4096K
//SORT.SYSPRINT DD SYSOUT=*
@ -95,7 +95,7 @@
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTIN DD DSN=DOESTAX.CONV.UIBS.W4FILE.TEMP,DISP=SHR
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)