例題
[P2274.cob] 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句は注釈とみなされます.