例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1325.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT IN-F ASSIGN D-SYS001
000007 ACCESS MODE IS RANDOM
000008 TRACK-LIMIT IS 100
000009 .
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD IN-F.
000013 01 IN-R PIC X(80).
000014 END PROGRAM C1325.
C1325.cob (6) : JMN1325I-S 乱呼出しの直接編成ファイルには，ACTUAL KEY句を指定しなければなりません．