2.4.46 JMN2079I-S

CODE-SET句は順ファイル以外に指定できません．

例題

[P2079.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2079.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET CD1 IS STANDARD-1.
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT IXFILE1 ASSIGN TO CR-SYS001
000010       ORGANIZATION   IS INDEXED
000011       RECORD KEY     IS RKEY.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD IXFILE1
000015      CODE-SET CD1.
000016 01 IXF1REC.
000017   02 RKEY      PIC X(8).
000018   02           PIC X(80).
000019 WORKING-STORAGE SECTION.
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2079.

P2079.cob 15: JMN2079I-S CODE-SET句は順ファイル以外に指定できません．

詳細な説明

このコンパイラでは，CODE-SET句は注釈とみなされます．