60 lines
2.2 KiB
Plaintext
60 lines
2.2 KiB
Plaintext
//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
|
|
/*
|
|
//
|