|
<![CDATA[
4200-NEW-PAGE SECTION.
4210-INIT.
MOVE PRINT-AREA TO SV-PRINT-AREA.
MOVE SPACE TO PR-DATA-LINE.
MOVE ZERO TO LINE-CNT.
IF FIRST-PAGE = "Y"
MOVE "N" TO FIRST-PAGE
MOVE "N" TO PR-CTL
]]>
<![CDATA[
***Eliminate large top margin when printing bills
***on local printer.
]]>
<![CDATA[
***MOD BEGINS
**DD PERFORM 8740-WRITEQ
***MOD ENDS
IF A-USER-ERROR-CODE = "E"
GO TO 4299-NEW-PAGE-EXIT.
MOVE 02 TO PR-NUMBER-OF.
PERFORM 8740-WRITEQ.
]]>
|
Get your own Free Homepage 