求助：如何控制prtf写满一页后重新开始写新的一页！

各位老大不是我想打印2000行呀！是那个表里又那么多数据，真是烦恼！
下面是我的程序，那位老大帮我看看呀！我搞不定的话，5。1都没法过了！
程序通过overflow来控制打印输出！
   H       1                                                          EXIT
   FEXITS IF  E          K       DISK
   FEXITPRT O E          50    PRINTER
   C                   WRITEHEAD
   C          *LOVAL SETLLEXITS
   C                   READ EXITS                   88
   ***
   C                   SETOF                      50
   ***
   C                   Z-ADD0       TOTALA
   C                   Z-ADD0       TOTUNI 102
   C                   Z-ADD0       TOTSAL 154
   C                   Z-ADD0       TOTALB 164
   C                   Z-ADD0       TOTALU 122
   C                   Z-ADD0       TOTALS 164
   C                   Z-ADD0       TOTALC 204
   C                   MOVEL'MAIN  '  FORMAT  6
   ***
   C          FORMAT DOWNE'END '
   C          FORMAT DOWEQ'MAIN  '
   C                   EXSR MAIN
   C                   ENDDO
   ***
   C          FORMAT DOWEQ'DIFFAM'
   C                   EXSR WFOOT1
   C                   ENDDO
   ***
   C          FORMAT DOWEQ'DIFWAR'
   C                   EXSR WFOOT
   C                   ENDDO
   ***
   C          FORMAT DOWEQ'HEAD  '
   C                   EXSR WHEAD
   C                   ENDDO
   ***
   C                   ENDDO
   C                   SETON                      LR
   **********************************************************
   C          MAIN    BEGSR
   C          PVPM0    MULT UNSAL    TOTALA
   C                   ADD  UNSAL    TOTUNI
   C                   ADD  PVPM0    TOTSAL
   C                   ADD  TOTALA TOTALB
   ***  TOTUNI:SUBTOTAL FAMILI UNIT
   ***  TOTSAL:SUBTOTAL FAMILI SALE PRICE
   ***  TOTALB:SUBTOTAL FAMILI TOTAL AMOUNT
   ***  TOTALU: TOTAL UNIT  PER WAREHOUSE
   ***  TOTALS: TOTAL SALE PRICE PER WAREHOUSE
   ***  TOTALC: TOTAL AMOUNT PER WAREHOUSE
   C                   ADD  UNSAL    TOTALU
   C                   ADD  PVPM0    TOTALS
   C                   ADD  TOTALA TOTALC
   ***
   C                   WRITEDETAIL
   ***
   C                   SETOF                      50
   C                   Z-ADD0       TEMP1 30
   C                   Z-ADD0       CHK01 30
   *** PREVIOUS RECORD WAREHOUSE:TEMP1
   C                   Z-ADDCOALM    TEMP1
   ***
   C                   Z-ADD0       TEMP2 30
   C                   Z-ADD0       CHK02 30
   *** PREVIOUS RECORD SUBFAMILIA:TEMP2
   C                   Z-ADDSUBFM    TEMP2
   C                   READ EXITS                   88
   C          *IN88    IFEQ '0'
   ***
   C          COALM    SUB  TEMP1    CHK01
   C          SUBFM    SUB  TEMP2    CHK02
   ***
   C                   EXSR CHKWAR
   C          FORMAT IFNE 'DIFWAR'
   C                   EXSR CHKFAM
   C                   ENDIF
   C                   ELSE
   ***
   C                   EXSR WFOOT
   C                   MOVEL'END '  FORMAT
   C                   ENDIF
   ***
   C                   ENDSR
   **********************************************************
   C          CHKWAR BEGSR
   ***
   C          CHK01    IFNE 0
   C                   MOVEL'DIFWAR'  FORMAT
   C                   SETON                      50
   C                   ENDIF
   ***
   C                   ENDSR
   **********************************************************
   C          CHKFAM BEGSR
   ***
   C          CHK02    IFNE 0
   C                   MOVEL'DIFFAM'  FORMAT
   ***
   C                   ENDIF
   ***
   C                   ENDSR
   ************************************************************
   C          WFOOT1 BEGSR
   C                   WRITEDETAIL2
   C                   MOVEL'MAIN  '  FORMAT
   C                   Z-ADD0       TOTUNI
   C                   Z-ADD0       TOTSAL
   C                   Z-ADD0       TOTALB
   ***
   C                   ENDSR
   ************************************************************
   C          WFOOT    BEGSR
   C                   EXSR WFOOT1
   C                   WRITEFOOT
   ***
   C          *IN88    IFEQ '0'
   C                   EXSR WHEAD
   C                   ENDIF
   ***
   C                   MOVEL'MAIN  '  FORMAT
   C                   Z-ADD0       TOTALS
   C                   Z-ADD0       TOTALC
   C                   Z-ADD0       TOTALU
   C                   ENDSR
   ************************************************************
   C          WHEAD    BEGSR
   C          *IN50    IFEQ '1'
   *** OVERFLOW:*IN50
   C                   WRITEHEAD
   C                   SETOF                      50
   C                   ENDIF
   C                   ENDSR
   ************************************************************