packed field conversion

[John Carr <74711.77@xxxxxxxxxxxxxx>]

RE:     packed field conversion

>I have an application in which I need to read a file "generically" so the
>record format is defined in the RPG program as a single field.  I then use
>the output file from a DSPFFD to determine the actual field positions of
>the data in the file.  I'm having a problem with packed fields though. 
>Does anyone have a good routine to take a character field that contains the
>packed numeric data and moves it to a numeric field. 
>TIA,
>Rob Ward
>M-C Industries, Inc.
>(913) 273-3990
>rward@mcind.com
>http://www.mcind.com

Ya do it the long way.  You know the length,  Just define a packed
field  for each length (.. 3packed, 4packed,5packed, 6packed,etc,)
and move the character field into the alpha field overlaying the 
numeric. 
like


D              DS
D    PACK45       1   3 P 0
D    ALPHA45      1   3
D              DS
D    PACK67       1   4 P 0 
D    ALPHA67      1   4
D              DS
D    PACK89       1   5 P 0
D    PACK89       1   5
D

C         LENGTH    WHENEQ  4
C         LENGTH    OREQ    5
C                   EVAL    ALPHA45   =  CHAR_INPUT
C                   EVAL    NUM_OUT   =  PACK45


I'm assuming your parsing out the "CHAR_INPUT" from the inputted record
string.  "NUM_OUT" is what ever your output field name is.

JOHN CARR
EDGETECH


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *