Fantastic Thomas!!! Works.

I'm very greatful for your help.
Álvaro.

2011/7/7 Chicklon, Thomas <thomas.chick...@53.com>

> This seems to work for me:
>
> quote site blksize=27998 lrecl=0 recfm=u pri=19950 sec=100 track
> mode b
> ebcdic
> PUT 'My.DSS.DUMP' 'MY.DSS.DUMP'
> QUIT
>
> Tom Chicklon
>
> ------------------------------------------------------
>
> Hi list,
>
> I'm  trying to send a dfdss file between two z/OS systems through FTP,
> when
> I submit the job this fails with RC=2875, message follows:
>
> SYSIN instream FTP
>
> USERID PASSWORD
> SENDSITE
> BINARY
> QUOTE SITE LRECL=0 RECFM=U BLKSIZE=27998 VOL=TOOLAL
> QUOTE SITE PRI=120 SEC=20 CYLINDERS
> QUOTE STRU R
> PUT 'USERID.BAT1WORK.D' 'USERID.BAT1WORK.D'
> QUIT
>
> Abend:
>
> ...
> EZA1736I QUOTE STRU
> R
> EZA1701I >>> STRU
> R
> 250 Data structure is
> Record
> EZA1460I
> Command:
> EZA1736I PUT 'USERID.BAT1WORK.D' 'USERID.BAT1WORK.D'
> EZA1701I >>> PORT
> 170,251,189,33,22,196
> 200 Port request
> OK.
> EZA1701I >>> STOR 'USERID.BAT1WORK.D'
>
> 125 Storing data set USERID.BAT1WORK.D
>
> EZA2590E send error from send_data - EDC5140I Broken pipe.
> (errno2=0x74520442)
> EZA2603E Error sending the
> file
> 451 Transfer aborted due to file error. File is
> catalogued.
> EZA1735I Std Return Code = 27451, Error Code =
> 00010
> EZA1701I >>>
> QUIT
>
>
> But when I don't specify the FTP command 'QUOTE STRU R', FTP works OK!!!
>
> EZA1460I
> Command:
> EZA1736I PUT 'USERID.BAT1WORK.D'
> 'USERID.BAT1WORK.D'
> EZA1701I >>> SITE VARrecfm LRECL=27998 RECFM=U
> BLKSIZE=27998
> 200 SITE command was
> accepted
> EZA1701I >>> PORT
> 170,251,189,33,22,193
> 200 Port request
> OK.
> EZA1701I >>> STOR
> 'USERID.BAT1WORK.D'
> 125 Storing data set
> USERID.BAT1WORK.D
> EZA1485I 22342404 bytes transferred - 10 second interval rate 2232.01
> KB/sec
> - O
> 250 Transfer completed
> successfully.
> EZA1617I 31596876 bytes transferred in 13.960 seconds.  Transfer rate
> 2263.39 Kb
>
> But this is'nt the solution because then the dfdss file cannot be
> restored
> in the receiver system because of his structure...
>
> Please, help!
>
>
>
>
> This e-mail transmission contains information that is confidential and may
> be privileged.   It is intended only for the addressee(s) named above. If
> you receive this e-mail in error, please do not read, copy or disseminate it
> in any manner. If you are not the intended recipient, any disclosure,
> copying, distribution or use of the contents of this information is
> prohibited. Please reply to the message immediately by informing the sender
> that the message was misdirected. After replying, please erase it from your
> computer system. Your assistance in correcting this error is appreciated.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
>



-- 
Un saludo.
Álvaro Guirao

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to