79 lines
3.2 KiB
Plaintext
79 lines
3.2 KiB
Plaintext
//***** 00000010
|
|
//** MERGE BATCH BWTC RECORDS INTO VSAM WTC FILE
|
|
//** MERGE AUDIT WAGE RECORDS INTO VSAM WTC FILE 8/18/12 ZL1
|
|
//** MERGE TDEC WAGE RECORDS INTO VSAM WTC FILE 1/11/13 ZL1
|
|
//*****
|
|
//DTSDWTC PROC
|
|
//***** 00000200
|
|
//STEP0100 EXEC DTSBU190 COPY WTC TO FLAT FILE
|
|
//***** 00000200
|
|
//STEP0100 EXEC PGM=IDCAMS, COPY WTC TO FLAT FILE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
|
|
//OUTDD01 DD DSN=&&WTCTRN1,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(75,15),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//*********************************************************
|
|
//*
|
|
//STEP0200 EXEC PGM=IDCAMS, COPY BWTC TO FIXED LENGTH FILE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.&MSTNODE..WAGE.BTC, BWTC FILE
|
|
// DISP=(OLD,DELETE,KEEP),
|
|
// SPACE=(25600,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
// DD DSN=DOESTAX.&MSTNODE..BX442.WAGE,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(25600,(100,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
// DD DSN=DOESTAX.&EXTNODE..TDECX148.DELINQ.WAGE.BTC,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
// DD DSN=DOESTAX.&EXTNODE..TDECX148.ONTIME.WAGE.BTC,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
//OUTDD01 DD DSN=&&WTCTRN1,
|
|
// DISP=(MOD,PASS,DELETE)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//STEP0300 EXEC PGM=IDCAMS, DELETE/DEFINE WTC FILE
|
|
// COND=(0,LT),
|
|
// REGION=0K
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(&MSTDWTC),DISP=SHR
|
|
//*
|
|
//************************************************************
|
|
//STEP0400 EXEC PGM=SORT,PARM='VLTEST=0', SORT WTC TRANSACTIONS
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&WTCTRN1,
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//*
|
|
//SORTOUT DD DSN=&&WTCTRN3,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(75,15),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=25600)
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSWTC),DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,25),RLSE)
|
|
//****
|
|
//*
|
|
//STEP0500 EXEC PGM=IDCAMS, LOAD VSAM FILE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=&&WTCTRN3,
|
|
// DISP=(OLD,PASS,DELETE)
|
|
//OUTDD01 DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//*
|
|
//****
|