例題
[C1310.cob] 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 6: JMN1481I-E 'インデックスつき編成ファイル'はMSPまたはXSPシステムの固有機能です．
C1310.cob 8: JMN1481I-E 'NOMINAL KEY'はMSPまたはXSPシステムの固有機能です．
C1310.cob 9: JMN1310I-S 直接編成ファイル，相対編成ファイルまたはインデックスつき編成ファイルの場合，ACCESS MODE句にDYNAMICは指定できません．RANDOMとみなします．
