例題
[C1478.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1478. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO INFILE 000007 TRACK-AREA IS 8. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD IN-F. 000011 01 IN-R PIC X(80). 000012 END PROGRAM C1478.
C1478.cob 7: JMN1313I-S TRACK-AREA句は，乱呼出しのインデックスつき編成ファイル以外に指定できません．
C1478.cob 7: JMN1478I-W このシステムでは，'TRACK-AREA'は注釈として扱います．
