**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/MODULE2) SRCFILE(xxx/QRPGLESRC)
      *  
      **********************************************************************
     D Char            S              1A
     D Return          S             20A
     D XConst          C                   Const('An X was sent to me!')
     D YConst          C                   Const('A Y was sent to me!')
     D ZConst          C                   Const('Not X or Y!')

     C     *Entry        Plist
     C                   Parm                    Char
     C                   Parm                    Return

     C                   Select

     C                   When      Char = 'X'
     C                   Eval      Return = XConst

     C                   When      Char = 'Y'
     C                   Eval      Return = YConst

     C                   Other
     C                   Eval      Return = ZConst

     C                   EndSl

     C                   Eval      *InLr = *On