######################################################################
#
# Macro Name    : c:/surpacminex/surpac_601/04e_create_flag_table.tcl
#
# Version       : Surpac 6.0.1
#
# Creation Date : Tue Oct 02 08:23:18 2007
#
# Description   : 
#
######################################################################

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

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

set status [ SclFunction "CREATE TABLE" {
  frm10023={
    {
      _action="display"
      table_name="intersect"
      table_type="interval"
      time_dependent="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 }
        { "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_fields1={
        {
          opt_field_for_table1="flag"
          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
        }
      }
    }
  }
}]

set status [ SclFunction "RECALL ANY FILE" {
  file="ore1.dtm"
  mode="openInNewLayer"
}]

set status [ SclFunction "DRILL HOLE INTERSECT OBJECT" {
  frm00012={
    {
      cons={
        {
          field=""
          operator="="
          value=""
        }
      }
    }
  }
  frm00312={
    {
      _action="display"
      iobj="8"
      result_layer="main graphics layer"
      save="Y"
      geo_table="intersect"
      geo_field="flag"
      geo_code="obj1"
      log_loc="obj1"
      report_format=".not - Surpac Note File"
    }
  }
  }]  

puts  ""
puts  ""
puts  "Macro 04e_create_flag_table.tcl completed."
puts  ""