整構造の場合には、先読み法よりもコンパクトになります。ファイル終了後の行送りも、「Perform Varying Cnt From Cnt By 1」としても良いでしょうね。勿論この場合は、行送処理の中でのCnt + 1は不要になります。
***** 印 刷 制 御 ﾄﾞﾗｲﾊﾞ(2) [整構造] ***** [LSTDV2] (20 F10)
* [ １頁に指定される明細行数によって ? 印の値を変更する ]
* ( ) 内に命令等を記述する
procedure division.
********** [ 制御-module ] **********
open input (入力f) output (出力f)
* ***** [ﾌｧｲﾙ終了までの繰返し] *****
perform until (入力fｽﾃｰﾀｽ) not = "00"
read (入力f)
end continue
not end add 1 to cnt
* ***** [印刷処理の制御] *****
evaluate cnt
when 01 perform 改頁処理 thru 改頁出口
perform 見出処理 thru 見出出口
when 06 perform 頁計処理 thru 頁計出口
* ??
perform 行送処理 thru 行送出口
perform 改頁処理 thru 改頁出口
perform 見出処理 thru 見出出口
move 1 to cnt
when other continue
end-evaluate
* ***** [１件の処理] *****
perform 明細処理 thru 明細出口
end-read
end-perform
* ***** [ﾌｧｲﾙ終了後の処理] *****
perform 行送処理 thru 行送出口 until cnt = 5
* ?
perform 頁計処理 thru 頁計出口
perform 総計処理 thru 総計出口
perform 改頁処理 thru 改頁出口
close (入力f) (出力f) stop run.
********** [ 機能-module ] **********
改頁処理. (改頁処理に必要な機能)
改頁出口. exit.
見出処理. (見出処理に必要な機能)
見出出口. exit.
明細処理. (明細１件の処理に必要な機能)
明細出口. exit.
頁計処理. (頁計処理に必要な機能と累計域のｸﾘｱ)
頁計出口. exit.
総計処理. (総計処理に必要な機能)
総計出口. exit.
行送処理. (行送りに必要な機能と cnt + 1)
行送出口. exit.