**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/CALLMODS) SRCFILE(xxx/QRPGLESRC)
      *  
      **********************************************************************
     D Char            S              1A
     D Return          S             20A

     C     *Entry        Plist
     C                   Parm                    Char
     C                   Parm                    Return

     C                   CallB     'MODULE1'
     C                   Parm                    Char
     C                   Parm                    Return
     C     Return        Dsply

     C                   CallB     'MODULE2'
     C                   Parm                    Char
     C                   Parm                    Return
     C     Return        Dsply

     C                   Eval      *InLr = *On