レコード長が 80 文字の相対ファイルを定義するには、次のように記述します。
file-control. select relfil assign to "relfil.dat" organization is relative access mode is random relative key is relfil-key. file section. fd relfil record contains 80 characters. 01 recseq-fd-record pic x(80). ... working-storage section. 01 relfil-key pic 9(8) comp-x.
この例のレコードキーは、relfil-key です。このファイルにランダムにアクセスするときに、READ 文に KEY IS を指定しないと、relfil-key の番号に基づいてレコードが読み取られます。順呼び出しの場合、READ NEXT 文を指定するだけで次のレコードを検索できます。