102 lines
7.5 KiB
Plaintext
102 lines
7.5 KiB
Plaintext
//DESBD427 JOB (UI,4300,3400,T),ZZ,CLASS=A,MSGLEVEL=(1,1), 00010001
|
|
// USER=#DOADTS, 00020011
|
|
// MSGCLASS=X,NOTIFY=ECNTZL1,REGION=4096K 00020111
|
|
//* 00020208
|
|
//*************************************************** 00020308
|
|
//***** LOAD ESSP SSN AND NAMES INTO DUTAS NAME FILE 00020408
|
|
//*************************************************** 00020508
|
|
//* LOAD DUTAS WAGE NAME FILE WITH SSN AND NAMES FROM ESSP DAILY 00020608
|
|
//* WAGE FILE. NAMES WILL BE MERGED WITH SSN ON OHTER JOBS. 02/10/18 00020708
|
|
//*************************************************** 00020808
|
|
//* 00020908
|
|
// SET LVLNODE='DEVL' 00021008
|
|
// SET MSTNODE='PROD' 00021108
|
|
//* 00021608
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00021708
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00021808
|
|
//*LOADLIBS INCLUDE MEMBER=DTSIPJLB 00021908
|
|
//* 00022008
|
|
//******************************************************************** 00029800
|
|
//* SORT OUT UNIQUE SSN(S) RECORDS FROM ESSP X144 QUARTERLY WAGE 00029903
|
|
//* FILE. ZL1 00030000
|
|
//* FILE. ZL1 00030112
|
|
//* CHANGED SYNCSORT TO SORT PER OCTO, SYNCSORT ENDED 10/01/22 ZL1 00030212
|
|
//***************************************************************** 00030312
|
|
//* 00030412
|
|
//STEP0200 EXEC PGM=SORT 00031012
|
|
//SYSOUT DD SYSOUT=(*) 00040000
|
|
//SYSPRINT DD SYSOUT=(*) 00041000
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X144,DISP=SHR 00050007
|
|
//SORTOUT DD DSN=&&ESSPSSN, 00050106
|
|
// DISP=(NEW,PASS,DELETE), 00050206
|
|
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE), 00050306
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=120,BLKSIZE=1200) 00050406
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00110000
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00120000
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00130000
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE) 00140000
|
|
//SYSIN DD * 00150000
|
|
SORT FIELDS=(28,9,CH,A) 00160002
|
|
SUM FIELDS=NONE 00170000
|
|
END 00180000
|
|
//* 00201006
|
|
//******************************************************************** 00202000
|
|
//* READ WAGE NAME FILE IF SSN FOUND CHECK NAME, IF DIFFERENT UPDATE 00203000
|
|
//* IF SSN NOT FOUND ADD TO DATABASE ZL1 00204000
|
|
//***************************************************************** 00205000
|
|
//* 00206000
|
|
//****************************************************************** 00210000
|
|
//STEP0300 EXEC PGM=DESBD427, 00220001
|
|
// COND=(0,LT), 00230000
|
|
// REGION=0M 00240000
|
|
//SYSOUT DD SYSOUT=* 00250000
|
|
//SYSABOUT DD SYSOUT=* 00260000
|
|
//SYSABEND DD SYSOUT=* 00270000
|
|
//SYSUDUMP DD SYSOUT=* 00280000
|
|
//* 00290000
|
|
//DTSFNAME DD DSN=DOESTAX.PROD.VSAM.WAGENAME,DISP=SHR, 00300006
|
|
// AMP=('BUFNI=5,BUFND=10') 00310000
|
|
//* 00320000
|
|
//DTSFX144 DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00330006
|
|
//*TSFX144 DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20181,DISP=SHR 00331006
|
|
//* 00340000
|
|
//*TSFX146 DD DSN=ECNTSUP.DOESTAX.CONV.TAXWEB.ESSPX146,DISP=SHR 00350013
|
|
//DTSFX146 DD DSN=DOESTAX.PROD.WAGE.NAME.EXP,
|
|
//* DISP=SHR 00351013
|
|
// DISP=(NEW,CATLG,DELETE), 00050206
|
|
// UNIT=SYSDA,SPACE=(CYL,(20,15),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES, 00050306
|
|
// DCB=(RECFM=LSEQ,LRECL=76,BLKSIZE=7600)
|
|
//* 00360000
|
|
//********************************************************************* 00370000
|
|
//*** COPY ESSP DAILY WAGES TO ARCHIVE BACKUP FILE. 00390007
|
|
//** 00400007
|
|
//******************************************************************** 00410007
|
|
//** 00420007
|
|
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT) 00430007
|
|
//IFILE DD DSN=&&ESSPSSN,DISP=(OLD,PASS,DELETE) 00440007
|
|
//** 00450007
|
|
//OFILE DD DSN=DOESTAX.CONV.ESSP.QTRWAGE.SSNONLY.Q20252,DISP=MOD 00460011
|
|
//SYSPRINT DD SYSOUT=(*) 00500007
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR 00510007
|
|
//**
|
|
//*********************************************************************
|
|
//* // CODEPAGE=1252,AUTOENCODE=YES,
|
|
//*
|
|
//**
|
|
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'
|
|
//INPUT DD *
|
|
10.57.110.147 21
|
|
dutasrc
|
|
Today728rc!
|
|
cd //Dutasrc/intranet/Outbound_intranet
|
|
ascii
|
|
put 'DOESTAX.PROD.WAGE.NAME.EXP' +
|
|
DOESTAX.PROD.WAGE.NAME.EXP
|
|
QUIT
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTOUT DD SYSOUT=*
|
|
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
|
|
//SYSGET DD *,DCB=BLKSIZE=80
|
|
//* 00520007
|