PGM                                                                
/*---------------------------------------------------------*/                   
/*    BUTTON    :   押しボタン                             */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG)      TYPE(*CHAR) LEN(80)                      
             DCLF       FILE(QTROBJ/BUTTONFM)                                   
                                                                                
             CHGVAR     VAR(&KAISU) VALUE(0)                                    
 DSPLY:      SNDRCVF    RCDFMT(DSPDTA01)                                        
             IF         COND(&IN03 *EQ '1') THEN(RETURN)                        
             IF         COND(&PSHF10 *EQ 1) THEN(DO)                            
             CHGVAR     VAR(&DSPMSG) VALUE('F10 ボタンが押されました ')         
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             CHGVAR     VAR(&DSPMSG) VALUE('OK ボタンが押されました ')          
             ENDDO                                                              
             CHGVAR     VAR(&KAISU) VALUE(&KAISU + 1)                           
             GOTO       DSPLY                                                   
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM