file delete new_database.ddb
file delete new_database.mdb

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]

set status [ SclFunction "TOOL MODE TRADITIONAL" {} ]

set status [ SclFunction "DHL DATABASE DEFINITION" {
  frm10010={
    {
      _action="display"
      dbname="new_database"
    }
  }
  frm10011={
    {
      _action="display"
}
  }
  frm10020={
    {
      _action="display"
      dbtyp="access"
      xyzcal="CALCULATED"
    }
  }
  frm10021={
    {
      _action="display"
      scroll_1=table { table_name table_type time_dependent } {
        { "assay" "interval" "N" }
        { "geology" "interval" "N" }
      }
    }
  }
  frmcreateDatabase={
    {
      _action="display"
      mand_fields1=table { mand_nulls_for_table1 mand_index_for_table1 mand_length_for_table1 mand_decimals_for_table1 mand_lo_bound_for_table1 mand_hi_bound_for_table1 } {
        { null null "12" null null null }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "0" "9999" }
        { "Y" null "8" null null null }
      }
      opt_fields1={
        {
          opt_field_for_table1=""
          opt_type_for_table1="character"
          opt_nulls_for_table1="Y"
          opt_length_for_table1="10"
          opt_decimals_for_table1=null
          opt_case_for_table1="mixed"
          opt_lo_bound_for_table1=null
          opt_hi_bound_for_table1=null
          valid_entries_for_table1=""
          phys_or_virt_for_table1="physical"
          reference_field_for_table1=null
        }
      }
      mand_fields2=table { mand_nulls_for_table2 mand_index_for_table2 mand_length_for_table2 mand_decimals_for_table2 mand_lo_bound_for_table2 mand_hi_bound_for_table2 } {
        { null null "12" null null null }
        { null null "7" "2" "0" "9999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "6" "2" "-90" "90" }
        { "N" null "6" "2" "0" "360" }
      }
      opt_fields2={
        {
          opt_field_for_table2=""
          opt_type_for_table2="character"
          opt_nulls_for_table2="Y"
          opt_length_for_table2="10"
          opt_decimals_for_table2=null
          opt_case_for_table2="mixed"
          opt_lo_bound_for_table2=null
          opt_hi_bound_for_table2=null
          valid_entries_for_table2=""
          phys_or_virt_for_table2="physical"
          reference_field_for_table2=null
        }
      }
      mand_fields3=table { mand_nulls_for_table3 mand_index_for_table3 mand_length_for_table3 mand_decimals_for_table3 mand_lo_bound_for_table3 mand_hi_bound_for_table3 } {
        { null null "18" null null null }
        { null null "18" null null null }
        { null null "6" null null null }
        { "N" null "8" "2" "-999999" "9999999" }
        { "Y" null "32" null null null }
      }
      opt_fields3={
        {
          opt_field_for_table3=""
          opt_type_for_table3="character"
          opt_nulls_for_table3="Y"
          opt_length_for_table3="10"
          opt_decimals_for_table3=null
          opt_case_for_table3="mixed"
          opt_lo_bound_for_table3=null
          opt_hi_bound_for_table3=null
          valid_entries_for_table3=""
          phys_or_virt_for_table3="physical"
          reference_field_for_table3=null
        }
      }
      mand_fields4=table { mand_nulls_for_table4 mand_index_for_table4 mand_length_for_table4 mand_decimals_for_table4 mand_lo_bound_for_table4 mand_hi_bound_for_table4 } {
        { "N" null "18" null null null }
        { "N" null "18" null null null }
        { "N" null "1" null null null }
        { "Y" null "20" null null null }
        { "Y" null "23" null null null }
        { "Y" null "23" null null null }
        { "N" null "32" null null null }
        { "N" null "32" null null null }
        { "N" null "5" null null null }
        { "N" null "16" null null null }
        { "N" null "32" null null null }
        { "N" null "32" null null null }
        { "N" null "4" null "1" "9" }
        { "N" null "16" null null null }
        { "N" null "4" "2" "0.01" "9" }
      }
      opt_fields4={
        {
          opt_field_for_table4=""
          opt_type_for_table4="character"
          opt_nulls_for_table4="Y"
          opt_length_for_table4="10"
          opt_decimals_for_table4=null
          opt_case_for_table4="mixed"
          opt_lo_bound_for_table4=null
          opt_hi_bound_for_table4=null
          valid_entries_for_table4=""
          phys_or_virt_for_table4="physical"
          reference_field_for_table4=null
        }
      }
      mand_fields5=table { mand_nulls_for_table5 mand_index_for_table5 mand_length_for_table5 mand_decimals_for_table5 mand_lo_bound_for_table5 mand_hi_bound_for_table5 } {
        { null null "12" null null null }
        { "Y" "none" "10" null null null }
        { null null "7" "2" "0" "9999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { null null "7" "2" "0" "9999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
      }
      opt_fields5={
        {
          opt_field_for_table5="gold"
          opt_type_for_table5="character"
          opt_nulls_for_table5="Y"
          opt_length_for_table5="10"
          opt_decimals_for_table5=null
          opt_case_for_table5="mixed"
          opt_lo_bound_for_table5=null
          opt_hi_bound_for_table5=null
          valid_entries_for_table5=""
          phys_or_virt_for_table5="physical"
          reference_field_for_table5=null
        }
      }
      mand_fields6=table { mand_nulls_for_table6 mand_index_for_table6 mand_length_for_table6 mand_decimals_for_table6 mand_lo_bound_for_table6 mand_hi_bound_for_table6 } {
        { null null "12" null null null }
        { "Y" "none" "10" null null null }
        { null null "7" "2" "0" "9999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { null null "7" "2" "0" "9999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
        { "N" null "11" "3" "-999999" "9999999" }
      }
      opt_fields6={
        {
          opt_field_for_table6="rock"
          opt_type_for_table6="character"
          opt_nulls_for_table6="Y"
          opt_length_for_table6="10"
          opt_decimals_for_table6=null
          opt_case_for_table6="mixed"
          opt_lo_bound_for_table6=null
          opt_hi_bound_for_table6=null
          valid_entries_for_table6=""
          phys_or_virt_for_table6="physical"
          reference_field_for_table6=null
        }
      }
    }
  }
}]

set status [ SclFunction "GEOLOGY DATABASE DISCONNECT" {} ]

set status [ SclFunction "RECALL ANY FILE" {
  file="new_database.ddb"
  mode="edit"
}]

puts  ""
puts  ""
puts  "Macro 01_create_new_database.tcl completed."
puts  ""
