Re: Is this a bug?

["Booth Martin" <Booth@xxxxxxxxxxxx>]

"TAB"  is a reserved word in naming arrays.  If you start an array name with
TAB it isn't an array anymore; it becomes a table.  Therefore the simple act
of reversing TABPGM and PGMTAB was changing what you were defining from
Table to Array.  Arrays use indexes, Tables are not indexed.

This difference goes way back to olden days when arrays were expensive.

---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------
-------Original Message-------
From: rpg400-l@midrange.com
Date: Tuesday, December 04, 2001 12:55:21 PM
To: 'RPG400-L@midrange.com'
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<C IF TABPGM(i) > *blanks
C EVAL DSTABPGM 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)
_______________________________________________