Processing table: prc.update_session




 
If:
 

 
 
Then:
declare extern SessID,ErrMsg,SessUName

 
If:
 

 
 
Then:
declare RIP,STime(8,HMS),MyTime(8,HMS),Neg,TDiffMin(2,.0),TDiff(8,HMS)

 
If:
 

 
 
Then:
declare TDiffHr(2,.0)

 
If:
 

 
 
Then:
lookup sess = flfss_sessionids k=(SessID) i=B -npx

 
If:
not sess

 
 
Then:
close sess;end

 
If:
 

 
 
Then:
sess(2)=@td;sess(4)=@tm;write sess;close sess;end