レコード長が 80 文字の行順編成ファイルを定義するには、次のように記述します。
file-control. select lineseq assign to "line.dat" organization is line sequential. ... file section. fd lineseq record contains 80 characters. 01 lineseq-fd-record pic x(80).