レコード順編成ファイルの定義例 - 固定長レコード

固定長レコードを持つレコード順編成ファイルを定義するには、次のように記述します。

 file-control.
     select recseq
         assign to "recseq.dat"
         organization is record sequential.
...
 file section.
 fd recseq
    record contains 80 characters.
 01 recseq-fd-record   pic x(80).

SEQUENTIAL コンパイラ指令が設定されていないかぎり、デフォルトの順編成ファイルはレコード順編成ファイルであるため、ORGANIZATION IS SEQUENTIAL を指定するだけでかまいません。