例題
[P2165.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2165. 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 BASED-STORAGE SECTION. 000012 01 RKEY PIC 9(2). 000013 FILE SECTION. 000014 FD RLFILE1. 000015 01 RLF1REC. 000016 02 PIC X(80). 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2165.
[Win32]
P2165.cob 8: JMN2165I-S RELATIVE KEY指定のデータ名は,作業場所節,連絡節またはファイル節中に定義されていなければなりません.
[Winx64]
P2165.cob 8: JMN2165I-S RELATIVE KEY指定のデータ名は,作業場所節,局所記憶節,連絡節またはファイル節中に定義されていなければなりません.