BEEP:       CMD        PROMPT('Sound beep')                                    
                                                                                
             PARM       KWD(CTLOPT) TYPE(*CHAR) LEN(10) DFT(*DFT) +             
                          EXPR(*YES) PROMPT('Control option')