DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
140
Procs/DTSRQ540
Normal file
140
Procs/DTSRQ540
Normal file
@ -0,0 +1,140 @@
|
||||
//*****************************************************************
|
||||
//* ES202 EXTRACT
|
||||
//* INCLUDES ES202 PROCESS (DTSBD540), AND PROCESSES TO PRODUCE
|
||||
//* THE ETT AND WAGE FILES (DTSBD541, DTSBD542).
|
||||
//*
|
||||
//****
|
||||
//DTSRQ540 PROC
|
||||
//****
|
||||
//STEP0100 EXEC PGM=DTSBD540,
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
|
||||
// DISP=(,CATLG,DELETE),
|
||||
// SPACE=(8192,(1000,1000),RLSE),
|
||||
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
||||
//SYSIN DD DDNAME=EXTPARM
|
||||
//*
|
||||
//CNTRFILE DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(ES2CNTR),
|
||||
// DISP=SHR
|
||||
//ES202IMT DD DSN=DOESTAX.&LVLNODE..BD540.FTP.ES202IMT,
|
||||
//* DISP=(NEW,CATLG,DELETE),
|
||||
// DISP=SHR
|
||||
//**** UNIT=3490,
|
||||
//* UNIT=SYSDA,
|
||||
//* SPACE=(27280,(150,250),RLSE),
|
||||
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=1364,BLKSIZE=27280)
|
||||
//ES202PRM DD DSN=&&ES202PRM,
|
||||
// DISP=(NEW,PASS,DELETE),
|
||||
// UNIT=SYSDA,
|
||||
// SPACE=(6000,(10,10),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=6,BLKSIZE=6000)
|
||||
//**
|
||||
//**** SORT REPORT RECORDS
|
||||
//STEP0200 EXEC DTSRSORT
|
||||
//****
|
||||
//STEP0300 EXEC PGM=DTSBD800, PRINT OUTPUT
|
||||
// COND=(0,LT)
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSABOUT DD SYSOUT=*
|
||||
//SYSUDUMP DD SYSOUT=*
|
||||
//**
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
||||
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,PASS,DELETE)
|
||||
//**
|
||||
//DTSFREF DD DSN=DOESTAX.&LVLMFILE..VSAM.REF,DISP=SHR,
|
||||
// AMP=('BUFNI=5,BUFND=10')
|
||||
//**
|
||||
//PARMIN DD DUMMY
|
||||
//**
|
||||
//ATLSTIN DD DUMMY
|
||||
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||
//RPT907R1 DD SYSOUT=Z,
|
||||
// DEST=&LDEST.,
|
||||
// HOLD=&LHOLD.
|
||||
//** UNUSUAL CONDITIONS ENCOUNTERED REPORT
|
||||
//RPT907R2 DD SYSOUT=Z,COPIES=2,
|
||||
// DEST=&LDEST.,
|
||||
// HOLD=&LHOLD.
|
||||
//** CONTROL REPORT SUMMARY
|
||||
//RPT980R1 DD SYSOUT=Q,COPIES=2,
|
||||
// HOLD=&LHOLD.,
|
||||
// DEST=&LDEST.
|
||||
//**********************************************************
|
||||
//STEP0400 EXEC PGM=DTSBD541, EMPLOYER WAGE LISTING 00001899
|
||||
// COND=(0,LT) 00002099
|
||||
//SYSOUT DD SYSOUT=* 00003000
|
||||
//SYSABOUT DD SYSOUT=* 00004000
|
||||
//SYSUDUMP DD SYSOUT=* 00005000
|
||||
//* 00008101
|
||||
//ES202P1I DD DSN=&&ES202PRM,DISP=(OLD,PASS,DELETE) 00008299
|
||||
//* 00008399
|
||||
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR, 00008499
|
||||
// AMP=('BUFNI=5,BUFND=10') 00008599
|
||||
//* 00008699
|
||||
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00008799
|
||||
//* 00008899
|
||||
//OUTFILE1 DD DSN=&&OUTFILE1, 00009099
|
||||
// DISP=(,PASS,DELETE), 00010099
|
||||
// UNIT=SYSDA, 00020000
|
||||
// SPACE=(32000,(1000,1000),RLSE), 00040099
|
||||
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00050099
|
||||
//* 00058000
|
||||
//ES2WAGE DD DSN=DOESTAX.&LVLNODE..ES2WAGE, 00058199
|
||||
//** DISP=(NEW,CATLG,DELETE), 00058299
|
||||
// DISP=(OLD,KEEP,KEEP), 00058399
|
||||
// UNIT=SYSDA, 00058499
|
||||
// SPACE=(31200,(5000,1000),RLSE), 00058599
|
||||
// DCB=(RECFM=FB,LRECL=26,BLKSIZE=31200) 00058699
|
||||
//* 00058799
|
||||
//EXPWAGE DD DSN=DOESTAX.&LVLNODE..FTP.ES2WAGE, 00058199
|
||||
//** DISP=(NEW,CATLG,DELETE), 00058299
|
||||
// DISP=(OLD,KEEP,KEEP), 00058399
|
||||
// UNIT=SYSDA, 00058499
|
||||
// SPACE=(27600,(1000,1000),RLSE), 00058599
|
||||
// DCB=(RECFM=FB,LRECL=92,BLKSIZE=27600) 00058699
|
||||
//* 00058799
|
||||
//STEP0500 EXEC PGM=SORT,PARM='VLTEST=0', SORT BY SSN 00059099
|
||||
// COND=(0,LT) 00060099
|
||||
//SYSOUT DD SYSOUT=* 00070099
|
||||
//SORTIN DD DSN=&&OUTFILE1, 00080099
|
||||
// DISP=(OLD,PASS,DELETE), 00090099
|
||||
// UNIT=SYSDA, 00100099
|
||||
// SPACE=(CYL,(100,50),RLSE), 00110099
|
||||
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00120099
|
||||
//SORTOUT DD DSN=&&SRTFILE1, 00130099
|
||||
// DISP=(NEW,PASS,DELETE), 00140099
|
||||
// UNIT=SYSDA, 00150099
|
||||
// SPACE=(CYL,(100,50),RLSE), 00160099
|
||||
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00170099
|
||||
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSSD541),DISP=SHR 00180099
|
||||
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00190099
|
||||
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00200099
|
||||
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00210099
|
||||
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(100,50),RLSE) 00220099
|
||||
//* 00640000
|
||||
//********************************************************************* 00650099
|
||||
//STEP0600 EXEC PGM=DTSBD542, BUILD ETT FILE 00660099
|
||||
// COND=(0,LT) 00680099
|
||||
//SYSOUT DD SYSOUT=* 00700099
|
||||
//SYSABOUT DD SYSOUT=* 00710099
|
||||
//SYSUDUMP DD SYSOUT=* 00720099
|
||||
//* 00721099
|
||||
//ES202P2I DD DSN=&&ES202PRM,DISP=(OLD,DELETE,DELETE) 00722099
|
||||
//* 00723099
|
||||
//INFILE DD DSN=&&SRTFILE1, 00730099
|
||||
// DISP=(OLD,PASS,DELETE), 00740099
|
||||
// UNIT=SYSDA, 00750099
|
||||
// SPACE=(CYL,(100,50),RLSE), 00760099
|
||||
// DCB=(RECFM=FB,LRECL=16,BLKSIZE=32000) 00770099
|
||||
//ETTFILE DD DSN=DOESTAX.&LVLNODE..ES202ETT, 00780099
|
||||
//** DISP=(NEW,CATLG,DELETE), 00790099
|
||||
// DISP=(OLD,KEEP,KEEP), 00791099
|
||||
// UNIT=SYSDA, 00800099
|
||||
//* SPACE=(32000,(1000,1000),RLSE), 00810099
|
||||
// DCB=(RECFM=FB,LRECL=20,BLKSIZE=32000) 00820099
|
||||
//* 00830099
|
||||
//******************************************************************** 01030099
|
||||
Reference in New Issue
Block a user