Single-page Subfiles的问题
在Single-page Subfiles中我们主动控制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吧,如果读到文件末了,游标是直接指在*HIVAL处吧.
同理,SETLL的判断是不是也是多余的??当READ/READP时,if %EOF,此时它们的游标又在上面位置呢?
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(1)
SFLPAG&SFLSIZ都是(0006).