PROCEDURE (hidden) pfp$display_unreconciled_files (
  backup_listing, bl: file = $required
  output, o: file = $output
  status)

"$FORMAT=OFF
  VAR
    mc_text: string = $status_code_string(pfe$catalog_volume_not_online)//'--'
    mf_text: string = $status_code_string(pfe$volume_not_online)//'--'
    lines: list 0..$max_list of string
  VAREND

"$FORMAT=ON"

  get_line variable=lines input=backup_listing

  lines=$select($select(lines $size(x)>16) x(3, 7)='--ERROR')

  put_lines $select(lines x(11, 8)=mc_text) o=output
  put_lines $select(lines x(11, 9)=mf_text) o=output.$eoi

PROCEND pfp$display_unreconciled_files


