求助：overflow的问题

breeze2000

小弟刚接触RPG不久，做了一个rpg，用于输出一个pf中的数据到splf中，通过overflow来控制翻页，但是由于一页的行数大于255行，所以本来只想打印两页结果打印了881页，此外页数通过pagnbr来显示。通过strisdb也没有找到问题所在，请大家帮忙看一下什么地方有问题？小弟拜求

1. 
   
2.      H        1                                                           EXIT
   
3.      FEXITS   IF  E           K        DISK
   
4.      FEXITPRT O   E             50     PRINTER
   
5.      C                     WRITEHEAD
   
6.      C           *LOVAL    SETLLEXITS
   
7.      C                     READ EXITS                    88
   
8.       ***
   
9.      C                     SETOF                         50
   
10.       ***
    
11.      C                     Z-ADD0         TOTALA
    
12.      C                     Z-ADD0         TOTUNI 102
    
13.      C                     Z-ADD0         TOTSAL 154
    
14.      C                     Z-ADD0         TOTALB 164
    
15.      C                     Z-ADD0         TOTALU 122
    
16.      C                     Z-ADD0         TOTALS 164
    
17.      C                     Z-ADD0         TOTALC 204
    
18.      C                     MOVEL'MAIN  '  FORMAT  6
    
19.       ***
    
20.      C           FORMAT    DOWNE'END   '
    
21.      C           FORMAT    DOWEQ'MAIN  '
    
22.      C                     EXSR MAIN
    
23.      C                     ENDDO
    
24.       ***
    
25.      C           FORMAT    DOWEQ'DIFFAM'
    
26.      C                     EXSR WFOOT1
    
27.      C                     ENDDO
    
28.       ***
    
29.      C           FORMAT    DOWEQ'DIFWAR'
    
30.      C                     EXSR WFOOT
    
31.      C                     ENDDO
    
32.       ***
    
33.      C           FORMAT    DOWEQ'HEAD  '
    
34.      C                     EXSR WHEAD
    
35.      C                     ENDDO
    
36.       ***
    
37.      C                     ENDDO
    
38.      C                     SETON                         LR
    
39.       **********************************************************
    
40.      C           MAIN      BEGSR
    
41.      C           PVPM0     MULT UNSAL     TOTALA
    
42.      C                     ADD  UNSAL     TOTUNI
    
43.      C                     ADD  PVPM0     TOTSAL
    
44.      C                     ADD  TOTALA    TOTALB
    
45.       ***  TOTUNI:SUBTOTAL FAMILI UNIT
    
46.       ***  TOTSAL:SUBTOTAL FAMILI SALE PRICE
    
47.       ***  TOTALB:SUBTOTAL FAMILI TOTAL AMOUNT
    
48.       ***  TOTALU:   TOTAL UNIT  PER WAREHOUSE
    
49.       ***  TOTALS:   TOTAL SALE PRICE PER WAREHOUSE
    
50.       ***  TOTALC:   TOTAL AMOUNT PER WAREHOUSE
    
51.      C                     ADD  UNSAL     TOTALU
    
52.      C                     ADD  PVPM0     TOTALS
    
53.      C                     ADD  TOTALA    TOTALC
    
54.       ***
    
55.      C                     WRITEDETAIL
    
56.       ***
    
57.      C                     SETOF                         50
    
58.      C                     Z-ADD0         TEMP1   30
    
59.      C                     Z-ADD0         CHK01   30
    
60.       *** PREVIOUS RECORD WAREHOUSE:TEMP1
    
61.      C                     Z-ADDCOALM     TEMP1
    
62.       ***
    
63.      C                     Z-ADD0         TEMP2   30
    
64.      C                     Z-ADD0         CHK02   30
    
65.       *** PREVIOUS RECORD SUBFAMILIA:TEMP2
    
66.      C                     Z-ADDSUBFM     TEMP2
    
67.      C                     READ EXITS                    88
    
68.      C           *IN88     IFEQ '0'
    
69.       ***
    
70.      C           COALM     SUB  TEMP1     CHK01
    
71.      C           SUBFM     SUB  TEMP2     CHK02
    
72.       ***
    
73.      C                     EXSR CHKWAR
    
74.      C           FORMAT    IFNE 'DIFWAR'
    
75.      C                     EXSR CHKFAM
    
76.      C                     ENDIF
    
77.      C                     ELSE
    
78.       ***
    
79.      C                     EXSR WFOOT
    
80.      C                     MOVEL'END   '  FORMAT
    
81.      C                     ENDIF
    
82.       ***
    
83.      C                     ENDSR
    
84.       **********************************************************
    
85.      C           CHKWAR    BEGSR
    
86.       ***
    
87.      C           CHK01     IFNE 0
    
88.      C                     MOVEL'DIFWAR'  FORMAT
    
89.      C                     SETON                         50
    
90.      C                     ENDIF
    
91.       ***
    
92.      C                     ENDSR
    
93.       **********************************************************
    
94.      C           CHKFAM    BEGSR
    
95.       ***
    
96.      C           CHK02     IFNE 0
    
97.      C                     MOVEL'DIFFAM'  FORMAT
    
98.       ***
    
99.      C                     ENDIF
    
100.       ***
     
101.      C                     ENDSR
     
102.       ************************************************************
     
103.      C           WFOOT1    BEGSR
     
104.      C                     WRITEDETAIL2
     
105.      C                     MOVEL'MAIN  '  FORMAT
     
106.      C                     Z-ADD0         TOTUNI
     
107.      C                     Z-ADD0         TOTSAL
     
108.      C                     Z-ADD0         TOTALB
     
109.       ***
     
110.      C                     ENDSR
     
111.       ************************************************************
     
112.      C           WFOOT     BEGSR
     
113.      C                     EXSR WFOOT1
     
114.      C                     WRITEFOOT
     
115.       ***
     
116.      C           *IN88     IFEQ '0'
     
117.      C                     EXSR WHEAD
     
118.      C                     ENDIF
     
119.       ***
     
120.      C                     MOVEL'MAIN  '  FORMAT
     
121.      C                     Z-ADD0         TOTALS
     
122.      C                     Z-ADD0         TOTALC
     
123.      C                     Z-ADD0         TOTALU
     
124.      C                     ENDSR
     
125.       ************************************************************
     
126.      C           WHEAD     BEGSR
     
127.      C           *IN50     IFEQ '1'
     
128.       *** OVERFLOW:*IN50
     
129.      C                     WRITEHEAD
     
130.      C                     SETOF                         50
     
131.      C                     ENDIF
     
132.      C                     ENDSR
     
133.       ************************************************************
     
134. 
     

复制代码

[/code]

红像

在
FORMAT    DOWEQ'DIFWAR'
     C                     EXSR WFOOT
     C                     ENDDO
      ***
     C           FORMAT    DOWEQ'HEAD  '
     C                     EXSR WHEAD
     C                     ENDDO
之间加一个对PAGNBR的检测，如果PAGNBR=2就退出。不然总是会打全部。