RE: packed decimal numbers

Doug,

For one-up transfers, I often just use the upload wizard in Client Access
file transfer utility.  One the data is on the 400, I use SQL to map the
data to its final resting place, converting data types as needed.  SQL
offers a LOT of data casting flexibility.  

For recurring transfers where the formats aren't changing alot, I'd look at
CPYFRMIMPF with a Field Description File to help define the mappings. 

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Doug Johnson [mailto:djohnson@xxxxxxxxxxxxxxx]
Sent: Friday, May 02, 2003 4:12 PM
To: 'MIDRANGE-L@xxxxxxxxxxxx'
Subject: packed decimal numbers


Greetings, 

I have a file on my PC that has data that needs to be copied into a specific
member of a file on my AS/400.  I need to parse the data into the proper
fields, rearrange the data and add some additional fields to the original
data. I have worked out how to do most of this, but am having a problem with
a particular field, which in the resulting file on the AS/400 needs to be a
packed decimal number.  What can I do to convert an ascii decimal number to
a packed decimal when I don't have access to RPG or anything else to write a
conversion program?  Is there a function in REXX to accomplish this?  Only
one of the numeric fields in this file is packed, the rest are zoned.

Thanks, 

-doug 

************************************************
DOUGLAS JOHNSON
System Administrator
The University Book Store
711 State Street
Madison, WI 53703

djohnson@xxxxxxxxxxxxxxx
608-257-3784
608-257-9479(fax)

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.