174 lines
8.0 KiB
Plaintext
174 lines
8.0 KiB
Plaintext
//****************************************************************** 00001700
|
|
//**DTSEINIT PROC
|
|
//****************************************************************** 00001700
|
|
//* THIS PROC WILL CREATE A NEW EMPTY FILES OF ALL ESSP FILES 00001700
|
|
//* USED IN THE DAILY RUN DTSPDAY1 00001700
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE PROFILE NAME DETERMINATION AND PAYMENT BTC 00001700
|
|
//****************************************************************** 00001700
|
|
//STEP0100 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE420 DD DSN=DOESTAX.PROD.BX420.BTC,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//* 00001700
|
|
//STEP0110 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE420 DD DSN=DOESTAX.PROD.BX420.BTC(+1),
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(20,5)),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE MAILING UPDATE REGISTRATION FILE 00001700
|
|
//****************************************************************** 00001700
|
|
//STEP0111 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE427 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//* 00001700
|
|
//STEP0112 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE427 DD DSN=DOESTAX.PROD.ESSP.X427.BTC,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(20,5)),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE ESSP REPORTS BTC FILE AFTER PAYD1
|
|
//*********************************************************************
|
|
//STEP0120 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE422 DD DSN=DOESTAX.PROD.BX422.BTC,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0130 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFE422 DD DSN=DOESTAX.PROD.BX422.BTC,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(20,5)),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE X102 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0140 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0150 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX102 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X102,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE X104 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0160 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0170 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX104 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X104,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE X106 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0180 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0190 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX106 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X106,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE X108 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0200 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0210 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX108 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X108,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE X110 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0220 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0230 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX110 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X110,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE X120 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0240 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0250 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX120 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X120,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//****************************************************************** 00001700
|
|
//** DELETE AND CREATE X140 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0260 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0270 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX140 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X140,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE X144 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0280 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0290 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX144 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X144,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//*********************************************************************
|
|
//** DELETE AND CREATE X145 WEB PROCESSED RECORDS
|
|
//*********************************************************************
|
|
//STEP0300 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//STEP0310 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
|
|
//DTSFX145 DD DSN=ECNTSUP.DOESTAX.PROD.FROMWEB.X145,
|
|
// DISP=(NEW,CATLG,CATLG),
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(10,5)),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*********************************************************************
|