101 lines
3.2 KiB
Plaintext
101 lines
3.2 KiB
Plaintext
//DTSBX465 JOB (HS,0000,0000,P),DOESOTR.EXTRACT2,CLASS=P,MSGCLASS=X,
|
|
// NOTIFY=ECNTSUP,
|
|
// USER=#DOADTS,
|
|
// REGION=4M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//****
|
|
// SET UINODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
// SET PRGNODE='PROD'
|
|
// SET OUTNODE='PROD'
|
|
//****
|
|
//* PRODUCE THE QUARTERLY WAGE EXTRACT FOR THE OFFICE OF TAX &
|
|
//* REVENUE CONTACT: CAMILLE WIGGLESWORTH 442-7033 FAX: 442-7076
|
|
//* REVENUE CONTACT: LOUISE SIMMONS 442-7035 FAX: 442-7076
|
|
//*
|
|
//* EXECUTE 5 BUSINESS DAYS AFTER THE QUARTER ENDS (ON REQUEST)
|
|
//* RECORDS ARE SELECTED THAT WERE UPDATED DURING THE QUARTER
|
|
//****
|
|
//** FTP FILES TO OTR SERVER
|
|
//****
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//****
|
|
//STEP0025 EXEC PGM=IEFBR14,REGION=1024K
|
|
//BUSINES DD DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//**
|
|
//STEP0050 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
|
//GOVT DD DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//**
|
|
//STEP0075 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
|
|
//FED DD DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
|
|
// DISP=(OLD,DELETE,DELETE)
|
|
//**
|
|
//STEP0100 EXEC PGM=DTSBX465
|
|
//PRNTR DD SYSOUT=(*)
|
|
//SYSOUT DD SYSOUT=(*)
|
|
//SYSUDUMP DD SYSOUT=(*)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSDBOUT DD SYSOUT=(*)
|
|
//SYSCOUNT DD SYSOUT=(*)
|
|
//*
|
|
//DOCSMSTR INCLUDE MEMBER=DOCIMSTR
|
|
//*
|
|
//*WG960F1 DD DSN=UI.PROD.DOCS.EWG960F1,DISP=SHR
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFNAME DD DSN=DOESTAX.DEVL.VSAM.WAGENAME,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//BUSINES DD DSN=DOESTAX.&OUTNODE..UI.OTR.BUS,
|
|
// SPACE=(CYL,(90,5),RLSE),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//*
|
|
//GOVT DD DSN=DOESTAX.&OUTNODE..UI.OTR.DCG,
|
|
// SPACE=(CYL,(5,1),RLSE),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//*
|
|
//FED DD DSN=DOESTAX.&OUTNODE..UI.OTR.FED,
|
|
// SPACE=(CYL,(1,1),RLSE),
|
|
// DISP=(NEW,CATLG,DELETE),
|
|
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=8000)
|
|
//*
|
|
//****
|
|
//** CHANGE QUARTER DATES ON THE PARMCARD BEFORE RUNNING JOB )
|
|
//****
|
|
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSBX465),
|
|
// DISP=SHR
|
|
//**
|
|
//*
|
|
//STEP0400 EXEC PGM=FTP
|
|
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
|
//SYSIN DD *
|
|
FWFRIENDLY TRUE
|
|
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX465),DISP=SHR
|
|
/*
|
|
//EMAIL EXEC PGM=IEBGENER,
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:KALYAN.JILLUMUDI@DC.GOV',
|
|
// 'TO:ZARATH.LALPUTAN@DC.GOV',
|
|
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
|
|
// 'TO:KELLY.DINKINS@DC.GOV',
|
|
// 'SUBJECT: DOES QUARERLY WAGES UPLOADED )',
|
|
// 'FILEDESC: DOES WAGES ',
|
|
// 'FILENAME:DOESWAGE.TXT'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.CONV.OTR.WAGES.TXT,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|
|
//**
|