[open-cobol-list] (no subject)

[David Korn]

The following program gives the following error:
prog9.cob:21: `K525-FIR-FILE-PCB-NAME' ambiguous; need qualification
prog9.cob:16: `K525-FIR-FILE-PCB-NAME' in `K525-SUB-TRGR-SORT-FLDS' in 
`K525-DSTRBT-TRGR-SORT-KEY' in `K525-DSTRBT-TRGR-REC' in 
`K525-AII-DRVR-RSTRT-DATA' defined here
prog9.cob:23: `K525-FIR-FILE-PCB-NAME' in `K525-FRMT-FILE-ARRAY-ROW' in 
`K525-FRMT-FILE-ARRAY' in `K525-AII-DRVR-RSTRT-DATA' defined here


However, I am told that with COBOL the K525-FIR-FILE-PCB-NAME used for
the ASCENDING key can only refer to the K525-FIR-FILE-PCB-NAME defined
in the K525-FRMT-FILE-ARRAY so that it is not ambiguous in this
context.  The MVS Cobol compiler does not complain.

========================prog9.cob======================
       IDENTIFICATION DIVISION.
       PROGRAM-ID.    PROG9.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  K525-AII-DRVR-RSTRT-DATA.
           03  K525-DSTRBT-TRGR-REC.
               06  K525-DSTRBT-TRGR-SORT-KEY.
                   09  K525-INVCG-LUW-CAP.
                       12  K525-HIER-ID    PIC S9(13)     COMP-3
                                                       VALUE ZEROES.
                   09  K525-SUB-TRGR-SORT-FLDS.
                       12  K525-FRMT-MODUL-SEQ
                                           PIC S9(9)     COMP-3
                                                       VALUE ZEROES.
                       12  K525-FIR-FILE-PCB-NAME
                                           PIC X(8)    VALUE SPACES.
           03  K525-FRMT-FILE-ARRAY.
               06  K525-FRMT-FILE-ARRAY-ROW
                   OCCURS 6 TIMES
                   ASCENDING KEY IS K525-FIR-FILE-PCB-NAME
                   INDEXED BY  K525-FRMT-INDX.
                   09  K525-FIR-FILE-PCB-NAME
                                           PIC X(8)    VALUE SPACES.
========================cut here======================


David Korn
address@hidden