請教：屏幕自動刷新的功能

coolk

下面是一個屏幕自動刷新例子，希望對樓主有幫助

下面是顯示文件（DSPF）ZTIME的定義。顯示文件ZTIME創(chuàng)建后，使用修改命令設(shè)置屏幕自動刷新間隔時間，CHGDSPF FILE(ZTIME) WAITRCD(1)，此處表示間隔時間為1秒。
----------------------------------------------------------------------
A                                      DSPSIZ(24 80 *DS3)
A          R RTIME                                       
A                                      CF03(03)   
A                                      INVITE      
A                                 10 35DATE        
A                                      EDTCDE(Y)   
A                                      DSPATR(HI)  
A                                 12 35TIME        
A                                      DSPATR(HI)  
A                                 18 35'F3=Exit'   
----------------------------------------------------------------------
                         顯示文件ZTIME

    下面實現(xiàn)電子鐘功能的RPG程序ZRPGTIME，其中檢查內(nèi)部結(jié)構(gòu)數(shù)據(jù)RCDE
是否等于1331就是判斷顯示文件等待輸入是否超時，一旦超時程序?qū)⒅匦掳l(fā)屏幕，形成屏幕自動刷新顯示最新時間的效果。
----------------------------------------------------------------------
H        1                                                   
FZTIME   CF  E                    WORKSTN                    
F                                              KNUM        1
F                                              KINFDS ERRDS  
IERRDS       DS                                             
I                                     *STATUS  ERRCDE        
C           *ENTRY    PLIST                                 
C                     PARM           PLFLAG  1               
C*                                                           
C           LOOP      TAG                                    
C                     WRITERTIME                             
C                     READ ZTIME                  8099      
C           *IN80     IFEQ '1'                              
C           ERRCDE    ANDEQ1331                              
C                     GOTO LOOP                              
C                     ENDIF                                 
C           *IN03     IFEQ '1'                        
C                     SETON                         LR
C                     ENDIF                           
----------------------------------------------------------------------
                   RPG程序ZRPGTIME

    下面是實現(xiàn)電子鐘功能的CL程序ZCLPTIME，WAIT命令使顯示文件處于等待輸入的狀態(tài)，與其配套的信息監(jiān)控命令 MONMSG一旦監(jiān)控到超時信息CPF0889，程序?qū)⒅匦掳l(fā)屏幕。

----------------------------------------------------------------------
            PGM                                             
            DCLF       FILE(ZTIME)                           
LOOP:       SNDRCVF    RCDFMT(RTIME) WAIT(*NO)               
            WAIT                                             
            MONMSG     MSGID(CPF0889) EXEC(GOTO CMDLBL(LOOP))
            IF         COND(&IN03 = '1') THEN(RETURN)        
            ENDPGM                                          
----------------------------------------------------------------------

ar6400

關(guān)健就在這里：
CHGDSPF FILE(ZTIME) WAITRCD(1)

我?guī)啄昵皩戇^好幾個類似的應(yīng)用，基本就這個思路。現(xiàn)在細節(jié)想不起來了。

coolk

[quote="ar6400"]關(guān)健就在這里：
CHGDSPF FILE(ZTIME) WAITRCD(1)
quote]


贊同！

yondean

我們以前做過一個的
其實在編譯dspf的時候可以指定一個刷新時間的，再配合對SUBF的操作，就可以實現(xiàn)自動刷新。
這東西作監(jiān)控很好用。