Greetings,
My client is trying to FTP a file from VSE to a z/OS system through an
intermediary NT server. Since I do not have a z/OS system to play with I have
been trying to get the file from this server from VM/CMS.
In VSE I specified
// EXEC FTPBATCH,SIZE=1M,PARM='ID=01,UNIX=BIN'
.
.
LQUOTE MODE B
BINARY
PUT %INFIL,SAM,FB,350,3500 MIKE.BIN
.
I am now trying to get this file from VM/CMS.
A little of the console:
230 User logged in.
Command:
mode B
>>>MODE b
200 Mode b ok.
Command:
binary
>>>TYPE i
200 Type set to I.
Command:
locsite fix 350
Command:
get MIKE.BIN
>>>PORT 172,27,128,66,21,251
200 PORT command successful.
200 PORT command successful.
>>>RETR MIKE.BIN
125 Data connection already open; Transfer starting.
Server not responding, closing connection.
Abnormal inter-VM communication condition
Abnormal inter-VM communication condition
>>>ABOR
250 Transfer complete.
I have no idea why it aborts. Looking at the (partial?) file on my A-disk I see
stuff at the beginning at each record before the data.
MIKE BIN A1 F 350 Trunc=350 Size=6 Line=0 Col=1 Alt=1
====>
* * * Top of File * * *
=====
"""Ø";002501AVDL ROYV
2010091200FFFF80015EF0F0F2F5F0F1C1E5C4D340D9D6E8E540F2F0F1F0F0F9F1F2
=====
""""""Ø";002501AVDL ROYV
2010000000000000080015EF0F0F2F5F0F1C1E5C4D340D9D6E8E540F2F0F1F0F0
=====
"""""""""Ø";002501AVDL ROYV
2000000000000000000080015EF0F0F2F5F0F1C1E5C4D340D9D6E8E540F2F0
=====
""""""""""""Ø";002501AVDL
ROYV00000000000000000000000080015EF0F0F2F5F0F1C1E5C4D340D9D6E8E5
=====
"""""""""""""""Ø";002501AVDL
R00000000000000000000000000000080015EF0F0F2F5F0F1C1E5C4D340D9
=====
""""""""""""""""""Ø";002501AVD00000000000000000000000000000000000080015EF0F0F2F5F0F1C1E5C4
=====
* * * End of File * * *
=====
|...+....1....+....2....+....3.|. . . + . . . . .1. . . . + . . . . .2. . . . +
. . . . .3
This is after using V H1 30 1 30
I'm pretty sure that the input file is fixed block (350 record length in a 3500
block). What is the proper way of doing this FTP in binary and retrieving the
file?
The prefix data appears to be x'FFFF80015E' for the first record, then
x'000000000080015E' for the 2nd record, etc...
What are the correct commands to do the file transfer properly?
Thanks,
Mike Horlick
Conseiller
CGI Gestion Intégrée des Technologies
1350 Boul. René-Lévesque Ouest
Montréal, Qc, H3G 1T4
