28 lines
740 B
Plaintext
28 lines
740 B
Plaintext
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
|
|
|
|
*============================================================================*
|
|
|