//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