RE: Array index is not valid

["Tanveer, Mohammad" <mtanveer@xxxxxxxxxxxxxxxxxx>]

TFRCTL closes all open files and programs in the stack or not?  I have tons
of programs in my call stack.  Now at any time I want to transfer control to
a separate program instead of setting LR in all programs and then calling my
program.

 -----Original Message-----
From:   Barbara Morris [mailto:bmorris@ca.ibm.com]
Sent:   Thursday, July 11, 2002 9:48 AM
To:     rpg400-l@midrange.com
Subject:        Re: Array index is not valid

sas wrote:
> >
> > Message . . . . :   The PGM1 144100 array index is not valid (C G S D
F).
> > Cause . . . . . :   The RPG program PGM1 in library TEST tried to use
the
> >   array index at statement 144100 which was less than one or greater
than
> > the
> >   number of elements in the array.

Look on line 1441.00 of your program PGM1.  There will be some code
there that uses an array, with an array name a comma and an index.

    C                 MOVE    FLD    ARR,XX

The thing following the comma is the index, in this case XX.  The array
will be defined on an E specification.

Try using the command STRISDB on your program, and step through your
program.  See where
you set up the index for that array calculation, and you will probably
see what's gone wrong.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.