//DTSBX461 JOB (UI,4300,3400,T),FPT-GET-OTRDATA,CLASS=S,
//         MSGCLASS=X,
//***      USER=#DOADTS,
//         NOTIFY=ECNTSUP,
//         REGION=0M
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*                                                                     00001700
//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                                                     00001700
//*********************************************************************
//** GET OTR FEIN DATA FILE EACH QUARTER AND CREATE A CD FOR VOS
//*               BOBBY HAWKINS                                         00001700
//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
//**  FTP COMMANDS ARE CASE SENSATIVE
//*********************************************************************
//*                                                                     00001700
//FTPXFER  EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  *
10.27.13.1
FTDEOTR2
DOES2OTR
GET 'ITS.PROD.SEQ.ITS560R.BF2Q1555' 'DOESTAX.CONV.OTR.EMPDATA' (REP
QUIT
/*
//STEP0100 EXEC PGM=DTX00001,     OTR FILE REFORMAT
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//RPTX0001 DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//OTRINFLE DD  DSN=DOESTAX.CONV.OTR.EMPDATA,DISP=SHR
//*
//OTROUTFL DD  DSN=DOESTAX.CONV.OTR.EMPDATA.REFORMAT,
//*            DISP=(NEW,CATLG,DELETE),
//             DISP=(OLD,KEEP,DELETE),
//             UNIT=SYSDA,
//             SPACE=(5600,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=191,BLKSIZE=19100)
//*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//
//***
//STEP0300 EXEC PGM=FTP       SEND DATA TO SERVER
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFTEIN),DISP=SHR
/*
//