EXAMINE 2-dimensional error sintaxe

, , ,
1

Hi,

when I open for editing in Natural One a program that contains the following code:

[b]Local

1 SUP VIEW OF FICHA-SUP
…
2 CGR-RUB-FI-FINA-SUPL
2 GR-RUB-FI-FINA-SUPL
3 GR-IDEN-RUB-FI-SUPL
4 IT-CO-RUB-SUPL (N5,0/50)
4 REDEFINE IT-CO-RUB-SUPL
5 IT-CO-RUB-SUPL-A (A5/50)
…
EXAMINE SUP.IT-CO-RUB-SUPL-A () ‘99998’ GIVING INDEX IN #IND-TOT
…
END[/b]

The following error occurs “E_280: index entry incorrectly …” in the line of EXAMINE , informing that it is a 2-dimensional array, but when I open the same program with 3270 emulator in the same library, the error does not occurs and program runs perfectly.

How can I resolve this without changing the program? Can someone help me?

2

It seems the emulated version has a bug.

C*GR-RUB-FI-FINA-SUPL tells us that GR-RUB-FI-FINA-SUPL is a PE. That means that IT-CO-RUB-SUPL is an MU within a PE. IT-CO-RUB-SUPL is redefined as IT-CO-RUB-SUPL-A which then is also a 2-dimensional array.

Your EXAMINE should look more like

EXAMINE SUP.IT-CO-RUB-SUPL-A (*, *) '99998' GIVING INDEX IN #IND-PE #IND-MU
3

Hi Ralph,

Thank you. And I have tried this already, but Natural One continues to
report that there is an error. I noticed that the program compiled and
run correctly. I think it’s a Natural One bug.

Best regards.
Jorge