可変長レコードを持つレコード順編成ファイルを定義するには、次のように記述します。
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 を指定するだけでかまいません。