:	'(c) Copyright	Empress Software Inc.	1983, 2000'

:	'this creates new versions of the export files: apfmdb.ex and termdb.ex'
:	'from the databases: apfmdb and termdb'
:	'the old export files are renamed .old'

PATH=":../bin:/usr/ucb:/bin:/usr/bin"
export PATH
USAGE="*** Usage *** $0 [termdb] [apfmdb]"

. ../util_bin/banner

MKTERMDB=
MKAPFMDB=

case $1 in
   termdb) MKTERMDB=yes
	   shift ;;
   apfmdb) MKAPFMDB=yes
	   shift ;;
   "")	MKTERMDB=yes
	MKAPFMDB=yes
	;;
    *)  echo "$USAGE"
	exit 1 ;;
esac
	
case $1 in
   termdb) MKTERMDB=yes ;;
   apfmdb) MKAPFMDB=yes ;;
   "")	;;
   *) 	echo "$USAGE" 
	exit 1;;
esac
  
case  $MKAPFMDB in
  yes)
	echo "Emptying Compile/Link tables of apfmdb"

	empbatch apfmdb <<'@'
		lock level on sys_dictionary is null;
		lock level on sys_tables is null;
		lock level on sys_attrs is null;
		lock level on sys_privs is null;
		lock level on sys_attr_privs is null;
		lock level on sys_4gl_application is null;
		lock level on sys_4gl_compile is null;
		lock level on sys_4gl_domain is null;
		lock level on sys_4gl_field is null;
		lock level on sys_4gl_form is null;
		lock level on sys_4gl_key is null;
		lock level on sys_4gl_link is null;
		lock level on sys_4gl_script is null;
		lock level on sys_4gl_window is null;
		lock level on sys_ag_attribute is null;
		lock level on sys_ag_definition is null;
		lock level on sys_ag_function is null;
		lock level on sys_ag_menu is null;
		lock level on sys_ag_menu_item is null;
		lock level on sys_ag_parameter is null;
		lock level on sys_ag_qual_list is null;
		lock level on sys_ag_qualification is null;
		lock level on sys_ag_screen is null;
		lock level on sys_ag_screen_attr is null;
		lock level on sys_ag_table is null;
		empty sys_4gl_compile;
		empty sys_4gl_link;
@
	empexpt apfmdb.ex apfmdb
	;;
esac

case $MKTERMDB in
  yes)
	echo "Emptying Compile/Link tables of termdb"
	empbatch termdb <<'@'
		lock level on sys_dictionary is null;
		lock level on sys_tables is null;
		lock level on sys_attrs is null;
		lock level on sys_privs is null;
		lock level on sys_attr_privs is null;
		lock level on sys_4gl_application is null;
		lock level on sys_4gl_compile is null;
		lock level on sys_4gl_domain is null;
		lock level on sys_4gl_field is null;
		lock level on sys_4gl_form is null;
		lock level on sys_4gl_key is null;
		lock level on sys_4gl_link is null;
		lock level on sys_4gl_script is null;
		lock level on sys_4gl_window is null;
		lock level on sys_ag_attribute is null;
		lock level on sys_ag_definition is null;
		lock level on sys_ag_function is null;
		lock level on sys_ag_menu is null;
		lock level on sys_ag_menu_item is null;
		lock level on sys_ag_parameter is null;
		lock level on sys_ag_qual_list is null;
		lock level on sys_ag_qualification is null;
		lock level on sys_ag_screen is null;
		lock level on sys_ag_screen_attr is null;
		lock level on sys_ag_table is null;
		lock level on term_ap_key is null;
		lock level on term_ap_key_labels is null;
		lock level on term_ap_video is null;
		lock level on term_compile is null;
		lock level on term_form_edit is null;
		lock level on term_key is null;
		lock level on term_output is null;
		lock level on term_output_names is null;
		lock level on term_video is null;
		lock level on terminal is null;
		empty sys_4gl_compile;
		empty sys_4gl_link;
		empty term_compile;
@
	empexpt termdb.ex termdb
	;;
esac
