NetCOBOL for .NET V8.0 メッセージ集

2.3.41 JMN2065I-W

順ファイル以外に，LABEL RECORD句を指定する場合，OMITTEDは指定できません．
LABEL RECORD句は，無効になります．

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.    P2065.
      000003 ENVIRONMENT    DIVISION.
      000004 INPUT-OUTPUT    SECTION.
      000005 FILE-CONTROL.
      000006     SELECT IXFILE1 ASSIGN TO SYS001
      000007       ORGANIZATION   IS INDEXED
      000008       RECORD KEY     IS WRKY1.
      000009 DATA           DIVISION.
      000010 FILE            SECTION.
      000011 FD IXFILE1
      000012      LABEL RECORD OMITTED.
      000013 01 IXF1REC.
      000014   02 WRKY1     PIC X(2).
      000015   02           PIC X(80).
      000016 WORKING-STORAGE SECTION.
      000017 PROCEDURE      DIVISION.
      000018 END PROGRAM    P2065.
    

P2065.cob (12) : JMN2065I-W 順ファイル以外に，LABEL RECORD句を指定する場合，OMITTEDは指定できません．LABEL RECORD句は，無効になります．

詳細な説明

LABEL RECORDS句は廃要素です．このコンパイラでは，LABEL RECORDS句は注釈とみなされます．