Re: Arrays in RPG, DDS

[Mark Lazarus <mlazarus@xxxxxxxx>]

Vern,

At 01:18 PM 2/20/98 -0600, you wrote:
>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.


 Here's an even more elegant solution:
 E              A     3  2
 ISCNFMT1
 I    A01                    A,01
 I    A02                    A,02
 I    A03                    A,03
 I    A04                    A,04

 There are no MOVEAs, no "extra" fields, as they map right into the array.
In ILE RPG you have some additional tricks, but this is straightforward and
works fine.

 -mark

+---
| 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
+---