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

Reply via email to