#ifndef __XAB_LOADED #define __XAB_LOADED 1 #if defined(__DECC) || defined(__DECCXX) #pragma __nostandard /* This file uses non-ANSI-Standard features */ #else #pragma nostandard #endif /* XAB - V3.0 */ /* Include all of the definitions for different types of XAB blocks */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #if defined(__DECC) || defined(__DECCXX) #pragma __standard /* This file uses non-ANSI-Standard features */ #else #pragma standard #endif #endif /* __XAB_LOADED */ /********************************************************************************************************************************/ /* 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; */ /********************************************************************************************************************************/ /*** MODULE $XABALLDEF ***/ #ifndef __XABALLDEF_LOADED #define __XABALLDEF_LOADED 1 #if defined(__DECC) || defined(__DECCXX) #pragma __nostandard /* This file uses non-ANSI-Standard features */ #else #pragma nostandard #endif #if defined(__DECC) #pragma __member_alignment __save #pragma __nomember_alignment __byte #endif #if 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 $xaballdef ***/ /*-- */ /*++ */ /* */ /* allocation xab definitions */ /* $xaballdef */ /* */ /* */ /*+++++***** */ /* the fields thru bkz cannot be rearranged due to */ /* their commonality with fab */ #define XAB$C_ALL 20 /* xaball id code */ #define XAB$M_HRD 0x1 #define XAB$M_ONC 0x2 #define XAB$M_CBT 0x20 #define XAB$M_CTG 0x80 #define XAB$C_ANY 0 /* any allocation o.k. */ #define XAB$C_CYL 1 /* cylinder boundary */ #define XAB$C_LBN 2 /* allocate at specified lbn */ #define XAB$C_VBN 3 /* allocate near specified vbn */ #define XAB$C_RFI 4 /* allocate near related file */ #define XAB$K_ALLLEN 32 /* length of xaball */ #define XAB$C_ALLLEN 32 /* length of xaball */ struct XABALL { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ __union { unsigned char xab$b_aop; /* allocation options */ __struct { unsigned xab$v_hrd : 1; /* fail if requested alignment impossible */ unsigned xab$v_onc : 1; /* locate allocated space within a cylinder */ unsigned xaballdef$$_fill_5 : 3; /* (spares) */ unsigned xab$v_cbt : 1; /* contiguous alllocation, best try */ unsigned xaballdef$$_fill_6 : 1; /* spare */ unsigned xab$v_ctg : 1; /* contiguous allocation */ } xab$r_aop_bits; } xab$r_aop_overlay; unsigned char xab$b_aln; /* alignment type */ unsigned short int xab$w_vol; /* relative volume no. for allocation */ unsigned int xab$l_loc; /* allocation location */ unsigned int xab$l_alq; /* allocation quantity */ unsigned short int xab$w_deq; /* default allocation quantity */ unsigned char xab$b_bkz; /* bucket size for area */ unsigned char xab$b_aid; /* area id number */ __union { unsigned short int xab$w_rfi [3]; /* related file id */ __struct { unsigned short int xab$w_rfi0; /* file number */ unsigned short int xab$w_rfi2; /* seq number */ unsigned short int xab$w_rfi4; /* rev number */ } xab$r_rfi_fields; } xab$r_rfi_overlay; short int xaballdef$$_fill_8; /* (spare) */ } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$b_aop xab$r_aop_overlay.xab$b_aop #define xab$v_hrd xab$r_aop_overlay.xab$r_aop_bits.xab$v_hrd #define xab$v_onc xab$r_aop_overlay.xab$r_aop_bits.xab$v_onc #define xab$v_cbt xab$r_aop_overlay.xab$r_aop_bits.xab$v_cbt #define xab$v_ctg xab$r_aop_overlay.xab$r_aop_bits.xab$v_ctg #define xab$w_rfi xab$r_rfi_overlay.xab$w_rfi #define xab$w_rfi0 xab$r_rfi_overlay.xab$r_rfi_fields.xab$w_rfi0 #define xab$w_rfi2 xab$r_rfi_overlay.xab$r_rfi_fields.xab$w_rfi2 #define xab$w_rfi4 xab$r_rfi_overlay.xab$r_rfi_fields.xab$w_rfi4 #endif /* These are tradtional macros that should be hand-maintained for compatibility */ #define XAB$V_HRD 0 /* fail if requestd alignmt cannot be performed */ #define XAB$V_ONC 1 /* locate space on cylinder boundary */ #define XAB$V_CBT 5 /* contiguous allocation, best try */ #define XAB$V_CTG 7 /* contiguous allocation */ /* Note: if you wish to access the xab$w_rfi field defined in the struct, * #undef this macro in your code */ #ifndef __cplusplus #undef xab$w_rfi #define xab$w_rfi xab$w_rfi0 #endif #define cc$rms_xaball (*decc$ga_rms_xaball) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABALL cc$rms_xaball; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABALL cc$rms_xaball; /* 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 /* __XABALLDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:31 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 $XABCXFDEF ***/ #ifndef __XABCXFDEF_LOADED #define __XABCXFDEF_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 $xabcxfdef ***/ /* */ /* RMS Context XAB associated with the FAB */ /* $xabcxfdef */ /* */ /* */ #define XAB$C_CXF 32 /* XABCXF id code */ #define XAB$M_CXFRST 0x1 #define XAB$K_CXFLEN 60 /* length of xab type CXF */ #define XAB$C_CXFLEN 60 /* length of xab type CXF */ struct XABCXF { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ /* */ /* Following in common with the CXR block, too. */ /* Do not rearrange without changing both. */ /* */ unsigned int xab$l_cxfsts; /* Status of the last file operation. */ unsigned int xab$l_cxfstv; /* Status Value of the last file operation. */ __union { unsigned int xab$l_cxfcop; /* Context Options. */ __struct { unsigned xab$v_cxfrst : 1; /* Restore file state - use context blk as input. */ unsigned xab$v_fill_13 : 7; } xab$r_cxfcop_bits; } xab$r_cxfcop_overlay; unsigned int xab$l_cxfbkp; /* Bookkeeping bits */ unsigned short int xab$w_cxfifi; /* Internal File Identifier */ unsigned char xab$b_cxfver; /* prologue version num */ char xabcxfdef$$_fill_5; /* spare to longword align commonality */ int xabcxfdef$$_fill_6; /* spare */ unsigned short int xab$w_cxfdeq; /* Default extention quantity */ unsigned char xab$b_cxffac; /* File access */ unsigned char xab$b_cxfshr; /* File Sharing */ unsigned short int xab$w_cxfrte; /* (Not used) */ char xabcxfdef$$_fill_7; /* spare */ unsigned char xab$b_cxforg; /* file organization */ unsigned short int xab$w_cxfgbc; /* global buffer count */ unsigned char xab$b_cxfrtv; /* retrieval window */ char xabcxfdef$$_fill_8; int xabcxfdef$$_fill_9 [4]; /* spares */ } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$l_cxfcop xab$r_cxfcop_overlay.xab$l_cxfcop #define xab$v_cxfrst xab$r_cxfcop_overlay.xab$r_cxfcop_bits.xab$v_cxfrst #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 /* __XABCXFDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:31 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 $XABCXRDEF ***/ #ifndef __XABCXRDEF_LOADED #define __XABCXRDEF_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 $xabcxrdef ***/ /* */ /* RMS Context XAB associated with the RAB */ /* $xabcxrdef */ /* */ /* */ #define XAB$C_CXR 33 /* XABCXR id code */ #define XAB$M_CXRRST 0x1 #define XAB$C_CXB_VER1 1 #define XAB$C_CXRBLEN 512 /* Length of CXRBUF (bytes) */ #define XAB$K_CXRLEN 84 /* Length of XAB type CXR */ #define XAB$C_CXRLEN 84 /* Length of XAB type CXR */ struct XABCXR { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ /* */ /* Following in common with the CXF block, too. */ /* Do not rearrange without changing it. */ /* */ unsigned int xab$l_cxrsts; /* Status of the last record operation. */ unsigned int xab$l_cxrstv; /* Status Value of the last record operation. */ __union { unsigned int xab$l_cxrcop; /* Context Options. */ __struct { unsigned xab$v_cxrrst : 1; /* Restore file/record state - use context blk as input. */ unsigned xabcxrdef$$_fill_5 : 27; unsigned xab$v_cxrbver : 4; /* Version of Key buffer */ } xab$r_cxrcop_bits; } xab$r_cxrcop_overlay; unsigned int xab$l_cxrbkp; /* Bookkeeping bits */ unsigned short int xab$w_cxrisi; /* Internal Record Identifier */ unsigned char xab$b_cxrver; /* prologue version num. */ char xabcxrdef$$_fill_6; /* spare to longword align commonality */ int xabcxrdef$$_fill_7; /* spare */ unsigned char xab$b_cxrmbf; /* Multibuffer count */ unsigned char xab$b_cxrmbc; /* Multiblock count */ unsigned short int xab$w_cxrbfz; /* sz in byte of CXRBUF */ unsigned int xab$l_cxrvbn; /* NRP VBN */ unsigned short int xab$w_cxroff; /* NRP offset in VBN */ unsigned short int xab$w_fill_8; /* mbz - longword align */ unsigned int xab$l_cxrpos0; /* Primary Positioning RFA */ unsigned short int xab$w_cxrpos4; short int xabcxrdef$$_fill_9; /* Spare MBZ */ unsigned int xab$l_cxrcur0; /* Current Positioning RFA */ unsigned short int xab$w_cxrcur4; short int xabcxrdef$$_fill_10; /* Spare MBZ */ unsigned int xab$l_cxrsid0; /* SIDR positioning RFA */ unsigned short int xab$w_cxrsid4; short int xabcxrdef$$_fill_11; /* Spare MBZ */ unsigned short int xab$w_cxrcnt; /* SIDR array count */ unsigned char xab$b_cxrkref; /* Cur Key of Reference */ unsigned char xab$b_cxrklen; /* Length of key */ unsigned int xab$l_cxrbuf; /* address of key buf */ int xabcxrdef$$_fill_12 [2]; /* Spares */ } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$l_cxrcop xab$r_cxrcop_overlay.xab$l_cxrcop #define xab$v_cxrrst xab$r_cxrcop_overlay.xab$r_cxrcop_bits.xab$v_cxrrst #define xab$v_cxrbver xab$r_cxrcop_overlay.xab$r_cxrcop_bits.xab$v_cxrbver #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 /* __XABCXRDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:29 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 $XABDATDEF ***/ #ifndef __XABDATDEF_LOADED #define __XABDATDEF_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 #ifndef __VMS_DATE #define __VMS_DATE 1 struct __vms_date { int : 32; int : 32; }; #endif /* Macros produced from STARLET */ /*** MODULE $xabdatdef ***/ /*-- */ /*++ */ /* */ /* date/time xab definitions */ /* $xabdatdef */ /* */ #define XAB$C_DAT 18 /* xabdat id code */ #define XAB$K_DATLEN_V2 36 /* Version 2 XABDAT length */ #define XAB$C_DATLEN_V2 36 /* Version 2 XABDAT length */ #define XAB$K_DATLEN_V54 44 /* Version V5.4 XABDAT length */ #define XAB$C_DATLEN_V54 44 #define XAB$K_DATLEN 60 /* length of XABDAT */ #define XAB$C_DATLEN 60 /* length of XABDAT */ /* The STARLET definition of XABDAT is nearly useless. This is a hand * built version */ struct XABDAT { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ unsigned short xab$w_rvn; /* revision number */ unsigned : 16; /* spare */ struct __vms_date xab$q_rdt; /* revision date and time */ struct __vms_date xab$q_cdt; /* creation date and time */ struct __vms_date xab$q_edt; /* expiration date and time */ struct __vms_date xab$q_bdt; /* backup date and time */ struct __vms_date xab$q_rcd; /* recorded date and time */ struct __vms_date xab$q_eff; /* effective date and time */ }; #define cc$rms_xabdat (*decc$ga_rms_xabdat) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABDAT cc$rms_xabdat; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABDAT cc$rms_xabdat; /* 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 /* __XABDATDEF_LOADED */ /********************************************************************************************************************************/ /* 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 $XABDEF ***/ #ifndef __XABDEF_LOADED #define __XABDEF_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 $xabdef ***/ /* */ /* definitions for all xabs */ /* $xabdef */ /* */ /* */ /* */ /* the first four fields are shared in common between all xabs */ /* and hence are defined only once */ /* (the only exception is that the spare word may be used by some xabs) */ /* */ struct XAB { unsigned char xab$b_cod; /* xab id code */ unsigned char xab$b_bln; /* block length */ short int xabdef$$_fill_1; /* (spare) */ void * xab$l_nxt; /* xab chain link */ unsigned short int xab$w_rvn; short int xabdef$$_fill_2; __union { int xab$q_rdt [2]; __struct { unsigned int xab$l_rdt0; int xab$l_rdt4; } xab$r_rdt_fields; #ifdef __cplusplus }; #else } xab$r_rdt_overlay; #endif } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$l_rdt0 xab$r_rdt_fields.xab$l_rdt0 #define xab$l_rdt4 xab$r_rdt_fields.xab$l_rdt4 #endif struct XABDEF1 { char xabdef$$_fill_3 [8]; char xabdef$$_fill_4; /*THESE FIELDS WILL BE DEFINED LATER */ char xabdef$$_fill_5; short int xabdef$$_fill_6; int xabdef$$_fill_7; int xabdef$$_fill_8; short int xabdef$$_fill_9; unsigned char xab$b_bkz; /*COMMON TO FHC AND ALQ XABS */ } ; #define XAB$C_CXT_VER1 1 /* RMS Context Extraction version 1 */ #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 /* __XABDEF_LOADED */ /********************************************************************************************************************************/ /* 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 */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:32 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. */ /* Modified: 30-Apr-1998 to update to current $XABITMDEF in [RMS]RMSUSR.SDL (including new File_Length_Hint attribute */ /* Modified: 16-Jul-1998 to add new PRESHELVED item */ /* Modified: 13-Feb-2001 to add new GBC_LONG item for future implementation */ /********************************************************************************************************************************/ /*** MODULE $XABITMDEF ***/ #ifndef __XABITMDEF_LOADED #define __XABITMDEF_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 $xabitmdef ***/ /*++ */ /* */ /* Item XAB definitions */ /* */ /* */ #define XAB$C_ITM 36 /* xabitm id code */ #define XAB$M_WASCONTIG 0x1 #define XAB$M_NOBACKUP 0x2 #define XAB$M_WRITEBACK 0x4 #define XAB$M_READCHECK 0x8 #define XAB$M_WRITCHECK 0x10 #define XAB$M_CONTIGB 0x20 #define XAB$M_LOCKED 0x40 #define XAB$M_CONTIG 0x80 #define XAB$M_RESERVED1 0x100 #define XAB$M_RESERVED2 0x200 #define XAB$M_RESERVED3 0x400 #define XAB$M_BADACL 0x800 #define XAB$M_SPOOL 0x1000 #define XAB$M_DIRECTORY 0x2000 #define XAB$M_BADBLOCK 0x4000 #define XAB$M_MARKDEL 0x8000 #define XAB$M_NOCHARGE 0x10000 #define XAB$M_ERASE 0x20000 #define XAB$M_RESERVED4 0x40000 #define XAB$M_SHELVED 0x80000 #define XAB$M_RESERVED6 0x100000 #define XAB$M_NOMOVE 0x200000 #define XAB$M_NOSHELVABLE 0x400000 #define XAB$M_PRESHELVED 0x800000 struct UCHAR_FLAGS { /* mimics $FCHDEF */ unsigned xab$v_wascontig : 1; unsigned xab$v_nobackup : 1; unsigned xab$v_writeback : 1; unsigned xab$v_readcheck : 1; unsigned xab$v_writcheck : 1; unsigned xab$v_contigb : 1; unsigned xab$v_locked : 1; unsigned xab$v_contig : 1; unsigned xab$v_reserved1 : 1; unsigned xab$v_reserved2 : 1; unsigned xab$v_reserved3 : 1; unsigned xab$v_badacl : 1; unsigned xab$v_spool : 1; unsigned xab$v_directory : 1; unsigned xab$v_badblock : 1; unsigned xab$v_markdel : 1; unsigned xab$v_nocharge : 1; unsigned xab$v_erase : 1; unsigned xab$v_reserved4 : 1; unsigned xab$v_shelved : 1; unsigned xab$v_reserved6 : 1; unsigned xab$v_nomove : 1; unsigned xab$v_noshelvable : 1; unsigned xab$v_preshelved : 1; unsigned xab$v_fill_15 : 8; } ; #define XAB$_NET_BUFFER_SIZE 1 /* (sense) negociated buffer size */ #define XAB$_NET_BLOCK_COUNT 2 /* (set,sense) requested block count */ #define XAB$_NET_REMOTE_SYSTEM 3 /* (sense) remote system type */ #define XAB$_NET_REMOTE_FILE_SYSTEM 4 /* (sense) remote file system type */ #define XAB$_NET_EXTPROT 5 /* (set,sense) actual extended protection */ #define XAB$_NET_SYSCAP_LOCAL 6 /* (sense) DAP SYSCAP of local system */ #define XAB$_NET_SYSCAP_REMOTE 7 /* (sense) DAP SYSCAP of remote system */ #define XAB$_NET_DAPVER_LOCAL 8 /* (sense) DAP version - local system */ #define XAB$_NET_DAPVER_REMOTE 9 /* (sense) DAP version - remote system */ #define XAB$_NET_LINK_TIMEOUT 10 /* (set,sense) logical link timeout (seconds) */ #define XAB$_NET_DATA_CRC_ENABLE 11 /* (set,sense) DAP level CRC */ #define XAB$_NET_LINK_CACHE_ENABLE 12 /* (set,sense) Logical link cache enable */ #define XAB$K_NET_MIN 1 #define XAB$K_NET_MAX 12 #define XAB$_STAT_ENABLE 64 /* (set,sense) Read statistics enable */ #define XAB$_FILE_LENGTH_HINT 65 /* (set,sense) File length hint (set of 2 quadword fields) */ #define XAB$K_STAT_MIN 64 #define XAB$K_STAT_MAX 65 #define XAB$_UCHAR 128 /* (sense) Read file characteristics (obsolete) */ #define XAB$_UCHAR_WASCONTIG 129 /* (sense) FCH$V_WASCONTIG */ #define XAB$_UCHAR_NOBACKUP 130 /* (set,sense) FCH$V_NOBACKUP */ #define XAB$_UCHAR_WRITEBACK 131 /* (sense) FCH$V_WRITEBACK */ #define XAB$_UCHAR_READCHECK 132 /* (set,sense) FCH$V_READCHECK */ #define XAB$_UCHAR_WRITECHECK 133 /* (set,sense) FCH$V_WRITECHECK */ #define XAB$_UCHAR_CONTIGB 134 /* (set,sense) FCH$V_CONTIGB */ #define XAB$_UCHAR_LOCKED 135 /* (set,sense) FCH$V_LOCKED */ #define XAB$_UCHAR_CONTIG 136 /* (sense) FCH$V_CONTIG */ #define XAB$_UCHAR_BADACL 137 /* (sense) FCH$V_BADACL */ #define XAB$_UCHAR_SPOOL 138 /* (sense) FCH$V_SPOOL */ #define XAB$_UCHAR_DIRECTORY 139 /* (sense) FCH$V_DIRECTORY */ #define XAB$_UCHAR_BADBLOCK 140 /* (sense) FCH$V_BADBLOCK */ #define XAB$_UCHAR_MARKDEL 141 /* (sense) FCH$V_BADBLOCK */ #define XAB$_UCHAR_NOCHARGE 142 /* (sense) FCH$V_NOCHARGE */ #define XAB$_UCHAR_ERASE 143 /* (set,sense) FCH$V_ERASE */ #define XAB$_UCHAR_NOMOVE 144 /* (set,sense) FCH$V_NOMOVE */ #define XAB$_UCHAR_SHELVED 145 /* (sense) FCH$V_SHELVED */ #define XAB$_UCHAR_NOSHELVABLE 146 /* (set,sense) FCH$V_NOSHELVABLE */ #define XAB$_UCHAR_PRESHELVED 147 /* (sense) FCH$V_PRESHELVED */ #define XAB$K_UCHAR_MIN 128 #define XAB$K_UCHAR_MAX 147 #define XAB$_STORED_SEMANTICS 192 /* (set,sense) Stored semantics of the file */ #define XAB$_ACCESS_SEMANTICS 193 /* (set,sense) Access semantics of the file */ #define XAB$_RMS_EXTENSION 194 /* (set,sense) Required RMS processing extension */ #define XAB$K_XLATE_MIN 192 #define XAB$K_XLATE_MAX 194 #define XAB$C_SEMANTICS_MAX_LEN 64 /* max length for stored or access semantics */ #define XAB$K_SEMANTICS_MAX_LEN 64 /* max length for stored or access semantics */ #define XAB$_MULTIBUFFER_COUNT 256 /* (set-only) Multibuffer count (not limited to 127) */ #define XAB$_NORECORD 257 /* (set-only) Norecord suppresses update of the expiration d/t, passed in on */ #define XAB$_RECOVERY 258 /* Used to indicate type of */ #define XAB$_RUJVOLNAM 259 /* Used to control RUJ placement */ #define XAB$_GBC_LONG 260 /* (set,sense) GBC longword implementation */ #define XAB$K_MISC_MIN 256 #define XAB$K_MISC_MAX 260 #define XAB$_TID 320 /* (set/sense) TID */ #define XAB$K_TID_MIN 320 #define XAB$K_TID_MAX 320 #define XAB$K_SENSEMODE 1 #define XAB$K_SETMODE 2 #define XAB$K_ITMLEN 32 #define XAB$C_ITMLEN 32 struct XABITM { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ void *xab$l_itemlist; /* Address of the item list */ unsigned char xab$b_mode; /* must be either SETMODE or SENSEMODE */ char xab$b_itm_fill1 [3]; /* Reserved space for future definition */ int xab$l_itm_fill2 [4]; /* Reserved space for future definition */ } ; #define XAB$M_RCF_RU 0x1 #define XAB$M_RCF_AI 0x2 #define XAB$M_RCF_BI 0x4 #define XAB$M_RCF_NOPAD 0x8 struct xab_rcf_flags { unsigned xab$v_rcf_ru : 1; unsigned xab$v_rcf_ai : 1; unsigned xab$v_rcf_bi : 1; unsigned xab$v_rcf_nopad : 1; unsigned xab$v_fill_16 : 4; } ; #define XAB$K_DISABLE 0 #define XAB$K_ENABLE 1 #define XAB$K_RT11 1 #define XAB$K_RSTS 2 #define XAB$K_RSX11S 3 #define XAB$K_RSX11M 4 #define XAB$K_RSX11D 5 #define XAB$K_IAS 6 #define XAB$K_VAXVMS 7 #define XAB$K_TOPS20 8 #define XAB$K_TOPS10 9 #define XAB$K_RTS8 10 #define XAB$K_OS8 11 #define XAB$K_RSX11MP 12 #define XAB$K_COPOS11 13 #define XAB$K_P_OS 14 #define XAB$K_VAXELN 15 #define XAB$K_CPM 16 #define XAB$K_MS_DOS 17 #define XAB$K_ULTRIX_32 18 #define XAB$K_ULTRIX_11 19 #define XAB$K_RMS11 1 #define XAB$K_RMS20 2 #define XAB$K_RMS32 3 #define XAB$K_FCS11 4 #define XAB$K_RT11FS 5 #define XAB$K_NO_FS 6 #define XAB$K_TOPS20FS 7 #define XAB$K_TOPS10FS 8 #define XAB$K_OS8FS 9 #define XAB$K_RMS32S 10 #define XAB$K_CPMFS 11 #define XAB$K_MS_DOSFS 12 #define XAB$K_ULTRIX32_FS 13 #define XAB$K_ULTRIX11_FS 14 #define XAB$M_NET_NOREAD 0x1 #define XAB$M_NET_NOWRITE 0x2 #define XAB$M_NET_NOEXECUTE 0x4 #define XAB$M_NET_NODELETE 0x8 #define XAB$M_NET_NOAPPEND 0x10 #define XAB$M_NET_NODIRECTORY 0x20 #define XAB$M_NET_NOUPDATE 0x40 #define XAB$M_NET_NOCHANGE 0x80 #define XAB$M_NET_NOEXTEND 0x100 struct xabnetextprot { __union { unsigned short int xab$w_system_acc; __struct { unsigned xab$v_net_noread : 1; unsigned xab$v_net_nowrite : 1; unsigned xab$v_net_noexecute : 1; unsigned xab$v_net_nodelete : 1; unsigned xab$v_net_noappend : 1; unsigned xab$v_net_nodirectory : 1; unsigned xab$v_net_noupdate : 1; unsigned xab$v_net_nochange : 1; unsigned xab$v_net_noextend : 1; unsigned xab$v_fill_19 : 7; } xab$r_fill_18; } xab$r_fill_17; unsigned short int xab$w_owner_acc; unsigned short int xab$w_group_acc; unsigned short int xab$w_world_acc; } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$w_system_acc xab$r_fill_17.xab$w_system_acc #define xab$v_net_noread xab$r_fill_17.xab$r_fill_18.xab$v_net_noread #define xab$v_net_nowrite xab$r_fill_17.xab$r_fill_18.xab$v_net_nowrite #define xab$v_net_noexecute xab$r_fill_17.xab$r_fill_18.xab$v_net_noexecute #define xab$v_net_nodelete xab$r_fill_17.xab$r_fill_18.xab$v_net_nodelete #define xab$v_net_noappend xab$r_fill_17.xab$r_fill_18.xab$v_net_noappend #define xab$v_net_nodirectory xab$r_fill_17.xab$r_fill_18.xab$v_net_nodirectory #define xab$v_net_noupdate xab$r_fill_17.xab$r_fill_18.xab$v_net_noupdate #define xab$v_net_nochange xab$r_fill_17.xab$r_fill_18.xab$v_net_nochange #define xab$v_net_noextend xab$r_fill_17.xab$r_fill_18.xab$v_net_noextend #endif struct XABNETDAPVER { unsigned char xab$b_ver_dap; unsigned char xab$b_ver_eco; unsigned char xab$b_ver_cus; unsigned char xab$b_ver_dsv; unsigned char xab$b_ver_csv; } ; struct XABNETCAPDEF { unsigned xab$v_cap_filall : 1; unsigned xab$v_cap_seqorg : 1; unsigned xab$v_cap_relorg : 1; unsigned xab$v_cap_fill_21 : 1; unsigned xab$v_cap_extend : 1; unsigned xab$v_cap_seqfil : 1; unsigned xab$v_cap_ranrrn : 1; unsigned xab$v_cap_ranvbn : 1; unsigned xab$v_cap_rankey : 1; unsigned xab$v_cap_fill_22 : 1; unsigned xab$v_cap_ranrfa : 1; unsigned xab$v_cap_idxorg : 1; unsigned xab$v_cap_swmode : 1; unsigned xab$v_cap_append : 1; unsigned xab$v_cap_submit : 1; unsigned xab$v_cap_fill_23 : 1; unsigned xab$v_cap_mds : 1; unsigned xab$v_cap_display : 1; unsigned xab$v_cap_msgblk : 1; unsigned xab$v_cap_unrblk : 1; unsigned xab$v_cap_bigblk : 1; unsigned xab$v_cap_dapcrc : 1; unsigned xab$v_cap_keyxab : 1; unsigned xab$v_cap_allxab : 1; unsigned xab$v_cap_sumxab : 1; unsigned xab$v_cap_directory : 1; unsigned xab$v_cap_timxab : 1; unsigned xab$v_cap_proxab : 1; unsigned xab$v_cap_fill_24 : 1; unsigned xab$v_cap_fopspl : 1; unsigned xab$v_cap_fopscf : 1; unsigned xab$v_cap_fopdlt : 1; unsigned xab$v_cap_fill_26 : 1; unsigned xab$v_cap_seqrac : 1; unsigned xab$v_cap_fill_27 : 1; unsigned xab$v_cap_bitopt : 1; unsigned xab$v_cap_warning : 1; unsigned xab$v_cap_rename : 1; unsigned xab$v_cap_wildcard : 1; unsigned xab$v_cap_gngopt : 1; unsigned xab$v_cap_nammsg : 1; unsigned xab$v_cap_segmsg : 1; unsigned xab$v_cap_chgattcls : 1; unsigned xab$v_cap_chgtimcls : 1; unsigned xab$v_cap_chgprocls : 1; unsigned xab$v_cap_chgnamcls : 1; unsigned xab$v_cap_modattcre : 1; unsigned xab$v_cap_nam3part : 1; unsigned xab$v_cap_chgattren : 1; unsigned xab$v_cap_chgtimren : 1; unsigned xab$v_cap_chgproren : 1; unsigned xab$v_cap_ctlblkcnt : 1; unsigned xab$v_cap_octalver : 1; unsigned xab$v_fill_20 : 3; } ; #define XAB$S_BUFFER_SIZE 4 #define XAB$S_NETWORK_BLOCK_COUNT 4 #define XAB$S_REMOTE_SYSTEM 4 #define XAB$S_REMOTE_FILE_SYSTEM 4 #define XAB$S_EXTPROT_LOCAL 8 #define XAB$S_EXTPROT_REMOTE 8 #define XAB$S_CAPABIL_LOCAL 8 #define XAB$S_CAPABIL_REMOTE 8 #define XAB$S_DAPVER_LOCAL 5 #define XAB$S_DAPVER_REMOTE 5 #define XAB$S_CACHE_TMO 4 #define XAB$S_HINT_LENGTH 16 #define XAB$S_GBC_LONG_LENGTH 4 #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 /* __XABITMDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:32 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 $XABJNLDEF ***/ #ifndef __XABJNLDEF_LOADED #define __XABJNLDEF_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 $xabjnldef ***/ /*++ */ /* */ /* Journal XAB definitions */ /* $xabjnldef */ /* */ /* */ #define XAB$C_JNL 34 /* xabjnl id code */ #define XAB$C_JNL_TYPE_NONE 0 #define XAB$C_AI 1 /* AI journal */ #define XAB$C_BI 2 /* BI journal */ #define XAB$C_AT 3 /* AT journal */ #define XAB$C_RU_DEFAULT 4 /* default RU volume */ #define XAB$M_JOURNAL_DISABLED 0x1 #define XAB$M_BACKUP_DONE 0x2 #define XAB$K_JNLLEN 80 #define XAB$C_JNLLEN 80 struct XABJNL { 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_xabjnl_type; /* type of $XABJNL */ char xabjnldef$$_fill_5; __union { unsigned short int xab$w_jnl_flags; /* journal flags (from ACE$W_RMSJNL_FLAGS) */ __struct { unsigned xab$v_journal_disabled : 1; /* journaling disabled by BACKUP (AI/BI/AT) */ unsigned xab$v_backup_done : 1; /* Backup done since last $OPEN */ unsigned xab$v_fill_14 : 6; } xab$r_jnl_flags_bits; } xab$r_jnl_flags_overlay; unsigned int xab$l_jnl_fab; /* address of journal file FAB */ unsigned int xab$l_volnam_buf; /* address of journal volume name buffer */ unsigned short int xab$w_volnam_siz; /* size of journal volume name buffer */ unsigned short int xab$w_volnam_len; /* return length of journal volume name */ unsigned int xab$q_jnl_verify_cdate [2]; /* journal file creation date (from ACE$Q_CDATE) */ unsigned int xab$l_jnlidx; /* Journal stream index within journal file */ unsigned int xab$l_backup_seqno; /* Backup sequence number. */ unsigned int xab$q_jnl_mod_time [2]; /* Timestamp of last backup or last journal */ int xabjnldef$$_fill_7; int xabjnldef$$_fill_8; int xabjnldef$$_fill_9; int xabjnldef$$_fill_10; int xabjnldef$$_fill_11; int xabjnldef$$_fill_12; int xabjnldef$$_fill_13; int xabjnldef$$_fill_14; } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$w_jnl_flags xab$r_jnl_flags_overlay.xab$w_jnl_flags #define xab$v_journal_disabled xab$r_jnl_flags_overlay.xab$r_jnl_flags_bits.xab$v_journal_disabled #define xab$v_backup_done xab$r_jnl_flags_overlay.xab$r_jnl_flags_bits.xab$v_backup_done #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 /* __XABJNLDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:30 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 $XABKEYDEF ***/ #ifndef __XABKEYDEF_LOADED #define __XABKEYDEF_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 $xabkeydef ***/ /*-- */ /*++ */ /* */ /* key definition xab field definitions */ /* $xabkeydef */ /* */ /* */ #define XAB$C_KEY 21 /* xabkey id code */ #define XAB$M_DUP 0x1 #define XAB$M_CHG 0x2 #define XAB$M_NUL 0x4 #define XAB$M_IDX_NCMPR 0x8 #define XAB$M_KEY_NCMPR 0x40 #define XAB$M_DAT_NCMPR 0x80 #define XAB$C_STG 0 /* string */ #define XAB$C_IN2 1 /* signed 15 bit integer (2 bytes) */ #define XAB$C_BN2 2 /* 2 byte binary */ #define XAB$C_IN4 3 /* signed 31 bit integer (4 bytes) */ #define XAB$C_BN4 4 /* 4 byte binary */ #define XAB$C_PAC 5 /* packed decimal (1-16 bytes) */ #define XAB$C_IN8 6 /* signed 63 bit integer (4 bytes) */ #define XAB$C_BN8 7 /* 8 byte binary */ #define XAB$C_COL 8 /* collated */ #define XAB$C_MAX_ASCEND 8 /* maximum ascending type */ #define XAB$C_DSTG 32 /* descending string */ #define XAB$C_DIN2 33 /* " signed word */ #define XAB$C_DBN2 34 /* " unsigned word */ #define XAB$C_DIN4 35 /* " signed longword */ #define XAB$C_DBN4 36 /* " unsigned longword */ #define XAB$C_DPAC 37 /* " packed decimal */ #define XAB$C_DIN8 38 /* " signed quadword */ #define XAB$C_DBN8 39 /* " unsigned quadword */ #define XAB$C_DCOL 40 /* " collated */ #define XAB$C_MAXDTP 40 /* max. legal data type */ #define XAB$K_KEYLEN_V2 64 /* old xabkey length */ #define XAB$C_KEYLEN_V2 64 /* old xabkey length */ #define XAB$C_PRG3 3 /* Prologue version three */ #define XAB$C_PRG2 2 /* Prologue version two */ #define XAB$C_PRG1 1 /* Prologue versoin one */ #define XAB$K_KEYLEN_V4 76 /* xabkey length until V5 */ #define XAB$C_KEYLEN_V4 76 /* xabkey length until V5 */ #define XAB$K_KEYLEN 100 /* xabkey length for V5 */ #define XAB$C_KEYLEN 100 /* xabkey length for V5 */ struct XABKEY { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB address in chain */ /* */ /* the field layout of the key xab is such that it matchs as */ /* closely as possible the layout of a key decriptor in the */ /* index file prologue. this is so the contents may be moved */ /* between the two structures as efficiently as possible. */ /* */ unsigned char xab$b_ian; /* index level area number */ unsigned char xab$b_lan; /* lowest index level area number */ unsigned char xab$b_dan; /* data level area number */ unsigned char xab$b_lvl; /* level of root bucket */ unsigned char xab$b_ibs; /* size of index buckets in virtual blocks */ unsigned char xab$b_dbs; /* size of data buckets in virtual blocks */ unsigned int xab$l_rvb; /* root bucket start vbn */ __union { unsigned char xab$b_flg; /* key option flags */ __struct { unsigned xab$v_dup : 1; /* duplicate key values allowed */ unsigned xab$v_chg : 1; /* alt key only --key field may change on update */ unsigned xab$v_nul : 1; /* alt key only --null key value enable */ unsigned xab$v_idx_ncmpr : 1; /* indicate index records for given key are not compressed */ unsigned xabkeydef$$_fill_5 : 2; /* spare */ unsigned xab$v_key_ncmpr : 1; /* indicates key is not compressed in data record */ unsigned xab$v_fill_12 : 1; } xab$r_flg_bits0; __struct { unsigned xabkeydef$$_fill_6 : 1; /* space over dup */ unsigned xabkeydef$$_fill_7 : 2; /* spare */ unsigned xabkeydef$$_fill_8 : 1; /* space over idx_ncmpr */ unsigned xabkeydef$$_fill_9 : 2; /* spare */ unsigned xabkeydef$$_fill_10 : 1; /* space over key_ncmpr */ unsigned xab$v_dat_ncmpr : 1; /* data record is not compressed */ } xab$r_flg_bits1; } xab$r_flg_overlay; unsigned char xab$b_dtp; /* key field data type */ unsigned char xab$b_nsg; /* number of key segments */ unsigned char xab$b_nul; /* nul key character */ unsigned char xab$b_tks; /* total key field size (bytes) */ unsigned char xab$b_ref; /* key of reference (0=prim key, */ unsigned short int xab$w_mrl; /* minimun record length to contain key field */ unsigned short int xab$w_ifl; /* index bucket fill size (bytes) */ unsigned short int xab$w_dfl; /* data bucket fil size (bytes) */ __union { unsigned short int xab$w_pos [8]; /* key field record offset positions */ __struct { unsigned short int xab$w_pos0; /* segment 0 */ unsigned short int xab$w_pos1; /* segment 1 */ unsigned short int xab$w_pos2; /* segment 2 */ unsigned short int xab$w_pos3; /* segment 3 */ unsigned short int xab$w_pos4; /* segment 4 */ unsigned short int xab$w_pos5; /* segment 5 */ unsigned short int xab$w_pos6; /* segment 6 */ unsigned short int xab$w_pos7; /* segment 7 */ } xab$r_pos_fields; } xab$r_pos_overlay; __union { unsigned char xab$b_siz [8]; /* key field segment sizes */ __struct { unsigned char xab$b_siz0; /* segment 0 */ unsigned char xab$b_siz1; /* segment 1 */ unsigned char xab$b_siz2; /* segment 2 */ unsigned char xab$b_siz3; /* segment 3 */ unsigned char xab$b_siz4; /* segment 4 */ unsigned char xab$b_siz5; /* segment 5 */ unsigned char xab$b_siz6; /* segment 6 */ unsigned char xab$b_siz7; /* segment 7 */ } xab$r_siz_fields; } xab$r_siz_overlay; short int xabkeydef$$_fill_11; /* spare */ void * xab$l_knm; /* pointer to 32 character key name buffer */ unsigned int xab$l_dvb; /* first data bucket start vbn */ __union { unsigned char xab$b_typ [8]; /* key field segment types */ __struct { unsigned char xab$b_typ0; /* segment 0 */ unsigned char xab$b_typ1; /* segment 1 */ unsigned char xab$b_typ2; /* segment 2 */ unsigned char xab$b_typ3; /* segment 3 */ unsigned char xab$b_typ4; /* segment 4 */ unsigned char xab$b_typ5; /* segment 5 */ unsigned char xab$b_typ6; /* segment 6 */ unsigned char xab$b_typ7; /* segment 7 */ } xab$r_typ_fields; } xab$r_typ_overlay; unsigned char xab$b_prolog; /* indicate prologue version desired (primary key only) */ char xabkeydef$$_fill_12; /* spare */ short int xabkeydef$$_fill_13; /* spare */ void * xab$l_coltbl; /* address of collate table */ unsigned int xab$l_colsiz; /* size of collate table */ void * xab$l_colnam; /* name of collate table */ int xabkeydef$$_fill_14; /* spare */ int xabkeydef$$_fill_15; /* spare */ int xabkeydef$$_fill_16; /* spare */ } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$b_flg xab$r_flg_overlay.xab$b_flg #define xab$v_dup xab$r_flg_overlay.xab$r_flg_bits0.xab$v_dup #define xab$v_chg xab$r_flg_overlay.xab$r_flg_bits0.xab$v_chg #define xab$v_nul xab$r_flg_overlay.xab$r_flg_bits0.xab$v_nul #define xab$v_idx_ncmpr xab$r_flg_overlay.xab$r_flg_bits0.xab$v_idx_ncmpr #define xab$v_key_ncmpr xab$r_flg_overlay.xab$r_flg_bits0.xab$v_key_ncmpr #define xab$v_dat_ncmpr xab$r_flg_overlay.xab$r_flg_bits1.xab$v_dat_ncmpr #define xab$w_pos xab$r_pos_overlay.xab$w_pos #define xab$w_pos0 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos0 #define xab$w_pos1 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos1 #define xab$w_pos2 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos2 #define xab$w_pos3 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos3 #define xab$w_pos4 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos4 #define xab$w_pos5 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos5 #define xab$w_pos6 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos6 #define xab$w_pos7 xab$r_pos_overlay.xab$r_pos_fields.xab$w_pos7 #define xab$b_siz xab$r_siz_overlay.xab$b_siz #define xab$b_siz0 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz0 #define xab$b_siz1 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz1 #define xab$b_siz2 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz2 #define xab$b_siz3 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz3 #define xab$b_siz4 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz4 #define xab$b_siz5 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz5 #define xab$b_siz6 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz6 #define xab$b_siz7 xab$r_siz_overlay.xab$r_siz_fields.xab$b_siz7 #define xab$b_typ xab$r_typ_overlay.xab$b_typ #define xab$b_typ0 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ0 #define xab$b_typ1 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ1 #define xab$b_typ2 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ2 #define xab$b_typ3 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ3 #define xab$b_typ4 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ4 #define xab$b_typ5 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ5 #define xab$b_typ6 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ6 #define xab$b_typ7 xab$r_typ_overlay.xab$r_typ_fields.xab$b_typ7 #endif /* These are tradtional macros that should be hand-maintained for compatibility */ #define XAB$V_DUP 0 /* duplicate key value allowed */ #define XAB$V_CHG 1 /* may change on update (alternate keys only) */ #define XAB$V_NUL 2 /* null key value enable (alternate keys only) */ #define XAB$V_IDX_NCMPR 3 /* indicates index records are not compressed */ #define XAB$V_KEY_NCMPR 6 /* indicates primary key is not compressed */ #define XAB$V_DAT_NCMPR 7 /* indicated data record is not compressed */ /* Note: if you wish to access these field as defined in the struct, * #undef these macros in your code */ #ifndef __cplusplus #undef xab$w_pos #undef xab$b_siz #undef xab$b_typ #define xab$w_pos xab$w_pos0 #define xab$b_siz xab$b_siz0 #define xab$b_typ xab$b_typ0 #endif #define cc$rms_xabkey (*decc$ga_rms_xabkey) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABKEY cc$rms_xabkey; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABKEY cc$rms_xabkey; /* 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 /* __XABKEYDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:29 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 $XABPRODEF ***/ #ifndef __XABPRODEF_LOADED #define __XABPRODEF_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 $xabprodef ***/ /*-- */ /*++ */ /* */ /* protection xab field definitions */ /* $xabprodef */ /* */ /* */ #define XAB$C_PRO 19 /* xabpro id code */ #define XAB$M_NOREAD 0x1 #define XAB$M_NOWRITE 0x2 #define XAB$M_NOEXE 0x4 #define XAB$M_NODEL 0x8 union xabprodef { __struct { unsigned xab$v_noread : 1; /* deny read access */ unsigned xab$v_nowrite : 1; /* deny write access */ unsigned xab$v_noexe : 1; /* deny execution access */ unsigned xab$v_nodel : 1; /* deny delete access */ unsigned xab$v_fill_10 : 4; } xab$r_xabprodef_bits; } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$v_noread xab$r_xabprodef_bits.xab$v_noread #define xab$v_nowrite xab$r_xabprodef_bits.xab$v_nowrite #define xab$v_noexe xab$r_xabprodef_bits.xab$v_noexe #define xab$v_nodel xab$r_xabprodef_bits.xab$v_nodel #endif #define XAB$M_PROPAGATE 0x1 #define XAB$K_PROLEN_V3 16 /* V3a xabpro length */ #define XAB$C_PROLEN_V3 16 /* V3a xabpro length */ #define XAB$K_PROLEN 88 /* xabpro length */ #define XAB$C_PROLEN 88 /* xabpro length */ struct XABPRO { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ __union { unsigned short int xab$w_pro; /* protection mask */ __struct { unsigned xab$v_sys : 4; /* system */ unsigned xab$v_own : 4; /* owner */ unsigned xab$v_grp : 4; /* group */ unsigned xab$v_wld : 4; /* world */ } xab$r_pro_bits; } xab$r_pro_overlay; unsigned char xab$b_mtacc; /* Magtape access control char. */ __union { unsigned char xab$b_prot_opt; /* XABPRO options field */ __struct { unsigned xab$v_propagate : 1; /* Propagate security attributes on $ENTER and $RENAME */ unsigned xab$v_fill_11 : 7; } xab$r_prot_opt_fields; } xab$r_prot_opt_overlay; __union { unsigned int xab$l_uic; /* uic code */ __struct { unsigned short int xab$w_mbm; /* member code */ unsigned short int xab$w_grp; /* group code */ } xab$r_uic_fields; } xab$r_uic_overlay; __union { /* RWED/mode protection for file */ int xab$q_prot_mode [2]; /* eventually may be a quadword */ __struct { unsigned char xab$b_prot_mode; /* but currently only a byte */ } xab$r_prot_mode_fields; } xab$r_prot_mode_overlay; void * xab$l_aclbuf; /* address of user's ACL buffer */ unsigned short int xab$w_aclsiz; /* size of user's ACL buffer */ unsigned short int xab$w_acllen; /* return length of entire ACL */ unsigned int xab$l_aclctx; /* ACL context field */ unsigned int xab$l_aclsts; /* ACL return err status */ int xabprodef$$_fill_10; /* spare */ int xabprodef$$_fill_11; /* spare */ int xabprodef$$_fill_12; /* spare */ int xabprodef$$_fill_13; /* spare */ int xabprodef$$_fill_14; /* spare */ int xabprodef$$_fill_15; /* spare */ int xabprodef$$_fill_16; /* spare */ int xabprodef$$_fill_17; /* spare */ int xabprodef$$_fill_18; /* spare */ int xabprodef$$_fill_19; /* spare */ int xabprodef$$_fill_20; /* spare */ int xabprodef$$_fill_21; /* spare */ } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$w_pro xab$r_pro_overlay.xab$w_pro #define xab$v_sys xab$r_pro_overlay.xab$r_pro_bits.xab$v_sys #define xab$v_own xab$r_pro_overlay.xab$r_pro_bits.xab$v_own #define xab$v_grp xab$r_pro_overlay.xab$r_pro_bits.xab$v_grp #define xab$v_wld xab$r_pro_overlay.xab$r_pro_bits.xab$v_wld #define xab$b_prot_opt xab$r_prot_opt_overlay.xab$b_prot_opt #define xab$v_propagate xab$r_prot_opt_overlay.xab$r_prot_opt_fields.xab$v_propagate #define xab$l_uic xab$r_uic_overlay.xab$l_uic #define xab$w_mbm xab$r_uic_overlay.xab$r_uic_fields.xab$w_mbm #define xab$w_grp xab$r_uic_overlay.xab$r_uic_fields.xab$w_grp #define xab$q_prot_mode xab$r_prot_mode_overlay.xab$q_prot_mode #define xab$b_prot_mode xab$r_prot_mode_overlay.xab$r_prot_mode_fields.xab$b_prot_mode #endif /* These are tradtional macros that should be hand-maintained for compatibility */ #define XAB$V_SYS 0 /* system */ #define XAB$S_SYS 4 #define XAB$V_OWN 4 /* owner */ #define XAB$S_OWN 4 #define XAB$V_GRP 8 /* group */ #define XAB$S_GRP 4 #define XAB$V_WLD 12 /* world */ #define XAB$S_WLD 4 #define XAB$V_NOREAD 0 /* deny read access */ #define XAB$V_NOWRITE 1 /* deny write access */ #define XAB$V_NOEXE 2 /* deny execution access */ #define XAB$V_NODEL 3 /* deny delete access */ #define XAB$V_PROPOGATE 0 /* propogate security attributes on $ENTER and $RENAME */ #define XAB$M_PROPOGATE (1 << XAB$V_PROPOGATE) #define cc$rms_xabpro (*decc$ga_rms_xabpro) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABPRO cc$rms_xabpro; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABPRO cc$rms_xabpro; /* 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 /* __XABPRODEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:29 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 $XABRDTDEF ***/ #ifndef __XABRDTDEF_LOADED #define __XABRDTDEF_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 #ifndef __VMS_DATE #define __VMS_DATE 1 struct __vms_date { int : 32; int : 32; }; #endif /*** MODULE $xabrdtdef ***/ /*-- */ /*++ */ /* */ /* revision date/time xab definitions */ /* $xabrdtdef */ #define XAB$C_RDT 30 /* xabrdt id code */ #define XAB$K_RDTLEN 20 /* length of rdt xab */ #define XAB$C_RDTLEN 20 /* length of rdt xab */ struct XABRDT { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ unsigned short xab$w_rvn; /* revision number */ short int xabrdtdef$$_fill_6; /* spare */ struct __vms_date xab$q_rdt; /* revision date and time */ } ; #define cc$rms_xabrdt (*decc$ga_rms_xabrdt) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABRDT cc$rms_xabrdt; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABRDT cc$rms_xabrdt; /* 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 /* __XABRDTDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:33 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 $XABRUDEF ***/ #ifndef __XABRUDEF_LOADED #define __XABRUDEF_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 $xabrudef ***/ /*++ */ /* */ /* Recovery Unit XAB definitions */ /* $xabrudef */ /* */ /* */ #define XAB$C_RU 35 /* xabru id code */ #define XAB$M_NOJOIN 0x1 #define XAB$K_RULEN 48 #define XAB$C_RULEN 48 struct XABRU { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ __union { unsigned short int xab$w_ru_flags; /* Flags */ __struct { unsigned xab$v_nojoin : 1; /* Do not join any recovery unit */ unsigned xab$v_fill_21 : 7; } xab$r_ru_flags_bits; } xab$r_ru_flags_overlay; short int xabrudef$$_fill_5; unsigned int xab$l_ru_handle; /* RU handle to join (input field) */ unsigned int xab$l_ru_handle_joined; /* RU handle joined (output field) */ int xabrudef$$_fill_7; int xabrudef$$_fill_8; int xabrudef$$_fill_9; int xabrudef$$_fill_10; int xabrudef$$_fill_11; int xabrudef$$_fill_12; int xabrudef$$_fill_13; } ; #if !defined(__VAXC) && !defined(VAXC) #define xab$w_ru_flags xab$r_ru_flags_overlay.xab$w_ru_flags #define xab$v_nojoin xab$r_ru_flags_overlay.xab$r_ru_flags_bits.xab$v_nojoin #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 /* __XABRUDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:30 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 $XABSUMDEF ***/ #ifndef __XABSUMDEF_LOADED #define __XABSUMDEF_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 $xabsumdef ***/ /*-- */ /*++ */ /* */ /* summary xab field definitions */ /* $xabsumdef */ /* */ /* */ #define XAB$C_SUM 22 /* xabsum id code */ #define XAB$K_SUMLEN 12 /* xabsum length */ #define XAB$C_SUMLEN 12 /* xabsum length */ struct XABSUM { 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_noa; /* number of defined areas for index file */ unsigned char xab$b_nok; /* number of defined keys for index file */ unsigned short int xab$w_pvn; /* prologue version number (relative and index files) */ } ; #define cc$rms_xabsum (*decc$ga_rms_xabsum) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABSUM cc$rms_xabsum; /* Declare initialized prototype data structures */ # pragma __extern_model __restore #else globalref struct XABSUM cc$rms_xabsum; /* 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 /* __XABSUMDEF_LOADED */ /********************************************************************************************************************************/ /* Created: 19-JUN-1992 18:08:30 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 $XABTRMDEF ***/ #ifndef __XABTRMDEF_LOADED #define __XABTRMDEF_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 $xabtrmdef ***/ /*-- */ /*++ */ /* */ /* terminal control xab field definitions */ /* $xabtrmdef */ /* */ /* */ /* */ #define XAB$C_TRM 31 /*XABTRM ID CODE */ #define XAB$K_TRMLEN 36 /* length of xab of type terminal control */ #define XAB$C_TRMLEN 36 /* length of xab of type terminal control */ struct XABTRM { unsigned char xab$b_cod; unsigned char xab$b_bln; unsigned : 16; /* spare */ void *xab$l_nxt; /* Next XAB in chain */ void *xab$l_itmlst; /* item list address */ unsigned short int xab$w_itmlst_len; /* item list length */ short int xabtrmdef$$_fill_5; /* spare */ int xabtrmdef$$_fill_6; /* spare */ int xabtrmdef$$_fill_7; /* spare */ int xabtrmdef$$_fill_8; /* spare */ int xabtrmdef$$_fill_9; /* spare */ int xabtrmdef$$_fill_10; /* spare */ } ; #define cc$rms_xabtrm (*decc$ga_rms_xabtrm) #if defined(__DECC) || defined(__DECCXX) # pragma __extern_model __save # pragma __extern_model __strict_refdef extern struct XABTRM cc$rms_xabtrm; /* declare initialized prototype data structure */ # pragma __extern_model __restore #else globalref struct XABTRM cc$rms_xabtrm; /* declare initialized prototype data structure */ #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 /* __XABTRMDEF_LOADED */