例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2274.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 SPECIAL-NAMES.
000006 ALPHABET CD1 IS STANDARD-1.
000007 INPUT-OUTPUT SECTION.
000008 FILE-CONTROL.
000009 SELECT SQFILE1 ASSIGN TO SYS001
000010 ORGANIZATION IS SEQUENTIAL.
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD SQFILE1
000014 CODE-SET CD1.
000015 01 SQF1REC.
000016 02 PIC S9(4) BINARY.
000017 02 PIC X(80).
000018 PROCEDURE DIVISION.
000019 END PROGRAM P2274.
P2274.cob (16) : JMN2274I-W CODE-SET句を指定したファイル中のデータ項目は,表示用でなければなりません.書かれたとおり受け入れます.
詳細な説明
このコンパイラでは,CODE-SET句は注釈とみなされます.