Lynette Chronister's Problem

[DENNISRPG@xxxxxxx]

    This requires program described files. Define the name field as an array. 
Also describe (and load backwards) the same field...i.e the first position of 
the field becomes element # 15 and the second position becomes element 14 and 
the last position becomes element #1. ( I am just assuming you have a 15  
position field. The same thing applies whatever the length You must also 
describe a new array to receive your right adjusted name.

                   Move     01         X
        ' b'        Lokup    BackwardArray,X            02  (Greater Than)
                          MoveA  Namefield,1      NewRAField,X

NameField is the name field as an array and NewRAField is the field that will 
hold your right adjusted field. b is equal to a space...' ' for illustration 
purposes. Have a nice day.

 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---