67 lines
2.4 KiB
Plaintext
67 lines
2.4 KiB
Plaintext
//XMITOTR2 JOB (TD,0000,0000,T),PROD.QTR.OTRDATA, 00010011
|
|
// MSGCLASS=X,CLASS=P, 00010011
|
|
// NOTIFY=ECNTSUP,MSGLEVEL=(1,1), //**** PROD VERSION 00010011
|
|
// USER=#DOADTS, 00010011
|
|
// REGION=4M
|
|
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//PROCLIB JCLLIB ORDER=PROD.PROCLIB BY Z/OS
|
|
//***** **-->> CHANGE ALL 034 TO 041 (YRQ) 00010011
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='CONV'
|
|
//***** 00010011
|
|
//** OTR = OFF.O.TAX & REV PRIOR QTR TRANSACTION WAGE DATA 00010011
|
|
//** THIS JOB IS DESIGNED TO RUN AT DOESJES2 AND XMIT 3 FILES 00010011
|
|
//** TO PROCESS AT ODC2 (BY OTR). THEY ARE USUALLY CREATED 00010011
|
|
//** ON THE FIFTH BUSINESS DAY OF A QTR BY DTSBX465. 00010011
|
|
//****
|
|
//JOBLIB DD DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR
|
|
// DD DSN=UI.PROD.DOCS.LOADLIB,DISP=SHR
|
|
// DD DSN=SYS1.CXR.SCXRRUN,DISP=SHR
|
|
//**//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//**//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//* Z/OS 1.4 LLIB ORDER=SYS2.OS390V26.LP5ESV1P.PROCLIB.SYS2OVER
|
|
//**** //* DOWNLOAD EXTRACT FILE
|
|
//** CHECK TXMTO12 FOR THE ENCRYPTION STEP
|
|
//STEP0150 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
|
|
// PARM='(EXIT TIMEOUT 60'
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD *
|
|
10.27.13.1
|
|
FTDEOTR2
|
|
DOES2OTR
|
|
BINARY
|
|
SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
|
|
PUT 'DOESTAX.PROD.UI.OTR.FED' 'FRDWH.PRD.RS21.DOESUI.OTR.FED'
|
|
QUIT
|
|
/*
|
|
//**** //* DEL THE INTERIM FILE
|
|
//STEP0250 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
|
|
// PARM='(EXIT TIMEOUT 60'
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD *
|
|
10.27.13.1
|
|
FTDEOTR2
|
|
DOES2OTR
|
|
BINARY
|
|
SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
|
|
PUT 'DOESTAX.PROD.UI.OTR.DCG' 'FRDWH.PRD.RS21.DOESUI.OTR.DCG'
|
|
QUIT
|
|
/*
|
|
//**** //* DEL THE INTERIM FILE
|
|
//STEP0350 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
|
|
// PARM='(EXIT TIMEOUT 600'
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTPUT DD SYSOUT=*
|
|
//INPUT DD *
|
|
10.27.13.1
|
|
FTDEOTR2
|
|
DOES2OTR
|
|
BINARY
|
|
SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
|
|
PUT 'DOESTAX.PROD.UI.OTR.BUS' 'FRDWH.PRD.RS21.DOESUI.OTR.BUS'
|
|
QUIT
|
|
/*
|
|
//**** //* END OF OTR FTP WAGES
|