PROCEDURE initiate_sou (
  status)

*IF $variable(rav$proc_doc,declared)<>'UNKNOWN'
" PURPOSE:
"   This procedure executes the sequence of commands required to initiate the system_operator_utility
"   (or other site operator interface) based upon a boolean variable set by activate_production_environment.
*IFEND

  "$FORMAT=OFF
  VAR
    local_status: status
    rav$activate_operator_interface: (XREF) string
    rav$initiate_operator_interface: (XREF) boolean
  VAREND
  "$FORMAT=ON"

  IF (rav$activate_operator_interface <> '') AND rav$initiate_operator_interface THEN
    $system.include_command rav$activate_operator_interface status=local_status
    IF NOT local_status.normal THEN
      $system.put_line (' '//..
$strrep($status(false, 'RA', rae$errors_occurred_warning, 'RAV$ACTIVATE_OPERATOR_INTERFACE')) ' '//..
$strrep(local_status)) o=$response
    IFEND
  IFEND

  " Two delete_variable's are needed to delete JOB defined variables.

  delete_variable n=rav$initiate_operator_interface status=local_status
  delete_variable n=rav$initiate_operator_interface status=local_status

PROCEND initiate_sou
