
  PROCEDURE [INLINE] avp$check_for_console_operation
    (    message_text: string (* <= osc$max_string_size);
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

  VAR
    user_id: ost$user_identification;

{ Verify that the console operation only security option is enforced if on.

    IF avv$security_options [avc$vso_console_operation_only].active THEN
      pmp$get_user_identification (user_id, status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;

{ Return an abnormal status if this is not the system job or any JOB/JOBEND
{ from the system job.  Those are the only possible ways to be executing under
{ the $SYSTEM user.

      IF NOT ((user_id.family = jmc$system_family) AND (user_id.user = jmc$system_user)) THEN
        osp$set_status_abnormal ('AV', ave$console_operation_only, message_text, status);
        RETURN;
      IFEND;
    IFEND;

  PROCEND avp$check_for_console_operation;

*copyc ave$console_operation_only
*copyc avt$valid_security_options
*copyc avv$security_options
*copyc jmc$system_family
*copyc osp$set_status_abnormal
*copyc pmp$get_user_identification
?? POP ??

