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

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

 file control.
     select recseqv
         assign to "recseqv.dat"
         organization is record sequential.
      ...
 file section.
 fd recseqv
    record varying from 3 to 80 characters depending on ws-record-length.
 01 recseqv-fd-record  pic x(80).
   ...
 working-storage section.
 01 ws-record-length   pic 99.

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