**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/MODULE1) SRCFILE(xxx/QRPGLESRC)
      *  
      **********************************************************************
     D Char            S              1A
     D Return          S             20A
     D AConst          C                   Const('An A was sent to me!')
     D BConst          C                   Const('A B was sent to me!')
     D ZConst          C                   Const('Not A or B!')

     C     *Entry        Plist
     C                   Parm                    Char
     C                   Parm                    Return

     C                   Select

     C                   When      Char = 'A'
     C                   Eval      Return = AConst

     C                   When      Char = 'B'
     C                   Eval      Return = BConst

     C                   Other
     C                   Eval      Return = ZConst

     C                   EndSl

     C                   Eval      *InLr = *On