Date:         Fri, 25 May 2001 19:12:20 -0000
Reply-To:     All Terra <all_terra@HOTMAIL.COM>
Sender:       "SAS(r) Discussion" <SAS-L@LISTSERV.UGA.EDU>
From:         All Terra <all_terra@HOTMAIL.COM>
Subject:      Re: FTP a Packed Decimal File 390
Comments: To: peter.crawford@db.com
Content-Type: text/plain; format=flowed

This worked brilliantly.  Thanks for your help.


>From: "Peter Crawford" <peter.crawford@db.com>
>To: all_terra@hotmail.com
>CC: SAS-L@listserv.uga.edu
>Subject: FTP a Packed Decimal File 390
>Date: Fri, 25 May 2001 17:52:23 +0100
>
>
>Over ftp, packed decimal doesn't transfer from ebcdic to ascii very well
>:-)
>I do this with binary transfer and informats $ebcdic for strings and
>s370Fxxx for mvs binary informats like s370FPD
>It becomes more complex if your records have VB record
>format on the host - then carefully read of sas technical
>document ts642 at
>www.sas.com/techsup.download.technote/ts642.html
>
>I get binary ftp transfer from os390 with
>
>filename  mfdsnsf ftp "'ABC.XXXFILE.G0794V00'"
>                   host = "xxxx.xxxx.xxxx.xxxx"
>                   user = "&userid"  /* your mainframe user ID */
>                 prompt /*or PASS= "your host password" */
>                   rcmd = 'image'  /* requests binary transfer */
>                  debug /* show default settingsto and explain any error
>messages */  ;
>
>
>For fixed data layout the infile statement would have options
>     infile mfdsnsf RECFM=F lrecl=<the value on the mainframe>  truncover ;
>
>read a character and a packed decimal variable (in 8bytes with two implied
>decimal places)
>with input statement like
>    input string $ebcdic30.  pkvalu s370FPD8.2 @;
>
>
>
>
>Datum:         25/05/2001 16:09
>An:            SAS-L@listserv.uga.edu
>
>
>
>
>Antwort an:    all_terra@hotmail.com
>
>Betreff:       FTP a Packed Decimal File 390
>Nachrichtentext:
>
>
>I can't figure out how to FTP a Packed Decimal file correctly, but I
>think I'm close.  The problem is that the packed deciman fields look
>different on the PC side.
>
>This is what appears on a mainframe packed decimal record:
>0001680
>001350C
>
>This is what appears on a PC packed decimal record:
>0001DF0
>0013D8C
>
>Here's the code I use:
>
>FILENAME ABCDATA FTP 'ABC.XXXFILE.G0794V00' debug USER='ABCUSER'
>PASS='XXXXXX'
>          HOST='XXX.XXX.COM' RCMD='CDUP';
>
>DATA TEST;
>   INFILE ABCDATA OBS=4 LRECL=518;
>   INPUT @10 CHAR         $5.
>         @53 NUMBER S370FPD7.;
>
>Any idea what I'm doing wrong?
>
>
>
>
>
>--
>
>Diese E-Mail enthält vertrauliche und/oder rechtlich geschützte
>Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail
>irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und
>vernichten Sie diese Mail. Das unerlaubte Kopieren sowie die unbefugte
>Weitergabe dieser Mail ist nicht gestattet.
>
>This e-mail may contain confidential and/or privileged information. If you
>are not the intended recipient (or have received this e-mail in error)
>please notify the sender immediately and destroy this e-mail. Any
>unauthorised copying, disclosure or distribution of the material in this
>e-mail is strictly forbidden.
>

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com