{ LOG_STATUS
{
{      The purpose of this procedure is to send a message to the
{ NOS/A170 B display and/or the user dayfile.
{
{      LOG_STATUS (DESTINATION,STATUS_MESSAGE)
{
{ DESTINATION: (input) This parameter specifies the destination of
{              the message, i.e. the console display and job dayfile
{              or job dayfile only.
{
{ STATUS_MESSAGE: (input) This parameter specifies the ascii message
{                 to be logged.
{

 PROCEDURE[XREF] log_status (
   destination: rht$log_destinations;
   status_message: rht$log_status_message);

?? PUSH (LISTEXT := ON) ??
*copyc RHT$FUNCTION_STATUS
?? POP ??
