PGM                                                                
/*---------------------------------------------------------*/                   
/*    COMBO     :    コンボボックッス                      */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG)      TYPE(*CHAR) LEN(80)                      
             DCLF       FILE(QTROBJ/COMBOFM)                                    
                                                                                
             CHGVAR     VAR(&JUTANT) VALUE('0003')                              
 DSPLY:      SNDRCVF    RCDFMT(DSPDTA01)                                        
             IF         COND(&IN03 *EQ '1') THEN(RETURN)                        
             GOTO       DSPLY                                                   
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM