%
% position and size the SaWing form from Customer Free platform
%

Task.@

"SaWing" Win.Handle
dupnzis
{
 *archarea perscreen
 rot 40 sub tuck
 40 add
 Win.PosTop
} if

%
% remove all possible directives of customer service from Connector
% for the active session (Actor is Rcust)
%
"Rcust_*.*" ofconn delfiles

'<Web status="newact">
 <newact proc="Actor==rcust" event="'
._Actor &
&'">
 </newact>
 <rcust
   d1="***rcust --- start customer service"
   d2="  establish a timer that checks for overlong terminus wait"
   url="'
._Actor &
&'.html?command=service#params_#"
   proc="ReSib`To==unterm"
  >
  <unterm
   d1="***unterm --- process invoked by web signal not finished"
   proc="$Timer`Term"
   tick="" ticks="2500" event="naverr"
  />
 </rcust> 
</Web>
'
%
% safe command delivery with record of command
%
% stack: builder
%

"Web" ._Actor & &"_cmd"
*safewrit

%
% start monitoring Customer Service
%
8000 !tick
"cswngA" log#