例題
[C3358.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3358. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT F1 ASSIGN TO GS-SYS009 000007 SYMBOLIC DESTINATION IS "PRT". 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD F1. 000011 01 REC1. 000012 02 KY1 PIC X(2). 000013 02 PIC X(78). 000014 PROCEDURE DIVISION. 000015 UNLOCK F1. 000016 END PROGRAM C3358.
C3358.cob 15: JMN3358I-S UNLOCK文に指定されたファイルは，順ファイル，相対ファイルまたは索引ファイルでなければなりません．
