例題
[C1315.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1315. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000-DA-S1-D-NAME 000007 ACCESS MODE IS SEQUENTIAL 000008 ACTUAL KEY IS K1 000009 FILE STATUS IS FSTAT 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 FSTAT PIC XX. 000017 01 K1 PIC X(10). 000018 END PROGRAM C1315.
C1315.cob 9: JMN1315I-S 直接編成ファイル，相対編成ファイルまたはインデックスつき編成ファイルに，FILE STATUS句は指定できません．
