MVSFORUMS.com

[vak255]

FTP one file to three different servers.

I need to transmit a flat file to three different servers thru FTP.any comments ???

//FTPKIIS1 EXEC PGM=FTP,REGION=2M,PARM='(EXIT'
//SYSPRINT DD SYSOUT=*
//INPUT DD DSN=xxxxx.CNTLCARD(t),DISP=SHR
// DD DSN=xxxxx.CNTLCARD(t),DISP=SHR
// DD DSN=xxxxx.CNTLCARD(t),DISP=SHR
//OUTPUT DD SYSOUT=*
//*
******************************** Bottom of Data ********************************

CNTLCARD: xxxxx.CNTLCARD(TQ941A1C)
========
XXD01/BATCH.com
username password
ASCII
PUT 'xxxx.BILLEXTR.T.TABLE(0)' T.TXT
QUIT

[kolusu]

vak255,

I may be missing something here but isn't it as simple as running the above posted JCL as 3 steps each time changing the server name??

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[vak255]

a new line //Sysin dd * is inserted next to Job when i run this job and abended with Jcl error.

[vak255]

STMT NO. MESSAGE
2 IEFC019I MISPLACED DD STATEMENT

this statement points to sysin statement which is generated.

[kolusu]

vak255,

Post your JCL that you tried to run.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[vak255]

Kolusu,If u have a jcl for this.pls post it.This is wht I run , the statement which is generated is in bold.


//KIRAN5FT JOB (BLPP,39U7,2,50),'FTP SERVER ',
// CLASS=A,NOTIFY=&SYSUID,MSGCLASS=E
IEFC653I SUBSTITUTION JCL - (BLPP,39U7,2,50),'FTP SERVER
//SYSIN DD * GENERATED STATEMENT
//FTPPUTS1 EXEC PGM=FTP,REGION=2M,PARM='(EXIT'
//NETRC DD DSN=AV9425.DE.JCL(USERPASS),DISP=SHR
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD *
***

[superk]

It can be accomplished in a single job, although it might make restart of a transmission failure more complicated:

[taltyman]

As requested please post the JCL that you submitted, do NOT post the JCL that shows up in SDSF. It appears you have a statement after the job card that is not recognized as a valid JCL statement so it is assumed to be sysin data.

[vak255]

Thanks Superk, Kolusu and taltyman for all your help.

[vak255]

superk/taltyman: this the jcl i used. Any comments r welcome.

JCL:
********************************* Top of Data **********************************
//SER1C JOB (G012,CPSC,9,99),'T FTP',
// SCHENV=SHORT
// JCLLIB ORDER=(SITEE.PROCLIB)
//**
//** EXECUTION JCL FOR FTP JCL
//**
//SER01 EXEC SER1C
//*
******************************** Bottom of Data ********************************

PROC:
********************************* Top of Data **********************************
//SER1C PROC
//**
//* THIS PROCEDURE TRANSFERS THE T TABLE TO THE SERVERS
//**
//*
//FTPPUTS1 EXEC PGM=FTP,REGION=2M,PARM='(EXIT'
//SYSPRINT DD SYSOUT=*
//INPUT DD DSN=SITEE.CNTLCARD(SER1C),DISP=SHR
// DD DSN=SITEE.CNTLCARD(SER2C),DISP=SHR
// DD DSN=SITEE.CNTLCARD(SER3C),DISP=SHR
//OUTPUT DD SYSOUT=*
//*
******************************** Bottom of Data ********************************

CNTLCARD:
SITEE.CNTLCARD(SER1C)
********************************* Top of Data **********************************
SER1
username password
ASCII
PUT 'SITEE.BILLEXTR.TFIT.TABLE(0)' T.TXT
QUIT
******************************** Bottom of Data ********************************

SITEE.CNTLCARD(SER2C)
********************************* Top of Data **********************************
SER2
username password
ASCII
PUT 'SITEE.BILLEXTR.TFIT.TABLE(0)' T.TXT
QUIT
******************************** Bottom of Data ********************************

SITEE.CNTLCARD(SER3C)
********************************* Top of Data **********************************
SER3
username password
ASCII
PUT 'SITEE.BILLEXTR.TFIT.TABLE(0)' T.TXT
QUIT
******************************** Bottom of Data ********************************

[vak255]

superk,
Do u think I need to start with "sendsite" before entering userid and password.U just 'close' the connection and Quit only at last.what is the need to 'cd temp' . Pls explain.

[superk]

A couple of points:

1. Your JCL and PROC is working fine at my site. I see nothing wrong.

2. The use of SENDSITE command to turn OFF or ON the SITE command needs to be determined on a per-server basis. A lot of FTP servers don't support the SITE command.

3. In the example I gave, that particular server only allows data to be "put" into files in the temp folder, so that's why I need to "cd temp" first.

4. The "quit" command caused the FTP program to stop reading any more input through the INPUT DD, so only use it once at the very end. The first two control cards need to end with a "close" command.

[superk]

A couple of points:

1. Your JCL and PROC is working fine at my site. I see nothing wrong.

2. The use of SENDSITE command to turn OFF or ON the SITE command needs to be determined on a per-server basis. A lot of FTP servers don't support the SITE command.

3. In the example I gave, that particular server only allows data to be "put" into files in the temp folder, so that's why I need to "cd temp" first.

4. The "quit" command caused the FTP program to stop reading any more input through the INPUT DD, so only use it once at the very end. The first two control cards need to end with a "close" command.

[vak255]

Its marvelous and Thanks a lot superk....ure simply super at FTP.