Re: ILE D-spec question

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Rich, include the definition of TXT in the data structure as
D OTXT            DS
.......
D  OPPT15
D TXT                           75    DIM(15)                              
OVERLAY(OTXT)

HTH

Paul Tuohy

Rich Duzenbury wrote:

> D OTXT            DS
> D  OPPTX1
> D  OPPTX2
> D  OPPTX3
> D  OPPTX4
> D  OPPTX5
> D  OPPTX6
> D  OPPTX7
> D  OPPTX8
> D  OPPTX9
> D  OPPT10
> D  OPPT11
> D  OPPT12
> D  OPPT13
> D  OPPT14
> D  OPPT15
> D TXT             S             75    DIM(15)
>
> There is an existing file on the system that can hold up to fifteen 
>individual lines of text, represented by the data structure above.  Each line 
>of text happens to be 75 bytes long.  For processing reasons, I need to load 
>the text lines into an array.
>
> So far the best I've been able to do is declare the array separately and at 
>run time MOVEA OTXT to TXT for every record prior to processing.  I'm sure 
>there must be an easy way to automagically overlay the data structure on the 
>array, and cut my memory requirement in half, but I didn't find any good clues 
>in the AS/400 ILE RPG reference.
>
> Please don't ask me to redesign the file structure, because political and 
>economic reasons prevent it.
>
> Regards,
> Rich
>
> +---
> | 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
> +---

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