
  TYPE
    jmt$error_status_list = array [1 .. * ] of jmt$error_status;

  TYPE
    jmt$error_status = record
      system_supplied_name: jmt$system_supplied_name,
      status: ost$status,
    recend;

*copyc jmt$system_supplied_name
*copyc ost$status
