GETAID:     CMD        PROMPT('Get AID byte')                                  
                                                                                
             PARM       KWD(AID) TYPE(*CHAR) LEN(1) RTNVAL(*YES) +              
                          PROMPT('AID byte')                                    
                                                                                
             PARM       KWD(CTLOPT) TYPE(*CHAR) LEN(10) DFT(*DFT) +             
                          EXPR(*YES) PROMPT('Control option')