例
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句は指定できません．