/*&& Apache License ====================================================================*/
/* Copyright © 2008-2021 TEMBO Technology Lab (Pty) Ltd.                                */
/* Created by AO Foundation - www.adsero-optima.com                                     */
/* Original TEMPLATE author: Tommy Atkins - Chief Development Officer                   */
/*                                                                                      */
/* Licensed under the Apache License, Version 2.0 (the "License");                      */
/* you may not use this file except in compliance with the License.                     */
/* You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0   */
/*                                                                                      */
/* Unless required by applicable law or agreed to in writing, software                  */
/* distributed under the License is distributed on an "AS IS" BASIS,                    */
/* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.             */
/* See the License for the specific language governing permissions and                  */
/* limitations under the License.                                                       */
/*                                                                                      */
/* The above copyright notice and this permission notice shall be included in           */
/* all copies or substantial portions of the Software.                                  */
/*                     https://www.i-nterprise.org/                                     */
/*                     https://www.adsero-optima.com/                                   */
/*======================================================================================*/
             PGM
             CRTSRVPGM  SRVPGM(*CURLIB/ERRSRV@@) +
                        MODULE( +
                              ERRSRV@01 +
                              ERRSRV@02 +
                              ERRSRV@03 +
                              ERRSRV@04 +
                              ERRSRV@05 +
                              ) +
                        EXPORT(*SRCFILE) +
                        SRCFILE(*CURLIB/ERRSRC) +
                        SRCMBR(ERRSRV@$) +
                        TEXT('Error Handling Services') +
                        USRPRF(*OWNER) +
                        BNDSRVPGM(*NONE +
                                 )
             ENDPGM