IIRC, the xxxSITE suite of FTP commands is platform specific. I seem to 
remember having to get the MVS documentation to find out what would work with 
MVS at one time. Needless to say, it was different than what would work with VM.

 -----Original Message-----
From:   VM/ESA and z/VM Discussions [mailto:[EMAIL PROTECTED]  On Behalf Of 
Mike Walter
Sent:   Thursday, January 05, 2006 1:28 PM
To:     [email protected]
Subject:        Re: Quick way to change RECFM?

Nora (and other suggesting any method that required re-reading and 
re-writing the file),

The original question specifically stated:
> Imagine that you have a very large CMS file, and the place in which it 
> resides is too small to hold another copy. 
> Short of reading the whole file in (PIPE, COPYFILE, XEDIT, etc.) is 
there 
> a quick and easy way to...

I asked that as a generic way to do it (for future use) in case that old 
trick was not a personal memory glitch, but believe that Dr. Al Zheimer 
made a housecall today.  No can do.  (And it did NOT make any sense 
anyway).

Then Tom Huegel pointed out the specific need at this time:
"Is your question really 'How can FTP change the format it receives from 
MVS
as recfm=F to RECFM=V before writing to CMS?'." 
A: Yes that is the specific question at this time.

Dave's idea for PIPE FTPGET looks interesting, DVDPRIME EXEC shows that it 
uses "INSTPIPE MODULE", which contains the "FTPGET" stage.  But that seems 
sort of risky to use as an undocumented production tool.

To answer Jim's suggestion:

locstat  
Trace:FALSE, Send Port:TRUE  
Use NETRC DATA File:TRUE, Logon Prompting:TRUE  
Send Site with Put command:TRUE  
Connected to:nn.nn.nnn.nnn, Port:FTP control (nn), logged in  
Local Port:nnnn  
Data type:a, Transfer mode:s  
Record format:V  
Translate Table: STANDARD  
Console Width: 80  
Command:  
sendsite  
Usage of SITE command with PUT is OFF  
Command:  
quote sendsite  
>>>sendsite  
500 unknown command sendsite      <--- (Well, MVS doesn't like it)         
 
Command:  
locstat  
Trace:FALSE, Send Port:TRUE  
Use NETRC DATA File:TRUE, Logon Prompting:TRUE  
Send Site with Put command:FALSE  
Connected to:nn.nn.nnn.nnn, Port:FTP control (nn), logged in  
Local Port:nnn  
Data type:a, Transfer mode:s  
Record format:V  
Translate Table: STANDARD  
Console Width: 80  
Command:  
get 'FIN.P.DATA' fin.data.e 
>>>PORT nn,nn,nnn,nn,nn,nn  
200 Port request OK.  
>>>RETR 'FIN.P.DATA' 
125 Sending data set FIN.P.DATA FIXrecfm 600           <-???  
250 Transfer completed successfully.  
39595928 bytes transferred in 8.920 seconds. Transfer rate 4439.01 
Kbytes/sec. 
Command: 
cms l fin data e (iso  
FILENAME FILETYPE FM FORMAT LRECL       RECS     BLOCKS     DATE     TIME  
 
FIN      DATA     E1 F        600      69527      10185 2006-01-05 
15:21:36 
Command:  
 
No liftoff yet. 

Mike (the FTP rookie) Walter
Hewitt Associates 
The opinions expressed herein are mine alone, not my employer's.
 



"Graves Nora E" <[EMAIL PROTECTED]> 

Sent by: "VM/ESA and z/VM Discussions" <[email protected]>
01/05/2006 02:52 PM
Please respond to
"VM/ESA and z/VM Discussions" <[email protected]>



To
[email protected]
cc

Subject
Re: Quick way to change RECFM?






I'm not sure that a straight COPYFILE will do what you want. 
If you just copy the file and change the RECFM to V, it may not strip off 
the trailing spaces.  At least, it didn't when I just tried it with my 
console file.  I issued "COPYF / = = D(RECFM V" from the FileList.  It 
remained the same number of blocks on my 192 disk, where I copied it, as 
it was on the 191 disk.  I tried it from CMS as "COPYF TEST CONSOLE A = = 
D(RECFM V" and got the same results.
When I edited the original, changed the record format, then saved it, the 
number of blocks went from 45 to 15. 
Nora Graves 
[EMAIL PROTECTED] 
(202) 622-6735 

-----Original Message----- 
From: VM/ESA and z/VM Discussions [mailto:[EMAIL PROTECTED] On 
Behalf Of Bob Shair 
Sent: Thursday, January 05, 2006 3:40 PM 
To: [email protected] 
Subject: Re: Quick way to change RECFM? 

At 02:23 PM 1/5/2006, you wrote: 
>Loren, 
> 
>The files are being brought from to VM from MVS via FTP. 
>Maybe my dim-witted memory is using the Network Systems "HyperChannel" 
>software, which *did* allow you to read one RECFM and write a different 
>one.  FTP is a beast of a completely different color. 
Is it?   "QUOTE SITE RECFM V"  won't delete trailing blanks when 
transferring from MVS? 
Remember when mainframes had devices called "tape drives"? 
Copying the file to 3590 is still the fastest way I know! 

Bob Shair 
Open Systems Consulting 
Champaign, Illinois 


 
The information contained in this e-mail and any accompanying documents may 
contain information that is confidential or otherwise protected from 
disclosure. If you are not the intended recipient of this message, or if this 
message has been addressed to you in error, please immediately alert the sender 
by reply e-mail and then delete this message, including any attachments. Any 
dissemination, distribution or other use of the contents of this message by 
anyone other than the intended recipient is strictly prohibited.

Reply via email to