Since both are IBM mainframes try this, I've had good luck with it.
   Menu  Utilities  Compilers  Help                                             
 ¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
 BROWSE    TECGRM.JCL.PDS(FTPEXAMP) - 01.99           Line 00000001 Col 001 080 
 Command ===>                                                  Scroll ===> CSR  
//TECGRMF  JOB 57400000TC,G.MANSELL,MSGCLASS=O,PRTY=9,CLASS=3,                  
//            NOTIFY=&SYSUID      TYPRUN=SCAN                                   
//STEP01   EXEC PGM=FTP,                                                        
//             PARM='198.176.221.9      (EXIT TIMEOUT 20'                       
//NETRC    DD  DUMMY                                                            
//OUTPUT   DD  SYSOUT=*                                                         
//INPUT    DD  *                                                                
TECGRM                                                                          
********                                                                        
BLOCK                                                                           
EBCDIC                                                                          
GET 'TES.CONNECT.DIRECT' 'TES.CONNECT.DIRECT.COPY'                              
QUIT                                                                            
/*                                                                              
//STEP02   EXEC PGM=FTP,COND=(0,NE,STEP01),                                     
//             PARM='198.176.221.9      (EXIT TIMEOUT 20'                       
//NETRC    DD  DUMMY                                                            
//OUTPUT   DD  SYSOUT=*                                                         
//INPUT    DD  *                                                                
TECGRM                                                                          

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of 
Mullen, Patrick
Sent: Friday, May 09, 2008 3:30 PM
To: [email protected]
Subject: Re: FTP VB dataset

Thanks, found it in the archives.


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of McKown, John
Sent: Friday, May 09, 2008 3:28 PM
To: [email protected]
Subject: Re: FTP VB dataset


> -----Original Message-----
> From: IBM Mainframe Discussion List 
> [mailto:[EMAIL PROTECTED] On Behalf Of Mullen, Patrick
> Sent: Friday, May 09, 2008 3:20 PM
> To: [email protected]
> Subject: FTP VB dataset
> 
> I thought this would be straight forward, but I can't get it to work
> correctly. Trying to FTP a DSORG=VB dataset from one z/OS 1.7 
> system to
> another z/OS 1.7 system. The dataset contains alphabetic and packed
> decimal data. 
> 
> With no special commands, some of the packed data comes out translated
> into different hex values. Adding a 'bin' command resolves the
> translation, but now record structure is lost. Adding a 
> 'quote site rdw'
> doesn't make any difference, but maybe that syntax is incorrect.
> 
> Any ideas? 

discussed many time. Use the ftp command:

MODE B

--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology

The information contained in this e-mail message may be privileged
and/or confidential.  It is for intended addressee(s) only.  If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense.  If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.  

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

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


------------------------------------------------------------------------------
NOTICE:  This electronic mail message and any attached files are confidential.  
The information is exclusively for the use of the individual or entity intended 
as the recipient.  If you are not the intended recipient, any use, copying, 
printing, reviewing, retention, disclosure, distribution or forwarding of the 
message or any attached file is not authorized and is strictly prohibited.  If 
you have received this electronic mail message in error, please advise the 
sender by reply electronic mail immediately and permanently delete the original 
transmission, any attachments and any copies of this message from your computer 
system. Thank you.

==============================================================================

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

Reply via email to