Re: Arrays in RPG, DDS

Or try this:

IARY       DS
I                   1  6 A
I                   1  2 A01
I                   3  4 A02
I                   5  6 A03

and eliminate the MOVEA statements.

At 04:21 PM 2/4/98 -0500, you wrote:
>Loyd,
>
>try this,
>
>E              A     3  2
>
>IARY       DS
>I                   1  2 A01
>I                   3  4 A02
>I                   5  6 A03
>
>C           MOVEA A       ARY
>...
>C           EXFMT SCREEN
>...
>C           MOVEA ARY     A,1
>
>Where a01, a02 and a03 are your screen fields.

Cheers

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN 55401
(612) 371-1111 x480


+---
| 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 MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---