!*** MODULE $ESDFMDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! EVAX Symbol definition for version mask symbols ! PARAMETER ESDFM$K_NAME = '00000019'X PARAMETER ESDFM$C_NAME = '00000019'X STRUCTURE /ESDFMDEF/ UNION MAP INTEGER*2 ESDFM$W_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 ESDFM$T_START BYTE %FILL END MAP END UNION INTEGER*2 ESDFM$W_SIZE ! size of this ESDFM BYTE ESDFM$B_DATYP ! Maps over GSY$B_DATYP BYTE ESDFM$B_TEMP ! pad for alignment INTEGER*2 ESDFM$W_FLAGS ! Maps over GSY$W_FLAGS UNION MAP INTEGER*4 ESDFM$Q_VALUE(2) END MAP MAP INTEGER*4 ESDFM$L_VALUE END MAP END UNION INTEGER*4 ESDFM$L_PSINDX ! Owning psect number INTEGER*4 ESDFM$L_VERSION_MASK ! Mask for symbol BYTE ESDFM$B_NAMLNG ! Length of name CHARACTER*31 ESDFM$T_NAME ! Symbol name END STRUCTURE ! ESDFMDEF !DEC$ END OPTIONS