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

83
Procs/DTSTP715 Normal file
View File

@ -0,0 +1,83 @@
//** 00010015
//* TPS STATUS DETERMINATION (CS011 RECORDS IN RPT715 FROM DTSRQ715) 00020015
//** 00030015
//DTSTP716 PROC 00040015
//** CREATE THE TPS CONTROL RECORD 00050015
//STEP0100 EXEC PGM=DTSBER11 00060015
//SYSOUT DD SYSOUT=* 00070015
//CEEDUMP DD SYSOUT=* 00080015
//SYSABEND DD SYSOUT=* 00090015
//CAIMRPTS DD SYSOUT=* 00100015
//PARMIN DD DUMMY 00110015
//FILEIN DD DSN=&TPSFILE1., 00120015
// DISP=(OLD,PASS,KEEP) 00130015
//FILEOT DD DSN=&&TEMPUNIV,DISP=(NEW,PASS,DELETE), 00140015
// UNIT=SYSDA,SPACE=(CYL,(5,2),RLSE), 00150015
// DCB=(RECFM=FB,LRECL=68) 00160015
//CNTRFILE DD DSN=&&CNTL,DISP=(NEW,PASS,DELETE), 00170015
// UNIT=SYSDA,SPACE=(TRK,(1,1)), 00180015
// DCB=(RECFM=FB,LRECL=33,BLKSIZE=33) 00190015
//** 00200015
//** DEFINE THE VSAM WORK FILE 00210015
//STEP0200 EXEC PGM=IDCAMS, 00220015
// COND=(0,LT) 00230015
//SYSPRINT DD SYSOUT=* 00240015
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR11A), 00250015
// DISP=SHR 00260015
//** POPULATE THE VSAM FILE 00270015
//STEP0300 EXEC PGM=IDCAMS, 00280015
// COND=(0,LT) 00290015
//SYSPRINT DD SYSOUT=* 00300015
//INDD01 DD DSN=&&TEMPUNIV, 00310015
// DISP=(OLD,DELETE,DELETE) 00320015
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CS011, 00330015
// DISP=SHR 00340015
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00350015
// DISP=SHR 00360015
//** 00370015
//** SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS 00380015
//STEP0400 EXEC PGM=PICKNMBR, 00390015
// COND=(0,LT) 00400015
//SYSOUT DD SYSOUT=* 00410015
//SYSPRINT DD SYSOUT=* 00420015
//CAIMRPTS DD SYSOUT=* 00430015
//CNTRLDTA DD DSN=&&CNTL,DISP=(OLD,PASS,DELETE) 00440015
//SELNMBR DD DSN=&&SELNMBR,DISP=(NEW,PASS,DELETE), 00450015
// UNIT=SYSDA, 00460015
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=400), 00470015
// SPACE=(TRK,(20,5),RLSE) 00480015
//*ICKLST DD SYSOUT=Q, 00490018
//* DEST=&LDEST. 00500018
//PICKLST DD DSN=&PICKLST., 00501018
// DISP=(NEW,CATLG,DELETE), 00502018
// UNIT=SYSDA, 00503018
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133), 00504018
// SPACE=(CYL,(1,1),RLSE) 00505019
//** 00510015
//** SELECT THE SAMPLE FROM THE TRANSACTION RECORDS 00520015
//STEP0500 EXEC PGM=SAMPS011, 00530015
// COND=(0,LT) 00540015
//SYSOUT DD SYSOUT=* 00550015
//SYSPRINT DD SYSOUT=* 00560015
//CAIMRPTS DD SYSOUT=* 00570015
//MSGOUT DD SYSOUT=* 00580015
//CNTRLDTA DD DSN=&&CNTL,DISP=(OLD,DELETE,DELETE) 00590015
//DISKUNIT DD DSN=DOESTAX.&LVLNODE..VSAM.CS011,DISP=SHR 00600015
//HITFILE DD SYSOUT=* 00610015
//SLCTREC DD DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE) 00620015
//*RINTER DD SYSOUT=Q, 00630015
//* DEST=&LDEST. 00640015
//PRINTER DD DSN=&PRINTER1., 00650015
// DISP=(NEW,CATLG,DELETE), 00660015
// UNIT=SYSDA, 00670015
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133), 00680017
// SPACE=(TRK,(1,1),RLSE) 00690015
//CHECK DD SYSOUT=Q, 00700015
// DEST=&LDEST. 00710015
//** 00720015
//** DELETE THE VSAM WORK FILE 00730015
//STEP0600 EXEC PGM=IDCAMS, 00740015
// COND=(0,LT) 00750015
//SYSPRINT DD SYSOUT=* 00760015
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR11B),DISP=SHR 00770015
//** 00780015