/********************************************************************************************************************************/
/* Created: 19-JUN-1992 18:08:28 by OpenVMS SDL EV1-11     */
/* Source:  19-JUN-1992 18:04:56 CRTL$:[ROUTLEY.CRTL.SDLFIX.BLADEFIX]RMSUSR.SDI; */
/* Modified: 24-Aug-1992 for C++ compatibility. */
/********************************************************************************************************************************/
/*** MODULE $XABFHCDEF ***/
#ifndef __XABFHCDEF_LOADED
#define __XABFHCDEF_LOADED 1
 
#if defined(__DECC) || defined(__DECCXX)
#pragma __nostandard  /* This file uses non-ANSI-Standard features */
#else
#pragma nostandard
#endif

#if defined(__DECC) || defined(__DECCXX)
#pragma __member_alignment __save
#pragma __nomember_alignment 
#endif

#ifdef __DECC
#pragma __message __save
#pragma __message __disable (__MISALGNDSTRCT)
#pragma __message __disable (__MISALGNDMEM)
#endif 
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#else
#define __unknown_params
#endif
 
#if !defined(__VAXC) && !defined(VAXC)
#define __struct struct
#define __union union
#else
#define __struct variant_struct
#define __union variant_union
#endif

/*** MODULE $xabfhcdef ***/
/*++                                                                        */
/*        file header characteristics xab definitions                       */
/*                $xabfhcdef                                                */
/*                                                                          */
/*+++++*****                                                                */
/*  the fields of this xab cannot be rearranged since                       */
/*  they correspond to an on-disk structure                                 */
/*                                                                          */
#define XAB$C_FHC 29                    /* xabfhc id code                   */
#define XAB$M_FTN 0x1
#define XAB$M_CR 0x2
#define XAB$M_PRN 0x4
#define XAB$M_BLK 0x8
#define XAB$K_FHCLEN 44                 /* length of xabfhc                 */
#define XAB$C_FHCLEN 44                 /* length of xabfhc                 */
struct XABFHC {
    unsigned char xab$b_cod;			
    unsigned char xab$b_bln;			
    unsigned	: 16;			/* spare */
    void *xab$l_nxt;			/* Next XAB in chain */
    unsigned char xab$b_rfo;            /* record format and file org       */
    __union  {
        unsigned char xab$b_atr;        /* record attributes                */
        __struct  {
            unsigned xab$v_ftn : 1;     /* fortran carriage-ctl             */
            unsigned xab$v_cr : 1;      /* lf-record-cr carriage ctl        */
            unsigned xab$v_prn : 1;     /* print-file carriage ctl          */
            unsigned xab$v_blk : 1;     /* records don't cross block boundaries  */
            unsigned xab$v_fill_9 : 4;
            } xab$r_fill_8;
        } xab$r_fill_7;
    unsigned short int xab$w_lrl;       /* longest record's length          */
    __union  {
        unsigned int xab$l_hbk;         /* hi vbn allocated                 */
        __struct  {
            unsigned short int xab$w_hbk0;
            unsigned short int xab$w_hbk2;
            } xab$r_hbk_fields;
        } xab$r_hbk_overlay;
    __union  {
        unsigned int xab$l_ebk;         /* eof vbn                          */
        __struct  {
            unsigned short int xab$w_ebk0;
            unsigned short int xab$w_ebk2;
            } xab$r_ebk_fields;
        } xab$r_ebk_overlay;
    unsigned short int xab$w_ffb;       /* first free byte in eof block     */
    unsigned char xab$b_bkz;		/* bucket size for fhc */
    unsigned char xab$b_hsz;            /* header size for vfc              */
    unsigned short int xab$w_mrz;       /* max record size                  */
    unsigned short int xab$w_dxq;       /* default extend quantity          */
    unsigned short int xab$w_gbc;       /* global buffer count              */
    char xabfhcdef$$_fill_6 [8];        /* spares (pad to last word)        */
    unsigned short int xab$w_verlimit;  /* version limit for file.          */
    unsigned int xab$l_sbn;             /* starting lbn if contiguous       */
    } ;
#if !defined(__VAXC) && !defined(VAXC)
#define xab$b_atr xab$r_fill_7.xab$b_atr
#define xab$v_ftn xab$r_fill_7.xab$r_fill_8.xab$v_ftn
#define xab$v_cr xab$r_fill_7.xab$r_fill_8.xab$v_cr
#define xab$v_prn xab$r_fill_7.xab$r_fill_8.xab$v_prn
#define xab$v_blk xab$r_fill_7.xab$r_fill_8.xab$v_blk
#define xab$l_hbk xab$r_hbk_overlay.xab$l_hbk
#define xab$w_hbk0 xab$r_hbk_overlay.xab$r_hbk_fields.xab$w_hbk0
#define xab$w_hbk2 xab$r_hbk_overlay.xab$r_hbk_fields.xab$w_hbk2
#define xab$l_ebk xab$r_ebk_overlay.xab$l_ebk
#define xab$w_ebk0 xab$r_ebk_overlay.xab$r_ebk_fields.xab$w_ebk0
#define xab$w_ebk2 xab$r_ebk_overlay.xab$r_ebk_fields.xab$w_ebk2
#endif

#define cc$rms_xabfhc (*decc$ga_rms_xabfhc)

#if defined(__DECC) || defined(__DECCXX)
# pragma __extern_model __save
# pragma __extern_model __strict_refdef
   extern struct XABFHC cc$rms_xabfhc;	/* Declare initialized prototype data structures */
# pragma __extern_model __restore
#else
 globalref struct XABFHC cc$rms_xabfhc;	/* Declare initialized prototype data structures */
#endif

#if defined(__DECC)
#pragma __message __restore
#endif

#if defined(__DECC) || defined(__DECCXX)
#pragma __member_alignment __restore
#endif
 
#ifdef __cplusplus
    }
#endif
#if defined(__DECC) || defined(__DECCXX)
#pragma __standard  /* This file uses non-ANSI-Standard features */
#else
#pragma standard
#endif
 
#endif /* __XABFHCDEF_LOADED */