/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]STARDEFFL.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE $JPIFDEF ***/ #ifndef __JPIFDEF_LOADED #define __JPIFDEF_LOADED 1 #pragma __nostandard /* This file uses non-ANSI-Standard features */ #pragma __member_alignment __save #pragma __nomember_alignment #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __save /* Save the previously-defined required ptr size */ #pragma __required_pointer_size __short /* And set ptr size default to 32-bit pointers */ #endif #ifdef __cplusplus extern "C" { #define __unknown_params ... #define __optional_params ... #else #define __unknown_params #define __optional_params ... #endif #ifndef __struct #if !defined(__VAXC) #define __struct struct #else #define __struct variant_struct #endif #endif #ifndef __union #if !defined(__VAXC) #define __union union #else #define __union variant_union #endif #endif /*+ */ /* */ /* Get Job Process Information "Fast" Data Identifier Definitions */ /* */ /*- */ #define JPIF$M_UASTACT 0x1 #define JPIF$C_UASTACT 0 #define JPIF$M_RMS_DFMBC 0x2 #define JPIF$C_RMS_DFMBC 1 #define JPIF$M_PARSE_STYLE_PERM 0x4 #define JPIF$C_PARSE_STYLE_PERM 2 #define JPIF$M_PARSE_STYLE_IMAGE 0x8 #define JPIF$C_PARSE_STYLE_IMAGE 3 #define JPIF$M_LOGINTIM_L 0x10 #define JPIF$C_LOGINTIM_L 4 #define JPIF$M_LOGINTIM_H 0x20 #define JPIF$C_LOGINTIM_H 5 #define JPIF$M_CPUTIM 0x40 #define JPIF$C_CPUTIM 6 #ifdef __NEW_STARLET typedef struct _jpifdef { __union { unsigned __int64 jpif$q_jpifitems; __struct { unsigned jpif$v_uastact : 1; /* User mode AST active */ unsigned jpif$v_rms_dfmbc : 1; /* RMS default multi-block count */ unsigned jpif$v_parse_style_perm : 1; /* Permanent parse style */ unsigned jpif$v_parse_style_image : 1; /* Image parse style */ unsigned jpif$v_logintim_l : 1; /* Login time - low LW */ unsigned jpif$v_logintim_h : 1; /* Login time - high LW */ unsigned jpif$v_cputim : 1; /* Process accumulated CPU time */ unsigned jpif$v_fill_69_ : 1; } jpif$r_fill_68_; } jpif$r_fill_67_; } JPIFDEF; #if !defined(__VAXC) #define jpif$v_uastact jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_uastact #define jpif$v_rms_dfmbc jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_rms_dfmbc #define jpif$v_parse_style_perm jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_parse_style_perm #define jpif$v_parse_style_image jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_parse_style_image #define jpif$v_logintim_l jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_logintim_l #define jpif$v_logintim_h jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_logintim_h #define jpif$v_cputim jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_cputim #endif /* #if !defined(__VAXC) */ #else /* __OLD_STARLET */ struct jpifdef { __union { unsigned int jpif$q_jpifitems [2]; __struct { unsigned jpif$v_uastact : 1; /* User mode AST active */ unsigned jpif$v_rms_dfmbc : 1; /* RMS default multi-block count */ unsigned jpif$v_parse_style_perm : 1; /* Permanent parse style */ unsigned jpif$v_parse_style_image : 1; /* Image parse style */ unsigned jpif$v_logintim_l : 1; /* Login time - low LW */ unsigned jpif$v_logintim_h : 1; /* Login time - high LW */ unsigned jpif$v_cputim : 1; /* Process accumulated CPU time */ unsigned jpif$v_fill_69_ : 1; } jpif$r_fill_68_; } jpif$r_fill_67_; } ; #if !defined(__VAXC) #define jpif$v_uastact jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_uastact #define jpif$v_rms_dfmbc jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_rms_dfmbc #define jpif$v_parse_style_perm jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_parse_style_perm #define jpif$v_parse_style_image jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_parse_style_image #define jpif$v_logintim_l jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_logintim_l #define jpif$v_logintim_h jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_logintim_h #define jpif$v_cputim jpif$r_fill_67_.jpif$r_fill_68_.jpif$v_cputim #endif /* #if !defined(__VAXC) */ #endif /* #ifdef __NEW_STARLET */ #pragma __member_alignment __restore #ifdef __INITIAL_POINTER_SIZE /* Defined whenever ptr size pragmas supported */ #pragma __required_pointer_size __restore /* Restore the previously-defined required ptr size */ #endif #ifdef __cplusplus } #endif #pragma __standard #endif /* __JPIFDEF_LOADED */