Re: packed decimal numbers

["Henrik Krebs" <hkrebs@xxxxxxxxx>]

I think (depends of the format of your PC file) that CPYFRMIMPF might do the 
trick directly.

Otherwise CPYF (but this has to be /QSYS.LIB files) can do a lot:
Copying between files with differet CCSID converts from ASCII to EBCDIC
Copying between file1.field2 (zoned decimal - ebcdic) to file3.field2 (packed 
field, but same name) with FMTOPT(*MAP) will do it.

Henrik
http://hkrebs.dk


> Date: Fri, 2 May 2003 16:12:13 -0500 
> From: Doug Johnson <djohnson@xxxxxxxxxxxxxxx>
> 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, 
>