161 lines
6.6 KiB
Plaintext
161 lines
6.6 KiB
Plaintext
//DTSGSID2 JOB (UI,4300,3400,T),DTSBX479, 00000010
|
|
// CLASS=S,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
// REGION=0M
|
|
//* 00001700
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//**
|
|
//* RAINCODE TESTED 08/30/25 ZL1
|
|
//* 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=SORT,
|
|
// 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.TEMP,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,44,5,CH,A,57,6,CH,A)
|
|
INCLUDE COND=(11,2,CH,EQ,C'W2')
|
|
//*
|
|
//** 00001700
|
|
//STEP0250 EXEC PGM=SORT,
|
|
// 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.CONV.UIBS.W2FILE.TEMP,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,44,5,CH,A,57,6,CH,A)
|
|
SUM FIELDS=NONE
|
|
//*
|
|
//STEP0300 EXEC PGM=SORT,
|
|
// 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.TEMP,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,44,5,CH,A,57,6,CH,A)
|
|
INCLUDE COND=(11,2,CH,EQ,C'W4')
|
|
//*
|
|
//** 00001700
|
|
//STEP0350 EXEC PGM=SORT,
|
|
// 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.CONV.UIBS.W4FILE.TEMP,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,44,5,CH,A,57,6,CH,A)
|
|
SUM FIELDS=NONE
|
|
//*
|
|
//** 00001700
|
|
//** PUT DUTAS DAILY UPDATES ON UAT SERVER FOR GSI TO PICKUP 00001700
|
|
//** 00001700
|
|
//** 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..APPL.PARMLIB(PUTGSI02),DISP=SHR
|
|
//*
|
|
//STEP0100 EXEC PGM=DTSBX478,
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//*
|
|
//DTSFW2 DD DSN=DOESTAX.CONV.UIBS.W2FILE,DISP=SHR
|
|
//*
|
|
//DTSFW4 DD DSN=DOESTAX.CONV.UIBS.W4FILE,DISP=SHR
|
|
//*
|
|
//DTSFUIBS DD DSN=DOESTAX.CONV.UIBS.WZFILE,
|
|
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//**
|
|
//STEP0400 EXEC PGM=IEBGENER,COND=(0,LT),REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:JASHIM.UDDIN@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
|
// 'CC:SEAN.JOSIAH@DC.GOV',
|
|
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'CC:JARONE.ROBINSON@DC.GOV',
|
|
// 'CC:RAMBABU.PEETLA@DC.GOV',
|
|
// 'SUBJECT: DUTAS DAILY WAGE COUNTS PASSED TO UIBS ',
|
|
// 'FILEDESC: DAILY WAGES COUNT FROM DUTAS ',
|
|
// 'FILENAME:DAILY-DUTAS-WAGES.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.UIBS.WZFILE,
|
|
// CODEPAGE=1252,AUTOENCODE=YES,DISP=SHR
|
|
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//*******************************************************************
|