19.10.再表示を勝手にするプログラムのサンプル

DSPF : REDSPD CRTDSPFのWAITRCDで再表示の間隔（秒）を指定します。

      A                                      CF03                        
      A                                      CF12                        
      A*-------------------------------------*                           
      A          R FMT01                                                 
      A*-------------------------------------*                           
      A                                      FRCDTA                      
      A                                      INVITE                      
      A            V1UPCT         7Y 0O  3 41EDTCDE(3)                   
      A                                  3 49' 回表示 '                 

RPG : REDSPR 

      FREDSPD  CF  E                    WORKSTN      KNUM        1       
      F                                              KINFDS INFDSP       
      F                                              KINFSR *PSSR        
      I              X'33'                 C         F3                  
      I              X'3C'                 C         F12                 
      IINFDSP      DS                                                    
      I                                     *STATUS  STATUS              
      I                                      369 369 PUSHED              
      C*                                                    :            
 B001 C           STATUS    DOUNE1331                       :            
  001 C*                                                    :            
  001 C                     ADD  1         V1UPCT           :            
  001 C                     WRITEFMT01                      :            
  001 C                     READ REDSPD                 9898:            
  001 C*                                                    :            
 B002 C           F3        IFEQ PUSHED                     :            
 *002 C           F12       OREQ PUSHED                     :            
  002 C                     LEAVE                           :            
 E002 C                     ENDIF                           :            
 E001 C                     ENDDO                           :            
      C*                                                    :            
      C                     MOVE *ON       *INLR            :            
      C                     RETRN                           :            
      C*-----------------------------------------------------
      C           *PSSR     BEGSR                           :            
      C*----------------------------------------------------- 
      C                     MOVE *ON       *INLR            :            
      C                     RETRN                           :            
      C*                                                    :            
      C                     ENDSR                           :