!*** MODULE $SDFVDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Symbol definition for vectored symbols ! PARAMETER SDFV$K_NAME = '0000000E'X PARAMETER SDFV$C_NAME = '0000000E'X STRUCTURE /SDFVDEF/ UNION MAP BYTE SDFV$B_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 SDFV$T_START BYTE %FILL END MAP END UNION BYTE SDFV$B_DATYP ! Maps over GSY$B_DATYP INTEGER*2 SDFV$W_FLAGS ! Maps over GSY$W_FLAGS BYTE SDFV$B_PSINDX ! Owning psect number INTEGER*4 SDFV$L_VALUE ! Value of symbol INTEGER*4 SDFV$L_VECTOR ! Vectored value of symbol BYTE SDFV$B_NAMLNG ! Length of name CHARACTER*31 SDFV$T_NAME ! Symbol name END STRUCTURE ! SDFVDEF !DEC$ END OPTIONS