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 バイトをキーに指定しています。