RE: SUBFILE FOR NON DISPLAY PROGRAMMING....

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

Ron,
Hide the details of how to extend and shrink the array by putting it into a
procedure:

eval ReturnCode = AddElem(NewElement)

In the procedure, do the test for "off the end" and do the memory allocation
there.  It leaves the mainline almost as clean as:
eval Index = Index + 1
eval MyArray(Index) = NewElement

Buck Calabro
Aptis; Albany, NY

> -----Original Message-----
> From: HwaRangRon@aol.com 
> Sent: Tuesday, November 02, 1999 4:03 PM
> To:   RPG400-L@midrange.com
> Subject:      RE: SUBFILE FOR NON DISPLAY PROGRAMMING....
> 
>  >>If        Count > %Elem(MyArray)
>  >> Eval      %Elem(MyArray) = %Elem(MyArray) + 20
>  >> Eval      Memory = %Elem(MyArray) * %Size(MyArray)
>  >> ReAlloc   Memory        MyArrayPtr
>  >> EndIf
> 
> The memory and reallocation should be handled for me. As an RPG programmer
> all I should have to worry about is the number of elements. If I can
> dynamically increase the size of the array in my program without having to
> handle memory allocation, I would be happy.
> 
> Ron
> 
+---
| 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
+---