compile function wo_verify_comm(Branch)
begin condition
pre:
post:
end condition

ReturnVar = 0
declare function set_property, get_property, msg

Branches = 'STATUS_CHECK'
convert ',' to @fm in Branches
locate Branch in Branches using @fm setting Bpos then
   on Bpos gosub StatusCheck
end else
   Void = msg( '', 'Invalid Branch ':Bpos:' passed to wo_verify_comm' )
end
return ReturnVar
*===========================================================================*
StatusCheck:
	TechSig = get_property( @window:'.TECH_SIG', 'TEXT' )
	if ( TechSig <> '' ) then
	   Void = set_property( @window:'.STATUS', 'VALUE', 'C' )
	end
return

*============================================================================*

