PROCEDURE generate_lcn_error_report (
  local_nad_name : name = $required
  status
)
JOB SM='!'

  crecle $system.hardware_maintenance.hpa.command_library
  print_hpa_index ..
     $system.hardware_maintenance.hpa.data.hpf$maint_action_log_database
  element_name !$string($value(local_nad_name))!
  end

  print_hpa_reports ..
     $system.hardware_maintenance.hpa.data.hpf$maint_action_log_database
  element_name !$string($value(local_nad_name))!
  end
JOBEND
PROCEND generate_lcn_error_report
