NAME:
	OSExitCmd
 PURPOSE:
	Terminate program execution. Set an exit code for external use.
 CATEGORY:
	Machine-dependent functions: VMS
 CALLING SEQUENCE:
	subroutine OSExitCmd(Cmd,iCode)
 INPUTS:
	Cmd	character*(*)	shell command passed to lib$do_command
	iCode	integer		error code passed to EXIT function
 OUTPUTS:
	(none)
 CALLS: ***
	LIB$DO_COMMAND
 CALLED BY:
	Say, sprint
 PROCEDURE:
 >	Calls system functions lib$do_command and EXIT
 >	The lib$do_command terminates the program and executes the cDo command
	at the level of calling procedure. Probably the execution of cDo
	determines the error status in this case, NOT iCode. ????
 >	If the cDo string is empty or the lib$do_command fails to terminate the
	program, then the error code iCode is passed to EXIT.
 MODIFICATION HISTORY:
	SEP-1999, Paul Hick (UCSD/CASS; pphick@ucsd.edu); Added documentation