例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1310.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT SQFILE1 ASSIGN TO SYS014-DA-I-OUTDATA
000007 RECORD KEY IS SQFRKEY
000008 NOMINAL KEY IS SQFNKEY
000009 ACCESS MODE IS DYNAMIC
000010 .
000011 DATA DIVISION.
000012 FILE SECTION.
000013 FD SQFILE1.
000014 01 SQF1REC.
000015 02 SQFRKEY PIC X.
000016 02 SQFID001 PIC X(256).
000017 02 SQFDAT PIC X(30).
000018 WORKING-STORAGE SECTION.
000019 01 SQFNKEY PIC X.
000020 END PROGRAM C1310.
C1310.cob (9) : JMN1310I-S 直接編成ファイル，相対編成ファイルまたはインデックスつき編成ファイルの場合，ACCESS MODE句にDYNAMICは指定できません．RANDOMとみなします．