例題
[P2167.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2167. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT RLFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE 000008 RELATIVE KEY IS RKEY. 000009 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD RLFILE1. 000013 01 RLF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 RKEY PIC P9(2). 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2167.
P2167.cob 8: JMN2167I-S RELATIVE KEY指定のデータ名は，文字Pを含まない符号なし整数項目でなければなりません．
詳細な説明
ACCESS MODE句のRELATIVE KEYで指定したデータ項目は，プログラムと入出力管理システムの間で相対レコード番号を連絡するために使用されるので，所定の属性である必要があります．
