例題
[C1325.cob] 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句を指定しなければなりません．
