固定長レコードの作成例

 file control.
     select fd-name
         assign to "user.dat"
         organization is indexed
         access mode is dynamic
         record key is fd-name-key.
    ...
 file section.
 fd fd-name
    record contains 80 characters.
 01 fd-name-record.
     05 fd-name-key    pic x(5).
     05 fd-name-data   pic x(75).

この例では、80 バイトの固定長レコードを持つ索引付きファイルを作成します。また、各レコードの最初の 5 バイトをキーに指定しています。