Routine: XUSCLEAN

Information

XUSCLEAN ;SF/STAFF - CLEANUP BEFORE EXIT ;10/26/06 08:12

Name	Comments	DBIA/ICR reference
H	;;Exit point for all R/S applications
H2	;No talking after this point
TOUCH	;SR. API to set the keepalive node, Only set once a day	ICR #10052 Status: Active Usage: Supported
C	;Do device close execute, User exit.
BYE	;Set flags to show user has left. Called from anyplace the user exits
LOUT(DA)	;Enter log-out time, in Sign-on log
XUTL	;Cleanup JOB temporary Globals	ICR #10052 Status: Active Usage: Supported
NEWCODE	;Remind user they changed there VC.
KILL	;SR. This is what was requested.	ICR #10052 Status: Active Usage: Supported
KILL1	;To clean up ALL but kernel variables.
XMR	;Entry point from XUS to DO xmr and cleanup after.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!!!!!!!!!!!!!!!!!!!! Line Location: H+10
Function Call: WRITE	Prompt: !!,"==> Sorry, all activity on this volume set is being halted! Try again later.",7,7,*7,!!!! Line Location: H+11
Function Call: WRITE	Prompt: X,":",Y," ",$S(Z:"pm",1:"am") Line Location: H+12
Function Call: WRITE	Prompt: !!,"Logged out at "_$$HTE^XLFDT($H,"1FMP") Line Location: H+13
Function Call: WRITE	Prompt: !!,*7,"But, as I recall...",!,"You've changed your VERIFY CODE during this session.",!,"Please remember it for next time." Line Location: NEWCODE+1