>Can I call TRASMIT/RECEIVE from batch program ?
//XMITJOB JOB (XMIT)
//*
//********************************
//* THIS JCL CONVERTS A PDS TO A FILE FORMAT THAT IS SUITABLE
//* FOR TRANFER THROUGH FTP TO AN OTHER MACHINE.
//*
//* TO RUN THIS JCL, YOU SHOULD
//* 1) CUSTOMIZE THE JOB CARD
//* 4) RUN THIS JOB - VERIFY THE RETURN CODE
//********************************
//*
//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
//
Mind you, for this to work, you need a <userid>.NAMES.TEXT, where <userid>
is the userid of the one submitting the job. Then again, you need that when
you use xmit from the TSO ready...
//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>')
//
>Do I need any special authorization ?
Not that I know of. Same as what you need to do it manually in TSO...
Cheers,
Jantje.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
