I had not read your specification with enough care;  my ftp
example preserves the full binary VB record structure.
So, then, after the ftp download, your (SAS?) program on 
ASCII can INPUT just the data portion of each  record
as ASCII text:

  FILENAME ONASCII 'C:\yourdata\downloaded.vb' recfm=s370vbs lrecl=32760;
  DATA ASCIIDATA (KEEP=DATAPART LENGTH);
  INFILE ONASCII LENGTH=LEN;
  LENGTH=LEN;
  INPUT @;
  INPUT DATAPART $VARYING32760. LENGTH @;

Barry


Herbert W. "Barry" Merrill, PhD
President-Programmer
MXG Software
Merrill Consultants
10717 Cromwell Drive
Dallas, TX 75229-5112
[email protected]
Fax:  214 350 3694 - Still works, received as email
Tel:  214 351 1966 - Unreliable, please use email

www.mxg.com        HomePage: FAQ answers most questions
[email protected]      License Forms, Invoice, Payment, ftp information
[email protected]    Technical Issues 
MXG-L FREE ListServer  http://www.mxg.com/mxg-l_listserver/


 

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Charles Mills
Sent: Tuesday, September 01, 2015 10:15 AM
To: [email protected]
Subject: Re: FTP - how get RDW and ASCII

Thanks Barry. I don't see any ASCII translation in there. Am I missing
something?

Charles

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Barry Merrill
Sent: Tuesday, September 01, 2015 8:04 AM
To: [email protected]
Subject: Re: FTP - how get RDW and ASCII

    i. ftp instructions for sending data to the MXG ftp site

       Using the IBM ftp program, you can ftp any MVS data file to the
       MXG ftp site with this syntax; do NOT change the DCB attributes
       of the //SMFFILE DD: even though it points to a VBS DSNAME, the
       RECFM=U,BLKSIZE=32760 must be used to include BDW and RDWs.

      //FTP      EXEC PGM=FTP,PARM='(EXIT=4'
      //SYSPRINT DD  SYSOUT=*
      //SMFFILE  DD DSN=YOUR.SMF.DATA,DCB=RECFM=U,BLKSIZE=32760,DISP=SHR
      //INPUT DD *
      ftp.mxg.com
      mxgtech mxgtech
      quote PASV
      bin
      put //DD:SMFFILE  yourname.smf
      close
      quit
      /*

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to