Using CCCA Tool I have converted my Cobol -II prog to Cobol 390.
When I am compiling this converted 390 Prog I am facing the compilation problem with the Index field. Please find the table declaration.
15 SVCR-SUBL-OF-CORP-TBL-R REDEFINES
OCCURS 6 TIMES
INDEXED BY SOCX.
The error which I am getting is below:
82800 PERFORM 4210-LOAD-CORP THRU 4210-EXIT
82900 VARYING SOCX OF SAVE-ALC-MASTER
180-S An index-name was qualified in "SOCX OF SAVE-ALC-MASTER". The statement
83000 FROM 1 BY 1
83100 UNTIL SOCX OF SAVE-ALC-MASTER > 6.
The compilation went free with COBOL-II but for Cobol -390 we are getting errors.
Joined: 06 Jun 2008 Posts: 8054 Location: East Dubuque, Illinois, USA
My requirement is to use the SOCX field of SAVE-ALC-MASTER.
Let's try this again ... the error message is telling you that SOCX as an index field cannot be qualified .. that is, you cannot say SOCX OF SAVE-ALC-MASTER. COBOL is quite clear on this. Either use SOCX as an unqualified field, or change your code to use some other field instead. But do not keep insisting you have to use that one qualified field -- COBOL isn't going to let you do so.