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