行順編成ファイル定義の例

レコード長が 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).