On our MPEix 4.0 Systems we have used NRJE and now FTP.
NRJE emulates a IBM 8100 workstation to submit batch files
that are made up of IBM JCL to IBM Batch. The results are
sent back to the HP 3000 spooler. An Example follows;
EXAMPLE JOB STREAM TO SUBMIT IBM JCL;
!JOB JCL,USER.ACCOUNT;INPRI=8;OUTCLASS=LP,8;SPSAVE
!comment
!comment 0. JW. JCL FOR IBM
!comment Note; We use the following IN HOUSE programs!
!comment UNPACK.PUB.TECHXL unpacks a 1602 byte
!comment file into 80 byte chunks. This
!comment is a utility written for the HP 3000.
!comment There is a like utility on the IBM
!comment written specifically to pack it back
!comment to the way it was. This utility is
!comment called CATCHER.
!CONTINUE
!PURGE FILEX.PROD
!RUN UNPACK.PUB.TECHXL
FILE.PROD
FILEX.PROD
!NRJE IBMNODE
SUBMIT IBMJCL.JCL;MAXREC=80
EXIT
!CONTINUE
!PURGE FILEX.PROD
!EOJ
EXAMPLE IBMJCL.JCL FOLLOWS;
//IBM JOB (WD,USERINFO),'HPTOIBM',PRTY=9,
// USER=USERINFO,
// PASSWORD=PASSWORD
//*********************************************************
//* STEP1
//* A) CATCHER reads in an 80 byte file FILEX.PROD,
//* which was compressed on the HP3000 by UNPACK.PUB.TECHXL.
//*
//* B) CATCHER expands the file into a 1602 byte permanent
//* file on the IBM MVS SYSTEM.
//*
//*********************************************************
//OUTHP OUTPUT DEFAULT=Y,JESDS=ALL,DEST=MVS.IBMNODE,FORMS=1PRT
//*********************************************************
//* STEP1
//*********************************************************
//STEP1 EXEC PGM=CATCHERX,TIME=(1,30),REGION=1024K
//STEPLIB DD DSN=LIB.CIPO.HPPRGMS,DISP=SHR
//SYSUDUMP DD SYSOUT=A
//SYSOUT DD SYSOUT=A
//SYSIN DD *
1602
//SYSUT1 DD DATA,DLM='$?'
##FD FILEX.PROD
$?
//**********************************************************
//* NEW FILE GDG DATA SET
//**********************************************************
//SYSUT2 DD DSN=IBM.OURSTUFF.HPFILE(+1),
// DISP=(NEW,CATLG),
// DCB=(LRECL=1602,BLKSIZE=<NEED TO CALC>,RECFM=FB),
// SPACE=(CYL,(<NEED TO CALC>,<NEED TO CALC>)),
// UNIT=SYSWK
//SYSUT3 DD DUMMY,DCB=BLKSIZE=<NEED TO CALC>
//
EXAMPLE HPFTP.FTP EXAMPLE FOLLOWS;
!JOB FTP,USER.ACCOUNT,PROD;&
!PRI=CS;INPRI=8;OUTCLASS=LP,8;SPSAVE
!
!COMMENT ***********************************************************
!COMMENT
!COMMENT FTP BATCH PROCESS
!COMMENT TAILORED BY US
!COMMENT TO FTP FILE TO IBM
!COMMENT
!COMMENT ***********************************************************
!
!
!COMMENT ***********************************************************
!COMMENT SET HP VARIABLES
!COMMENT ***********************************************************
!
!SETVAR HP_LOCALFILEEXISTS FALSE
!
!SETVAR HP_LOCALFILE 'FILE'
!SETVAR HP_LOCALGROUP 'PROD'
!
!SETVAR FTP_SITE 'IBMMVS'
!SETVAR FTP_USER 'USER'
!SETVAR FTP_PASS 'PASSWORD'
!
!SETVAR IBM_FILE 'ibm.ourstuff.hpfile(+1)'
!SETVAR IBM_UNIT 'unit(syswk)'
!SETVAR IBM_SPACE 'space(<need to calc>,<need to calc>)'
!SETVAR IBM_RECFM 'recfm(fb)'
!SETVAR IBM_LRECL 'lrecl(1602)'
!SETVAR IBM_BLKSIZE 'blksize(<need to calc>)'
!SETVAR IBM_CYLINDER 'cylinder'
!
!COMMENT ***********************************************************
!COMMENT FTP FILE TO FTP HOST
!COMMENT ***********************************************************
!
!ECHO open ![FTP_SITE] >>TEMP
!ECHO quote user ![FTP_USER] >>TEMP
!ECHO quote pass ![FTP_PASS] >>TEMP
!ECHO site ![IBM_UNIT] ![IBM_SPACE] ![IBM_RECFM] ![IBM_LRECL] &
! ![IBM_BLKSIZE] ![IBM_CYLINDER] >>TEMP
!ECHO put ![HP_LOCALFILE].![HP_LOCALGROUP] '![IBM_FILE]' >>TEMP
!ECHO exit >>TEMP
!
!ECHO
!PRINT TEMP;PAGE=0
!ECHO
!
!RUN FTP.ARPA.SYS;STDIN=TEMP
!
!EOJ
You need to be aware of the implementation of the FTP server on
MVS or whatever host you are talking to! Best thing is to see if
a FTP server exists and then get that remote servers manual!
Good Luck!
|
