#!/bin/csh
# This is a program for the example Genesis Tooling Forms.
# This file will exist in form 2.
# The purpose of this program is to update the inner copper weight in form 1.
# 
# Written by Ian Ticehurst (Autom8 Ltd.)
# Version 1A. Date: 15.02.01 - Initial design and development.
######################################################################### 

# Get the current setting in form 2.
COM read_form,job=$JOB,form=genform2,elem=icu
set SET1 = "$COMANS"

# Get the current setting in form 1.
COM read_form,job=$JOB,form=genform1,elem=icu
set SET2 = "$COMANS"

# If the settings are different, update form 1.
if ($SET1 != $SET2) then
   COM edit_form,job=$JOB,form=genform1,elem=icu,value=$SET1
endif

exit 0

