***************************************************************************
*** Program:.... APP_RPTS.PRG:  Application & System Reports
*** Updated:.... February 14, 1991
*** Programmer:. R. Paulk 
*** Notice:..... Copyright (c) Ingenuity, Inc., 1990
****************************************************************************
PARAMETERS rpt_action, page_ct, line_ct 
SEL_DBF("sys_tblc")
DO CASE
  CASE UPPER(TRIM(sys_rpts->rpt_name)) $ "SYS_RPDB"
    * Data Encyclopedia By Data Base
    DO sys_rpdb WITH rpt_action, page_ct, line_ct
  CASE UPPER(TRIM(sys_rpts->rpt_name)) == "SYS_UMAN"
    DO sys_manl WITH rpt_action, page_ct, line_ct
  CASE UPPER(TRIM(sys_rpts->rpt_name)) == "SYS_TMAN"
    DO sys_manl WITH rpt_action, page_ct, line_ct
  CASE UPPER(TRIM(sys_rpts->rpt_name)) == "SYS_FLOW"
    SYS_DBMS("sys_call", 00)  && Natural Order
    DO sys_flow WITH rpt_action, page_ct, line_ct
  OTHERWISE
    STORE .F. TO rpt_run
    STORE .T. TO abort
ENDCASE
RETURN