NetCOBOL V11.0 メッセージ集

2.4.45 JMN2077I-S

CODE-SET句の符号系名は，STANDARD-1，STANDARD-2，NATIVEまたは機能名に対応していなければなりません．

例題

[P2077.cob]
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID.    P2077.
000003 ENVIRONMENT    DIVISION.
000004 CONFIGURATION   SECTION.
000005 SPECIAL-NAMES.
000006     ALPHABET CD1 IS "a" THRU "z".
000007 INPUT-OUTPUT    SECTION.
000008 FILE-CONTROL.
000009     SELECT SQFILE1 ASSIGN TO SYS001
000010       ORGANIZATION   IS SEQUENTIAL
000011       FILE STATUS    IS WFS1.
000012 DATA           DIVISION.
000013 FILE            SECTION.
000014 FD SQFILE1
000015      CODE-SET CD1.
000016 01 SQF1REC.
000017   02                   PIC X(80).
000018 WORKING-STORAGE SECTION.
000019 01 WFS1        PIC X(2).
000020 PROCEDURE      DIVISION.
000021 END PROGRAM    P2077.

P2077.cob 15: JMN2077I-S CODE-SET句の符号系名は，STANDARD-1，STANDARD-2，NATIVEまたは機能名に対応していなければなりません．

詳細な説明

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