例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2916.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT RLFILE1 ASSIGN TO SYS001
000007 ORGANIZATION IS RELATIVE
000008 RELATIVE KEY IS WRKY.
000009 I-O-CONTROL.
000010 DATA DIVISION.
000011 FILE SECTION.
000012 FD RLFILE1 IS EXTERNAL.
000013 01 RLF1REC.
000014 02 PIC X(80).
000015 WORKING-STORAGE SECTION.
000016 01 WRKY PIC 9(8) BINARY.
000017 PROCEDURE DIVISION.
000018 END PROGRAM P2916.
P2916.cob (8) : JMN2916I-S RELATIVE KEY句の指定されているファイルが外部属性を持つ場合,RELATIVE KEY句に指定されたデータ名は外部属性を持つ項目でなければなりません.
詳細な説明
外部属性を持つファイル(ファイル記述項にEXTERNAL句を指定したファイル)には,実行単位中で1つの記憶領域が割り当てられ,実行単位中のすべてのプログラムから参照することができます.
相対ファイル中のレコードは,RELATIVE KEYに指定した項目(相対キー)の比較によって処理されるので,ファイルが外部属性を持つならば,そのファイルに関連付けた相対キー項目も外部属性(EXTERNAL句)を持たなければなりません.