**********************************************************************
      * To Compile:
      *
      *  1. CRTRPGMOD MODULE(XXX/MATH_OPS) SRCFILE(xxx/QRPGLESRC)
      *  2. CRTSRVPGM SRVPGM(XXX/MATH_OPS) EXPORT(*ALL)
      *
      **********************************************************************
     H NoMain

      /Copy Nexsource/KRpgLeSrc,Math_OpsPR

     P ADD             B                   Export
     D ADD             PI
     D   FirstNumber                  6s 0
     D   SecondNumber                 9p 2
     D   Result                       9p 2

     C                   Eval      Result = FirstNumber + SecondNumber
     C                   Return

     P Add             E                                                        Export