when I open for editing in Natural One a program that contains the following code:
1 SUP VIEW OF FICHA-SUP
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
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?