PGM                                                                
/*---------------------------------------------------------*/                   
/*    RADIO     :   ラジオ・ボタン                         */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG)      TYPE(*CHAR) LEN(80)                      
             DCLF       FILE(QTROBJ/RADIOFM)                                    
                                                                                
             CHGVAR     VAR(&JUKBN#) VALUE(1)                                   
             CHGVAR     VAR(&JUSHOR#) VALUE(3)                                  
 DSPLY:      SNDRCVF    RCDFMT(DSPDTA01)                                        
             IF         COND(&IN03 *EQ '1') THEN(RETURN)                        
             CHGVAR     VAR(&DSPMSG) VALUE('ENTER が押されました ')             
             GOTO       DSPLY                                                   
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM