Automating the TRASMIT/RECEIVE tasks in Batch program

Very useful tip to automate the task of transmitting a data from one region to another region.

 

To Transmit

 

//XMIT    EXEC PGM=IKJEFT01,DYNAMNBR=20
//DDIN     DD  DISP=SHR,DSN=<your.dataset.to.be.sent>
//DDOUT    DD  DISP=(,CATLG),DSN=<use.this.dataset.if.you.want.to.ftp>,
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=27800),
//             SPACE=(TRK,(15,15)),UNIT=SYSDA
//SYSPRINT DD  SYSOUT=*  
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *  
  TRANSMIT NATSTAR +
     NOCOPYLIST +
     DDNAME(DDIN) +
     NOEPILOG +
     NOLOG +
     NONOTIFY +  
     OUTDDNAME(DDOUT) +    
     PDS +
     NOPROLOG
//

 

To Receive

 

//RCVJOB JOB (RECEIVE)
//*                                                                
//*********************************
//*   THIS JCL RE-CREATES A PDS FROM A FILE FORMAT THAT HAS BEEN
//*    TRANFERED THROUGH FTP FROM AN OTHER MACHINE.
//*********************************
//*
//RECV    EXEC PGM=IKJEFT01,DYNAMNBR=20
//DDIN     DD  DISP=SHR,DSN=<your.transmit.dataset>
//SYSPRINT DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *
  RECEIVE +
     INDDNAME(DDIN) +
     NODISPLAY +
     NONAMES
  DATASET(<’the.dsn.to.create>’)
//    

 Thanks Jantje…..