Re: packed field conversion

This code is a snippet from another program that I wrote.  However, I had
to make some changes to work from the DSPFFD output file.  In my
application I used API's to get the record layout.  You may wish to look at
doing it that way yourself.

I believe that it will do what you requested.  A similar technique could be
used for binary fields.

THE CODE IS UNTESTED AS IT IS REPRESENTED HERE!  PLEASE USE CAUTION!

0001.00      E                    DTA      9999  1               DATA FROM
FILE
0002.00      E                    #PK        15  1               PACKED DATA
0003.00      I            DS
0004.00      I                                    P   1  150#PACK
0005.00      I                                        1  15 #PK
0006.00      C* Notes:
0007.00      C* DTA array contains input record
0008.00      C* #PACK will contain numeric data at end of routine
0009.00      C* #PACK will still need to be decimal adjusted
0010.00      C*       by dividing by WHFLDP
0011.00      C           WHIBO     ADD  WHFLDB    IB      70
0012.00      C                     SUB  1         IB
0013.00      C                     Z-ADD0         #PACK
0014.00      C                     Z-ADD15        #X
0015.00      C/SPACE
0016.00      C           IB        DOWGEWHIBO
0016.00      C           IB        DOWGEWHIBO
0017.00      C                     MOVE DTA,IB    #PK,#X
0018.00      C                     SUB  1         #X
0019.00      C                     SUB  1         IB
0020.00      C                     ENDDO

01:08 PM 7/18/97 -0500, you wrote:
>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
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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   *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *