! *** PREDECLARED TYPES %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN RECORD BASIC$QUADWORD LONG FILL ( 2 ) END RECORD %LET %BASIC$QUADWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN RECORD BASIC$OCTAWORD LONG FILL ( 4 ) END RECORD %LET %BASIC$OCTAWORD_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN RECORD BASIC$HFLOAT_AXP LONG FILL ( 4 ) END RECORD %LET %BASIC$HFLOAT_AXP_DECLARED = 1 %END %IF %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$F_FLOATING_COMPLEX SINGLE REAL_PART SINGLE IMAGINARY_PART END RECORD %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$D_FLOATING_COMPLEX DOUBLE REAL_PART DOUBLE IMAGINARY_PART END RECORD %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN RECORD BASIC$G_FLOATING_COMPLEX GFLOAT REAL_PART GFLOAT IMAGINARY_PART END RECORD %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1 %END %IF %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN RECORD BASIC$H_FLOATING_COMPLEX_AXP BASIC$HFLOAT_AXP REAL_PART BASIC$HFLOAT_AXP IMAGINARY_PART END RECORD %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1 %END %IF DECLARE LONG CONSTANT MAPPING$K_ADD = 1 DECLARE LONG CONSTANT MAPPING$K_CREATE = 2 DECLARE LONG CONSTANT MAPPING$K_DEFINE = 3 DECLARE LONG CONSTANT MAPPING$K_DELETE = 4 DECLARE LONG CONSTANT MAPPING$K_MODIFY = 5 DECLARE LONG CONSTANT MAPPING$K_SCAN = 6 DECLARE LONG CONSTANT MAPPING$K_LOOKUP = 7 DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE = 8 DECLARE LONG CONSTANT MAPPING$K_ZERO_PERFORMANCE = 9 DECLARE LONG CONSTANT MAPPING$K_STOP = 10 DECLARE LONG CONSTANT MAPPING$K_START = 11 DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_CODE = 12 DECLARE LONG CONSTANT MAPPING$K_END = 100 DECLARE LONG CONSTANT MAPPING$K_TYPE = 101 DECLARE LONG CONSTANT MAPPING$K_REMOTE_AREA = 102 DECLARE LONG CONSTANT MAPPING$K_REMOTE_NAME = 103 DECLARE LONG CONSTANT MAPPING$K_LOCAL_NAME = 104 DECLARE LONG CONSTANT MAPPING$K_FLAGS = 105 DECLARE LONG CONSTANT MAPPING$K_USER_DATA = 106 DECLARE LONG CONSTANT MAPPING$K_USER_DATA_LENGTH = 107 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_MC = 108 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_SC = 109 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_TC = 110 DECLARE LONG CONSTANT MAPPING$K_WILDCARD_TS = 111 DECLARE LONG CONSTANT MAPPING$K_DEFINE_NAME = 112 DECLARE LONG CONSTANT MAPPING$K_DEFINE_FLAGS = 113 DECLARE LONG CONSTANT MAPPING$K_SCAN_BUFFER = 114 DECLARE LONG CONSTANT MAPPING$K_PROPOSED_NAME = 115 DECLARE LONG CONSTANT MAPPING$K_WC_RESOLUTION = 116 DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_ITEMS = 117 DECLARE LONG CONSTANT MAPPING$K_WC_MUST_BE_UNIQUE = 200 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LONGEST = 201 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_SHORTEST = 202 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_MOST_TERMS = 203 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_FEWEST_TERMS = 204 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_LEFTMOST = 205 DECLARE LONG CONSTANT MAPPING$K_WC_MATCH_RIGHTMOST = 206 DECLARE LONG CONSTANT MAPPING$K_MAX_MAPPING_WC = 207 DECLARE LONG CONSTANT MAPPING$K_ANY_TYPE = X"80000000"L DECLARE LONG CONSTANT MAPPING$K_TCP_USER = -2147483391 DECLARE LONG CONSTANT MAPPING$K_TCP_GROUP = -2147483390 DECLARE LONG CONSTANT MAPPING$K_TCP_PROXY = -2147483389 DECLARE LONG CONSTANT MAPPING$K_DCE_MAPPING = -2147483135 DECLARE LONG CONSTANT MAPPING$K_DCE_PROXY = -2147483134 DECLARE LONG CONSTANT MAPPING$K_PATHWORKS_PROXY = -2147482879 DECLARE LONG CONSTANT MAPPING$K_DECNET_PROXY = -2147482623 DECLARE LONG CONSTANT MAPPING$K_KERBEROS_MAPPING = -2147482367 DECLARE LONG CONSTANT MAPPING$K_PERFORMANCE_LENGTH = 56 DECLARE LONG CONSTANT MAPPING$S_MAPPING$PERFORMANCE = 56 record MAPPING$PERFORMANCE LONG MAPPING$L_TOTAL_MESSAGES LONG MAPPING$L_TOTAL_EXCEPTIONS LONG MAPPING$L_ADDS LONG MAPPING$L_CREATES LONG MAPPING$L_DEFINESS LONG MAPPING$L_DELETES LONG MAPPING$L_MODIFYS LONG MAPPING$L_SCANS LONG MAPPING$L_LOOKUPS LONG MAPPING$L_PERFORMANCE LONG MAPPING$L_STOPS LONG MAPPING$L_STARTS LONG MAPPING$L_AUDITS LONG MAPPING$L_INVALID_MESSAGES end record MAPPING$PERFORMANCE DECLARE LONG CONSTANT MAPPING$M_LOCAL_UNIQUE = x'00000001' DECLARE LONG CONSTANT MAPPING$M_REMOTE_UNIQUE = x'00000002' DECLARE LONG CONSTANT MAPPING$M_DEFAULT_IN = x'00000004' DECLARE LONG CONSTANT MAPPING$M_DEFAULT_OUT = x'00000008' DECLARE LONG CONSTANT MAPPING$M_NO_DEFAULT_IN = x'00000010' DECLARE LONG CONSTANT MAPPING$M_NO_DEFAULT_OUT = x'00000020' DECLARE LONG CONSTANT MAPPING$M_MODIFY = x'00000040' DECLARE LONG CONSTANT MAPPING$M_DEFINITION = x'00000080' DECLARE LONG CONSTANT MAPPING$M_CASE_BLIND = x'00000100' DECLARE LONG CONSTANT MAPPING$M_WILDCARD = x'00000200' DECLARE LONG CONSTANT MAPPING$M_FIND_LOCAL = x'00000400' DECLARE LONG CONSTANT MAPPING$M_FIND_REMOTE = x'00000800' DECLARE LONG CONSTANT MAPPING$M_FILL_1 = x'FFFFF000' DECLARE LONG CONSTANT MAPPING$K_HEADER_LENGTH = 40 DECLARE LONG CONSTANT MAPPING$S_MAPPING$HEADER = 40 record MAPPING$HEADER LONG MAPPING$L_LENGTH LONG MAPPING$L_CONTEXT group MAPPING$R_FILL_7_ variant case LONG MAPPING$L_FLAGS case group MAPPING$R_FILL_8_ LONG LOCAL_UNIQUE_bits ! COMMENT ADDED BY SDL - LOCAL_UNIQUE_bits contains bits LOCAL_UNIQUE through FILL_1 end group MAPPING$R_FILL_8_ end variant end group MAPPING$R_FILL_7_ LONG MAPPING$L_TYPE LONG MAPPING$L_WILDFLAGS LONG MAPPING$L_WILDMULTI LONG MAPPING$L_WILDSINGLE LONG MAPPING$L_WILDTERM LONG MAPPING$L_TERMSEP LONG MAPPING$L_UNUSED end record MAPPING$HEADER DECLARE LONG CONSTANT MAPPING$S_MAPPING$GENERIC_DESC1 = 5 record MAPPING$GENERIC_DESC1 WORD MAPPING$W_DESC_LENGTH WORD MAPPING$W_FILL1 STRING MAPPING$T_DESC_DATA = 1 end record MAPPING$GENERIC_DESC1