PROCEDURE (hidden) pfp$count_unreconciled_files (
  backup_listing, bl: file = $required
  missing_catalogs, mc: (VAR) integer = $optional
  missing_files, mf: (VAR) integer = $optional
  unavailable_catalogs, uc: (VAR) integer = $optional
  unavailable_files, uf: (VAR) integer = $optional
  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)//'--'
    uc_text: string = $status_code_string(pfe$catalog_volume_unavailable)//'--'
    uf_text: string = $status_code_string(pfe$volume_unavailable)//'--'
    lines: list 0..$max_list of string 20
  VAREND

"$FORMAT=ON"

  IF $specified(mc) OR $specified(mf) OR $specified(uc) OR $specified(uf) THEN


    get_line variable=lines input=backup_listing

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

    IF $specified(missing_catalogs) THEN
      missing_catalogs=$size($select(lines x(11, 8)=mc_text))
    IFEND

    IF $specified(missing_files) THEN
      missing_files=$size($select(lines x(11, 9)=mf_text))
    IFEND

    IF $specified(unavailable_catalogs) THEN
      unavailable_catalogs=$size($select(lines x(11, 8)=uc_text))
    IFEND

    IF $specified(unavailable_files) THEN
      unavailable_files=$size($select(lines x(11, 9)=uf_text))
    IFEND
  ELSE
    EXIT_PROC WITH $status(false, 'US', 3330, ..
          'At least one VAR parameter must be specified')
  IFEND
PROCEND pfp$count_unreconciled_files


