#ifndef __PERROR_LOADED
#define __PERROR_LOADED 1
/****************************************************************************
**
**  <perror.h> - error message variables 
**
*****************************************************************************
**  Header is nonstandard
*****************************************************************************
*/
/* ************************************************************************* */
/* *                                                                       * */
/* * HPE CONFIDENTIAL. This software is confidential proprietary software  * */
/* * licensed by Hewlett Packard Enterprise Development, LP, and is not    * */
/* * authorized to be used, duplicated or disclosed to anyone without the  * */
/* * prior written permission of HPE.                                      * */
/* * Copyright 2017 Hewlett Packard Enterprise Development, LP             * */
/* *                                                                       * */
/* * VMS SOFTWARE, INC. CONFIDENTIAL. This software is confidential        * */
/* * proprietary software licensed by VMS Software, Inc., and is not       * */
/* * authorized to be used, duplicated or disclosed to anyone without      * */
/* * the prior written permission of VMS Software, Inc.                    * */
/* * Copyright 2017-2020 VMS Software, Inc.                                * */
/* *                                                                       * */
/* ************************************************************************* */


#pragma __nostandard
#include <decc$types.h>

#ifdef __cplusplus
    extern "C" {
#endif

#if __INITIAL_POINTER_SIZE
#   pragma __pointer_size __save
#   pragma __pointer_size 32
#endif


/*
**  sys_nerr and sys_errlist are implemented as of OpenVMS V6.2
*/
#if __CRTL_VER >= 60200000 
 
    /* 
    **  Real values in the DECC$SHR image 
    */ 
#   pragma __extern_model __save 
#   pragma __extern_model __relaxed_refdef 
    extern int sys_nerr; 
    extern char *sys_errlist[]; 
#   pragma __extern_model __restore 
#else 

    /* 
    **  Pre-V6.2 Stub values resolved in OLBs 
    */ 
#   pragma __extern_model __save 
#   pragma __extern_model __relaxed_refdef 
    extern int sys_nerr; 
    extern char *sys_errlist[]; 
#   pragma __extern_model __restore 
#endif 


/*
**  Restore the users pointer context
*/
#if __INITIAL_POINTER_SIZE
#   pragma __pointer_size __restore
#endif

#ifdef __cplusplus
    }
#endif
#pragma __standard
#endif /* __PERROR_LOADED */