77 lines
3.5 KiB
Plaintext
77 lines
3.5 KiB
Plaintext
//TSTBX479 JOB (UI,4300,3400,T),DTSBX479, 00000010
|
|
// CLASS=S,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
// REGION=0M
|
|
//* 00001700
|
|
// SET LVLNODE='DEVL'
|
|
// SET MSTNODE='PROD'
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//** 00001700
|
|
//* EXTRACT EMPLOYER DATA (NAME, ADDRESS, CLASS, STATUS) FOR UIBS 00001700
|
|
//* FROM TAX MASTER FILES FOR BENEFITS APPLICATIONS 00001700
|
|
//* 00001700
|
|
//* RUNS DAILY FOLLOWING TAX UPDATE (DTSPDAY1) 00001700
|
|
//* 00001700
|
|
//* *** JOB DTSPDAY1 MUST RUN SUCESSFULL ZL1 00001700
|
|
//* 00001700
|
|
//* READ-ONLY - NO MASTER FILE UPDATES. 00001700
|
|
//* 00001700
|
|
//* THIS JOB MAY BE RERUN. 00001700
|
|
//* IT REBUILDS THE OUTPUT FILE EACH TIME IT RUNS. 00001700
|
|
//** 00001700
|
|
//STEP0100 EXEC DTSBX479
|
|
//** 00001700
|
|
//STEP0200 EXEC PGM=SYNCSORT,
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SORT.SYSPRINT DD SYSOUT=*
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORT.STATOUT DD SYSOUT=*
|
|
//SORT.SYSDBOUT DD SYSOUT=*
|
|
//SORT.SYSUDUMP DD SYSOUT=*
|
|
//SORT.SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,9,CH,A)
|
|
INCLUDE COND=(11,2,CH,EQ,C'W2')
|
|
//*
|
|
//STEP0300 EXEC PGM=SYNCSORT,
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SORT.SYSPRINT DD SYSOUT=*
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SORT.STATOUT DD SYSOUT=*
|
|
//SORT.SYSDBOUT DD SYSOUT=*
|
|
//SORT.SYSUDUMP DD SYSOUT=*
|
|
//SORT.SYSOUT DD SYSOUT=*
|
|
//SORTIN DD DSN=DOESTAX.PROD.BACKUP.W4FILE(+0),DISP=SHR
|
|
//SORTOUT DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,9,CH,A)
|
|
INCLUDE COND=(11,2,CH,EQ,C'W4')
|
|
//*
|
|
//** 00001700
|
|
//STEP0200 EXEC PGM=FTP,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBCHGOB),DISP=SHR
|
|
//
|
|
//*******************************************************************
|