83 lines
3.1 KiB
Plaintext
83 lines
3.1 KiB
Plaintext
//**
|
|
//* TPS REPORT CONTRIBUTIONS (CS041 RECORDS IN RPT719 FROM DTSRQ902)
|
|
//**
|
|
//DTSTP719 PROC
|
|
//** CREATE THE TPS CONTROL RECORD
|
|
//STEP0100 EXEC PGM=DTSBER41
|
|
//SYSOUT DD SYSOUT=*
|
|
//CEEDUMP DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//PARMIN DD DUMMY
|
|
//*ILEIN DD DSN=DOESTAX.PROD.RPT719(+0),
|
|
//FILEIN DD DSN=&TPSFILE1.,
|
|
// DISP=(OLD,PASS,KEEP)
|
|
//CNTRFILE DD DSN=&&CNTL,DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,SPACE=(TRK,(1,1)),
|
|
// DCB=(RECFM=FB,LRECL=33,BLKSIZE=33)
|
|
//**
|
|
//** DEFINE THE VSAM WORK FILE
|
|
//STEP0200 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR41A),
|
|
// DISP=SHR
|
|
//** POPULATE THE VSAM FILE
|
|
//STEP0300 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(0,LT) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//INDD01 DD DSN=&TPSFILE1.,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.CS041,
|
|
// DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE), 00000070
|
|
// DISP=SHR 00000070
|
|
//**
|
|
//** SELECT RANDOM SAMPLE RELATIVE RECORD NUMBERS
|
|
//STEP0400 EXEC PGM=PICKNMBR,
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSPRINT DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//CNTRLDTA DD DSN=&&CNTL,DISP=(OLD,PASS,DELETE)
|
|
//SELNMBR DD DSN=&&SELNMBR,DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// DCB=(RECFM=FB,LRECL=8,BLKSIZE=400),
|
|
// SPACE=(TRK,(20,5),RLSE)
|
|
//PICKLST DD SYSOUT=Q,
|
|
// DEST=&LDEST.
|
|
//**
|
|
//** SELECT THE SAMPLE FROM THE TRANSACTION RECORDS
|
|
//STEP0500 EXEC PGM=SAMPS041,
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSPRINT DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//MSGOUT DD SYSOUT=*
|
|
//CNTRLDTA DD DSN=&&CNTL,DISP=(OLD,DELETE,DELETE)
|
|
//DISKUNIT DD DSN=DOESTAX.&LVLNODE..VSAM.CS041,DISP=SHR
|
|
//HITFILE DD SYSOUT=*
|
|
//*RINTER DD SYSOUT=Q,
|
|
//* DEST=&LDEST.
|
|
//PRINTER DD DSN=&PRINTER1.,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
|
|
// SPACE=(TRK,(1,1),RLSE)
|
|
//SLCTREC DD DSN=&&SELNMBR,DISP=(OLD,DELETE,DELETE)
|
|
//*HECK DD SYSOUT=Q,
|
|
//* DEST=&LDEST.
|
|
//CHECK DD DSN=&CHECK1,
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// DCB=(RECFM=FB,LRECL=133,BLKSIZE=133),
|
|
// SPACE=(TRK,(1,1),RLSE)
|
|
//**
|
|
//** DELETE THE VSAM WORK FILE
|
|
//STEP0600 EXEC PGM=IDCAMS, 00000030
|
|
// COND=(0,LT) 00000030
|
|
//SYSPRINT DD SYSOUT=* 00000040
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRR41B), 00000070
|
|
// DISP=SHR 00000070
|
|
//**
|