three digit integer to an array

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

Silvio Santos wrote:

>>I will try to explain what I want to do. I need to process an array in
which each position cointains only one >>number (not like you said, 3 number
in each positions);

In RPG classic, define an array with three cells each one byte long zoned
numeric.
Then define a data structure that contains a 3 byte zoned number in
positions 1-3 and overlay the previously defined array on positions 1-3 in
the data structure.
Z-ADD the integer to the zoned number.  Here's a sample program:

 E                    ARRAY       3  1 0

 I            DS

 I                                        1   30ZONED

 I                                        1   3 ARRAY

 C                     Z-ADD123       INT     30

 C                     Z-ADDINT       ZONED

 C                     SETON                     LR

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