例題
[P2300.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2300. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 IS EXTERNAL 000011 LABEL RECORD IS LRECL. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 01 LRECL PIC X(80). 000015 PROCEDURE DIVISION. 000016 END PROGRAM P2300.
P2300.cob 11: JMN2300I-S データ名指定のLABEL RECORD句は，EXTERNAL句を指定したファイルに指定できません．
詳細な説明
LABEL RECORD句は廃要素です．このコンパイラでは，LABEL RECORD句は注釈とみなされます．
