PROCEDURE install_npa_databases, insnd (
  cdcnet_catalog, cc: file = $required
  version_catalog, vc: file = $required
  status)

  "Install all NPA databases.

  "$FORMAT=OFF
  VAR
    database_catalog: name = ANALYSIS
    dcv$execution_path: (XREF) string
    ignore_status: status
    local_status: status
    npa_commands: file = $local//$name($unique)
  VAREND
  "$FORMAT=ON"

  install_block: ..
    BLOCK

  $system.put_line l=' Installing NPA Data Base files ...' o=$job_log

  dcv$execution_path = $string(cdcnet_catalog)
  $system.create_catalog c=cdcnet_catalog//database_catalog status=ignore_status

COLLECT_TEXT npa_commands until='**' sm='?'
  ?cdcnet_catalog?.version_independent.command_library.network_performance_analyzer
   create_databases dbfun=?cdcnet_catalog?.?database_catalog?
   quit
**
  include_file f=npa_commands status=local_status
  detach_file f=npa_commands status=ignore_status
  EXIT install_block WHEN NOT local_status.normal

  BLOCKEND install_block

  EXIT procedure WITH local_status WHEN NOT local_status.normal

PROCEND install_npa_databases

