!********************************************************************************************************************************
 ! Created:  3-JAN-2006 15:37:15 by OpenVMS SDL EV1-31     
 ! Source:   3-JAN-2006 15:37:15 CDD$ALPHA_72:[CODE]CDDTAGS.SDL;1 
 !********************************************************************************************************************************
      ! *** 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
     
    
    !*** MODULE CDDTAGS IDENT V7.0-03590 ***
    
    
    ! ----------------------------------------------------------------------------
    ! 
    !  Copyright Oracle Corporation 1988, 2004.  All Rights Reserved.
    ! 
    ! ----------------------------------------------------------------------------
    ! 
    !   FACILITY:
    ! 
    !       Oracle CDD Repository - NAD
    ! 
    !   ABSTRACT:
    ! 
    ! 	This module defines tag values and constants used to build the 
    ! 	buffers that describe metadata to NAD.  These definitions are 
    ! 	public.
    ! 
    ! ------------------------------------------------------------------------------
    ! 
    ! ~
    !    Longword tag values to distinguish the types of buffers.
    ! ~
      DECLARE LONG CONSTANT cdd$k_metadata_buf_dsc = 2818049
      DECLARE LONG CONSTANT cdd$k_directory_info_dsc = 2818050
      DECLARE LONG CONSTANT cdd$k_dictionary_within_query = 2818051
      DECLARE LONG CONSTANT cdd$k_metadata_change = 2818052
      DECLARE LONG CONSTANT cdd$k_message_buf_dsc = 2818053
      DECLARE LONG CONSTANT cdd$k_protocol_definition = 2818054
      DECLARE LONG CONSTANT cdd$k_edit_string_dsc = 2818055
      DECLARE LONG CONSTANT cdd$k_text_buffer_dsc = 2818056
      DECLARE LONG CONSTANT cdd$k_validation_dsc = 2818057
      DECLARE LONG CONSTANT cdd$k_acl_dsc = 2818058
      DECLARE LONG CONSTANT cdd$k_version_buf_dsc = 2818059
      DECLARE LONG CONSTANT cdd$k_msgarg_buf_dsc = 2818060
      DECLARE LONG CONSTANT cdd$k_expression_buf_dsc = 2818146
    ! +
    !  the following are additional legal values for datatype subtype, but
    !  are not stored as buffers
    ! -
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_W;
      DECLARE LONG CONSTANT cdd$k_dtype_smallint = 7
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_L;
      DECLARE LONG CONSTANT cdd$k_dtype_longint = 8
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_B;
      DECLARE LONG CONSTANT cdd$k_dtype_boolean = 6
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_ADT
      DECLARE LONG CONSTANT cdd$k_dtype_vmstime = 35
      DECLARE LONG CONSTANT cdd$k_dtype_datetime = 2818147
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_F;
      DECLARE LONG CONSTANT cdd$k_dtype_float = 10
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_D;
      DECLARE LONG CONSTANT cdd$k_dtype_double = 27
    !  Never change this??? Must be same as VMS DSC$K_DTYPE_T;
      DECLARE LONG CONSTANT cdd$k_dtype_stringdsc = 14
    !  The following 2 should be the same, elmid should be replaced by Elementid
      DECLARE LONG CONSTANT cdd$k_dtype_elementid = 2818149
      DECLARE LONG CONSTANT cdd$k_dtype_elmid = 2818149
      DECLARE LONG CONSTANT cdd$k_dtype_argspec = 2818150
      DECLARE LONG CONSTANT cdd$k_dtype_list = 2818151
      DECLARE LONG CONSTANT cdd$k_dtype_scan = 2818152
      DECLARE LONG CONSTANT cdd$k_dtype_string = 2818153
      DECLARE LONG CONSTANT cdd$k_dtype_notice = 2818155
      DECLARE LONG CONSTANT cdd$k_dtype_memblock = 2818156
      DECLARE LONG CONSTANT cdd$k_dtype_unspecified = 2818157
      DECLARE LONG CONSTANT cdd$k_dtr_field_tree_buffer = 9240577
    ! ~
    !    Metadata buffer tokens.
    ! ~
      DECLARE LONG CONSTANT cdd$k_buf_low = 1
      DECLARE LONG CONSTANT cdd$k_begin = 1
      DECLARE LONG CONSTANT cdd$k_entity = 2
      DECLARE LONG CONSTANT cdd$k_attribute_list = 3
      DECLARE LONG CONSTANT cdd$k_attribute = 4
      DECLARE LONG CONSTANT cdd$k_attribute_protocol = 4
      DECLARE LONG CONSTANT cdd$k_end = 5
      DECLARE LONG CONSTANT cdd$k_relationship_list = 6
      DECLARE LONG CONSTANT cdd$k_relationship = 7
      DECLARE LONG CONSTANT cdd$k_eoc = 8
    !  missing
      DECLARE LONG CONSTANT cdd$k_all_attributes = 10
      DECLARE LONG CONSTANT cdd$k_all = 11
      DECLARE LONG CONSTANT cdd$k_all_relationships = 12
      DECLARE LONG CONSTANT cdd$k_using = 13
    !  missing
      DECLARE LONG CONSTANT cdd$k_directory_name = 15
      DECLARE LONG CONSTANT cdd$k_relationship_protocol = 16
    !  missing
      DECLARE LONG CONSTANT cdd$k_entity_protocol = 18
    !  missing
      DECLARE LONG CONSTANT cdd$k_literal = 20
      DECLARE LONG CONSTANT cdd$k_query = 21
      DECLARE LONG CONSTANT cdd$k_structure = 22
      DECLARE LONG CONSTANT cdd$k_member_list = 23
    !  <missing>
      DECLARE LONG CONSTANT cdd$k_missing = 25
      DECLARE LONG CONSTANT cdd$k_not_valid = 26
    !  <missing>
    !  <missing>
      DECLARE LONG CONSTANT cdd$k_element_handle = 29
      DECLARE LONG CONSTANT cdd$k_type = 30
      DECLARE LONG CONSTANT cdd$k_start_element_hndl = 31
      DECLARE LONG CONSTANT cdd$k_within_exp = 32
      DECLARE LONG CONSTANT cdd$k_attribute_change = 33
      DECLARE LONG CONSTANT cdd$k_sub_object_change = 34
      DECLARE LONG CONSTANT cdd$k_attribute_modify = 35
      DECLARE LONG CONSTANT cdd$k_attribute_remove = 36
      DECLARE LONG CONSTANT cdd$k_remove_relationship = 37
      DECLARE LONG CONSTANT cdd$k_create_relationship = 38
    !  missing
    !  missing
      DECLARE LONG CONSTANT cdd$k_attributes_used = 41
      DECLARE LONG CONSTANT cdd$k_relationships_owned = 42
      DECLARE LONG CONSTANT cdd$k_relationship_members = 43
      DECLARE LONG CONSTANT cdd$k_required = 44
      DECLARE LONG CONSTANT cdd$k_ordering = 45
      DECLARE LONG CONSTANT cdd$k_message_list = 46
      DECLARE LONG CONSTANT cdd$k_message = 47
    !  missing
    !  missing
    !  missing
    !  missing
      DECLARE LONG CONSTANT cdd$k_no_owner_no_member = 53
      DECLARE LONG CONSTANT cdd$k_owning_relationship = 54
      DECLARE LONG CONSTANT cdd$k_owned_by_relationship = 55
      DECLARE LONG CONSTANT cdd$k_modify = 57
      DECLARE LONG CONSTANT cdd$k_define = 58
      DECLARE LONG CONSTANT cdd$k_delete = 59
      DECLARE LONG CONSTANT cdd$k_drop_attributes = 60
      DECLARE LONG CONSTANT cdd$k_drop_members = 61
      DECLARE LONG CONSTANT cdd$k_drop_relationships = 62
      DECLARE LONG CONSTANT cdd$k_optional = 63
      DECLARE LONG CONSTANT cdd$k_no_order = 64
      DECLARE LONG CONSTANT cdd$k_owned_by_relationship_all = 65
      DECLARE LONG CONSTANT cdd$k_owning_relationship_all = 66
    !  missing
    !  missing
      DECLARE LONG CONSTANT cdd$k_text_segment = 69
      DECLARE LONG CONSTANT cdd$k_validation_protocol = 70
      DECLARE LONG CONSTANT cdd$k_validations_used = 71
      DECLARE LONG CONSTANT cdd$k_drop_validations = 72
      DECLARE LONG CONSTANT cdd$k_validation_rule = 73
      DECLARE LONG CONSTANT cdd$k_validation_query = 74
      DECLARE LONG CONSTANT cdd$k_call_back = 75
      DECLARE LONG CONSTANT cdd$k_action = 76
      DECLARE LONG CONSTANT cdd$k_filename = 77
      DECLARE LONG CONSTANT cdd$k_routine_name = 78
      DECLARE LONG CONSTANT cdd$k_argument_list = 79
      DECLARE LONG CONSTANT cdd$k_argument = 80
      DECLARE LONG CONSTANT cdd$k_session_handle = 81
      DECLARE LONG CONSTANT cdd$k_entity_handle = 82
      DECLARE LONG CONSTANT cdd$k_value_list = 83
      DECLARE LONG CONSTANT cdd$k_op_low = 84
      DECLARE LONG CONSTANT cdd$k_relop_low = 84
      DECLARE LONG CONSTANT cdd$k_eql = 84
      DECLARE LONG CONSTANT cdd$k_neq = 85
      DECLARE LONG CONSTANT cdd$k_gtr = 86
      DECLARE LONG CONSTANT cdd$k_geq = 87
      DECLARE LONG CONSTANT cdd$k_lss = 88
      DECLARE LONG CONSTANT cdd$k_leq = 89
      DECLARE LONG CONSTANT cdd$k_relop_high = 89
      DECLARE LONG CONSTANT cdd$k_eql_one = 90
      DECLARE LONG CONSTANT cdd$k_not = 91
      DECLARE LONG CONSTANT cdd$k_and = 92
      DECLARE LONG CONSTANT cdd$k_or = 93
      DECLARE LONG CONSTANT cdd$k_xor = 94
      DECLARE LONG CONSTANT cdd$k_alphabetic = 95
      DECLARE LONG CONSTANT cdd$k_exists = 96
      DECLARE LONG CONSTANT cdd$k_unique = 97
      DECLARE LONG CONSTANT cdd$k_op_high = 97
      DECLARE LONG CONSTANT cdd$k_protocol_name = 99
      DECLARE LONG CONSTANT cdd$k_define_label = 100
      DECLARE LONG CONSTANT cdd$k_reference_label = 101
      DECLARE LONG CONSTANT cdd$k_no_member = 102
      DECLARE LONG CONSTANT cdd$k_element = 103
      DECLARE LONG CONSTANT cdd$k_directory_name_list = 104
      DECLARE LONG CONSTANT cdd$k_default_name = 105
      DECLARE LONG CONSTANT cdd$k_related_name = 106
      DECLARE LONG CONSTANT cdd$k_size = 107
      DECLARE LONG CONSTANT cdd$k_dictionary_type = 108
      DECLARE LONG CONSTANT cdd$k_cdd = 109
      DECLARE LONG CONSTANT cdd$k_nad = 110
      DECLARE LONG CONSTANT cdd$k_error = 111
      DECLARE LONG CONSTANT cdd$k_prior_version = 112
      DECLARE LONG CONSTANT cdd$k_next_version = 113
      DECLARE LONG CONSTANT cdd$k_first_version = 114
      DECLARE LONG CONSTANT cdd$k_last_version = 115
      DECLARE LONG CONSTANT cdd$k_ods_version_list = 116
      DECLARE LONG CONSTANT cdd$k_ods_name = 117
      DECLARE LONG CONSTANT cdd$k_ods_version = 118
      DECLARE LONG CONSTANT cdd$k_cddplus_version = 119
      DECLARE LONG CONSTANT cdd$k_protection = 120
      DECLARE LONG CONSTANT cdd$k_noprotection = 121
      DECLARE LONG CONSTANT cdd$k_msgarg = 122
      DECLARE LONG CONSTANT cdd$k_msgarg_name = 123
      DECLARE LONG CONSTANT cdd$k_msgarg_datatype = 124
      DECLARE LONG CONSTANT cdd$k_msgarg_accesstype = 125
      DECLARE LONG CONSTANT cdd$k_msgarg_end = 126
      DECLARE LONG CONSTANT cdd$k_owning_closure = 127
      DECLARE LONG CONSTANT cdd$k_owned_by_closure = 128
      DECLARE LONG CONSTANT cdd$k_message_value = 129
      DECLARE LONG CONSTANT cdd$k_directory_name_list1 = 130
      DECLARE LONG CONSTANT cdd$k_buf_high = 130
    ! ~
    !    These literals are ORed together to provide the action parameter 
    !    for the NAD$CLEAR_MESSAGES call.
    ! ~
      DECLARE LONG CONSTANT cdd$m_clear_local = 1
      DECLARE LONG CONSTANT cdd$m_clear_up = 2
      DECLARE LONG CONSTANT cdd$m_clear_down = 4
    ! ~
    !    These literals are used to provide the direction parameter
    !    for the NAD$INTEGRATE_RDB_DATABASES call.
    ! ~
      DECLARE LONG CONSTANT cdd$k_update_database = 1
      DECLARE LONG CONSTANT cdd$k_update_dictionary = 2
    ! ~
    !    Datatype values.  NAD attributes may have 'unstructured' values;
    !    and they may not be asserted; and therefore 'missing'.  The 
    !    following values are used just as dsc$k_dtype_xxx would be used.
    ! ~
      DECLARE LONG CONSTANT cdd$k_dtype_unstructured = 1
    !  dsc$k_dtype_v;
    !   
    !   Control values for delete.
    !       
      DECLARE LONG CONSTANT cdd$k_all_children = 1
      DECLARE LONG CONSTANT cdd$k_current = 2
    !   
    !   Control values for force_messages
    !       
      DECLARE LONG CONSTANT cdd$k_force_erase = 1
      DECLARE LONG CONSTANT cdd$k_force_modify = 2
    !   
    !   Possible message actions as stored on the relationship.
    ! 
      DECLARE LONG CONSTANT cdd$k_success = 1
      DECLARE LONG CONSTANT cdd$k_signal = 2
      DECLARE LONG CONSTANT cdd$k_block = 3
    !   
    !   Message types as returned in the message buffer.
    ! 
      DECLARE LONG CONSTANT cdd$k_msg_cleared = 0
      DECLARE LONG CONSTANT cdd$k_possibly_invalid = 1
      DECLARE LONG CONSTANT cdd$k_invalid = 26
      DECLARE LONG CONSTANT cdd$k_child_usage = 2
      DECLARE LONG CONSTANT cdd$k_related_to_invalid = 3
      DECLARE LONG CONSTANT cdd$k_msg_new_version = 4
    ! ~
    !    Longword tag values for entity types.
    ! ~
      DECLARE LONG CONSTANT cdd$k_any = 0
      DECLARE LONG CONSTANT cdd$k_ent_any = 0
      DECLARE LONG CONSTANT cdd$k_rel_any = 0
      DECLARE LONG CONSTANT cdd$k_att_curr = 0
    !   
    !   Lengths of buffer portions.
    ! 
      DECLARE LONG CONSTANT cdd$k_tag_size = 4
      DECLARE LONG CONSTANT cdd$k_header_size = 13
      DECLARE LONG CONSTANT cdd$k_terminator_size = 1
      DECLARE LONG CONSTANT cdd$k_element_def_size = 13
    ! 
    !    Types of NAD access.
    ! 
    !    Protection bit definitions.  These are applied to the value of the 
    !    CDD$K_ATT_ACL attribute.
    ! 
    !    These bits are the same as in Rdb/VMS and SHOULD NOT BE CHANGED?
    ! 
      DECLARE LONG CONSTANT cdd$k_low_priv = 0
      DECLARE LONG CONSTANT cdd$k_read_priv = 0
      DECLARE LONG CONSTANT cdd$k_write_priv = 1
      DECLARE LONG CONSTANT cdd$k_modify_priv = 2
      DECLARE LONG CONSTANT cdd$k_erase_priv = 3
      DECLARE LONG CONSTANT cdd$k_show_priv = 4
      DECLARE LONG CONSTANT cdd$k_define_priv = 5
      DECLARE LONG CONSTANT cdd$k_change_priv = 6
      DECLARE LONG CONSTANT cdd$k_delete_priv = 7
      DECLARE LONG CONSTANT cdd$k_control_priv = 8
      DECLARE LONG CONSTANT cdd$k_oper_priv = 9
      DECLARE LONG CONSTANT cdd$k_admin_priv = 10
      DECLARE LONG CONSTANT cdd$k_max_priv = 10
      DECLARE LONG CONSTANT cdd$k_high_priv = 10
      DECLARE LONG CONSTANT cdd$m_read_priv = 1
      DECLARE LONG CONSTANT cdd$m_write_priv = 2
      DECLARE LONG CONSTANT cdd$m_modify_priv = 4
      DECLARE LONG CONSTANT cdd$m_erase_priv = 8
      DECLARE LONG CONSTANT cdd$m_show_priv = 16
      DECLARE LONG CONSTANT cdd$m_define_priv = 32
      DECLARE LONG CONSTANT cdd$m_change_priv = 64
      DECLARE LONG CONSTANT cdd$m_delete_priv = 128
      DECLARE LONG CONSTANT cdd$m_control_priv = 256
      DECLARE LONG CONSTANT cdd$m_oper_priv = 512
      DECLARE LONG CONSTANT cdd$m_admin_priv = 1024
      DECLARE LONG CONSTANT cdd$m_all_priv = 2047
    ! 
    !    Default protection type tags:
    !    These tags describe the the type of default protection acl to build.
    !    They are passed as a parameter to NAD$$BUILD_DEFAULT_ACL.
    ! 
      DECLARE LONG CONSTANT cdd$k_user_protocol_acl = 0
      DECLARE LONG CONSTANT cdd$k_database_acl = 1
      DECLARE LONG CONSTANT cdd$k_system_protocol_acl = 2
      DECLARE LONG CONSTANT cdd$k_protocol_acl = 3
      DECLARE LONG CONSTANT cdd$k_user_acl = 4
    ! 
    !  Validation action tags
    ! 
      DECLARE LONG CONSTANT cdd$k_warn = 0
      DECLARE LONG CONSTANT cdd$k_fail = 2
    ! 
    !  Validation apply tags
    ! 
      DECLARE LONG CONSTANT cdd$k_str = 1
      DECLARE LONG CONSTANT cdd$k_mod = 2
      DECLARE LONG CONSTANT cdd$k_str_mod = 3
      DECLARE LONG CONSTANT cdd$k_del = 4
      DECLARE LONG CONSTANT cdd$k_str_del = 5
      DECLARE LONG CONSTANT cdd$k_mod_del = 6
      DECLARE LONG CONSTANT cdd$k_str_mod_del = 7
      DECLARE LONG CONSTANT cdd$k_val_new = 1
      DECLARE LONG CONSTANT cdd$k_val_setprop = 2
      DECLARE LONG CONSTANT cdd$k_val_free = 4
      DECLARE LONG CONSTANT cdd$k_val_reserve = 8
      DECLARE LONG CONSTANT cdd$k_val_replace = 16
      DECLARE LONG CONSTANT cdd$k_val_new_prot = 32
      DECLARE LONG CONSTANT cdd$k_val_setprop_prot = 64
    ! 
    !  Validation when tags
    ! 
      DECLARE LONG CONSTANT cdd$k_val_start = 1
      DECLARE LONG CONSTANT cdd$k_val_end = 2
    ! 
    !  Validation interface tags (these tags are ORed with the when tags
    !  to determine when to execute a validation
    ! 
      DECLARE LONG CONSTANT cdd$k_val_ci = 4
      DECLARE LONG CONSTANT cdd$k_val_mcs = 8
      DECLARE LONG CONSTANT cdd$k_val_ci_mcs = 12
    ! 
    !  Verify/Fix flags
    ! 
      DECLARE LONG CONSTANT cdd$k_vf_fix = 0
      DECLARE LONG CONSTANT cdd$m_vf_fix = 1
      DECLARE LONG CONSTANT cdd$k_vf_log = 1
      DECLARE LONG CONSTANT cdd$m_vf_log = 2
      DECLARE LONG CONSTANT cdd$k_vf_location = 2
      DECLARE LONG CONSTANT cdd$m_vf_location = 4
      DECLARE LONG CONSTANT cdd$k_vf_ext_ref = 3
      DECLARE LONG CONSTANT cdd$m_vf_ext_ref = 8
      DECLARE LONG CONSTANT cdd$k_vf_out_ref = 4
      DECLARE LONG CONSTANT cdd$m_vf_out_ref = 16
      DECLARE LONG CONSTANT cdd$k_vf_xdb_rel = 5
      DECLARE LONG CONSTANT cdd$m_vf_xdb_rel = 32
      DECLARE LONG CONSTANT cdd$k_vf_orphans = 6
      DECLARE LONG CONSTANT cdd$m_vf_orphans = 64
      DECLARE LONG CONSTANT cdd$k_vf_names = 7
      DECLARE LONG CONSTANT cdd$m_vf_names = 128
      DECLARE LONG CONSTANT cdd$k_vf_recovery = 8
      DECLARE LONG CONSTANT cdd$m_vf_recovery = 256
      DECLARE LONG CONSTANT cdd$k_vf_shrink = 9
      DECLARE LONG CONSTANT cdd$m_vf_shrink = 512
      DECLARE LONG CONSTANT cdd$k_vf_rebuild = 10
      DECLARE LONG CONSTANT cdd$m_vf_rebuild = 1024
      DECLARE LONG CONSTANT cdd$k_vf_size = 10
      DECLARE LONG CONSTANT cdd$m_vf_size = 1024
    ! 
    !  Delete dictionary flag.
    ! 
      DECLARE LONG CONSTANT cdd$k_check = 0
      DECLARE LONG CONSTANT cdd$k_nocheck = 1
    ! +
    !    Edit string buffer word tokens.
    ! -
      DECLARE LONG CONSTANT cdd$k_edit_str_alphabetic = 1
      DECLARE LONG CONSTANT cdd$k_edit_str_am_pm = 2
      DECLARE LONG CONSTANT cdd$k_edit_str_any_char = 3
      DECLARE LONG CONSTANT cdd$k_edit_str_comma = 4
      DECLARE LONG CONSTANT cdd$k_edit_str_day_number = 5
      DECLARE LONG CONSTANT cdd$k_edit_str_decimal_digit = 6
      DECLARE LONG CONSTANT cdd$k_edit_str_decimal_point = 7
      DECLARE LONG CONSTANT cdd$k_edit_str_encoded_minus = 8
      DECLARE LONG CONSTANT cdd$k_edit_str_encoded_plus = 9
      DECLARE LONG CONSTANT cdd$k_edit_str_encoded_sign = 10
      DECLARE LONG CONSTANT cdd$k_edit_str_exponent = 11
      DECLARE LONG CONSTANT cdd$k_edit_str_float_currency = 12
      DECLARE LONG CONSTANT cdd$k_edit_str_floating_minus = 13
      DECLARE LONG CONSTANT cdd$k_edit_str_floating_plus = 14
      DECLARE LONG CONSTANT cdd$k_edit_str_floating_sign = 15
      DECLARE LONG CONSTANT cdd$k_edit_str_float_blank_supr = 16
      DECLARE LONG CONSTANT cdd$k_edit_str_float_0_replace = 17
      DECLARE LONG CONSTANT cdd$k_edit_str_fraction_second = 18
      DECLARE LONG CONSTANT cdd$k_edit_str_hex_digit = 19
      DECLARE LONG CONSTANT cdd$k_edit_str_hour_12 = 20
      DECLARE LONG CONSTANT cdd$k_edit_str_hour_24 = 21
      DECLARE LONG CONSTANT cdd$k_edit_str_julian_digit = 22
      DECLARE LONG CONSTANT cdd$k_edit_str_literal = 23
      DECLARE LONG CONSTANT cdd$k_edit_str_logical_char = 24
      DECLARE LONG CONSTANT cdd$k_edit_str_long_text = 25
      DECLARE LONG CONSTANT cdd$k_edit_str_lowercase = 26
      DECLARE LONG CONSTANT cdd$k_edit_str_minus_literal = 27
      DECLARE LONG CONSTANT cdd$k_edit_str_minus_paren = 28
      DECLARE LONG CONSTANT cdd$k_edit_str_minute = 29
      DECLARE LONG CONSTANT cdd$k_edit_str_missng_separator = 30
      DECLARE LONG CONSTANT cdd$k_edit_str_month_name = 31
      DECLARE LONG CONSTANT cdd$k_edit_str_month_number = 32
      DECLARE LONG CONSTANT cdd$k_edit_str_octal_digit = 33
      DECLARE LONG CONSTANT cdd$k_edit_str_repeator = 34
      DECLARE LONG CONSTANT cdd$k_edit_str_repeat_count = 35
      DECLARE LONG CONSTANT cdd$k_edit_str_second = 36
      DECLARE LONG CONSTANT cdd$k_edit_str_uppercase = 37
      DECLARE LONG CONSTANT cdd$k_edit_str_weekday_name = 38
      DECLARE LONG CONSTANT cdd$k_edit_str_year = 39
      DECLARE LONG CONSTANT cdd$k_edit_str_literal_brackets = 40
    ! +
    !  J-CDD$I18N/A : add cdd$k_edit_str_literal_brackets
    ! 
    !                               <note>
    !       Do NOT write commnet at end of line. *.R32 will be searched
    !       for another purpose. Then "?" can not be parsed.
    ! -
      DECLARE LONG CONSTANT cdd$k_edit_str_end = 0
      DECLARE LONG CONSTANT cdd$k_edit_str_min = 1
      DECLARE LONG CONSTANT cdd$k_edit_str_max = 40
    ! +
    !   J-CDD$I18N/A : Character_set ID/Based on DEC STD 169
    ! -
      DECLARE LONG CONSTANT cdd$k_charset_dec_mcs = 0
      DECLARE LONG CONSTANT cdd$k_charset_dec_kanji = 96
      DECLARE LONG CONSTANT cdd$k_charset_dec_hanzi = 97
      DECLARE LONG CONSTANT cdd$k_charset_dec_korean = 98
      DECLARE LONG CONSTANT cdd$k_charset_dec_hanyu = 99
      DECLARE LONG CONSTANT cdd$k_charset_dec_sicgcc = 100
    ! +
    !    Expression buffer word tokens.
    ! -
      DECLARE LONG CONSTANT cdd$k_exp_low = 0
      DECLARE LONG CONSTANT cdd$k_exp_end = 0
      DECLARE LONG CONSTANT cdd$k_exp_abs = 1
      DECLARE LONG CONSTANT cdd$k_exp_add = 2
      DECLARE LONG CONSTANT cdd$k_exp_all = 3
      DECLARE LONG CONSTANT cdd$k_exp_and = 4
      DECLARE LONG CONSTANT cdd$k_exp_any = 5
      DECLARE LONG CONSTANT cdd$k_exp_ascending = 6
      DECLARE LONG CONSTANT cdd$k_exp_ask = 7
      DECLARE LONG CONSTANT cdd$k_exp_asl = 8
      DECLARE LONG CONSTANT cdd$k_exp_asr = 9
      DECLARE LONG CONSTANT cdd$k_exp_as2 = 10
      DECLARE LONG CONSTANT cdd$k_exp_avg = 11
      DECLARE LONG CONSTANT cdd$k_exp_boolean = 12
      DECLARE LONG CONSTANT cdd$k_exp_collection = 13
      DECLARE LONG CONSTANT cdd$k_exp_con = 14
      DECLARE LONG CONSTANT cdd$k_exp_cond = 15
      DECLARE LONG CONSTANT cdd$k_exp_context = 16
      DECLARE LONG CONSTANT cdd$k_exp_cot = 17
      DECLARE LONG CONSTANT cdd$k_exp_count = 18
      DECLARE LONG CONSTANT cdd$k_exp_co2 = 19
      DECLARE LONG CONSTANT cdd$k_exp_co3 = 20
      DECLARE LONG CONSTANT cdd$k_exp_dbkey = 21
      DECLARE LONG CONSTANT cdd$k_exp_descending = 22
      DECLARE LONG CONSTANT cdd$k_exp_div = 23
      DECLARE LONG CONSTANT cdd$k_exp_domain = 24
      DECLARE LONG CONSTANT cdd$k_exp_element_name = 25
      DECLARE LONG CONSTANT cdd$k_exp_else = 26
      DECLARE LONG CONSTANT cdd$k_exp_eql = 27
      DECLARE LONG CONSTANT cdd$k_exp_exp = 28
      DECLARE LONG CONSTANT cdd$k_exp_fac = 29
      DECLARE LONG CONSTANT cdd$k_exp_field = 30
      DECLARE LONG CONSTANT cdd$k_exp_first = 31
      DECLARE LONG CONSTANT cdd$k_exp_from = 32
      DECLARE LONG CONSTANT cdd$k_exp_function = 33
      DECLARE LONG CONSTANT cdd$k_exp_function_file = 34
      DECLARE LONG CONSTANT cdd$k_exp_function_name = 35
      DECLARE LONG CONSTANT cdd$k_exp_geq = 36
      DECLARE LONG CONSTANT cdd$k_exp_gtr = 37
      DECLARE LONG CONSTANT cdd$k_exp_if = 38
      DECLARE LONG CONSTANT cdd$k_exp_int = 39
      DECLARE LONG CONSTANT cdd$k_exp_leq = 40
      DECLARE LONG CONSTANT cdd$k_exp_list = 41
      DECLARE LONG CONSTANT cdd$k_exp_literal = 42
      DECLARE LONG CONSTANT cdd$k_exp_lss = 43
      DECLARE LONG CONSTANT cdd$k_exp_matches = 44
      DECLARE LONG CONSTANT cdd$k_exp_max = 45
      DECLARE LONG CONSTANT cdd$k_exp_min = 46
      DECLARE LONG CONSTANT cdd$k_exp_mis = 47
      DECLARE LONG CONSTANT cdd$k_exp_mod = 48
      DECLARE LONG CONSTANT cdd$k_exp_mul = 49
      DECLARE LONG CONSTANT cdd$k_exp_neg = 50
      DECLARE LONG CONSTANT cdd$k_exp_neq = 51
      DECLARE LONG CONSTANT cdd$k_exp_not = 52
      DECLARE LONG CONSTANT cdd$k_exp_ones_cmp = 53
      DECLARE LONG CONSTANT cdd$k_exp_or = 54
      DECLARE LONG CONSTANT cdd$k_exp_rct = 55
      DECLARE LONG CONSTANT cdd$k_exp_record = 56
      DECLARE LONG CONSTANT cdd$k_exp_reduce = 57
      DECLARE LONG CONSTANT cdd$k_exp_relation = 58
      DECLARE LONG CONSTANT cdd$k_exp_relation_id = 59
      DECLARE LONG CONSTANT cdd$k_exp_rse = 60
      DECLARE LONG CONSTANT cdd$k_exp_rnd = 61
      DECLARE LONG CONSTANT cdd$k_exp_rtt = 62
      DECLARE LONG CONSTANT cdd$k_exp_sdv = 63
      DECLARE LONG CONSTANT cdd$k_exp_sgn = 64
      DECLARE LONG CONSTANT cdd$k_exp_sort = 65
      DECLARE LONG CONSTANT cdd$k_exp_sqrt = 66
      DECLARE LONG CONSTANT cdd$k_exp_stw = 67
      DECLARE LONG CONSTANT cdd$k_exp_sub = 68
      DECLARE LONG CONSTANT cdd$k_exp_table = 69
      DECLARE LONG CONSTANT cdd$k_exp_then = 70
      DECLARE LONG CONSTANT cdd$k_exp_ttl = 71
      DECLARE LONG CONSTANT cdd$k_exp_unq = 72
      DECLARE LONG CONSTANT cdd$k_exp_via = 73
      DECLARE LONG CONSTANT cdd$k_exp_xor = 74
      DECLARE LONG CONSTANT cdd$k_exp_field_segment = 75
      DECLARE LONG CONSTANT cdd$k_exp_cross = 76
      DECLARE LONG CONSTANT cdd$k_exp_edit_str = 77
      DECLARE LONG CONSTANT cdd$k_exp_format = 78
      DECLARE LONG CONSTANT cdd$k_exp_over = 79
      DECLARE LONG CONSTANT cdd$k_exp_table_name = 80
      DECLARE LONG CONSTANT cdd$k_exp_vtb = 81
      DECLARE LONG CONSTANT cdd$k_exp_element_id = 82
      DECLARE LONG CONSTANT cdd$k_exp_substring = 83
      DECLARE LONG CONSTANT cdd$k_exp_variable = 84
      DECLARE LONG CONSTANT cdd$k_exp_agg_count = 85
      DECLARE LONG CONSTANT cdd$k_exp_agg_average = 86
      DECLARE LONG CONSTANT cdd$k_exp_agg_max = 87
      DECLARE LONG CONSTANT cdd$k_exp_agg_min = 88
      DECLARE LONG CONSTANT cdd$k_exp_agg_total = 89
      DECLARE LONG CONSTANT cdd$k_exp_project = 90
      DECLARE LONG CONSTANT cdd$k_exp_group_value = 91
      DECLARE LONG CONSTANT cdd$k_exp_merge = 92
      DECLARE LONG CONSTANT cdd$k_exp_aggregate = 93
      DECLARE LONG CONSTANT cdd$k_exp_group_by = 94
      DECLARE LONG CONSTANT cdd$k_exp_map = 95
      DECLARE LONG CONSTANT cdd$k_exp_map_field = 96
      DECLARE LONG CONSTANT cdd$k_exp_between = 97
      DECLARE LONG CONSTANT cdd$k_exp_array_subscript = 98
      DECLARE LONG CONSTANT cdd$k_exp_member = 99
      DECLARE LONG CONSTANT cdd$k_exp_owner = 100
      DECLARE LONG CONSTANT cdd$k_exp_within = 101
      DECLARE LONG CONSTANT cdd$k_exp_set_name = 102
      DECLARE LONG CONSTANT cdd$k_exp_array_subscript_list = 103
      DECLARE LONG CONSTANT cdd$k_exp_case_sensitive = 104
      DECLARE LONG CONSTANT cdd$k_exp_alphabetic = 105
      DECLARE LONG CONSTANT cdd$k_exp_alphabetic_lower = 106
      DECLARE LONG CONSTANT cdd$k_exp_alphabetic_upper = 107
      DECLARE LONG CONSTANT cdd$k_exp_empty_field = 108
      DECLARE LONG CONSTANT cdd$k_exp_full_field = 109
      DECLARE LONG CONSTANT cdd$k_exp_numeric = 110
      DECLARE LONG CONSTANT cdd$k_exp_user = 111
      DECLARE LONG CONSTANT cdd$k_exp_otherwise = 112
      DECLARE LONG CONSTANT cdd$k_exp_control_bits = 113
      DECLARE LONG CONSTANT cdd$k_exp_null = 114
      DECLARE LONG CONSTANT cdd$k_exp_any2 = 115
      DECLARE LONG CONSTANT cdd$k_exp_like = 116
      DECLARE LONG CONSTANT cdd$k_exp_rdb_all = 117
      DECLARE LONG CONSTANT cdd$k_exp_timestamp = 118
      DECLARE LONG CONSTANT cdd$k_exp_substring2 = 119
      DECLARE LONG CONSTANT cdd$k_exp_foreign_con = 120
      DECLARE LONG CONSTANT cdd$k_exp_foreign_ref = 121
      DECLARE LONG CONSTANT cdd$k_exp_primary_con = 122
      DECLARE LONG CONSTANT cdd$k_exp_unique_con = 123
      DECLARE LONG CONSTANT cdd$k_exp_not_null_con = 124
      DECLARE LONG CONSTANT cdd$k_exp_current_time = 125
      DECLARE LONG CONSTANT cdd$k_exp_current_date = 126
      DECLARE LONG CONSTANT cdd$k_exp_substring3 = 127
      DECLARE LONG CONSTANT cdd$k_exp_translate_lower = 128
      DECLARE LONG CONSTANT cdd$k_exp_translate_upper = 129
      DECLARE LONG CONSTANT cdd$k_exp_translate = 130
      DECLARE LONG CONSTANT cdd$k_exp_cast = 131
      DECLARE LONG CONSTANT cdd$k_exp_extract = 132
      DECLARE LONG CONSTANT cdd$k_exp_octet_length = 133
      DECLARE LONG CONSTANT cdd$k_exp_character_length = 134
      DECLARE LONG CONSTANT cdd$k_exp_current_user = 135
      DECLARE LONG CONSTANT cdd$k_exp_session_user = 136
      DECLARE LONG CONSTANT cdd$k_exp_system_user = 137
      DECLARE LONG CONSTANT cdd$k_exp_translation_name = 138
      DECLARE LONG CONSTANT cdd$k_exp_extract_year = 139
      DECLARE LONG CONSTANT cdd$k_exp_extract_month = 140
      DECLARE LONG CONSTANT cdd$k_exp_extract_day = 141
      DECLARE LONG CONSTANT cdd$k_exp_extract_hour = 142
      DECLARE LONG CONSTANT cdd$k_exp_extract_minute = 143
      DECLARE LONG CONSTANT cdd$k_exp_extract_second = 144
      DECLARE LONG CONSTANT cdd$k_exp_extract_weekday = 145
      DECLARE LONG CONSTANT cdd$k_exp_extract_julian = 146
      DECLARE LONG CONSTANT cdd$k_exp_cast_datatype = 147
      DECLARE LONG CONSTANT cdd$k_exp_cast_field_name = 148
      DECLARE LONG CONSTANT cdd$k_exp_descriptor = 149
      DECLARE LONG CONSTANT cdd$k_exp_trim = 150
      DECLARE LONG CONSTANT cdd$k_exp_trim_both = 151
      DECLARE LONG CONSTANT cdd$k_exp_trim_leading = 152
      DECLARE LONG CONSTANT cdd$k_exp_trim_trailing = 153
      DECLARE LONG CONSTANT cdd$k_exp_trim_char_expression = 154
      DECLARE LONG CONSTANT cdd$k_exp_position = 155
      DECLARE LONG CONSTANT cdd$k_exp_position_from_exp = 156
      DECLARE LONG CONSTANT cdd$k_exp_external_literal = 157
      DECLARE LONG CONSTANT cdd$k_exp_case = 158
      DECLARE LONG CONSTANT cdd$k_exp_when = 159
      DECLARE LONG CONSTANT cdd$k_exp_high = 159