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