/*=================================================================================== */
      /* MIT License                                                                        */
      /* Copyright (c) 2016 TEMBO Technology Labs (Pty) Ltd.                                */
      /* Author: Tommy Atkins - Chief Development Officer                                   */
      /*                                                                                    */
      /* Permission is hereby granted, free of charge, to any person obtaining a copy of    */
      /* this software and associated documentation files (the "Software"), to deal in the  */
      /* Software without restriction, including without limitation the rights to use, copy,*/
      /* modify, merge, publish, distribute, sublicense, and/or sell copies of the Software,*/
      /* and to permit persons to whom the Software is furnished to do so, subject to the   */
      /* following conditions:                                                              */
      /*                                                                                    */
      /* The above copyright notice and this permission notice shall be included in all     */
      /* copies or substantial portions of the Software.                                    */
      /* ================================================================================== */
      /* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,*/
      /* INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A      */
      /* PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT */
      /* HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION  */
      /* OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE     */
      /* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                             */
      /*=================================================================================== */
             PGM
             CRTSRVPGM  SRVPGM(*CURLIB/ERRSRV@@) +
                        MODULE( +
                              *CURLIB/ERRSRV@01 +
                              *CURLIB/ERRSRV@02 +
                              *CURLIB/ERRSRV@03 +
                              *CURLIB/ERRSRV@04 +
                              *CURLIB/ERRSRV@05 +
                              ) +
                        EXPORT(*SRCFILE) +
                        SRCFILE(*CURLIB/SRC_ERR) +
                        SRCMBR(ERRSRV$$) +
                        TEXT('Error Handling Services') +
                        USRPRF(*OWNER)
             ENDPGM