DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
354
JCL/DTSVOSQ.jcl
Normal file
354
JCL/DTSVOSQ.jcl
Normal file
@ -0,0 +1,354 @@
|
||||
//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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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,PARM='VLTEST=0', 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
|
||||
//*****
|
||||
Reference in New Issue
Block a user