!*** MODULE $LSRFDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! Module-local Symbol reference (LSY$M_DEF in LSY$W_FLAGS is 0) ! PARAMETER LSRF$K_NAME = '00000007'X PARAMETER LSRF$C_NAME = '00000007'X STRUCTURE /LSRFDEF/ UNION MAP BYTE LSRF$B_GSDTYP ! Maps over LSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 LSRF$T_START BYTE %FILL END MAP END UNION BYTE LSRF$B_DATYP ! Maps over LSY$B_DATYP INTEGER*2 LSRF$W_FLAGS ! Maps over LSY$W_FLAGS INTEGER*2 LSRF$W_ENVINDX ! Maps over LSY$W_ENVINDX BYTE LSRF$B_NAMLNG ! Length of symbol name CHARACTER*31 LSRF$T_NAME ! Symbol name END STRUCTURE ! LSRFDEF !DEC$ END OPTIONS