Single-page Subfiles的问题

发布于 2022-08-29 03:39:42 字数 5103 浏览 7 评论 1

在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 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

评论(1

温柔少女心 2022-09-01 01:57:10

SFLPAG&SFLSIZ都是(0006).

~没有更多了~
我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
原文