PGM                                                                
/*---------------------------------------------------------*/                   
/*   DSPAGAIN    :    再表示する CLP                       */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCLF       FILE(MYOBJLIB/DSPAGAINFM)                               
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
 DSPLY:      SNDRCVF    RCDFMT(DSPDTA)                                          
             IF         COND(&IN03 *EQ '1') THEN(RETURN)                        
 /*( CF05- 再表示 )*/                                                           
             IF         COND(&IN05 *EQ '1') THEN(DO)                            
             TFRCTL     PGM(MYOBJLIB/DSPAGAIN)                                  
             ENDDO                                                              
/*( 実行キー )*/                                                                
             GOTO       DSPLY                                                   
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM