例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1324.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT IN-F ASSIGN SYS001
000007 ACTUAL KEY IS FKEY1
000008 .
000009 DATA DIVISION.
000010 FILE SECTION.
000011 FD IN-F.
000012 01 INFILED.
000013 02 FKEY1 PIC 9(4).
000014 02 IN-R PIC X(80).
000015 END PROGRAM C1324.
C1324.cob (7) : JMN1324I-S ACTUAL KEY句は，直接編成ファイル以外に指定できません．