コンパイラにもよるのかもしれないけど，
うちの職場では

01 W-LINE COMP-1.

WRITE P-REC FORM PRINT-AREA AFTER W-LINE.

のような記述ができたので，通常は１をセットしておいて，合計を印字したときのみ２をセットするようなやりかたでやったことがあります