Sample JCL Statements

The following example shows how to send and create a file on the remote server.

//SEND1 JOB 555,'USER NAME',MSGCLASS=X,REGION=4M
//**************************************************************
//*       THIS SENDS A FILE TO A REMOTE COMPUTER
//**************************************************************
//OSIUB000 EXEC PGM=OSIUB000,PARM='SERVER=FUSION'
//STEPLIB  DD  DISP=SHR,DSN=FUSION.LOADLIB
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
**************************************************************
   PROCESS,SEND1,TRANSFER,SEND
        LF=HLQ.FILE.NAME
        RF=C:\FILES\SEND1.BIN
        AVAIL=IMMED
        CRLF=Y
        TEXT=YES		  
        EFFECT=CR
        HOLD=NO
        NODE=REMNODE
        NOTIFY=TSOUSER
        NOTIFY_TYPE=TSO
        REMOTE_USER=RMTUSER
        RPASS=PASSWORD
        RETRY=1
        TYPE=TEXT

The following example shows how to receive, create, or append a file on the remote system.

//RECEIVE1 JOB 555,'USER NAME',MSGCLASS=X,REGION=4M
//********************************************************************
//*       THIS RECEIVES A FILE FROM THE REMOTE COMPUTER
//********************************************************************
//OSIUB000 EXEC PGM=OSIUB000,PARM='SERVER=FUSION'
//STEPLIB  DD  DISP=SHR,DSN=FUSION.LOADLIB
//SYSUDUMP DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
**************************************************************
   PROCESS,RECEIVE1,TRANSFER,RECEIVE
        DSN=HLQ.FILE.NAME
        REMOTE_FILE=C:\FILES\RECEIVE1.BIN
        AVAIL=IMMED
        CRLF=Y             
        EFFECT=CA
        HOLD=NO
        NODE=REMNODE
        NOTIFY=TSOUSER
        NOTIFY_TYPE=TSO
        REMOTE_USER=RMTUSER
        RPASS=PASSWORD
        RETRY=1
        TYPE=TEXT