355 lines
15 KiB
Plaintext
355 lines
15 KiB
Plaintext
//DTSVOSQ JOB (UI,4300,3400,T),RUNVOSQ,CLASS=A,MSGCLASS=X, 00000010
|
|
//** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
//**
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//* 00014000
|
|
//* THE SORTED NWHIRE FILE MUST PICK UP ALL THE GENERATIONS OF
|
|
//* REPORT AND CSESATA. 00014000
|
|
//*** 00014000
|
|
//STEP0100 EXEC PGM=SORT, SORT NEW HIRE DATA 00015001
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=* 00017000
|
|
//* 00019000
|
|
//*SORTIN DD DSN=DOESTAX.CONV.NEWHIRE.REPORTS,DISP=SHR 00021006
|
|
//SORTIN DD DSN=DOESTAX.CONV.NEWHIRE.YR2004,DISP=SHR 00030103
|
|
// DD DSN=DOESTAX.CONV.NEWHIRE.REPORTS,DISP=SHR 00021006
|
|
//* 00030103
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00031001
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00032001
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00033001
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00034001
|
|
//SORTOUT DD DSN=&&NHSORT, 00040008
|
|
// DISP=(NEW,PASS,DELETE), 00041005
|
|
// UNIT=SYSDA, 00042000
|
|
// SPACE=(CYL,(100,50),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=801,BLKSIZE=18423)
|
|
//SYSIN DD * 00047000
|
|
SORT FIELDS=(3,9,CH,A) 00048006
|
|
/* 00060000
|
|
//* 00070000
|
|
//STEP0110 EXEC PGM=DTSBX450,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//NEWHIREI DD DSN=&&NHSORT,DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//TRANFLEO DD DSN=&&TRAN, NEW HIRE TRAN FILE
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(30750,(400,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=30750)
|
|
//*
|
|
//WORKFLEO DD DSN=&&WORKER,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29920,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=29920)
|
|
//*
|
|
//EMPLFLEO DD DSN=&&EMPLOYER,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(31050,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
|
|
//* 00070000
|
|
//*** 00014000
|
|
//STEP0120 EXEC PGM=SORT, SORT WORKER 00015001
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=* 00017000
|
|
//* 00019000
|
|
//SORTIN DD DSN=&&WORKER,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29920,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=29920)
|
|
//* 00030103
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00031001
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00032001
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00033001
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00034001
|
|
//SORTOUT DD DSN=&&WORKSRT,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(2992,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=29920)
|
|
//SYSIN DD * 00047000
|
|
SORT FIELDS=(1,15,CH,A) 00048006
|
|
/* 00060000
|
|
//***** 00070000
|
|
//STEP0130 EXEC PGM=SORT, SORT EMPLOYER 00015001
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=* 00017000
|
|
//* 00019000
|
|
//SORTIN DD DSN=&&EMPLOYER,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(31050,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
|
|
//* 00070000
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00031001
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00032001
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00033001
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00034001
|
|
//SORTOUT DD DSN=&&EMPLSRT,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(31050,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
|
|
//SYSIN DD * 00047000
|
|
SORT FIELDS=(1,15,CH,A) 00048006
|
|
/* 00060000
|
|
//STEP0140 EXEC PGM=SORT, SORT HIRE TRANSACTIONS 00015001
|
|
// COND=(0,LT)
|
|
//SYSOUT DD SYSOUT=* 00017000
|
|
//* 00019000
|
|
//SORTIN DD DSN=&&TRAN,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(30750,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=30750)
|
|
//* 00030103
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00031001
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00032001
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00033001
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE) 00034001
|
|
//SORTOUT DD DSN=DOESTAX.PROD.NEWHIRE.TRAN, NEW HIRE TRAN FILE
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(30750,(400,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=41,BLKSIZE=30750)
|
|
//*
|
|
//SYSIN DD * 00047000
|
|
SORT FIELDS=(1,30,CH,A) 00048006
|
|
SUM FIELDS=NONE
|
|
/* 00060000
|
|
//***** 00070000
|
|
//STEP0150 EXEC PGM=DTSBX451,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//WORKRIN DD DSN=&&WORKSRT,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29920,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=136,BLKSIZE=29920)
|
|
//*
|
|
//WORKROUT DD DSN=DOESTAX.PROD.NEWHIRE.WORKER,
|
|
//** DISP=(OLD,KEEP,KEEP),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(30000,(400,200),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=150,BLKSIZE=30000)
|
|
//*
|
|
//EMPLRIN DD DSN=&&EMPLSRT,
|
|
// DISP=(OLD,DELETE,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(31050,(5000,2000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=135,BLKSIZE=31050)
|
|
//* 00070000
|
|
//EMPLROUT DD DSN=&&EMPOUT,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
|
|
//*
|
|
//STEP0200 EXEC PGM=DTSBX461, EXTRACT & CREATE OTR FEIN FILE
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//OTRINFLE DD DSN=DOESTAX.CONV.OTR.EMPDATA,
|
|
// DISP=SHR
|
|
//*
|
|
//OTROUTFL DD DSN=&&EMPOUT,
|
|
// DISP=(MOD,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
|
|
//*
|
|
//** 00001700
|
|
//STEP0210 EXEC PGM=SORT, SORT EMPLOYERS
|
|
// COND=(5,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&EMPOUT,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTOUT DD DSN=&&BX461EMP,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
|
|
//** 00001700
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,9,CH,A)
|
|
/*
|
|
//***
|
|
//STEP0220 EXEC PGM=DTSBX477,
|
|
// COND=(0,LT),
|
|
// PARM=' CONV, ',
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//TAXFILE DD DSN=&&VOSTAX, 00005000
|
|
// DISP=(NEW,PASS,DELETE), 00006000
|
|
// UNIT=SYSDA, 00007000
|
|
// SPACE=(29000,(1000,1000),RLSE), 00008000
|
|
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000) 00009000
|
|
//* 00001700
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//***
|
|
//** 00001700
|
|
//STEP0230 EXEC PGM=SORT, SORT TAX EMPLOYERS
|
|
// COND=(5,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&VOSTAX,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTOUT DD DSN=&&TAXSORT,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(29000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=290,BLKSIZE=29000)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,9,CH,A)
|
|
/*
|
|
//***
|
|
//STEP0300 EXEC PGM=DTSBX462, EXTRACT & CREATE OTR FEIN FILE
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//EMPINP DD DSN=&&BX461EMP,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//TAXINP DD DSN=&&TAXSORT,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//*
|
|
//*EMPOUTP DD DSN=&&BX462EMP,
|
|
//* DISP=(,PASS,DELETE),
|
|
//EMPOUTP DD DSN=DOESTAX.&LVLNODE..VOSEMP,
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32040,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=89,BLKSIZE=32040)
|
|
//ADDROUTP DD DSN=&&VOSADDR,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=32000)
|
|
//***
|
|
//STEP0310 EXEC PGM=DTSBX464, FIND NEW EMPLOYERS
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//*NEWEMP DD DSN=&&BX462EMP,
|
|
//* DISP=(OLD,PASS,DELETE)
|
|
//NEWEMP DD DSN=DOESTAX.&LVLNODE..VOSEMP,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//OLDEMP DD DSN=DOESTAX.&LVLNODE..VSAM.VOSEMP,
|
|
// DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=30')
|
|
//**
|
|
//EMPUPD DD DSN=DOESTAX.&LVLNODE..NEWVOS,
|
|
//** DISP=(NEW,CATLG,DELETE),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32040,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=89,BLKSIZE=32040)
|
|
//*
|
|
//STEP0320 EXEC PGM=IDCAMS, DELETE/DEFINE VOSEMP FILE
|
|
// REGION=0K
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PRODVEM),DISP=SHR
|
|
//*
|
|
//***
|
|
//***************************************************************
|
|
//STEP0330 EXEC PGM=IDCAMS LOAD VSAM.VOSEMP
|
|
//SYSPRINT DD SYSOUT=*
|
|
//*INDD01 DD DSN=&&BX462EMP,
|
|
//* DISP=(OLD,DELETE,DELETE)
|
|
//INDD01 DD DSN=DOESTAX.&LVLNODE..VOSEMP,
|
|
// DISP=(OLD,KEEP,KEEP)
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..VSAM.VOSEMP,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=30')
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR
|
|
//***
|
|
//*
|
|
//STEP0400 EXEC PGM=SORT, SORT ADDRESSES
|
|
// COND=(5,LT),
|
|
// REGION=0K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=&&VOSADDR,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE)
|
|
//SORTOUT DD DSN=&&ADRSORT,
|
|
//*SORTOUT DD DSN=DOESTAX.&LVLNODE..VOSADDR,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=32000)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,72,CH,A)
|
|
/*
|
|
//***
|
|
//STEP0410 EXEC PGM=DTSBX463, ELIMINATE DUPLICATE ADDRESSES
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//*
|
|
//ADRINP DD DSN=&&ADRSORT,
|
|
// DISP=(OLD,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=32000)
|
|
//ADDROUTP DD DSN=DOESTAX.&LVLNODE..VOSADDR,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(32000,(1000,1000),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=128,BLKSIZE=32000)
|
|
//*
|
|
//*** SEND DATA TO SERVER FOR UPLOAD
|
|
//STEP0500 EXEC PGM=FTP, TO DATA VALIDATION DATABASE
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SOUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFTVOS),
|
|
// DISP=SHR
|
|
//*****
|