{ CLASSIFICATION AND CODING Macros }

{---  Localizable strings ---}

{ Classification display table header }
LET DBC_TITLE_MAIN           "CLASSIFICATION"
LET DBC_TITLE_TREES          "Trees"
LET DBC_TITLE_ATTR           "ATTRIBUTES OF"
LET DBC_TITLE_ATTRVAL        "ATTRIBUTE VALUES OF"

LET DBC_TITLE_PARENT         "CLASSIFICATION : @s0 Parent Record(s)"
LET DBC_TITLE_CHILDREN       "CLASSIFICATION : @s0 Child Record(s)"
LET DBC_TITLE_ALL_CLASSES    "CLASSIFICATION : @s0 All Class Elem(s)"
LET DBC_TITLE_SEL_CLASSES    "CLASSIFICATION : @s0 Sel Class Elem(s)"

LET DBC_TITLE_FIRST          "Frst"
LET DBC_TITLE_LAST           "Last"
LET DBC_TITLE_PREV           "Prev"
LET DBC_TITLE_NEXT           "Next"

LET DBC_TITLE_NODES          "Nodes"

LET DBC_TITLE_SYM_DESCR      "Sym : Description"

{ Classification sort table }
LET DBC_TITLE_ADD_SORT       " ADD SORT"
LET DBC_TITLE_REV_SORT       " REVERSE SORT"
LET DBC_TITLE_DEL_SORT       " DELETE SORT"
LET DBC_TITLE_PRINT          " PRINT"
LET DBC_TITLE_EXECUTE        " EXECUTE"

{ Classification select table }
LET DBC_TITLE_ADD_SEL       " ADD SELECT"
LET DBC_TITLE_DEL_SEL       " DELETE SELECT"
LET DBC_TITLE_MOD_SEL       " MODIFY SELECT"
LET DBC_TITLE_SAVE          " SAVE"
LET DBC_TITLE_RESTORE       " RESTORE"

{ Classification macro prompts }
LET DBC_PROMPT_QUERY_DEST    "Enter SCREEN, PROMPT_LINE, DEL_OLD, APPEND or 'file name'"
LET DBC_PROMPT_QUERY_FILE    "Enter 'file name'"

LET DBC_PROMPT_QUERY_CHILD   "Enter 'node-name' or node-option to query child or END"
LET DBC_PROMPT_QUERY_PARENT  "Enter 'node-name' or node-option to query parent or END"
LET DBC_PROMPT_QUERY_CLASSES "Enter 'node-name' or node-option to query class elements or END"

{ ------------------------------------------------------------- }

{* ADMIN (MENU 2) TABLES *}

{ *** Graph table and update record table get their layout
      from HP-DMS.
  ***
}

LET Cnc_treedtab      "cnc_trees"
LET Cnc_upddtab       "cnc_upd_record"
LET Cnc_attnamedtab   "cnc_attributes"

{ ------------------------------------------------------------- }

{* QUERY (MENU 1) MACROS *}

{* Names for parent and child query *}
LET Cnc_parent_node_query_name    "cnc_parent_node_query"
LET Cnc_child_node_query_name     "cnc_child_node_query"

{* Names for element queries *}
LET Cnc_nelem_query_name  "cnc_nelem_query"
LET Cnc_elem_query_name   "cnc_elem_query"

{* Record the currently active query names *}
LET Cnc_active_nquery_name ''
LET Cnc_active_query_name  ''

{* Flag indicating if a node query has been done *}
LET Cnc_node_query        0

{* The type attribute number in the logical table title string *}
LET Cnc_type_num          2

{* Just a default column layout, it will change with the query sets *}
LET Cnc_column_layout   '                      |                       |         |              |      '

{* Logical tables for selection, sorting and data *}
LET Cnc_dtab_SEL        'cnc_query_select'
LET Cnc_dtab_SORT       'cnc_query_sort'
LET Cnc_dtab_DATA       'cnc_query_results'

{* Display tables for selection, sorting and data *}
LET Cnc_ltab_SEL        'cnc_query_select'
LET Cnc_ltab_SORT       'cnc_query_sort'
LET Cnc_ltab_DATA       'cnc_query_results'

{ *** Input the personality files *** }

LOAD_MACRO 'cnc_macro'   { Ready for LOAD_MACRO }
{ ------------------------------------------------------------- }

{ Initialize }
Cnc_admin_tables
Cnc_query_tables

{ --------------------------------------------------------------- }

{ DEFAULT Query Pages }

{ Create the default query pages for node and element queries }
DEFINE Cnc_query_pages_initialize

  NODE_QUERY_PAGE  'cnc_reserved_node' END
  NODE_QUERY_PAGE  ELEMENTS 'cnc_reserved_node'  END

  REMOVE_QUERY_PAGE  ALL CONFIRM

  MAKE_QUERY_PAGE 'cnc_nqp1'
			 ATTRIBUTE  DBC_NODE_NAME   4

			 ATTRIBUTE  DBC_NODE_TYPE   4
		END

  MAKE_QUERY_PAGE 'cnc_cqp1'
			 ATTRIBUTE   DB_NAME   4

			 ATTRIBUTE   DB_REVISION   4

			 ATTRIBUTE   DB_VERSION   4

			 ATTRIBUTE   DB_TOTAL   4

			 ATTRIBUTE   DB_RELEASE_DATE   4

		END

  MAKE_QUERY_PAGE 'cnc_cqp2'
			 ATTRIBUTE   DB_NAME   4

			 ATTRIBUTE   DB_OWNER   4

			 ATTRIBUTE   DB_GROUP   4

			 ATTRIBUTE   DB_PERMISSIONS   4

			 ATTRIBUTE   DB_CREATE_DATE   4
		END

  NODE_QUERY_PAGE  'cnc_reserved_node'  'cnc_nqp1'  END
  NODE_QUERY_PAGE  ELEMENTS 'cnc_reserved_node'  'cnc_cqp1' 'cnc_cqp2' END
END_DEFINE

{ --------------------------------------------------------------- }

{ Load time macros }

DEFINE Cnc_set_current_tree

{* Sets the current tree at the data base connection
   time, the current tree is defined in 'db_defaults'
   file.
*}

LOCAL Db_connect

	LET Db_connect Data_base_connected
	IF ((Db_connect = 1) AND
	    (Dm_cnc_enabled = 1)      AND
	    (Cnc_current_tree <> ''))
	   CURRENT_TREE Cnc_current_tree
	   SHOW_TABLE OFF Cnc_treedtab
	END_IF

END_DEFINE

{ ------------------------------------------------------------- }

{ Initialize }
Cnc_query_pages_initialize

Cnc_set_current_tree

{ ------------------------------------------------------------- }
