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

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