I have converted a program from OS/VS langlvl(2) to Cobol 390(Enterprise COBOL) using the CCCA tool . The problem which I am getting is during the compilation of Cobol 390 prog. Please find the error below:
IGYPA3025-E "CA-ABPA-INDEX2 (INDEX NAME)" was set to a value "751" which was greater than the maximum number of occurrences of the table it indexes. The value was accepted.
This Index is decalred for a table of size 750.Please find the declaration below:
10 CA-ABPA-TABLE2-ENTRY OCCURS 750 TIMES
INDEXED BY CA-ABPA-INDEX2.
In procedure division the following code is present
PERFORM 0620-LOOP-AND-PROCESS THRU 0620-EXIT
VARYING CA-ABPA-INDEX2 FROM 1 BY 1
UNTIL CA-ABPA-INDEX2 > 750.
IF CA-ABPA-TBL2-KEY (CA-ABPA-INDEX2) = SPACES
SET CA-ABPA-INDEX2 TO 751
GO TO 0620-EXIT.
Even though the NOSSRANGE is set by default . I am getting this
I am using Enterprise COBOL for z/OS 3.4.1 version.