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