Re: Multiple occurance data structure

Scott,

>C                        Z-ADD   1           INDX      
>C      INDX            OCUR    MDEARN
>C      NONTAX  DOWNE*BLANKS
>                  <process DS entry>
>C                       ADD  1       INDX
>C       INDX            OCUR    MDEARN
>C                       END
>
>Problem - program blows up on an "index out of
>range error" for one of our client's whose
>database has 10 values to be loaded into MDEARN,
>e.g. the error occurs when INDX in the above
>snippet reaches 11.  I'm confused... since MDEARN
>is defined w/25 occurances, 11 shouldn't cause an
>index error, right?  Compile listing shows
>MDEARN(25) and yet, sure enough, in the program
>dump after the error, MDEARN says dimension(10)
>and only shows 10 spaces allocated to the
>structure.  What's up with this... did RPG III
>suddenly start allocating memory for data
>structures dynamically?

 Is INDX defined as 1.0 ?

 -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 MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *