相対ファイル定義の例

レコード長が 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 文を指定するだけで次のレコードを検索できます。