Re: Is this a bug?

[MWalter@xxxxxxxxxxxxxxx]

I don't see where I is defined.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040


|--------+-------------------------------->
|        |          Gurrieri Fabrizio     |
|        |          <fabrizio.gurrieri@bar|
|        |          tolini.it>            |
|        |          Sent by:              |
|        |          rpg400-l-admin@midrang|
|        |          e.com                 |
|        |                                |
|        |                                |
|        |          12/04/01 12:54 PM     |
|        |          Please respond to     |
|        |          rpg400-l              |
|        |                                |
|--------+-------------------------------->
  
>-----------------------------------------------------------------------------------------------------------|
  |                                                                             
                              |
  |       To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>             
                              |
  |       cc:                                                                   
                              |
  |       Subject:     Is this a bug?                                           
                              |
  
>-----------------------------------------------------------------------------------------------------------|




This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hallo, I've a curious problem like that:
In an RPGLE *PGM I define an intenal table named "TABPGM"

D*------------
D TABPGM          S             12    DIM(10) CTDATA PERRCD(1)
D*------------

the RPG compiler recognize the TABPGM such as a table but when I try to use
TABPGM through index

C                   DOW       i<=%elem(TABPGM)
C                   IF        TABPGM(i) > *blanks
C                   EVAL      DSTABPGM = TABPGM(i)

the compiler stop and say that "i" isn't a valid index for TABPGM.

If I rename TABPGM into PGMTAB the compiler have not any problem and all
works fine.

Any ideas?





Fabrizio Gurrieri - BARTOLINI SPA
40138 BOLOGNA (Italy)


_______________________________________________
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.