PROCEDURE (HIDDEN) cmp$install_network_commands (
  prolog_procedure_name, ppn: name = $required
  status)

"$FORMAT=OFF
VAR
  ignore_status: status
  local_status: status
  network_file: file = $system.network.configuration
VAREND

"$FORMAT=ON

  IF prolog_procedure_name <> none THEN
    include_line $string(prolog_procedure_name)//' status=local_status'
    IF NOT local_status.normal THEN
      rap$display_message message_module=sysdp_messages ..
            message_name=report_prolog_error ..
            message_parameters=$string(prolog_procedure_name) to=$output
      display_value local_status o=$output
    IFEND
    IF $file($local.lcu_network_subcommands opened) THEN
      IF $variable(cmv$deadstart_simulation, defined) THEN
        rap$display_message message_module=sysdp_messages ..
              message_name= network_commands_installed message_parameters=(..
              $string(network_file) $string(prolog_procedure_name)) to=$output
      ELSE
        create_catalog $system.network status=ignore_status
        copy_file $local.lcu_network_subcommands network_file.$next ..
              status=local_status
        IF local_status.normal THEN
          rap$display_message message_module=sysdp_messages ..
                message_name= network_commands_installed message_parameters=..
                ($string(network_file) $string(prolog_procedure_name)) ..
                to=$output
        ELSE
          rap$display_message message_module=sysdp_messages ..
                message_name= prolog_file_missing message_parameters=(..
                $string(prolog_file) $string(prolog_procedure_name)) ..
                to=$output
        IFEND
      IFEND
    ELSE
      rap$display_message message_module=sysdp_messages ..
            message_name= prolog_file_missing message_parameters=($string(..
            prolog_file) $string(prolog_procedure_name)) to=$output
    IFEND
  IFEND


PROCEND cmp$install_network_commands
