- 論壇徽章:
- 0
|
在Single-page Subfiles中我們主動(dòng)控制page down/up.各位大俠幫幫忙,謝謝.
page up 的子程序:(*IN31控制SFLCLR,*IN99是子程序@LOAD里面的read customer 99)
C IF *IN91=*ON
C MOVE *ON *IN31
C WRITE COOL2
C MOVE *OFF *IN31
C MOVE *OFF *IN91
C Z-ADD 7 @DO 3 0
C ADD RRN1 @DO
C DO @DO
C IF *IN99=*ON
C *HIVAL SETGT RQTRF
C ENDIF
C READP RQTRF 91
C IF *IN91=*ON
C *LOVAL SETLL RQTRF
C MOVE *ON *IN98
C LEAVE
C ENDIF
C ENDDO
還有這里好像不用判斷*IN99=*ON,SETGT吧,如果讀到文件末了,游標(biāo)是直接指在*HIVAL處吧.
同理,SETLL的判斷是不是也是多余的??當(dāng)READ/READP時(shí),if %EOF,此時(shí)它們的游標(biāo)又在上面位置呢? |
|