File Information

Field Calculation Scripting File

* DB scripting file generated by isis field calc
* DATABASE: DEMODRIL.ABC
* KEY     : BH001
* RECORD  : COLLAR
* Test record and 
if (db_cur_record eq "COLLAR") then
  if (match("BH001",HOLEID)) then
    update = 1
  else
    update = 0
  endif 
endif 
* Test data record               
if (db_cur_record eq "COLLAR" and update) then
* Apply equations                             
  if (EAST eq 0.00) then
    EAST =  + 452300
  endif
  if (NORTH eq 0.00) then
    NORTH =  + 6799700
  endif
  if (RL eq 0.00) then
    RL =  + 420
  endif
  if (DEPTH eq 0.00) then
    DEPTH =  + 60
  endif
  if (AZM eq 0.00) then 
    AZM = + 270
  endif
endif 
*> RELOADABLE DEFINITIONS 
*> KEY:BH001
*> RECORD:COLLAR
*> ALL_TRUE_EQUATIONS
*> COND:EAST eq 0.00
*> FIELD:EAST
*> EQUAT:+ 452300
*> COND:NORTH eq 0.00
*> FIELD:NORTH
*> EQUAT:+ 6799700
*> COND:RL eq 0.00
*> FIELD:RL
*> EQUAT:+ 420
*> COND:DEPTH eq 0.00
*> FIELD:DEPTH
*> EQUAT:+ 60
*> COND:AZM eq 0.00
*> FIELD:AZM
*> EQUAT:+ 270