/* SYMSEL (SCM) -- SCM Symbol Placement with Attribute Selection */
/* SYMSEL (SCM) -- SCM-Symbolplatzierung mit Auswahl aus Attributdatenbank */
/*
// Copyright (c) 2003-2012 Oliver Bartels F+E, Muenchen
// Author: Roman Ludwig
// Changes History:
//	rl (120427) RELEASED FOR BAE V7.8.
//	rl (110228) ENHANCEMENT:
//		Added report box to ID replacement function.
//	rl (101019) RELEASED FOR BAE V7.6.
//	rl (100225) ENHANCEMENT:
//		Added symbol macro change warnings to update function.
//	rl (091027) RELEASED FOR BAE V7.4.
//	rl (090916) BUGFIX:
//		Suppressed $plname change warnings for valid
//		alternate macro list selections.
//	rl (090528) ENHANCEMENT:
//		Added standalone symbol pool dialog box.
//	rl (090519) ENHANCEMENT:
//		Added automatic base variant $plname filter to search mask.
//	rl (090305) ENHANCEMENT:
//		Added symbol macro specific documentation query support.
//	rl (081014) RELEASED FOR BAE V7.2.
//	rl (080605) ENHANCEMENT:
//		Added .doc file support.
//	rl (080410) ENHANCEMENT:
//		Added full variant support to ID update and replacment.
//	rl (080116) ENHANCEMENT:
//		Fixed problem with sorted list symbol preview.
//	rl (071029) RELEASED FOR BAE V7.0.
//	rl (071009) ENHANCEMENT:
//		Added $plname change check options.
//	rl (070423) ENHANCEMENT:
//		Added bae.ini controlled full $plname update mode.
//	rl (061129) ENHANCEMENT:
//		Changed symbol preview to activation on single click mark.
//	rl (060829) RELEASED FOR BAE V6.8.
//	rl (051004) RELEASED FOR BAE V6.6.
//	rl (050919) ENHANCEMENT:
//		Added named symbol pool import support.
//	rl (050509) ENHANCEMENT:
//		Added status field support.
//	rl (050506) ENHANCEMENT:
//		Added sort by table field option.
//	rl (050427) ENHANCEMENT:
//		Added symbol preview option.
//	rl (041018) ENHANCEMENT:
//		Fixed problem with subtree misselection in search mask.
//	rl (040914) ENHANCEMENT:
//		Allowing symbol macro change for multisymbol entries
//		in symbol and group replacement functions.
//	rl (040830) RELEASED FOR BAE V6.4.
//	rl (040603) ENHANCEMENT:
//		Added symbol pool support.
//	rl (040602) ENHANCEMENT:
//		Added documentation query to selection list.
//		Added layout part load request to selection list.
//	rl (031202) ENHANCEMENT:
//		Added symbol data search by symbol pick option to search mask.
//	rl (031025) ENHANCEMENT:
//		Added selection sort option.
//	rl (031024) ENHANCEMENT:
//		Added verification prompt for symbol macro change operation.
//	rl (030912) RELEASED FOR BAE V6.2.
//	rl (030807) ENHANCEMENT:
//		Added field width to data length adjustment option.
//	rl (030611) ENHANCEMENT:
//		Added history button autosize.
//		Added scrollable selection field options.
//	rl (030606) ENHANCEMENT:
//		Added orphant key report to update function.
//	rl (030520) ORIGINAL CODING.
//
// DESCRIPTION
//
// The symsel User Language program provides symbol placement
// capability with attribute selection from a database generated with
// the symattdb utility.
*/

// Includes
#include "pop.ulh"			// User Language popup utilities
#include "popdraw.ulh"			// User Language popup draw. util.
#include "scm.ulh"			// User Language SCM utilities
#include "sql.ulh"			// User Language SQL utilities

// Disable undo state request
#pragma ULCALLERNOUNDO

// Messages
string UPRABORT		= M_UPRABORT();
string UPRTOP		= M("TOP","TOP");
string UPRSEARCHBUT	= M("&Suche","&Search");
string UPRSELECTBUT	= M("&Selektion","&Selection");
string UPRUPDATEBUT	= M("&Update","&Update");
string UPRIMPORTBUT	= M("&Import","&Import");
string UPRDOCBUT	= M("&Doku","&Doc");
string UPRTRIMBUT	= M("Trim","Trim");
string UPRSANDBUT	= M("&UND-Suche","&AND Search");
string UPRSORBUT	= M("&ODER-Suche","&OR Search");
string UPRSYMBUT	= M("S&ymbol-Suche","S&ymbol Search");
string UPRDELBUT	= M("&Loeschen","&Delete");
string UPREMPTYBUT	= M("L&eeren","&Empty");
string UPRALLRES	= M("Alle &ruecksetzen","&Reset All");
string UPRNEXTDIAL	= M("&Weitere","&Next");
string UPRPREVDIAL	= M("&Vorherige","&Previous");
string UPRSEARCHMASK	= M("Suchmaske","Search Mask");
string UPRFCT00		= M("S&ymbolplatzierung","S&ymbol Placement");
string UPRFCT01		= M("&Warenkorb","Symbol P&ool");
string UPRFCT02		= M("Einzel&tausch","Single Re&placement");
string UPRFCT03		= M("&Gruppentausch","&Group Replacement");
string UPRFCT04		= M("&Nummerntausch","&ID Replacement");
string UPRAUTONAME	= M("Autoname","Autoname");
string UPRAUTOCLOSE	= M("schliessen","close");
string UPROLDID		= M("!Zu ersetzender Schluessel ? ",
			    "!Key to be replaced ? ");
string UPRSELBMOD	= M("Bearbeitungsmodus auswaehlen!",
			    "Select process mode!");
string UPRSELBMOD0	= M("Aktuelles &Blatt","&Current Sheet");
string UPRSELBMOD1	= M("&Gruppenelemente","&Group Elements");
string UPRSELBMOD2	= M("&Alle Blaetter","&All Sheets");
string UPRSELDOC	= M("Bearbeitungsmodus auswaehlen!",
			    "Select process mode!");
string UPRSELDOC0	= M("&PDF-Datei","&PDF File");
string UPRSELDOC0D	= M("&DOC-Datei","&DOC File");
string UPRSELDOC0E	= M("%s-Datei","%s File");
string UPRSELDOC1	= M("&Internetlink","&Internet Link");
string UPRSEL		= M("Datenbankselektion","Database selection");
string UPRPICKSYM	= M("Symbole selektieren!","Pick symbols!");
string UPRPICKSSYM	= M("Symbol selektieren!","Pick symbol!");
string UPRASKREF	= M("Bauteilname ? ","Part Name ? ");
string UPRSYMCHG	= M("Symbolwechsel von '%s' zu '%s'! Durchfuehren? ",
			    "Symbol change from '%s' to '%s'! Confirm ? ");
string UPRMSYMCHG	= M("Symbolmakrowechsel bei %d Symbolen! Durchfuehren? ",
			    "Symbol macro change at %d Symbols! Confirm ? ");
string UPRPLNCHG	= M("Layoutgehaeusewechsel! Durchfuehren? ",
			    "Layout macro change! Confirm ? ");
string UPRMPLNCHG	= M("Layoutgehaeusewechsel bei %d Symbolen! Durchfuehren? ",
			    "Layout macro change at %d Symbols! Confirm ? ");
string UPRMAPSEL	= M("Untersymbolauswahl","Sub Symbol Selection");
string UPRSYMSEL	= M("Warenkorb","Symbol Pool");
string UPRIMPFILE	= M("Warenkorbdatei ? ","Symbol Pool File Name ? ");
string UPREMPTYBASKET	= M("Gesamten Warenkorbinhalt loeschen?",
			    "Dismiss complete symbol basket contents?");
string UPRLOCKWARN  = M("Blatt '%s' ist von Benutzer '%s' gealden. Trotzdem Update ?",
			    "Page '%s' is loaded by '%s'. Update Anyway ?");
string REPLIB		= M("Bibliothek : %s","Library : %s'");
string REPSYM		= M("Symbol : %s","Symbol : %s");
string REPNODOC		= M("Keine Dokumentation zu Symbol gefunden!",
			    "No Documentation for symbol found!");
string REPNOMDOC	= M("Keine Dokumentation zu Symbolmakro '%s' gefunden!",
			    "No Documentation for symbol macro '%s' found!");
string REPNOSYM		= M("Keine Symbole zu Suchanfrage gefunden!",
			    "No Symbols for given query found!");
string REPNOSYMSEL	= M("Kein Symbol selektiert!","No Symbol selected!");
string REPNOKEYATTR	= M("Kein Schluesselattribut in der Datenbank!",
			    "Database misses key field!");
string REPSTOREPOOL	= M("Lege %d '%s' in Warenkorb...",
			    "Adding %d '%s' to symbol basket...");
string REPSTORENPOOL	= M("Lege %s ('%s') in Warenkorb...",
			    "Adding %s ('%s') to symbol basket...");
string REPSYMPROC	= M("%d/%d/%d Symbole bearbeitet.",
			    "%d/%d/%d Symbols processed.");
string REPIDREPLACE	= M("Ersetzung Sachnummer '%s' durch '%s':",
			    "ID Replacement '%s' by '%s':");
string REPSYMCHECK	= M("%d Symbole gesannt.","%d Symbols scanned");
string REPIDFOUND	= M("%d alte Sachnummern gefunden.",
			    "%d old IDs found.");
string REPIDREPCNT	= M("%d Attributersetzungen.",
			    "%d Attribute replacements.");
string REPATTCHG	= M("Symbol '%s' Attribute geaendert.",
			    "Symbol '%s' attributes changed.");
string REPVATTCHG	= M("Symbol '%s' Variantenattribute geaendert.",
			    "Symbol '%s' variant attributes changed.");
string REPIDMISS	= M("Verwaiste Sachnummern:","Orphant Keys:");
string REPPLCHANGE	= M("WARNUNG: Symbol '%s' $plname-Attribut/Gehaeuseaenderung '%s'->'%s'!",
			    "WARNING: Symbol '%s' changed $plname attribute/part macro '%s'->'%s'!");
string REPSYMCHANGE	= M("WARNUNG: Symbol '%s' Symbolmakroaenderung '%s'->'%s'!",
			    "WARNING: Symbol '%s' changed symbol macro '%s'->'%s'!");
string REPIMPIDMISS	= M("Unbekannte ignorierte Sachnummern:",
			    "Unknown Keys (ignored):");
string WRNIDMSG		= M("WARNUNG: Bauteil '%s' Sachnummer '%s' %s",
			    "WARNING: Part '%s' Key '%s' %s");
string WRNVIDMSG	= M("WARNUNG: Variante %d Bauteil '%s' Sachnummer '%s' %s",
			    "WARNING: Variant %d Part '%s' Key '%s' %s");
string ERRMAPERR	= M("Symbol '%s' passt nicht zu Mapping '%s'!",
			    "Symbol '%s' doesn't match mapping '%s'!");
string ERRIDMISS	= M("Bauteil '%s' Sachnummer '%s' nicht in Datenbank!",
			    "Part '%s' Key '%s' not in database!");
string ERRIMPIDMISS	= M("Sachnummer '%s' nicht in Datenbank!",
			    "Key '%s' not in database!");
string ERRPLVARERR	= M("Gehaeusewechsel in der Variante nicht moeglich!",
			    "Layout macro change for variants not allowed!");
string ERRPLVARERRV	= M("Gehaeusewechsel in der Variante nicht moeglich ('%s'<>'%s'!",
			    "Layout macro change for variants not allowed ('%s'<>'%s'!");
string ERRNOWIN		= M("Nur in Windowsumgebungen verfuegbar!",
			    "Windows Environment needed!");
string ERRVARFUNC	= M("Diese Funktion ist fuer Varianten nicht erlaubt!",
			    "Not allowed in variant edit mode!");
string ERRSETATT	= M("Fehler beim Eintragen des Attributes '%s' fuer '%s'!",
			    "Error setting attribute '%s' for '%s'!");
string ERRATTTMIS	= M("Symbol '%s' ('%s') kein Attributtext fuer '%s'!",
			    "Symbol '%s' ('%s') no attribute text for '%s'!");
string ERRNOKEYID	= M("Keine Symbole mit gesetzter Sachnummer vorhanden!",
			    "No symbols with valid key attribute found!");
string ERRNOMAP		= M("Symbol '%s' nicht in Mappingdefinition!",
			    "Symbol '%s' not in mapping definition!");
string ERRDBLPOOL	= M("Warenkorbfenster ist bereits aktiv!",
			    "Symbol pool box already active!");
string ERRDBLSBOX	= M("Symboldatenbankfenster ist bereits aktiv!",
			    "Symbol library window already active!");
string ERRELEMLOCK  = M("Blatt '%s' ist von Benutzer '%s' geladen. Solange kein Update moeglich!",
			    "Page '%s' is loaded by '%s'. Update not permitted!");
string ERRDBINIT	= M("SQL/DB-Datei '%s' kann nicht initialisiert werden!",
			    "Error initialyzing SQL/DB file '%s'!");

// INI file parameter name definitions
#define PAR_SYMSELDB	"SYMSELDB_SCM"	// Symbol selection database
#define PAR_LSYMSELDB	"LSYMSELDB_SCM"	// Symbol selection dest. database file
#define PAR_SSELDLIB	"SSELDLIB_SCM"	// Default symbol library
#define PAR_SSELLSEL	"SSELLSEL_SCM"	// Last selection flag
#define PAR_SSELAUTO	"SSELAUTO_SCM"	// Symbol auto name flag
#define PAR_SSELCLOSE	"SSELCLOSE_SCM"	// Symbol auto close box flag
#define PAR_NAMEPROMPT	"NAMEPROMPT_SCM"// Name prompt mode
#define PAR_SSELASORT	"SSELASORT_SCM"	// Attribute sort flag
#define PAR_SSELTSORT	"SSELTSORT_SCM"	// Table tree selection sort flag
#define PAR_SSELLSORT	"SSELLSORT_SCM"	// Selection list sort flag
#define PAR_SSELSORTF	"SSELSORTF_SCM"	// Selection list sort field
#define PAR_SSELAPAT	"SSELAPAT_SCM"	// Automatic pattern search flag
#define PAR_SPATHDOC	"SSELPDOC_SCM"	// Symbol search path documentation
#define PAR_SYMBTABF	"SYMBTABF_SCM"	// Symbol table field name
#define PAR_LMACTABF	"LMACTABF_SCM"	// Layout macro table field name
#define PAR_LIBTABF	"LIBTABF_SCM"	// Library table field name
#define PAR_MAPLIB	"MAPLIB_SCM"	// Mapping library name
#define PAR_SYMMAPDB	"SYMMAPDB_SCM"	// Symbol mapping database
#define PAR_LSYMMAPDB	"LSYMMAPDB_SCM"	// Local mapping database
#define PAR_ATTRKEY	"SSELKEYID_SCM"	// Key attribute name
#define PAR_STATUS	"SSELSTATUSF_SCM"	// Status field name
#define PAR_STATUSL	"SSELSTATUSL_SCM"	// Status value list
#define PAR_SSELBALST	"SSELBALST_SCM"	// Symbol basket display attribute list
#define PAR_RLKEY	"SSELRLKEY_SCM"	// $rlname key field
#define PAR_PDFFILE	"SSELPDF_SCM"	// PDF file field name
#define PAR_PDFCMD	"SSELPDFC_SCM"	// PDF file access command
#define PAR_PDFMODE	"SSELPDFM_SCM"	// PDF file access mode
#define PAR_PDFDIR	"SSELPDFD_SCM"	// PDF document folder
#define PAR_DOCCMD	"DOCCMD_STD"	// DOC file access command
#define PAR_WWWLINK	"SSELWWW_SCM"	// Internet link field name
#define PAR_WWWCMD	"SSELWWWC_SCM"	// Internet link access command
#define PAR_SSELBOXW	"SSELBOXW_SCM"	// Selection box width
#define PAR_SSELBOXH	"SSELBOXH_SCM"	// Selection box height
#define PAR_SSELPICW	"SSELPICW_SCM"	// Picture box width
#define PAR_SSELBUTW	"SSELBUTW_SCM"	// History button width
#define PAR_SSELBUTX	"SSELBUTX_SCM"	// History button x step
#define PAR_SSELTBW	"SSELTBW_SCM"	// Top button width
#define PAR_SSELTBX	"SSELTBX_SCM"	// Top button x step
#define PAR_SSELSEPX	"SSELSEPX_SCM"	// History separator x step
#define PAR_SSELFULLH	"SSELFULLH_SCM"	// Full header length trimming
#define PAR_SSELAUTOT	"SSELATRIM_SCM"	// Automatic column trimming
#define PAR_SSELSFW	"SSELSFW_SCM"	// Search edit field width
#define PAR_SSELSFN	"SSELSFN_SCM"	// Search field count
#define PAR_SSELSFVS	"SSELSFVS_SCM"	// Search field vertical spacing
#define PAR_SSELATTR	"SSELATTR_%s_SCM"	// Attribute mask
#define PAR_SSELATTRD	"SSELATTRDEFAULT_SCM"	// Default attribute mask
#define PAR_SSELATTRW	"SSELATTRW_%s_SCM"	// Attribute field width
#define PAR_SSELFIELD	"SSELFIELD_%s_SCM"	// Field mask
#define PAR_SSELFIELDD	"SSELFIELDDEFAULT_SCM"	// Default field mask
#define PAR_SSELFIELDW	"SSELFIELDW_%s_SCM"	// Field width
#define PAR_SSELFIELDDW	"SSELFIELDWIDTH_SCM"	// Default field width
#define PAR_SSELFDISP	"SSELFIELDDISP_SCM"	// Field display mode
#define PAR_SSELAALIAS	"SSELATTRALIAS_%s_SCM"	// Attribute alias pattern
#define PAR_SSELLMACUPD	"SSELLMACUPD_SCM"	// Layout macro update flag
#define PAR_SSELLMACQRY	"SSELLMACQRY_SCM"	// Lay. macro change query flag
#define PAR_ATTRCOMMP	"ATTR_%s_STD"	// Attribute comment pattern
#define PAR_DISPTEXT	"DISPTEXT_SCM"	// Display text flag
#define PAR_DISPPLNAME	"DISPPLNAME_SCM"// $plname part display flag
#define PAR_SBOXID	"SSELSBOXID_SCM"// Single dialog box ID

// Database structure definitions
string DEFSYMLIB	= bae_inistrval(PAR_SSELDLIB,"stdsym")
					/* Default symbol library */;
string MAPLIB		= bae_inistrval(PAR_MAPLIB,"mehrfach")
					/* Mapping library name */;
string SYMMAPDB				/* Symbol mapping database file name */;
int SBOXID		= bae_iniintval(PAR_SBOXID,0)
					/* Single dialog box ID */;
int LASTSEL		= bae_iniintval(PAR_SSELLSEL,1)
					/* Last selection flag */;
int AUTONAME		= bae_iniintval(PAR_SSELAUTO,0)
					/* Symbol auto name flag */;
int AUTOCLOSE		= bae_iniintval(PAR_SSELCLOSE,0)
					/* Symbol auto close mode */;
int NAMEPROMPT		= bae_iniintval(PAR_NAMEPROMPT,1)
					/* Symbol name prompt mode */;
int NAMEMODE				/* Symbol name mode */;
int AUTOPATTERN		= bae_iniintval(PAR_SSELAPAT,0)
					/* Automatic pattern search flag */;
int SPATHDOC		= bae_iniintval(PAR_SPATHDOC,1)
					/* Symbol search path documentation */;
int ATTRSORT		= bae_iniintval(PAR_SSELASORT,0)
					/* Attribute sort flag */;
int TREESORT		= bae_iniintval(PAR_SSELTSORT,1)
					/* Tree selection sort flag */;
int LISTSORT		= bae_iniintval(PAR_SSELLSORT,0)
					/* List selection sort flag */;
string SORTFIELD	= bae_inistrval(PAR_SSELSORTF,"")
					/* List selection sort field */;
int LMACUPD		= bae_iniintval(PAR_SSELLMACUPD,0)
					/* Layout macro update flag */;
int LMACQRY		= bae_iniintval(PAR_SSELLMACQRY,1)
					/* Layout macro change query flag */;
string SYMFIELD				/* Symbol field name */;
string LIBFIELD		= bae_inistrval(PAR_LIBTABF,M("Bibliothek","Library"))
					/* Library field name */;
string ATTRKEY		= bae_inistrval(PAR_ATTRKEY,"")
					/* Key (part id) attribute */;
string STATUSFIELD	= bae_inistrval(PAR_STATUS,"")
					/* Status field name */;
string LMACTABF		= bae_inistrval(PAR_LMACTABF,M("Gehaeuse","Footprint"))
					/* Layout macro field name */;
string RLKEY		= bae_inistrval(PAR_RLKEY,"")
					/* Requested library attribute */;
string PDFFILE		= bae_inistrval(PAR_PDFFILE,"")
					/* PDF file field name */;
string PDFCOMMAND	= bae_inistrval(PAR_PDFCMD,"")
					/* PDF file access command name */;
int PDFMODE		= bae_iniintval(PAR_PDFMODE,0)
					/* PDF file access mode */;
string PDFDIR		= bae_inistrval(PAR_PDFDIR,"")
					/* PDF document folder name */;
string DOCCOMMAND	= bae_inistrval(PAR_DOCCMD,"")
					/* DOC file access command name */;
string WWWLINK		= bae_inistrval(PAR_WWWLINK,"")
					/* WWW link field name */;
string WWWCOMMAND	= bae_inistrval(PAR_WWWCMD,"")
					/* WWW access command name */;
double SELBOXWIDTH	= bae_inidblval(PAR_SSELBOXW,95.0)
					/* Selection box width */;
double SELBOXHEIGHT	= bae_inidblval(PAR_SSELBOXH,16.0)
					/* Selection box height */;
double PICBOXWIDTH	= bae_inidblval(PAR_SSELPICW,30.0)
					/* Picture box width */;
double TOPBWIDTH	= bae_inidblval(PAR_SSELTBW,0.0)
					/* Top button width */;
double TOPBXSTEP	= bae_inidblval(PAR_SSELTBX,1.5)
					/* Top button x step */;
double BUTWIDTH		= bae_inidblval(PAR_SSELBUTW,0.0)
					/* History button width */;
double BUTXSTEP		= bae_inidblval(PAR_SSELBUTX,1.5)
					/* History button x step */;
double SEPXSTEP		= bae_inidblval(PAR_SSELSEPX,1.2)
					/* History separator x step */;
double SEDITWIDTH	= bae_inidblval(PAR_SSELSFW,20.0)
					/* Search edit field width */;
int SEDITN		= bae_iniintval(PAR_SSELSFN,12)
					/* Search edit field count */;
double SEDITSPC		= bae_inidblval(PAR_SSELSFVS,1.2)
					/* Search edit field spacing */;
int DEFATTRMODE		= bae_iniintval(PAR_SSELATTRD,3)
					/* Default attribute process mode */;
int DEFFIELDMODE	= bae_iniintval(PAR_SSELFIELDD,0)
					/* Default field process mode */;
int DEFFIELDWIDTH	= bae_iniintval(PAR_SSELFIELDDW,999)
					/* Default field width */;
int FIELDDISP		= bae_iniintval(PAR_SSELFDISP,2)
					/* Field display mode */;
int FULLTABHEAD		= bae_iniintval(PAR_SSELFULLH,1)
					/* Full table header trimming */;
int AUTOTRIM		= bae_iniintval(PAR_SSELAUTOT,0)
					/* Automatic table column trimming */;

int DISPTEXT = bae_iniintval(PAR_DISPTEXT,1)
					/* Text display mode */;
#define DBUTWIDTH	6.5		// Dialog box button width
#define DBUTSPACE	8.5		// Dialog box button hor. spacing
double ABUTXSTEP	= bae_swconfig(3)==2 ? 2.0 : 0.0
					/* Action button x step */;
string attrdb				/* Attributes database file name */;
struct statdes {			// Status descriptor
	string val			/* Status value */;
	int proc			/* Status process mode */;
	string msg			/* Status message */;
	};
struct statdes statdl[]			/* Status descriptor list */;
int statdn				/* Status descriptor count */;
STRINGS defbdattrl	= {		// Default basket display attributes
	"$val",
	"$gp",
	"$rpname",
	"$rbname",
	"$"
	};
STRINGS bdattrl				/* Basket display attribute list */;
int bdattrn				/* Basket display attribute count */;

// Global variable names
#define GV_NAMEMODE	"ssel_namemode"	// Symbol place name mode
#define GV_NAMEPAT	"ssel_namepat"	// Symbol current name pattern
#define GV_AUTOCLOSE	"ssel_autoclose"// Symbol place autoclose box mode
#define GV_SELAIDX	"ssel_aidx"	// Selection attribute index
#define GV_SELSTKN	"ssel_stkn"	// Selection stack count
#define GV_SELTYP	"ssel_typ_%d"	// Selection stack entry type
#define GV_SELID	"ssel_id_%d"	// Selection stack entry ID
#define GV_SELNAME	"ssel_name_%d"	// Selection stack entry name
#define GV_SELLN	"ssel_ln"	// Selection list count
#define GV_SELLTYP	"ssel_ltyp_%d"	// Selection list entry type
#define GV_SELLID	"ssel_lid_%d"	// Selection list entry ID
#define GV_SELLNAME	"ssel_lname_%d"	// Selection list entry name
#define GV_TABN		"ssel_tn"	// Selection table entry count
#define GV_TABNAME	"ssel_tname_%d"	// Selection table name
#define GV_TABATTR	"ssel_tattr_%d"	// Selection table attribute
#define GV_TABNMODE	"ssel_tnmode_%d"// Selection table name mode
#define GV_TABAMODE	"ssel_tamode_%d"// Selection table attribute mode
#define GV_TABWIDTH	"ssel_twidth_%d"// Selection table width
#define GV_TABCOL	"ssel_tcol_%d"	// Selection table control item
#define GV_TABFID	"ssel_tfid_%d"	// Selection table name ID
#define GV_TABAID	"ssel_taid_%d"	// Selection table attribute ID
#define GV_TABREAD	"ssel_tread_%d"	// Selection table read flag
#define GV_ATTRN	"ssel_an"	// Selection attribute count
#define GV_ATTRL	"ssel_a_%d_%d"	// Selection attribute
#define GV_ETRANSL	"ssel_et_%d"	// Selection entry translation list
#define GV_LASTSEL	"ssel_lastsel"	// Symbol place name mode
#define GV_NAMESIDX	"ssel_namesidx"	// Symbol search name list start
#define GV_SEARCHN	"ssel_sfn"	// Search field count
#define GV_SEARCHFN	"ssel_sname_%d"	// Search field count
#define GV_SEARCHFT	"ssel_styp_%d"	// Search field name type
#define GV_SEARCHFI	"ssel_sid_%d"	// Search field name ID
#define GV_SEARCHFA	"ssel_saname_%d"// Search field attribute name
#define GV_SEARCHFL	"ssel_slow_%d"	// Search field lowercase name
#define GV_SEARCHFV	"ssel_sval_%d"	// Search field value
#define GV_SEDITN	"ssel_sefn"	// Search edit field count
#define GV_SEDITL	"ssel_sel_%d"	// Search edit field item
#define GV_SEDITV	"ssel_sev_%d"	// Search edit field value
#define GV_RESN		"ssel_resn"	// Result entry count
#define GV_RESDID	"ssel_rdatid_%d"// Result entry data ID
#define GV_RESPAR	"ssel_rpar_%d"	// Result entry parent ID
#define GV_RESFOUND	"ssel_rf_%d"	// Result entry found
#define GV_SYMPDIS	"sp_sympooldis"	// Symbol pool query disable flag
#define GV_SYMBID	"sp_symbaskid"	// Symbol pool basket ID
#define GV_SYMNAME	"sp_symname"	// Symbol pool symbol name
#define GV_LIBNAME	"sp_libname"	// Symbol pool library name
#define GV_RLNAME	"sp_rlname"	// Symbol pool $rlname value
#define GV_FILENAME	"sp_filename"	// Symbol pool file name
#define GV_SBOXID	"s_boxid"	// Symbol selection box ID
#define GV_SPBOXID	"sp_boxid"	// Symbol pool box ID
#define GV_SPITEMFIELD	"sp_itemidx"	// Symbol pool item list index
#define GV_SPAUTONAME	"sp_autoname"	// Symbol pool autoname item index
#define GV_SPAUTOCLOSE	"sp_autoclose"	// Symbol pool auto close item index
#define GV_SITEMFIELD	"sa_itemidx"	// Symbol function/attr. list index
#define GV_SAUTONAME	"sa_autoname"	// Symbol autoname item index
#define GV_SAUTOCLOSE	"sa_autoclose"	// Symbol auto close item index
#define GV_CNTFIELD	"sa_cntidx"	// Symbol count index
#define GV_H1FIELD	"sa_h1idx"	// Symbol 1st header label index
#define GV_H2FIELD	"sa_h2idx"	// Symbol 2nd header label index
#define GV_BMFIELD	"sa_bmidx"	// Symbol bitmap label index
#define GV_BMHEIGHT	"sa_bmheight"	// Symbol bitmap height
#define GV_PREVBUT	"sm_pbidx"	// Symbol previous button index
#define GV_NEXTBUT	"sm_nbidx"	// Symbol next button index

// SQL command definitions
#define C_READ "cache read on;"
#define C_OFF "cache off;"
#define S_SELECT "select seltyp,selid,selname from selentry where parent=%d;"
#define SN_SELECT "select selname from selentry where selid=%d;"
#define SP_SELECT "select parent from selentry where selid=%d;"
#define ST_SELECT "select selname,parent from selentry where selid=%d;"
#define T_SELECT "select fieldidx,attrid,fieldid from tabfield where parent=%d;"
#define AN_SELECT "select attrname from attrnames where attrid=%d;"
#define A_SELECT "select attrid,attrname from attrnames;"
#define AI_SELECT "select attrid from attrnames where attrname=%s;"
#define FN_SELECT "select fieldname from fieldnames where fieldid=%d;"
#define F_SELECT "select fieldid,fieldname from fieldnames;"
#define FI_SELECT "select fieldid from fieldnames where fieldname=%s;"
#define DI_SELECT "select datid from datentry where parent=%d AND fieldidx=0;"
#define D_SELECT "select entval from datentry where datid=%d AND fieldidx=%d;"
#define DF_SELECT "select datid,parent from datentry where fieldid=%d AND lowval"
#define DA_SELECT "select datid,parent from datentry where attrid=%d AND lowval"
#define DK_SELECT "select datid,parent from datentry where attrid=%d AND entval=%s;"
#define DE_SELECT "select entval from datentry where datid=%d AND fieldid=%d;"
#define DP_SELECT "select entval,parent from datentry where datid=%d AND fieldid=%d;"
#define M_SELECT "select symbol,symcnt,libname,rlname,id from mapdef where mapname=%s;"
#define MA_SELECT "select attrname,attrval from mapattr where id=%d;"
#define SB_CREATE1 "create table msymbasket (basketid integer,cnt integer,"
#define SB_CREATE2 "symbol string,library string,rlname string,mapid integer);"
#define SB_HELP "help msymbasket;"
#define SB_INSERT "insert into msymbasket values(%d,%d,%s,%s,%s,%d);"
#define SB_SELECT "select symbol,basketid,cnt,library,rlname,mapid from msymbasket;"
#define SB_DELETE1 "delete from msymbasket where basketid=%d AND symbol=%s"
#define SB_DELETE2 " AND library=%s AND rlname=%s AND mapid=%d;"
#define SB_DELALL "delete from msymbasket;"
#define SC_SELECT "select basketid from msymbasket where basketid=%d AND mapid=%d;"
#define BA_CREATE1 "create table mbasketattr (basketid integer,"
#define BA_CREATE2 "attrname string,attrval string,mapid integer);"
#define BA_HELP "help mbasketattr;"
#define BA_INSERT "insert into mbasketattr values(%d,%s,%s,%d);"
#define BA_SELECT1 "select attrval from mbasketattr where "
#define BA_SELECT2 "basketid=%d AND mapid=%d AND attrname=%s;"
#define BV_SELECT1 "select attrname,attrval from mbasketattr where "
#define BV_SELECT2 "basketid=%d AND mapid=%d;"
#define BA_DELETE "delete from mbasketattr where basketid=%d AND mapid=%d;"
#define BA_DELALL "delete from mbasketattr;"
#define BI_CREATE "create table basketid (maxbasketid integer);"
#define BI_HELP "help basketid;"
#define BI_INSERT "insert into basketid values(%d);"
#define BI_SELECT "select maxbasketid from basketid;"
#define BI_DELETE "delete from basketid;"
#define V_SELECT  "select variant from varinfo;"
#define W_HELP "help lvhead;"
#define W_CREATE1 "create table lvhead (colhead string,"
#define W_CREATE2 "colidx integer,colwidth float);"
#define W_INSERT "insert into lvhead values(%s,%d,%.2f);"
#define W_SELECT "select colidx,colwidth from lvhead where colhead=%s;"
#define W_DELETE "delete from lvhead where colhead=%s;"
string sqlcommand			/* SQL command string */;
static string WPOSDB = strgetconffilename(WPOSVARNAME,WPOSFILENAME,2);

// Selection definitions
string curname	= ""			/* Current name */;
string ddbfname = bae_planfname()	/* Current project file name */;
struct seldes {				// Selection descriptor
	int typ				/* Selection type */;
	int id				/* Selection ID */;
	string name			/* Selection name */;
	} sell[]			/* Selection list */;
int seln				/* Selection count */;
struct seldes selstk[]			/* Selection stack */;
struct seldes cursel			/* Current selection */;
int selstkn				/* Selection count */;
struct tfdesc {				// Table field entry descriptor
	string name			/* Table field name */;
	string attr			/* Table field attribute name */;
	int nmode			/* Table field name mode */;
	int amode			/* Table field attribute mode */;
	int width			/* Table field width */;
	double colw			/* Table listview column width */;
	int colctrl			/* Table listview column index */;
	int fid				/* Table field name ID */;
	int aid				/* Table field attribute ID */;
	int read			/* Table field read flag */;
	} tfl[]				/* Table field list */;
int tfn			= 0		/* Table field count */;
int curtf				/* Current table field index */;
int cursidx				/* Cur. table sort key field index */;
int curstidx				/* Cur. table status key field index */;
int keyid				/* Current key attribute ID */;
int ntyp				/* Current name type */;
int datidl[]				/* Data ID list */;
int curid				/* Current ID */;
string attrl[][]			/* Attribute list */;
int attrn				/* Attribute count */;
int curattridx				/* Current attribute index */;
string curattr				/* Current attribute name */;
int atextflag				/* Attribute text flag */;
struct snamedes {			// Search name descriptor
	int typ				/* Name type */;
	int id				/* Name ID */;
	string aname			/* Attribute name */;
	string name			/* Name */;
	string lowname			/* Lower case name */;
	string val			/* Field value */;
	} sfl[]				/* Name list */;
int sfn			= 0		/* Selection field count */;
int lastselid		= bae_iniintval(GV_LASTSEL,(-1))
					/* Last selection ID */;
int nlsidx		= 0		/* Name list start idx. */;
struct resdes {				// Search result descriptor
	int datid			/* Result data ID */;
	int parent			/* Result parent ID */;
	int found			/* Result found */;
	} resl[]			/* Result list */;
int resn		= 0		/* Result count */;
int selmode				/* Selection mode */;
int seldatid				/* Selection data ID */;
string attrval				/* Attribute value */;
STRINGS hl				/* Report list */;
int hn			= 0		/* Report count */;
STRINGS msgl				/* Message list */;
int msgn		= 0		/* Message count */;
struct mapdes {				// Mapping descriptor
	string name			/* Symbol name */;
	int cnt				/* Symbol count */;
	string libname			/* Library name */;
	string rlname			/* Requested library name */;
	int id				/* Mapping attribute ID count */;
	} mapl[]			/* Mapping list */;
int mapn				/* Mapping count */;
struct symdes {				// Symbol pool descriptor
	int cnt				/* Symbol count */;
	int id				/* Symbol basket ID */;
	string name			/* Symbol name */;
	string libname			/* Library name */;
	string rlname			/* Requested library name */;
	string attr			/* Symbol attributes */;
	int mapid			/* Mapping attributes ID */;
	} syml[]			/* Symbol pool list */;
int symn				/* Symbol pool count */;
int cursym				/* Current symbol pool index */;
struct attrdef {			// Attribute assignment descriptor
	string name			/* Attribute name */;
	string val			/* Attribute value */;
	} vall[]			/* Attribute value list */;
int valn				/* Attribute value count */;
STRINGS elist				/* Entry list */;
STRINGS klist				/* Key list */;
int color				/* Current color */;
int boxidx				/* Dialog box index */;
int h1idx = (-1)			/* 1st header label item index */;
int h2idx = (-1)			/* 2nd header label item index */;
int bmlabidx = (-1)			/* Bitmap label item index */;
int anidx = (-1)			/* Autoname item index */;
int acidx = (-1)			/* Autoclose item index */;
double picheight			/* Picture box height */;
int etransl[]				/* Entry index transfer list */;
int act_var	= 0			/* Active variant */;
int varn = 0				/* Variant count */;
int cflag = 0				/* Change flag */;

// Main program
void main()
{
	int done = 0			/* Done flag */;
	// Abort if invalid plan class
	if (bae_planddbclass()!=DDBCLSCM)
		error_class();
	// Set database name
	if ((attrdb=bae_inistrval(PAR_LSYMSELDB,""))=="")
		attrdb=scmlibdir()+bae_inistrval(PAR_SYMSELDB,"symsel.dat");
	if ((SYMMAPDB=bae_inistrval(PAR_LSYMMAPDB,""))=="")
		SYMMAPDB=scmlibdir()+bae_inistrval(PAR_SYMMAPDB,"symmap.dat");
	// Init. the attribute flags
	initattrvar();
	// Init. the selection stack
	initselstack();
	// Check if automated interaction
	if (bae_peekiact()==2)
		switch (askstr("",MAXTEXTLEN)) {
			// Query symbol documentation
			case "docu" :
			documentation(-1);
			exit(0);
			// Update symbol pool display
			case "poolupdate" :
			symbolpool(1);
			exit(0);
			// Update next symbol name display
			case "nameupdate" :
			if (varget(GV_SBOXID,boxidx)==0 &&
			 varget(GV_SAUTONAME,anidx)==0)
				nameupdate(boxidx);
			exit(0);
			// Open symbol pool dialog box
			case "pool" :
			symbolpool(0);
			exit(0);
			// Attribute box
			case "selattr" :
			selectattr();
			break;
			// Search mask box
			case "searchmask" :
			searchmask();
			break;
			// Search result box
			case "searchresult" :
			searchresult();
			break;
			// Function selection box
			case "selfunc" :
			selectfunc();
			varset(GV_SELAIDX,-1);
			break;
			}
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	// Perform the selection loop
	while (!done) {
		// Check if table selection
		if (selstk[selstkn-1].typ) {
			storeselstack();
			selectattr();
			}
		else {
			// Select next function level
			selectfunc();
			varset(GV_SELAIDX,-1);
			}
		}
}

void initattrvar()
/*
// Init. the attribute variables
*/
{
	if (varget(GV_NAMEMODE,NAMEMODE))
		NAMEMODE=(AUTONAME || !NAMEPROMPT);
	if (varget(GV_AUTOCLOSE,AUTOCLOSE))
		AUTOCLOSE=bae_iniintval(PAR_SSELCLOSE,0);
	// Check if symbol table field defined
	if (varget(PAR_SYMBTABF,SYMFIELD)) {
		// Set default attribute variables
		SYMFIELD="Symbol";
		varset(PAR_SYMBTABF,SYMFIELD);
		varset("SSELATTR_VAL_SCM",11);
		varset("SSELFIELD_PLNAME_SCM",3);
		varset(
		 M("SSELFIELD_GEHAEUSE_SCM","SSELFIELD_FOOTPRINT_SCM"),3);
		varset("SSELFIELD_TYP_SCM",3);
		varset("SSELFIELDW_TYP_SCM",15);
		varset(
		 M("SSELFIELD_KOMMENTAR_SCM","SSELFIELD_COMMENT_SCM"),3);
		varset(
		 M("SSELFIELDW_KOMMENTAR_SCM","SSELFIELDW_COMMENT_SCM"),1);
		varset(
		 M("SSELFIELD_KATEGORIE_SCM","SSELFIELD_CATEGORY_SCM"),3);
		varset(
		 M("SSELFIELDW_KATEGORIE_SCM","SSELFIELDW_CATEGORY_SCM"),0);
		varset(
		 M("SSELFIELD_HERSTELLER_SCM","SSELFIELD_MANUFACTURER_SCM"),3);
		varset(
		 M("SSELFIELDW_HERSTELLER_SCM","SSELFIELDW_MANUFACTURER_SCM"),0);
		varset(
		 M("SSELFIELD_BIBLIOTHEK_SCM","SSELFIELD_LIBRARY_SCM"),3);
		varset(
		 M("SSELFIELDW_BIBLIOTHEK_SCM","SSELFIELDW_LIBRARY_SCM"),0);
		}
	if (PDFFILE!="") {
		if (PDFCOMMAND=="")
			getextprog(".pdf",PDFCOMMAND);
		if (DOCCOMMAND=="")
			getextprog(".doc",DOCCOMMAND);
		}
	if (WWWCOMMAND=="")
		getextprog(".htm",WWWCOMMAND);
	// Get the status description list
	for (statdn=0;statdn<1000;statdn++) {
		if ((statdl[statdn].val=bae_inistrval(
		 bae_inifieldvarname(PAR_STATUSL,statdn,0),""))=="")
			break;
		if (statdl[statdn].val==" ")
			statdl[statdn].val="";
		statdl[statdn].proc=bae_iniintval(
		 bae_inifieldvarname(PAR_STATUSL,statdn,1),0);
		statdl[statdn].msg=bae_inistrval(
		 bae_inifieldvarname(PAR_STATUSL,statdn,2),"");
		}
	// Get the basket display attribute list
	for (bdattrn=0;bdattrn<100;bdattrn++) {
		if ((bdattrl[bdattrn]=bae_inistrval(
		 bae_iniarrayvarname(PAR_SSELBALST,bdattrn),""))=="") {
			// Check if list defined at all
			if (bdattrn==0) {
				// Use default printer device name list
				bdattrl=defbdattrl;
				bdattrn=arylength(bdattrl);
				}
			break;
			}
		}
	// Get the key attribute ID
	curid=(-1);
	sprintf(sqlcommand,AI_SELECT,sql_quotestr(ATTRKEY));
	if (sqlcmd(attrdb,sqlcommand,idfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	keyid=curid;
	// Query the current active variant
	if (cap_rulequery(RS_OCSCMDB,0,RS_SCMSUBJ,RS_VARIANT,"?d",act_var)<1)
		// Set default variant
		act_var=0;
	// Query variant count
	varn=1;
	sqlcmd(ddbfname,V_SELECT,varfunc);
	// Create/init report column info database file
	if (sqlinit(WPOSDB,0)==(-1) && sqlinit(WPOSDB,1)==(-1))
		// SQL/DB creation error
		errormsg(ERRDBINIT,WPOSDB);
	// Create tables in database
	if (sqlcmd(WPOSDB,W_HELP,NULL)!=0)
		if (sqlcmd(WPOSDB,W_CREATE1+W_CREATE2,NULL))
			// SQL/DB error (ignore table already defined error)
			sql_dberror(25);
}

int varfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Variant data query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Check if new max. variant number
	if (dint>=varn)
		varn=dint+1;
	// Return without errors
	return(0);
}

void initselstack()
/*
// Init. the selection stack
*/
{
	string varname			/* Variable name */;
	int i				/* Loop control variable */;
	// Check selection stored
	if (varget(GV_SELSTKN,selstkn)) {
		// Init. the selection stack
		selstk[0].typ=0;
		selstk[0].id=0;
		selstk[0].name=UPRTOP;
		selstkn=1;
		varset(GV_SELAIDX,-1);
		}
	else {
		// Get last selection stack
		for (i=0;i<selstkn;i++) {
			sprintf(varname,GV_SELTYP,i);
			varget(varname,selstk[i].typ);
			sprintf(varname,GV_SELID,i);
			varget(varname,selstk[i].id);
			sprintf(varname,GV_SELNAME,i);
			varget(varname,selstk[i].name);
			}
		if (varget(GV_SELLN,seln)) {
			seln=0;
			}
		else {
			for (i=0;i<seln;i++) {
				sprintf(varname,GV_SELLTYP,i);
				varget(varname,sell[i].typ);
				sprintf(varname,GV_SELLID,i);
				varget(varname,sell[i].id);
				sprintf(varname,GV_SELLNAME,i);
				varget(varname,sell[i].name);
				}
			}
		}
}

void storeselstack()
/*
// Store the current selection stack
*/
{
	string varname			/* Variable name */;
	int i				/* Loop control variable */;
	// Store stack size
	varset(GV_SELSTKN,selstkn);
	// Store last selection stack
	for (i=0;i<selstkn;i++) {
		sprintf(varname,GV_SELTYP,i);
		varset(varname,selstk[i].typ);
		sprintf(varname,GV_SELID,i);
		varset(varname,selstk[i].id);
		sprintf(varname,GV_SELNAME,i);
		varset(varname,selstk[i].name);
		}
}

void selectfunc()
/*
// Perform a function stack selection
*/
{
	double butx			/* Dialog box button x coordinate */;
	double cy = DIAL_TOPMARG	/* Dialog box current y coordinate */;
	double width			/* Dialog box x step */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int lbidx = (-1)		/* List box item index */;
	string name			/* Dialog box item name */;
	string varname			/* Variable name */;
	int actcode			/* Action code */;
	int reason			/* Callback reason */;
	int intval			/* Dialog box item integer value */;
	int boxid			/* Dialog box ID */;
	int i				/* Loop control variable */;
	// Check if action call
	if (varget(VAR_PDBOXIDX,boxidx)==0 &&
	 varget(VAR_PDBOXACT,actcode)==0 && varget(VAR_PDBOXREAS,reason)==0 &&
	 varget(VAR_PDBOXIVAL,intval)==0 && varget(VAR_PDBOXNAME,name)==0) {
		// Remove callback parameters
		vardelete(VAR_PDBOXIDX);
		vardelete(VAR_PDBOXACT);
		vardelete(VAR_PDBOXREAS);
		vardelete(VAR_PDBOXIVAL);
		vardelete(VAR_PDBOXNAME);
		varget(GV_SITEMFIELD,lbidx);
		bae_dialsetcurrent(boxidx);
		bae_dialgetdata(lbidx,i,0.0,"");
		bae_dialsetcurrent(0);
		switch (actcode) {
			// Function selection
			case 1 :
			if (i>=0 && i<seln) {
				selstk[selstkn]=sell[i];
				selstkn++;
				}
			storeselstack();
			vardelete(GV_SITEMFIELD);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			break;
			// Search
			case 2 :
			vardelete(GV_SITEMFIELD);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			searchmask();
			exit(0);
			// Update
			case 3 :
			update();
			exit(0);
			// Documentation link
			case 4 :
			mousegrab(1);
			documentation(-1);
			exit(0);
			// Symbol pool
			case 5 :
			symbolpool(0);
			exit(0);
			// Quit/Abort
			case (-1) :
			default :
			// Abort
			storeselstack();
			vardelete(GV_SITEMFIELD);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			if (actcode>=6 && actcode<=(selstkn+4)) {
				selstkn=actcode-5;
				storeselstack();
				break;
				}
			if (actcode!=(-2))
				exit(0);
			}
		if (actcode!=(-2))
			return;
		}
	if (varget(GV_SITEMFIELD,lbidx)==0)
		error(ERRDBLSBOX);
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	baseheight=
	 DIAL_TOPMARG+DIAL_BUTVSTEP+2.0*DIAL_SEPVSTEP+DIAL_CTRVSTEP+0.2;
	dialwidth=1.0+bae_dialgettextlen(0,UPRFCT01)+
	 bae_dialgettextlen(0,UPRSEARCHBUT)+bae_dialgettextlen(0,UPRUPDATEBUT)+
	 bae_dialgettextlen(0,UPRDOCBUT)+5.0*ABUTXSTEP;
	butx=0.0;
	for (i=0;i<(selstkn-1);i++) {
		width= i==0 ? TOPBWIDTH : BUTWIDTH;
		if (width==0.0)
			butx+=bae_dialgettextlen(0,selstk[i].name);
		butx+= i==0 ? TOPBXSTEP : BUTXSTEP;
		butx+=SEPXSTEP;
		}
	if (dialwidth>butx)
		butx=dialwidth;
	boxid=bae_iniintval(PAR_MODALBOX,0) ? (PA_MODALBOX|3044) : 3044;
	dial_getboxsizemin(boxid,dialwidth,dialheight,
	 DIAL_LEFTMARG+SELBOXWIDTH+DIAL_RIGHTSMARG,baseheight+SELBOXHEIGHT,
	 DIAL_LEFTMARG+butx+DIAL_RIGHTSMARG,baseheight+2.0);
	SELBOXWIDTH=dialwidth-DIAL_LEFTMARG-DIAL_RIGHTSMARG;
	// Get selection entries
	seln=0;
	sprintf(sqlcommand,S_SELECT,selstk[selstkn-1].id);
	if (sqlcmd(attrdb,sqlcommand,selfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Check if single entry
	if (seln==1) {
		// Autoselect entry
		selstk[selstkn]=sell[0];
		selstkn++;
		return;
		}
	// Store symbol pool button
	butx=DIAL_LEFTMARG+1.0;
	bae_dialaddcontrol(
	 PA_ACT,0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT01);
	butx+=bae_dialgettextlen(0,UPRFCT01)+ABUTXSTEP;
	// Store search mask button
	bae_dialaddcontrol(
	 PA_ACT,0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSEARCHBUT);
	butx+=bae_dialgettextlen(0,UPRSEARCHBUT)+ABUTXSTEP;
	// Store update button
	bae_dialaddcontrol(PA_ACT|(ATTRKEY!="" ? 0 : PA_GRAYED),
	 0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRUPDATEBUT);
	butx+=bae_dialgettextlen(0,UPRUPDATEBUT)+ABUTXSTEP;
	// Store document button
	bae_dialaddcontrol(PA_ACT|((selstkn==1 &&
	 ((WWWLINK!="" && WWWCOMMAND!="") ||
	  (PDFFILE!="" && (PDFCOMMAND!="" || DOCCOMMAND!=""))))
	 ? 0 : PA_GRAYED),0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRDOCBUT);
	cy+=DIAL_BUTVSTEP;
	dial_hsep(cy);
	// Display selection history buttons
	butx=DIAL_LEFTMARG;
	for (i=0;i<(selstkn-1);i++) {
		// Store entry button
		width= i==0 ? TOPBWIDTH : BUTWIDTH;
		bae_dialaddcontrol(PA_ACT,0,i+6,0,0.0,0.0,0.0,"",
		 0,butx,cy,width,selstk[i].name);
		if (width==0.0)
			butx+=bae_dialgettextlen(0,selstk[i].name);
		butx+= i==0 ? TOPBXSTEP : BUTXSTEP;
		// Store seperator
		dial_label(butx,cy,"/");
		butx+=SEPXSTEP;
		}
	// Store selection label
	dial_label(butx,cy,selstk[selstkn-1].name);
	cy+=DIAL_CTRVSTEP;
	// Store list box
	lbidx=bae_dialadvcontrol(PA_LB|PA_SCALLBACK|PA_HSCROLL|PA_HBRDREL|
	 PA_VBRDREL,(-1),0,(-1),0.0,0.0,0.0,"",0,
	 DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
	// Store list box entries
	for (i=0;i<seln;i++) {
		bae_dialaddcontrol(PA_LBE,0,1,i,0.0,0.0,0.0,"",0,
		 0.0,0.0,0.0,sell[i].name);
		sprintf(varname,GV_SELLTYP,i);
		varset(varname,sell[i].typ);
		sprintf(varname,GV_SELLID,i);
		varset(varname,sell[i].id);
		sprintf(varname,GV_SELLNAME,i);
		varset(varname,sell[i].name);
		}
	varset(GV_SELLN,seln);
	// Display dialog box
	bae_setintpar(16,boxid);
	if ((boxidx=bae_dialboxperm("!"+UPRSEL,0,dialwidth,dialheight))<0)
		error_abort();
	sprintf(varname,VAR_PDBOXSEQ,boxidx);
	varset(varname,"symsel:'selfunc'");
	sprintf(varname,VAR_PDBOXMODE,boxidx);
	varset(varname,0);
	varset(GV_SITEMFIELD,lbidx);
	storeselstack();
	exit(0);
}

void selectattr()
/*
// Perform an attribute selection
*/
{
	string header			/* Header string */;
	string buf			/* String buffer */;
	double butx			/* Dialog box button x coordinate */;
	double cy = DIAL_TOPMARG	/* Dialog box current y coordinate */;
	double width			/* Dialog box element width */;
	double baseheight		/* Dialog box base height */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	int scnt			/* Symbol count */;
	int lbidx = (-1)		/* List box item index */;
	int cntidx = (-1)		/* Count edit item index */;
	int dcnt			/* Display field count */;
	int lbmode			/* List box mode */;
	int aidx			/* Attribute index */;
	int boxbuf			/* Dialog box buffer index */;
	string name			/* Dialog box item name */;
	string varname			/* Variable name */;
	int actcode			/* Action code */;
	int reason			/* Callback reason */;
	int intval			/* Dialog box item integer value */;
	int update = 0			/* Update flag */;
	int sortidx = (-1)		/* Sort index */;
	int boxid			/* Dialog box ID */;
	int dialsupport	= 0		/* Dialog box support flags */;
	int i				/* Loop control variable */;
	// Get the dialog support flags
	bae_getintpar(41,dialsupport);
	// Check if action call
	if (varget(VAR_PDBOXIDX,boxidx)==0 &&
	 varget(VAR_PDBOXACT,actcode)==0 && varget(VAR_PDBOXREAS,reason)==0 &&
	 varget(VAR_PDBOXIVAL,intval)==0 && varget(VAR_PDBOXNAME,name)==0) {
		// Remove callback parameters
		vardelete(VAR_PDBOXIDX);
		vardelete(VAR_PDBOXACT);
		vardelete(VAR_PDBOXREAS);
		vardelete(VAR_PDBOXIVAL);
		vardelete(VAR_PDBOXNAME);
		varget(GV_SITEMFIELD,lbidx);
		varget(GV_CNTFIELD,cntidx);
		varget(GV_SAUTONAME,anidx);
		varget(GV_SAUTOCLOSE,acidx);
		varget(GV_H1FIELD,h1idx);
		varget(GV_H2FIELD,h2idx);
		varget(GV_BMFIELD,bmlabidx);
		varget(GV_BMHEIGHT,picheight);
		bae_dialsetcurrent(boxidx);
		bae_dialgetdata(lbidx,aidx,0.0,"");
		bae_dialgetdata(cntidx,scnt,0.0,"");
		bae_dialgetdata(anidx,NAMEMODE,0.0,"");
		bae_dialgetdata(acidx,AUTOCLOSE,0.0,"");
		if (AUTOCLOSE && bae_iniintval(PAR_SSELCLOSE,0)!=0)
			AUTOCLOSE=bae_iniintval(PAR_SSELCLOSE,0);
		bae_dialsetcurrent(0);
		varset(GV_NAMEMODE,NAMEMODE);
		varset(GV_AUTOCLOSE,AUTOCLOSE);
		// Get buffered table structure
		if (varget(GV_TABN,tfn))
			tfn=0;
		for (curtf=0;curtf<tfn;curtf++) {
			sprintf(varname,GV_TABNAME,curtf);
			varget(varname,tfl[curtf].name);
			sprintf(varname,GV_TABATTR,curtf);
			varget(varname,tfl[curtf].attr);
			sprintf(varname,GV_TABNMODE,curtf);
			varget(varname,tfl[curtf].nmode);
			sprintf(varname,GV_TABAMODE,curtf);
			varget(varname,tfl[curtf].amode);
			sprintf(varname,GV_TABWIDTH,curtf);
			varget(varname,tfl[curtf].width);
			sprintf(varname,GV_TABCOL,curtf);
			varget(varname,tfl[curtf].colctrl);
			sprintf(varname,GV_TABFID,curtf);
			varget(varname,tfl[curtf].fid);
			sprintf(varname,GV_TABAID,curtf);
			varget(varname,tfl[curtf].aid);
			sprintf(varname,GV_TABREAD,curtf);
			varget(varname,tfl[curtf].read);
			}
		// Get buffered attribute list
		if (varget(GV_ATTRN,attrn))
			attrn=0;
		for (curattridx=0;curattridx<attrn;curattridx++) {
			sprintf(varname,GV_ETRANSL,curattridx);
			varget(varname,etransl[curattridx]);
			for (curtf=0;curtf<tfn;curtf++) {
				sprintf(varname,GV_ATTRL,curattridx,curtf);
				varget(varname,attrl[curattridx][curtf]);
				}
			}
		switch (actcode) {
			// Update
			case 1 :
			nameupdate(boxidx);
			exit(0);
			// Done
			case 2 :
			case 3 :
			case 4 :
			case 5 :
			case 0 :
			case 7 :
			case 9 :
			varset(GV_SELAIDX,aidx);
			curattridx=aidx;
			if (curattridx<0) {
				bae_msgbox(0,REPNOSYMSEL,"");
				exit(0);
				}
			if (AUTOCLOSE==2 && actcode!=5) {
				vardelete(GV_SITEMFIELD);
				vardelete(GV_SAUTONAME);
				vardelete(GV_SAUTOCLOSE);
				vardelete(GV_CNTFIELD);
				vardelete(GV_H1FIELD);
				vardelete(GV_H2FIELD);
				vardelete(GV_BMFIELD);
				vardelete(GV_BMHEIGHT);
				vardelete(GV_NAMEPAT);
				vardelete(GV_SBOXID);
				sprintf(varname,VAR_PDBOXSEQ,boxidx);
				vardelete(varname);
				sprintf(varname,VAR_PDBOXMODE,boxidx);
				vardelete(varname);
				bae_dialsetcurrent(boxidx);
				if (dialsupport&DIAL_LIST)
					tabcolstore(selstk[selstkn-1].id);
				bae_dialclr();
				bae_dialsetcurrent(0);
				bae_clriactqueue();
				storeselstack();
				varset(GV_SELAIDX,aidx);
				}
			curattridx=etransl[curattridx];
			if (curattridx>=0 && curattridx<attrn)
			    switch (actcode) {
				// Set single symbol ID's
				case 2 :
				mousegrab(1);
				singlesymbolids(curattridx);
				break;
				// Set group symbol ID's
				case 3 :
				groupsymbolids(curattridx);
				break;
				// Replace symbol ID
				case 4 :
				replaceid(curattridx);
				break;
				// Display documentation
				case 5 :
				documentation(curattridx);
				break;
				// Place symbol
				case 0 :
				case 7 :
				if (act_var>0) {
					bae_msgbox(1,ERRVARFUNC,"");
					break;
					}
				if (AUTOCLOSE==1) {
					vardelete(GV_SITEMFIELD);
					vardelete(GV_SAUTONAME);
					vardelete(GV_SAUTOCLOSE);
					vardelete(GV_CNTFIELD);
					vardelete(GV_H1FIELD);
					vardelete(GV_H2FIELD);
					vardelete(GV_BMFIELD);
					vardelete(GV_BMHEIGHT);
					vardelete(GV_NAMEPAT);
					vardelete(GV_SBOXID);
					sprintf(varname,VAR_PDBOXSEQ,boxidx);
					vardelete(varname);
					sprintf(varname,VAR_PDBOXMODE,boxidx);
					vardelete(varname);
					bae_dialsetcurrent(boxidx);
					if (dialsupport&DIAL_LIST)
						tabcolstore(
						 selstk[selstkn-1].id);
					bae_dialclr();
					bae_dialsetcurrent(0);
					bae_clriactqueue();
					storeselstack();
					varset(GV_SELAIDX,aidx);
					}
				mousegrab(1);
				plcnewsymbol(curattridx);
				if (!AUTOCLOSE)
					nameupdate(boxidx);
				break;
				// Place into symbol pool
				case 9 :
				bae_dialsetcurrent(boxidx);
				bae_dialsetdata(
				 cntidx,PA_INT|PA_CHKLL,1,0.0,"");
				bae_dialsetcurrent(0);
				if (symbolpooladd(scnt,curattridx,"")) {
					boxbuf=bae_dialboxbufstore();
					symbolpool(1);
					bae_dialboxbufload(boxbuf);
					}
				break;
				default :
				}
			exit(0);
			// Search
			case 6 :
			vardelete(GV_SITEMFIELD);
			vardelete(GV_SAUTONAME);
			vardelete(GV_SAUTOCLOSE);
			vardelete(GV_CNTFIELD);
			vardelete(GV_H1FIELD);
			vardelete(GV_H2FIELD);
			vardelete(GV_BMFIELD);
			vardelete(GV_BMHEIGHT);
			vardelete(GV_NAMEPAT);
			vardelete(GV_SBOXID);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			if (dialsupport&DIAL_LIST)
				tabcolstore(selstk[selstkn-1].id);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			searchmask();
			exit(0);
			// Update symbol preview
			case 8 :
			varset(GV_SELAIDX,aidx);
			sympreview(boxidx,aidx,0);
			exit(0);
			default :
			vardelete(GV_SITEMFIELD);
			vardelete(GV_SAUTONAME);
			vardelete(GV_SAUTOCLOSE);
			vardelete(GV_CNTFIELD);
			vardelete(GV_H1FIELD);
			vardelete(GV_H2FIELD);
			vardelete(GV_BMFIELD);
			vardelete(GV_BMHEIGHT);
			vardelete(GV_NAMEPAT);
			vardelete(GV_SBOXID);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			if (dialsupport&DIAL_LIST)
				tabcolstore(selstk[selstkn-1].id);
			bae_dialclr();
			bae_dialsetcurrent(0);
			if (actcode>=1000 || actcode==(-2) || actcode==10) {
				if (actcode>=1000) {
					sortidx=actcode-1000;
					LISTSORT=1;
					}
				update= actcode==10 ? 2 : 1;
				break;
				}
			// Quit/Abort
			bae_clriactqueue();
			storeselstack();
			varset(GV_SELAIDX,aidx);
			if (actcode>=11 && actcode<selstkn+10) {
				selstkn=actcode-10;
				storeselstack();
				break;
				}
			exit(0);
			}
		if (!update)
			return;
		}
	if (varget(GV_SITEMFIELD,lbidx)==0)
		error(ERRDBLSBOX);
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+DIAL_SEPVSTEP+DIAL_CTRVSTEP+0.2;
	if (FIELDDISP!=2 && (dialsupport&DIAL_LIST)==0)
		baseheight+=DIAL_TXTVSTEP;
	boxid=bae_iniintval(PAR_MODALBOX,0) ?
	 (PA_MODALBOX|(SBOXID ? 3044 : 3045)) : (SBOXID ? 3044 : 3045);
	dial_getboxsizemin(boxid,dialwidth,dialheight,
	 DIAL_LEFTMARG+SELBOXWIDTH+PICBOXWIDTH+DIAL_RIGHTSMARG,
	 baseheight+SELBOXHEIGHT,
	 DIAL_LEFTMARG+9.0+10.0*ABUTXSTEP+bae_dialgettextlen(0,UPRFCT00)+
	 bae_dialgettextlen(0,UPRAUTONAME)+bae_dialgettextlen(0,UPRAUTOCLOSE)+
	 bae_dialgettextlen(0,UPRFCT01)+bae_dialgettextlen(0,UPRFCT02)+
	 bae_dialgettextlen(0,UPRFCT03)+bae_dialgettextlen(0,UPRFCT04)+
	 bae_dialgettextlen(0,UPRDOCBUT)+bae_dialgettextlen(0,UPRSEARCHBUT)+
	 bae_dialgettextlen(0,UPRTRIMBUT)+DIAL_RIGHTSMARG,baseheight+6.0);
	SELBOXWIDTH=dialwidth-DIAL_LEFTMARG-PICBOXWIDTH-DIAL_RIGHTSMARG;
	// Set cached file access
	if (sqlcmd(attrdb,C_READ,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Get the table structure
	gettabstruc(selstk[selstkn-1].id);
	if (sortidx>=0)
		cursidx=sortidx;
	// Get the data ID list
	attrn=0;
	sprintf(sqlcommand,DI_SELECT,selstk[selstkn-1].id);
	if (sqlcmd(attrdb,sqlcommand,datidlfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Get data fields
	for (curtf=0;curtf<tfn;curtf++) {
		if (tfl[curtf].read) {
			for (curattridx=0;curattridx<attrn;curattridx++) {
				sprintf(sqlcommand,D_SELECT,
				 datidl[curattridx],curtf);
				if (sqlcmd(attrdb,sqlcommand,attrfunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				sprintf(varname,GV_ATTRL,curattridx,curtf);
				varset(varname,attrl[curattridx][curtf]);
				}
			if (tfl[curtf].width==999) {
				tfl[curtf].width=strlen(tfl[curtf].name);
				for (curattridx=0;curattridx<attrn;
				 curattridx++)
					if ((dcnt=strlen(attrl[
					 curattridx][curtf]))>tfl[curtf].width)
						tfl[curtf].width=dcnt;
				}
			}
		sprintf(varname,GV_TABNAME,curtf);
		varset(varname,tfl[curtf].name);
		sprintf(varname,GV_TABATTR,curtf);
		varset(varname,tfl[curtf].attr);
		sprintf(varname,GV_TABNMODE,curtf);
		varset(varname,tfl[curtf].nmode);
		sprintf(varname,GV_TABAMODE,curtf);
		varset(varname,tfl[curtf].amode);
		sprintf(varname,GV_TABWIDTH,curtf);
		varset(varname,tfl[curtf].width);
		sprintf(varname,GV_TABCOL,curtf);
		varset(varname,-1);
		sprintf(varname,GV_TABFID,curtf);
		varset(varname,tfl[curtf].fid);
		sprintf(varname,GV_TABAID,curtf);
		varset(varname,tfl[curtf].aid);
		sprintf(varname,GV_TABREAD,curtf);
		varset(varname,tfl[curtf].read);
		}
	varset(GV_TABN,tfn);
	varset(GV_ATTRN,attrn);
	// Terminate cached file access
	if (sqlcmd(attrdb,C_OFF,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Store function buttons
	butx=DIAL_LEFTMARG+1.0;
	bae_dialaddcontrol(PA_ACT,0,0,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT00);
	butx+=bae_dialgettextlen(0,UPRFCT00)+ABUTXSTEP;
	anidx=bae_dialaddcontrol(
	 PA_TOGGLE,0,0,NAMEMODE,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTONAME);
	butx+=bae_dialgettextlen(0,UPRAUTONAME)+ABUTXSTEP+2.0;
	acidx=bae_dialaddcontrol(PA_TOGGLE,0,0,AUTOCLOSE ? 1 : 0,
	 0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTOCLOSE);
	butx+=bae_dialgettextlen(0,UPRAUTOCLOSE)+ABUTXSTEP+2.0;
	cntidx=bae_dialaddcontrol(
	 PA_INT|PA_CHKLL,0,0,1,0.0,0.0,0.0,"",20,butx,cy,4.0,"");
	butx+=4.0;
	bae_dialaddcontrol(PA_ACT,0,9,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT01);
	butx+=bae_dialgettextlen(0,UPRFCT01)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT,0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT02);
	butx+=bae_dialgettextlen(0,UPRFCT02)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT,0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT03);
	butx+=bae_dialgettextlen(0,UPRFCT03)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT|(ATTRKEY!="" ? 0 : PA_GRAYED),
	 0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT04);
	butx+=bae_dialgettextlen(0,UPRFCT04)+ABUTXSTEP;
	// Store document button
	bae_dialaddcontrol(PA_ACT|(((WWWLINK!="" && WWWCOMMAND!="") ||
	 (PDFFILE!="" && (PDFCOMMAND!="" || DOCCOMMAND!=""))) ? 0 : PA_GRAYED),
	 0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRDOCBUT);
	butx+=bae_dialgettextlen(0,UPRDOCBUT)+ABUTXSTEP;
	// Store search mask button
	bae_dialaddcontrol(
	 PA_ACT,0,6,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSEARCHBUT);
	butx+=bae_dialgettextlen(0,UPRSEARCHBUT)+ABUTXSTEP;
	// Store trim button
	if (dialsupport&DIAL_LIST)
		bae_dialaddcontrol(
		 PA_ACT,0,10,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRTRIMBUT);
	cy+=DIAL_BUTVSTEP;
	dial_hsep(cy);
	// Display selection history buttons
	butx=DIAL_LEFTMARG;
	for (i=0;i<(selstkn-1);i++) {
		// Store entry button
		width= i==0 ? TOPBWIDTH : BUTWIDTH;
		bae_dialaddcontrol(PA_ACT,0,i+11,0,0.0,0.0,0.0,"",
		 0,butx,cy,width,selstk[i].name);
		if (width==0.0)
			butx+=bae_dialgettextlen(0,selstk[i].name);
		butx+= i==0 ? TOPBXSTEP : BUTXSTEP;
		// Store seperator
		dial_label(butx,cy,"/");
		// Reserve seperator space
		butx+=SEPXSTEP;
		}
	// Store selection label
	dial_label(butx,cy,selstk[selstkn-1].name);
	cy+=DIAL_CTRVSTEP;
	// Build header label
	header=tabhead();
	if (FIELDDISP!=2 && (dialsupport&DIAL_LIST)==0) {
		bae_dialaddcontrol(PA_LAB|(FIELDDISP!=0 ? PA_FNTFIX : 0),
		 0,0,0,0.0,0.0,0.0,"",0,DIAL_LEFTMARG,cy,0.0,header);
		cy+=DIAL_TXTVSTEP;
		}
	if (PICBOXWIDTH!=0.0) {
		sprintf(buf,REPLIB,"-");
		h1idx=bae_dialaddcontrol(PA_LAB,0,0,0,0.0,0.0,0.0,"",0,
		  DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy,PICBOXWIDTH-1.0,buf);
		sprintf(buf,REPSYM,"-");
		h2idx=bae_dialaddcontrol(PA_LAB,0,0,0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy+DIAL_TXTVSTEP,
		 PICBOXWIDTH-1.0,buf);
		// Store the symbol display label
		picheight=dialheight-cy-2.0*DIAL_TXTVSTEP-DIAL_SEPVSTEP;
		bmlabidx=bae_dialadvcontrol(PA_BMLAB|PA_HBRDREL|PA_VBRDREL,0,0,
		 29,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy+2.0*DIAL_TXTVSTEP,
		 DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
		bae_dialbmpalloc(PICBOXWIDTH-1.0,picheight,29,0,0);
		}
	// Get last attribute selection
	if (!LASTSEL || varget(GV_SELAIDX,aidx))
		aidx=(-1);
	if (dialsupport&DIAL_LIST) {
		// Query the column header width values
		if (update==2 || AUTOTRIM) {
			tabcoltrim();
			}
		else {
			sprintf(sqlcommand,W_SELECT,sql_quotestr(tabspec()));
			if (sqlcmd(WPOSDB,sqlcommand,colwfunc)!=0)
				sql_dberror(0);
			}
		lbidx=bae_dialadvcontrol(PA_LV|PA_SCALLBACK|PA_VBRDREL|
		 (PICBOXWIDTH!=0.0 ? PA_MCALLBACK : 0),(-1),8,aidx,0.0,0.0,0.0,
		 "",0,DIAL_LEFTMARG,cy,SELBOXWIDTH,DIAL_SEPVSTEP,"");
		tabcolhead();
		if (LISTSORT) {
			// Store list box entries
			for (curattridx=0;curattridx<attrn;curattridx++) {
				buf=tabentry(curattridx);
				elist[curattridx]=buf;
				etransl[curattridx]=curattridx;
				if (cursidx>=0)
					klist[curattridx]=
					 attrl[curattridx][cursidx];
				}
			if (cursidx>=0)
				quicksort(etransl,attrn,keycmp);
			else
				quicksort(etransl,attrn,entrycmp);
			for (curattridx=0;curattridx<attrn;curattridx++) {
				if ((buf=elist[etransl[curattridx]])!="")
					tabcolentry(
					 etransl[curattridx],curattridx);
				sprintf(varname,GV_ETRANSL,curattridx);
				varset(varname,etransl[curattridx]);
				}
			}
		else {
			for (curattridx=0;curattridx<attrn;curattridx++) {
				if ((buf=tabentry(curattridx))=="")
					continue;
				tabcolentry(curattridx,curattridx);
				etransl[curattridx]=curattridx;
				sprintf(varname,GV_ETRANSL,curattridx);
				varset(varname,etransl[curattridx]);
				}
			}
		}
	else {
		// Store list box
		lbmode= (PA_LB|PA_SCALLBACK|(FIELDDISP!=0 ? PA_FNTFIX : 0)|
		 (FIELDDISP==2 ? PA_HSCROLL : 0)|PA_VBRDREL|
		 (PICBOXWIDTH!=0.0 ? PA_MCALLBACK : 0));
		lbidx=bae_dialadvcontrol(lbmode,(-1),8,aidx,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG,cy,SELBOXWIDTH,DIAL_SEPVSTEP,"");
		if (FIELDDISP==2)
			bae_dialaddcontrol(PA_LBE,0,0,(-2),0.0,0.0,0.0,"",0,
			 0.0,0.0,0.0,header);
		if (LISTSORT) {
			// Store list box entries
			for (curattridx=0;curattridx<attrn;curattridx++) {
				buf=tabentry(curattridx);
				elist[curattridx]=buf;
				etransl[curattridx]=curattridx;
				if (cursidx>=0)
					klist[curattridx]=
					 attrl[curattridx][cursidx];
				}
			if (cursidx>=0)
				quicksort(etransl,attrn,keycmp);
			else
				quicksort(etransl,attrn,entrycmp);
			for (curattridx=0;curattridx<attrn;curattridx++) {
				if ((buf=elist[etransl[curattridx]])!="")
					bae_dialaddcontrol(
					 PA_LBE,0,7,curattridx,
					 0.0,0.0,0.0,"",0,0.0,0.0,0.0,buf);
				sprintf(varname,GV_ETRANSL,curattridx);
				varset(varname,etransl[curattridx]);
				}
			}
		else {
			for (curattridx=0;curattridx<attrn;curattridx++) {
				if ((buf=tabentry(curattridx))=="")
					continue;
				bae_dialaddcontrol(PA_LBE,0,7,curattridx,0.0,
				 0.0,0.0,"",0,0.0,0.0,0.0,buf);
				etransl[curattridx]=curattridx;
				sprintf(varname,GV_ETRANSL,curattridx);
				varset(varname,etransl[curattridx]);
				}
			}
		}
	// Display dialog box
	bae_setintpar(16,boxid);
	if ((boxidx=bae_dialboxperm("!"+UPRSEL,0,dialwidth,dialheight))<0)
		error_abort();
	// Update symbol preview
	sympreview(boxidx,aidx,0);
	sprintf(varname,VAR_PDBOXSEQ,boxidx);
	varset(varname,"symsel:'selattr'");
	sprintf(varname,VAR_PDBOXMODE,boxidx);
	varset(varname,PDBOXLOADUPD);
	varset(GV_SBOXID,boxidx);
	varset(GV_SITEMFIELD,lbidx);
	varset(GV_SAUTONAME,anidx);
	varset(GV_SAUTOCLOSE,acidx);
	varset(GV_CNTFIELD,cntidx);
	varset(GV_H1FIELD,h1idx);
	varset(GV_H2FIELD,h2idx);
	varset(GV_BMFIELD,bmlabidx);
	varset(GV_BMHEIGHT,picheight);
	storeselstack();
	exit(0);
}

static int entrycmp(int idx1,int idx2)
/*
// List entry compare function
// Return value :
//      (-1) if idx1<idx2
//      (0)  if idx1=idx2
//      (1)  if idx1>idx2
// Parameters :
//      int idx1                : First compare index
//      int idx2                : Second compare index
*/
{
	// Return compare result
	return(numstrcmp(elist[idx1],elist[idx2]));
}

static int keycmp(int idx1,int idx2)
/*
// Key value compare function
// Return value :
//      (-1) if idx1<idx2
//      (0)  if idx1=idx2
//      (1)  if idx1>idx2
// Parameters :
//      int idx1                : First compare index
//      int idx2                : Second compare index
*/
{
	// Return compare result
	return(numstrcmp(klist[idx1],klist[idx2]));
}

void searchmask()
/*
// Select attributes with search mask from database
*/
{
	string attrcommn		/* Attribute comment name */;
	string attrcommv		/* Attribute comment value */;
	string aname			/* Attribute name */;
	string name			/* Field name */;
	string lname			/* Lowercase field name */;
	int nbutidx			/* Next button index */;
	int pbutidx			/* Previous button index */;
	int nlidxl[]			/* Field name label index list */;
	int nvidxl[]			/* Field name value index list */;
	int sfidx			/* Current search field index */;
	double cy	= DIAL_TOPMARG	/* Current y value */;
	double butx = DIAL_LEFTMARG+1.0	/* Dialog box button x coordinate */;
	int id				/* Current ID */;
	int typ				/* Current type */;
	int sefn			/* Search edit field count */;
	string varname			/* Variable name */;
	int actcode			/* Action code */;
	int reason			/* Callback reason */;
	int intval			/* Dialog box item integer value */;
	int i, j			/* Loop control variables */;
	// Check for cached search data
	if (varget(GV_SEARCHN,sfn))
		sfn=0;
	for (i=0;i<sfn;i++) {
		sprintf(varname,GV_SEARCHFT,i);
		varget(varname,sfl[i].typ);
		sprintf(varname,GV_SEARCHFI,i);
		varget(varname,sfl[i].id);
		sprintf(varname,GV_SEARCHFA,i);
		varget(varname,sfl[i].aname);
		sprintf(varname,GV_SEARCHFN,i);
		varget(varname,sfl[i].name);
		sprintf(varname,GV_SEARCHFL,i);
		varget(varname,sfl[i].lowname);
		sprintf(varname,GV_SEARCHFV,i);
		varget(varname,sfl[i].val);
		}
	if (varget(GV_SEDITN,sefn))
		sefn=0;
	for (i=0;i<sefn;i++) {
		sprintf(varname,GV_SEDITL,i);
		varget(varname,nlidxl[i]);
		sprintf(varname,GV_SEDITV,i);
		varget(varname,nvidxl[i]);
		}
	// Check if action call
	if (varget(VAR_PDBOXIDX,boxidx)==0 &&
	 varget(VAR_PDBOXACT,actcode)==0 && varget(VAR_PDBOXREAS,reason)==0 &&
	 varget(VAR_PDBOXIVAL,intval)==0 && varget(VAR_PDBOXNAME,name)==0) {
		// Remove callback parameters
		vardelete(VAR_PDBOXIDX);
		vardelete(VAR_PDBOXACT);
		vardelete(VAR_PDBOXREAS);
		vardelete(VAR_PDBOXIVAL);
		vardelete(VAR_PDBOXNAME);
		varget(GV_NEXTBUT,nbutidx);
		varget(GV_PREVBUT,pbutidx);
		varget(GV_NAMESIDX,nlsidx);
		bae_dialsetcurrent(boxidx);
		// Fetch current attribute value fields
		for (i=0;i<SEDITN && (i+nlsidx)<sfn;i++) {
			sfidx=i+nlsidx;
			bae_dialgetdata(nvidxl[i],0,0.0,sfl[sfidx].val);
			sprintf(varname,GV_SEARCHFV,sfidx);
			varset(varname,sfl[sfidx].val);
			}
		bae_dialsetcurrent(0);
		switch (actcode) {
			// AND search
			case 7 :
			// OR search
			case 1 :
			// Symbol search
			case 6 :
			vardelete(GV_NEXTBUT);
			vardelete(GV_PREVBUT);
			vardelete(GV_NAMESIDX);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			switch (actcode) {
				// AND search
				case 7 :
				searchattr(0);
				break;
				// OR search
				case 1 :
				searchattr(1);
				break;
				// Symbol search
				case 6 :
				searchattr(2);
				break;
				}
			return;
			// Previous name list
			case 2 :
			// Next name list
			case 3 :
			if (actcode==2)
				nlsidx-=SEDITN;
			else
				nlsidx+=SEDITN;
			bae_dialsetcurrent(boxidx);
			// Check for previous and next page menu items
			bae_dialsetdata(pbutidx,
			 PA_ACT|((nlsidx>0 && sfn>SEDITN) ? 0 : PA_GRAYED),
			 0,0.0,"");
			bae_dialsetdata(nbutidx,PA_ACT|(((nlsidx+SEDITN)<sfn &&
			 sfn>SEDITN) ? 0 : PA_GRAYED),0,0.0,"");
			// Build the attribute table menu
			for (i=0;i<SEDITN && (i+nlsidx)<sfn;i++) {
				bae_dialsetdata(nvidxl[i],PA_STR,
				 0,0.0,sfl[i+nlsidx].val);
				bae_dialsetdata(
				 nlidxl[i],PA_LAB,0,0.0,sfl[i+nlsidx].name);
				}
			// Disable unused attribute controls
			for (;i<SEDITN && i<sfn;i++) {
				bae_dialsetdata(
				 nvidxl[i],PA_STR|PA_GRAYED,0,0.0,"");
				bae_dialsetdata(
				 nlidxl[i],PA_LAB|PA_HBRDREL,0,0.0,"");
				}
			bae_dialsetcurrent(0);
			varset(GV_NAMESIDX,nlsidx);
			exit(0);
			// Reset all values
			case 4 :
			for (i=0;i<sfn;i++) {
				sfl[i].val="";
				sprintf(varname,GV_SEARCHFV,i);
				varset(varname,sfl[i].val);
				}
			// Build the attribute table menu
			bae_dialsetcurrent(boxidx);
			for (i=0;i<SEDITN && (i+nlsidx)<sfn;i++)
				bae_dialsetdata(nvidxl[i],PA_STR,
				 0,0.0,sfl[i+nlsidx].val);
			bae_dialsetcurrent(0);
			exit(0);
			// New selection
			case 5 :
			vardelete(GV_NEXTBUT);
			vardelete(GV_PREVBUT);
			vardelete(GV_NAMESIDX);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			return;
			// Fail/abort
			case (-1) :
			default :
			vardelete(GV_NEXTBUT);
			vardelete(GV_PREVBUT);
			vardelete(GV_NAMESIDX);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			exit(0);
			}
		return;
		}
	if (varget(GV_NEXTBUT,nbutidx)==0)
		error(ERRDBLSBOX);
	// Create the dialog box controls
	if (bae_dialclr())
		error(ERRNOWIN);
	// Check if new search type
	if (sfn==0 || lastselid!=selstk[selstkn-1].id) {
		sfn=0;
		if (selstk[selstkn-1].typ) {
			for (i=0;i<tfn;i++) {
				if (tfl[i].aid>=0) {
					if ((tfl[i].amode&2)==0)
						continue;
					id=tfl[i].aid;
					aname=tfl[i].attr;
					// Build comment variable name
					sprintf(attrcommn,PAR_ATTRCOMMP,
					 strextract(aname,1,strlen(aname)));
					strupper(attrcommn);
					// Query comment variable
					if (varget(attrcommn,attrcommv)==0 &&
					 attrcommv!="")
						// Att. comm. to variable name
						sprintf(name,"%s %s",
						 aname,attrcommv);
					else
						name=aname;
					typ=1;
					}
				else {
					if ((tfl[i].nmode&2)==0)
						continue;
					id=tfl[i].fid;
					aname=name=tfl[i].name;
					typ=0;
					}
				strlower(lname=name);
				if (ATTRSORT) {
					for (j=sfn;j>0;j--)
						if (sfl[j-1].lowname>lname)
							sfl[j]=sfl[j-1];
						else
							break;
					sfl[j].val="";
					sfl[j].id=id;
					sfl[j].aname=aname;
					sfl[j].name=name;
					sfl[j].lowname=lname;
					sfl[j].typ=typ;
					}
				else {
					sfl[sfn].val="";
					sfl[sfn].id=id;
					sfl[sfn].aname=aname;
					sfl[sfn].name=name;
					sfl[sfn].lowname=lname;
					sfl[sfn].typ=typ;
					}
				sfn++;
				}
			}
		else {
			ntyp=0;
			if (sqlcmd(attrdb,F_SELECT,namelfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			ntyp=1;
			if (sqlcmd(attrdb,A_SELECT,namelfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			for (i=0;i<sfn;i++)
			    if (sfl[i].typ) {
				// Build comment variable name
				sprintf(attrcommn,PAR_ATTRCOMMP,strextract(
				 sfl[i].aname,1,strlen(sfl[i].aname)));
				strupper(attrcommn);
				// Query comment variable
				if (varget(attrcommn,attrcommv)==0 &&
				 attrcommv!="")
					// Attach comment to variable name
					sprintf(sfl[i].name,
					 "%s %s",sfl[i].aname,attrcommv);
				}
			}
		}
	lastselid=selstk[selstkn-1].id;
	nlsidx=0;
	// Store the function and abort buttons with seperator
	bae_dialaddcontrol(
	 PA_ACT,0,7,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSANDBUT);
	butx+=bae_dialgettextlen(0,UPRSANDBUT)+ABUTXSTEP;
	bae_dialaddcontrol(
	 PA_ACT,0,1,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSORBUT);
	butx+=bae_dialgettextlen(0,UPRSORBUT)+ABUTXSTEP;
	bae_dialaddcontrol(
	 PA_ACT,0,6,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSYMBUT);
	butx+=bae_dialgettextlen(0,UPRSYMBUT)+ABUTXSTEP;
	pbutidx=bae_dialaddcontrol(
	 PA_ACT|((nlsidx>0 && sfn>SEDITN) ? 0 : PA_GRAYED),
	 0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRPREVDIAL);
	butx+=bae_dialgettextlen(0,UPRPREVDIAL)+ABUTXSTEP;
	nbutidx=bae_dialaddcontrol(
	 PA_ACT|(((nlsidx+SEDITN)<sfn && sfn>SEDITN) ? 0 : PA_GRAYED),
	 0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRNEXTDIAL);
	butx+=bae_dialgettextlen(0,UPRNEXTDIAL)+ABUTXSTEP;
	bae_dialaddcontrol(
	 PA_ACT,0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRALLRES);
	butx+=bae_dialgettextlen(0,UPRALLRES)+ABUTXSTEP;
	// Store selection button
	bae_dialaddcontrol(
	 PA_ACT,0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSELECTBUT);
	butx+=bae_dialgettextlen(0,UPRSELECTBUT)+DBUTSPACE;
	if (butx<SEDITWIDTH+20.0)
		butx=SEDITWIDTH+20.0;
	cy+=DIAL_BUTVSTEP;
	dial_hsep(cy);
	sefn= SEDITN<sfn ? SEDITN : sfn ;
	// Display edit fields
	for (i=0;i<sefn;i++) {
		sfidx=i+nlsidx;
		// Store the field controls
		nlidxl[i]=bae_dialaddcontrol(PA_LAB|PA_HBRDREL,0,0,0,0.0,0.0,
		 0.0,"",0,DIAL_LEFTMARG+SEDITWIDTH+1.0,cy,DIAL_RIGHTEMARG,
		 sfidx<sfn ? sfl[sfidx].name : "");
		// Store edit field
		nvidxl[i]=bae_dialaddcontrol(PA_STR|(sfidx<sfn ? 0 : PA_GRAYED),
		 0,0,0,0.0,0.0,0.0,sfidx<sfn ? sfl[sfidx].val : "",
		 MAXTEXTLEN,DIAL_LEFTMARG,cy,SEDITWIDTH,"");
		cy+=SEDITSPC;
		sprintf(varname,GV_SEDITL,i);
		varset(varname,nlidxl[i]);
		sprintf(varname,GV_SEDITV,i);
		varset(varname,nvidxl[i]);
		}
	varset(GV_SEDITN,sefn);
	varset(GV_SEARCHN,sfn);
	for (i=0;i<sfn;i++) {
		sprintf(varname,GV_SEARCHFT,i);
		varset(varname,sfl[i].typ);
		sprintf(varname,GV_SEARCHFI,i);
		varset(varname,sfl[i].id);
		sprintf(varname,GV_SEARCHFA,i);
		varset(varname,sfl[i].aname);
		sprintf(varname,GV_SEARCHFN,i);
		varset(varname,sfl[i].name);
		sprintf(varname,GV_SEARCHFL,i);
		varset(varname,sfl[i].lowname);
		sprintf(varname,GV_SEARCHFV,i);
		varset(varname,sfl[i].val);
		}
	// Display dialog box
	bae_setintpar(16,
	 bae_iniintval(PAR_MODALBOX,0) ? (PA_MODALBOX|3046) : 3046);
	if ((boxidx=bae_dialboxperm(UPRSEARCHMASK,0,butx+1.4,cy))<0)
		error_abort();
	sprintf(varname,VAR_PDBOXSEQ,boxidx);
	varset(varname,"symsel:'searchmask'");
	sprintf(varname,VAR_PDBOXMODE,boxidx);
	varset(varname,0);
	varset(GV_NEXTBUT,nbutidx);
	varset(GV_PREVBUT,pbutidx);
	varset(GV_LASTSEL,lastselid);
	varset(GV_NAMESIDX,nlsidx);
	exit(0);
}

void searchattr(int smode)
/*
// Search attributes according to search mask
// Parameter :
//	int smode			: Search mode
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string val			/* Search value */;
	int dstidx			/* Destination index */;
	int patflag = 0			/* Pattern string flag */;
	int qcnt = 0			/* Query field count */;
	int i, j			/* Loop control variables */;
	// Check if symbol search
	if (smode==2) {
		// Pick symbol
		bae_promptdialog(UPRPICKSSYM);
		if (scm_pickelem(fig,C_FIGSREF))
			return;
		// Perform the search queries
		for (i=resn=0;i<sfn;i++)
			// Check if symbol field
			if (sfl[i].name==SYMFIELD) {
				// Build the query string
				sprintf(sqlcommand,DF_SELECT,sfl[i].id);
				sqlcommand=
				 sqlcommand+"='"+fig.NREF.MACRO.NAME+"';";
				selmode=0;
				// Query value entries
				if (sqlcmd(attrdb,sqlcommand,resfunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				break;
				}
		// If active variant, set base variant $plname filter
		if (act_var!=0 && getvattribval(fig.NAME,"$plname",val)==0 &&
		 val!="" && resn>0) {
			strlower(val);
			for (i=0;i<sfn;i++) {
				if (sfl[i].aname=="$plname") {
					// Build the query string
					sprintf(sqlcommand,DA_SELECT,sfl[i].id);
					sqlcommand=sqlcommand+"='"+val+"';";
					// Clear all found flags
					for (j=0;j<resn;j++)
						resl[j].found=0;
					// Set the select mode
					selmode=1;
					// Query value entries
					if (sqlcmd(
					 attrdb,sqlcommand,resfunc)!=0)
						// SQL/DB error
						sql_dberror(0);
					// Purge result list
					for (j=0,dstidx=0;j<resn;j++) {
						if (resl[j].found==0)
							continue;
						resl[dstidx]=resl[j];
						dstidx++;
						}
					resn=dstidx;
					break;
					}
				}
			}
		}
	else {
		// Set cached file access
		if (sqlcmd(attrdb,C_READ,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		// Perform the search queries
		for (i=resn=0;i<sfn;i++) {
			// Get the lower case search value
			strlower(val=sfl[i].val);
			if (val=="")
				continue;
			// Check if pattern value
			for (j=strlen(val)-1;j>=0;j--)
				// Check if pattern character
				if (val[j]=='*') {
					val[j]='%';
					patflag=1;
					}
				else if (val[j]=='?') {
					patflag=1;
					}
			// Build the query string
			sprintf(sqlcommand,sfl[i].typ ? DA_SELECT : DF_SELECT,
			 sfl[i].id);
			if (AUTOPATTERN)
				sqlcommand=sqlcommand+" LIKE '%"+val+"%';";
			else if (patflag)
				sqlcommand=sqlcommand+" LIKE '"+val+"';";
			else
				sqlcommand=sqlcommand+"='"+val+"';";
			// Clear all found flags
			if (smode==0 && qcnt>0)
				for (j=0;j<resn;j++)
					resl[j].found=0;
			// Set the select mode
			selmode= (qcnt==0 || smode==1) ? 0 : 1 ;
			// Query value entries
			if (sqlcmd(attrdb,sqlcommand,resfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			// Check if AND search
			if (smode==0 && qcnt>0) {
				// Purge result list
				for (j=0,dstidx=0;j<resn;j++) {
					if (resl[j].found==0)
						continue;
					resl[dstidx]=resl[j];
					dstidx++;
					}
				resn=dstidx;
				}
			// Increment query count
			qcnt++;
			}
		// Terminate cached file access
		if (sqlcmd(attrdb,C_OFF,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		}
	// Check if symbols found
	if (resn==0) {
		bae_msgbox(0,REPNOSYM,"");
		searchmask();
		}
	else {
		searchresult();
		}
}

void searchresult()
/*
// Select attributes from search result
*/
{
	string buf			/* String buffer */;
	string fbuf			/* Field string buffer */;
	string name			/* Field name */;
	string header			/* Header string */;
	string lheader			/* Last header string */;
	int scnt			/* Symbol count */;
	int cntidx = (-1)		/* Count edit item index */;
	int lbidx = (-1)		/* List box item index */;
	int lbmode			/* List box mode */;
	int aidx			/* Attribute index */;
	double cy	= DIAL_TOPMARG	/* Current y value */;
	double butx = DIAL_LEFTMARG+1.0	/* Dialog box button x coordinate */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int lastparent			/* Last parent ID */;
	int dcnt			/* Display field count */;
	int selcnt	= 0		/* Selection entry count */;
	int firstlev	= 1		/* First dir. level flag */;
	int boxbuf			/* Dialog box buffer index */;
	string varname			/* Variable name */;
	int actcode			/* Action code */;
	int reason			/* Callback reason */;
	int intval			/* Dialog box item integer value */;
	int boxid			/* Dialog box ID */;
	int i, j			/* Loop control variables */;
	// Check if action call
	if (varget(VAR_PDBOXIDX,boxidx)==0 &&
	 varget(VAR_PDBOXACT,actcode)==0 && varget(VAR_PDBOXREAS,reason)==0 &&
	 varget(VAR_PDBOXIVAL,intval)==0 && varget(VAR_PDBOXNAME,name)==0) {
		// Remove callback parameters
		vardelete(VAR_PDBOXIDX);
		vardelete(VAR_PDBOXACT);
		vardelete(VAR_PDBOXREAS);
		vardelete(VAR_PDBOXIVAL);
		vardelete(VAR_PDBOXNAME);
		varget(GV_SITEMFIELD,lbidx);
		varget(GV_CNTFIELD,cntidx);
		varget(GV_SAUTONAME,anidx);
		varget(GV_SAUTOCLOSE,acidx);
		varget(GV_H1FIELD,h1idx);
		varget(GV_H2FIELD,h2idx);
		varget(GV_BMFIELD,bmlabidx);
		varget(GV_BMHEIGHT,picheight);
		bae_dialsetcurrent(boxidx);
		bae_dialgetdata(lbidx,aidx,0.0,"");
		bae_dialgetdata(cntidx,scnt,0.0,"");
		bae_dialgetdata(anidx,NAMEMODE,0.0,"");
		bae_dialgetdata(acidx,AUTOCLOSE,0.0,"");
		bae_dialsetcurrent(0);
		varset(GV_NAMEMODE,NAMEMODE);
		varset(GV_AUTOCLOSE,AUTOCLOSE);
		// Get buffered table structure
		if (varget(GV_RESN,resn))
			resn=0;
		for (i=0;i<resn;i++) {
			sprintf(varname,GV_RESDID,i);
			varget(varname,resl[i].datid);
			sprintf(varname,GV_RESPAR,i);
			varget(varname,resl[i].parent);
			sprintf(varname,GV_RESFOUND,i);
			varget(varname,resl[i].found);
			}
		switch (actcode) {
			// Update
			case 1 :
			nameupdate(boxidx);
			exit(0);
			// Done
			case 2 :
			case 3 :
			case 4 :
			case 5 :
			case 0 :
			case 8 :
			case 10 :
			if (aidx<0) {
				bae_msgbox(0,REPNOSYMSEL,"");
				exit(0);
				}
			// Get data fields
			curattridx=0;
			gettabstruc(resl[aidx].parent);
			for (curtf=0;curtf<tfn;curtf++)
				if ((tfl[curtf].nmode&1) ||
				 (tfl[curtf].amode&1) ||
				 tfl[curtf].name==LIBFIELD ||
				 tfl[curtf].name==SYMFIELD) {
					sprintf(sqlcommand,D_SELECT,
					 resl[aidx].datid,curtf);
					if (sqlcmd(attrdb,sqlcommand,
					 attrfunc)!=0)
						// SQL/DB error
						sql_dberror(0);
					}
			if (AUTOCLOSE==2 && actcode!=5) {
				vardelete(GV_SITEMFIELD);
				vardelete(GV_SAUTONAME);
				vardelete(GV_SAUTOCLOSE);
				vardelete(GV_CNTFIELD);
				vardelete(GV_H1FIELD);
				vardelete(GV_H2FIELD);
				vardelete(GV_BMFIELD);
				vardelete(GV_BMHEIGHT);
				vardelete(GV_NAMEPAT);
				vardelete(GV_SBOXID);
				sprintf(varname,VAR_PDBOXSEQ,boxidx);
				vardelete(varname);
				sprintf(varname,VAR_PDBOXMODE,boxidx);
				vardelete(varname);
				bae_dialsetcurrent(boxidx);
				bae_dialclr();
				bae_dialsetcurrent(0);
				bae_clriactqueue();
				}
			switch (actcode) {
				// Set single symbol ID's
				case 2 :
				mousegrab(1);
				singlesymbolids(0);
				break;
				// Set group symbol ID's
				case 3 :
				groupsymbolids(0);
				break;
				// Replace symbol ID
				case 4 :
				replaceid(0);
				break;
				// Display documentation
				case 5 :
				documentation(0);
				break;
				// Place symbol
				case 0 :
				case 8 :
				if (act_var>0) {
					bae_msgbox(1,ERRVARFUNC,"");
					break;
					}
				if (AUTOCLOSE==1) {
					vardelete(GV_SITEMFIELD);
					vardelete(GV_SAUTONAME);
					vardelete(GV_SAUTOCLOSE);
					vardelete(GV_CNTFIELD);
					vardelete(GV_H1FIELD);
					vardelete(GV_H2FIELD);
					vardelete(GV_BMFIELD);
					vardelete(GV_BMHEIGHT);
					vardelete(GV_NAMEPAT);
					vardelete(GV_SBOXID);
					sprintf(varname,VAR_PDBOXSEQ,boxidx);
					vardelete(varname);
					sprintf(varname,VAR_PDBOXMODE,boxidx);
					vardelete(varname);
					bae_dialsetcurrent(boxidx);
					bae_dialclr();
					bae_dialsetcurrent(0);
					bae_clriactqueue();
					}
				mousegrab(1);
				plcnewsymbol(0);
				if (!AUTOCLOSE)
					nameupdate(boxidx);
				break;
				// Place into symbol pool
				case 10 :
				bae_dialsetcurrent(boxidx);
				bae_dialsetdata(
				 cntidx,PA_INT|PA_CHKLL,1,0.0,"");
				bae_dialsetcurrent(0);
				if (symbolpooladd(scnt,0,"")) {
					boxbuf=bae_dialboxbufstore();
					symbolpool(1);
					bae_dialboxbufload(boxbuf);
					}
				break;
				default :
				}
			exit(0);
			// New search
			case 6 :
			vardelete(GV_SITEMFIELD);
			vardelete(GV_SAUTONAME);
			vardelete(GV_SAUTOCLOSE);
			vardelete(GV_CNTFIELD);
			vardelete(GV_H1FIELD);
			vardelete(GV_H2FIELD);
			vardelete(GV_BMFIELD);
			vardelete(GV_BMHEIGHT);
			vardelete(GV_NAMEPAT);
			vardelete(GV_SBOXID);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			searchmask();
			exit(0);
			// New selection
			case 7 :
			vardelete(GV_SITEMFIELD);
			vardelete(GV_SAUTONAME);
			vardelete(GV_SAUTOCLOSE);
			vardelete(GV_CNTFIELD);
			vardelete(GV_H1FIELD);
			vardelete(GV_H2FIELD);
			vardelete(GV_BMFIELD);
			vardelete(GV_BMHEIGHT);
			vardelete(GV_NAMEPAT);
			vardelete(GV_SBOXID);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			return;
			// Update symbol preview
			case 9 :
			sympreview(boxidx,aidx,1);
			exit(0);
			// Quit/Abort
			case (-1) :
			default :
			vardelete(GV_SITEMFIELD);
			vardelete(GV_SAUTONAME);
			vardelete(GV_SAUTOCLOSE);
			vardelete(GV_CNTFIELD);
			vardelete(GV_H1FIELD);
			vardelete(GV_H2FIELD);
			vardelete(GV_BMFIELD);
			vardelete(GV_BMHEIGHT);
			vardelete(GV_NAMEPAT);
			vardelete(GV_SBOXID);
			sprintf(varname,VAR_PDBOXSEQ,boxidx);
			vardelete(varname);
			sprintf(varname,VAR_PDBOXMODE,boxidx);
			vardelete(varname);
			bae_dialsetcurrent(boxidx);
			bae_dialclr();
			bae_dialsetcurrent(0);
			bae_clriactqueue();
			}
		if (actcode!=(-2))
			return;
		}
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+DIAL_SEPVSTEP+0.2;
	boxid=bae_iniintval(PAR_MODALBOX,0) ?
	 (PA_MODALBOX|(SBOXID ? 3044 : 3047)) : (SBOXID ? 3044 : 3047);
	dial_getboxsizemin(boxid,dialwidth,dialheight,
	 DIAL_LEFTMARG+SELBOXWIDTH+PICBOXWIDTH+DIAL_RIGHTSMARG,
	 baseheight+SELBOXHEIGHT,
	 DIAL_LEFTMARG+9.0+bae_dialgettextlen(0,UPRFCT00)+
	 bae_dialgettextlen(0,UPRAUTOCLOSE)+bae_dialgettextlen(0,UPRAUTONAME)+
	 bae_dialgettextlen(0,UPRFCT01)+bae_dialgettextlen(0,UPRFCT02)+
	 bae_dialgettextlen(0,UPRFCT03)+bae_dialgettextlen(0,UPRFCT04)+
	 bae_dialgettextlen(0,UPRDOCBUT)+bae_dialgettextlen(0,UPRSEARCHBUT)+
	 bae_dialgettextlen(0,UPRSELECTBUT)+10.0*ABUTXSTEP+DIAL_RIGHTSMARG,
	 baseheight+5.0);
	SELBOXWIDTH=dialwidth-DIAL_LEFTMARG-PICBOXWIDTH-DIAL_RIGHTSMARG;
	// Store list box
	cy=DIAL_TOPMARG;
	// Store function buttons
	butx=DIAL_LEFTMARG+1.0;
	bae_dialaddcontrol(PA_ACT,0,0,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT00);
	butx+=bae_dialgettextlen(0,UPRFCT00)+ABUTXSTEP;
	anidx=bae_dialaddcontrol(
	 PA_TOGGLE,0,0,NAMEMODE,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTONAME);
	butx+=bae_dialgettextlen(0,UPRAUTONAME)+ABUTXSTEP+2.0;
	acidx=bae_dialaddcontrol(
	 PA_TOGGLE,0,0,AUTOCLOSE,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTOCLOSE);
	butx+=bae_dialgettextlen(0,UPRAUTOCLOSE)+ABUTXSTEP+2.0;
	cntidx=bae_dialaddcontrol(
	 PA_INT|PA_CHKLL,0,0,1,0.0,0.0,0.0,"",20,butx,cy,4.0,"");
	butx+=4.0;
	bae_dialaddcontrol(PA_ACT,0,10,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT01);
	butx+=bae_dialgettextlen(0,UPRFCT01)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT,0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT02);
	butx+=bae_dialgettextlen(0,UPRFCT02)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT,0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT03);
	butx+=bae_dialgettextlen(0,UPRFCT03)+ABUTXSTEP;
	bae_dialaddcontrol(PA_ACT|(ATTRKEY!="" ? 0 : PA_GRAYED),
	 0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT04);
	butx+=bae_dialgettextlen(0,UPRFCT04)+ABUTXSTEP;
	// Store document button
	bae_dialaddcontrol(PA_ACT|(((WWWLINK!="" && WWWCOMMAND!="") ||
	 (PDFFILE!="" && (PDFCOMMAND!="" || DOCCOMMAND!=""))) ? 0 : PA_GRAYED),
	 0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRDOCBUT);
	butx+=bae_dialgettextlen(0,UPRDOCBUT)+ABUTXSTEP;
	// Store search button
	bae_dialaddcontrol(
	 PA_ACT,0,6,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSEARCHBUT);
	butx+=bae_dialgettextlen(0,UPRSEARCHBUT)+ABUTXSTEP;
	// Store selection button
	bae_dialaddcontrol(
	 PA_ACT,0,7,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRSELECTBUT);
	cy+=DIAL_BUTVSTEP;
	if (PICBOXWIDTH!=0.0) {
		sprintf(buf,REPLIB,"-");
		h1idx=bae_dialaddcontrol(PA_LAB,0,0,0,0.0,0.0,0.0,"",0,
		  DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy,PICBOXWIDTH-1.0,buf);
		sprintf(buf,REPSYM,"-");
		h2idx=bae_dialaddcontrol(PA_LAB,0,0,0,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy+DIAL_TXTVSTEP,
		 PICBOXWIDTH-1.0,buf);
		// Store the symbol display label
		picheight=dialheight-cy-2.0*DIAL_TXTVSTEP-DIAL_SEPVSTEP;
		bmlabidx=bae_dialadvcontrol(PA_BMLAB|PA_HBRDREL|PA_VBRDREL,0,0,
		 29,0.0,0.0,0.0,"",0,
		 DIAL_LEFTMARG+SELBOXWIDTH+1.0,cy+2.0*DIAL_TXTVSTEP,
		 DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
		bae_dialbmpalloc(PICBOXWIDTH-1.0,picheight,29,0,0);
		}
	lbmode= (PA_LB|PA_SCALLBACK|(FIELDDISP!=0 ? PA_FNTFIX : 0)|
	 (FIELDDISP==2 ? PA_HSCROLL : 0)|PA_VBRDREL|
	 (PICBOXWIDTH!=0.0 ? PA_MCALLBACK : 0));
	lbidx=bae_dialadvcontrol(lbmode,(-1),9,(-1),0.0,0.0,0.0,"",0,
	 DIAL_LEFTMARG,cy,SELBOXWIDTH,DIAL_SEPVSTEP,"");
	// Set cached file access
	if (sqlcmd(attrdb,C_READ,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Build the result selection list
	lheader="";
	varset(GV_RESN,resn);
	for (i=0,lastparent=(-1);i<resn;i++) {
		sprintf(varname,GV_RESDID,i);
		varset(varname,resl[i].datid);
		sprintf(varname,GV_RESPAR,i);
		varset(varname,resl[i].parent);
		sprintf(varname,GV_RESFOUND,i);
		varset(varname,resl[i].found);
		// Check if new table
		if (lastparent!=resl[i].parent) {
			lastparent=resl[i].parent;
			// Check if ID in selection stack
			curid=lastparent;
			while (curid!=selstk[selstkn-1].id && curid!=(-1)) {
				sprintf(sqlcommand,SP_SELECT,curid);
				curid=(-1);
				if (sqlcmd(attrdb,sqlcommand,idfunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				}
			if (curid==(-1)) {
				// Skip all current table results
				for (;i<resn-1;i++)
					if (lastparent!=resl[i+1].parent)
						break;
				continue;
				}
			gettabstruc(lastparent);
			curname="";
			sprintf(sqlcommand,SN_SELECT,lastparent);
			if (sqlcmd(attrdb,sqlcommand,namefunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			if (SPATHDOC) {
				curid=lastparent;
				firstlev=1;
				while (curid!=0) {
					sprintf(sqlcommand,ST_SELECT,curid);
					curid=(-1);
					if (sqlcmd(
					 attrdb,sqlcommand,docufunc)!=0)
						// SQL/DB error
						sql_dberror(0);
					if (curid==(-1))
						break;
					if (!firstlev)
						curname=attrval+"/"+curname;
					else
						firstlev=0;
					}
				}
			if ((header=tabhead())!=lheader) {
				if (lheader!="")
					bae_dialaddcontrol(PA_LBE,0,0,(-2),0.0,
					 0.0,0.0,"",0,0.0,0.0,0.0,"");
				bae_dialaddcontrol(PA_LBE,0,0,(-2),0.0,0.0,0.0,
				 "",0,0.0,0.0,0.0,header);
				lheader=header;
				}
			}
		buf="";
		for (curtf=dcnt=0;curtf<tfn;curtf++) {
			if ((tfl[curtf].nmode&1)==0 &&
			 (tfl[curtf].amode&8)==0 && curtf!=curstidx)
				continue;
			sprintf(sqlcommand,D_SELECT,resl[i].datid,curtf);
			attrval="";
			if (sqlcmd(attrdb,sqlcommand,attrvalfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			if (curtf==curstidx) {
				for (j=0;j<statdn;j++)
					if (attrval==statdl[j].val) {
						if (statdl[j].proc==2) {
							curtf=tfn;
							buf="";
							}
						break;
						}
				if (curtf==tfn)
					continue;
				if ((tfl[curtf].nmode&1)==0 &&
				 (tfl[curtf].amode&8)==0)
					continue;
				}
			if (FIELDDISP && tfl[curtf].width<0)
				fbuf=strextract(attrval,0,
				 abs(tfl[curtf].width));
			else
				fbuf=attrval;
			if (dcnt==0) {
				if (FIELDDISP && tfl[curtf].width)
					sprintf(buf,"%-*s",
					 abs(tfl[curtf].width),fbuf);
				else
					buf=fbuf;
				}
			else {
				if (FIELDDISP && tfl[curtf].width)
					sprintf(buf,"%s %-*s",
					 buf,abs(tfl[curtf].width),fbuf);
				else
					buf+=";"+fbuf;
				}
			dcnt++;
			}
		if (buf=="")
			continue;
		buf+=";"+curname;
		bae_dialaddcontrol(PA_LBE,0,8,i,0.0,0.0,0.0,"",0,
		 0.0,0.0,0.0,buf);
		selcnt++;
		}
	// Terminate cached file access
	if (sqlcmd(attrdb,C_OFF,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Check if symbols found
	if (selcnt==0) {
		bae_dialclr();
		bae_msgbox(0,REPNOSYM,"");
		return;
		}
	// Display dialog box
	bae_setintpar(16,boxid);
	if ((boxidx=bae_dialboxperm("!"+UPRSEL,0,dialwidth,dialheight))<0)
		error_abort();
	sprintf(varname,VAR_PDBOXSEQ,boxidx);
	varset(varname,"symsel:'searchresult'");
	sprintf(varname,VAR_PDBOXMODE,boxidx);
	varset(varname,PDBOXLOADUPD);
	varset(GV_SBOXID,boxidx);
	varset(GV_SITEMFIELD,lbidx);
	varset(GV_SAUTONAME,anidx);
	varset(GV_SAUTOCLOSE,acidx);
	varset(GV_CNTFIELD,cntidx);
	varset(GV_H1FIELD,h1idx);
	varset(GV_H2FIELD,h2idx);
	varset(GV_BMFIELD,bmlabidx);
	varset(GV_BMHEIGHT,picheight);
	exit(0);
}

void update()
/*
// Update attributes from database
*/
{
	index C_FIGURE fig		/* Figure list index */;
	index C_FIGURE lastfig		/* Last figure list element */;
	string msg			/* Message */;
	string ename			/* Current element name */;
	string key	= ""		/* Current key */;
	string lastname	= ""		/* Last name */;
	string libname			/* Library name */;
	string symname			/* Symbol name */;
	string macname			/* Symbol macro name */;
	string username			/* Element lock user name */;
	string oldplname		/* Old phys. library name */;
	string oldval			/* Old attribute value */;
	string opln			/* Base variant phys. library name */;
	string npln			/* New phys. library name */;
	string vattrname		/* Variant specific attribute name */;
	string g_dis	= ","		/* Group functions disable */;
	int filemode			/* File mode */;
	int grpmode			/* Group mode */;
	int cnt		= 0		/* Process count */;
	int acnt	= 0		/* Replacement count */;
	int tcnt	= 0		/* Total symbol count */;
	int attchg			/* Attributes changed flag */;
	int varidx			/* Variant index */;
	int jobclass			/* Current job DDB class */;
	string jobfname			/* Current job file name */;
	string jobename			/* Current job element name */;
	int i, j			/* Loop control variables */;
	// Check the key attribute ID
	if (keyid==(-1)) {
		bae_msgbox(2,REPNOKEYATTR,"");
		return;
		}
	// Check if element type scan
	if (bae_iniintval(PAR_METYPSCAN,1)==1 && !bae_peekiact()) {
		forall (fig where fig.GROUP) {
			g_dis="";
			break;
			}
		}
	else {
		// Enable all menu items
		g_dis="";
		}
	// Select update function
	bae_promptdialog(UPRSELBMOD);
	switch (bae_askmenu(4,
	 UPRSELBMOD0,g_dis+UPRSELBMOD1,UPRSELBMOD2,UPRABORT)) {
		// Current sheet
		case 0 :
		filemode=0;
		grpmode=0;
		break;
		// Group elements
		case 1 :
		filemode=0;
		grpmode=1;
		break;
		// All sheets
		case 2 :
		verifysave();
		filemode=1;
		grpmode=0;
		break;
		default :
		return;
		}
	// Check element lock state
	if (filemode) {
		ename="*";
		switch (sql_lockcheck(ddbfname,ename,DDBCLSCM,username)) {
			case 1 :
			sprintf(msg,UPRLOCKWARN,ename,username);
			if (bae_msgboxverify(msg,"")!=1)
				error_abort();
			break;
			case 2 :
			case 3 :
			sprintf(msg,ERRELEMLOCK,ename,username);
			error(msg);
			break;
			default :
			;
			}
		}
	// Set cached file access
	if (sqlcmd(attrdb,C_READ,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Store the current plan designators
	jobclass=bae_planddbclass();
	jobfname=bae_planfname();
	jobename=bae_planename();
	// Loop for all plans
	msgn=0;
	ename="";
	while (filemode==0 || scanddbenames(ddbfname,DDBCLSCM,ename)==1) {
	    // Load next plan
	    if (filemode && bae_planename()!=ename) {
		if (bae_planfname()==ddbfname)
			bae_setintpar(22,1);
		loadddbelem(ddbfname,ename,DDBCLSCM);
		}
	    // Scan all selected placed parts
	    lastname="";
	    forall (fig where fig.TYP==C_FIGNREF && (!grpmode || fig.GROUP)) {
		// Skip labels
		if (fig.NREF.MACRO.CLASS==DDBCLSLAB ||
		 lastname==fig.NAME)
			continue;
		tcnt++;
		lastname=fig.NAME;
		for (varidx=0;varidx<varn;varidx++) {
			// Check if symbol with ID set
			if (getvattribval(lastname,
			 varattrname(ATTRKEY,varidx),key)!=0 || key=="")
				continue;
			// Get the key data ID
			curid=(-1);
			sprintf(sqlcommand,DK_SELECT,keyid,sql_quotestr(key));
			if (sqlcmd(attrdb,sqlcommand,sresfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			// Check if key found
			if (curid==(-1)) {
				sprintf(msgl[msgn],ERRIDMISS,lastname,key);
				msgn++;
				continue;
				}
			gettabstruc(curid);
			// Get old phys. library name
			if (getvattribval(lastname,
			 varattrname("$plname",varidx),oldplname)!=0)
				oldplname="";
			// Get data fields
			curattridx=0;
			for (curtf=0;curtf<tfn;curtf++) {
				if ((tfl[curtf].amode&1) || curtf==curstidx ||
				 tfl[curtf].name==LIBFIELD ||
				 tfl[curtf].name==SYMFIELD) {
					sprintf(sqlcommand,D_SELECT,
					 seldatid,curtf);
					if (sqlcmd(attrdb,sqlcommand,
					 attrfunc)!=0)
						// SQL/DB error
						sql_dberror(0);
					}
				if (curtf==curstidx)
				    for (j=0;j<statdn;j++)
					if (attrl[0][curtf]==statdl[j].val) {
					    if (statdl[j].proc==2) {
						if (varidx==0)
							sprintf(msgl[msgn],
							 WRNIDMSG,lastname,key,
							 statdl[j].msg);
						else
							sprintf(msgl[msgn],
							 WRNVIDMSG,varidx,
							 lastname,key,
							 statdl[j].msg);
						msgn++;
						}
					    break;
					    }
				}
			// Check $plname consistency
			if (LMACQRY && varidx==0 &&
			 chkplnamechg(fig.NREF,0,opln,npln) &&
			 checkplname(opln,npln)) {
				sprintf(hl[hn],REPPLCHANGE,fig.NAME,opln,npln);
				hn++;
				}
			// Check symbol macro consistency
			getsymdata(0,libname,symname);
			macname=fig.NREF.MACRO.NAME;
			if (macname!=symname) {
				sprintf(hl[hn],REPSYMCHANGE,
				 fig.NAME,macname,symname);
				hn++;
				}
			// Transfer attributes
			attchg=0;
			for (i=0;i<tfn;i++) {
				curattr=tfl[i].attr;
				if (curattr=="" || (tfl[i].amode&1)==0)
					continue;
				if (curattr=="$plname" &&
				 !checkplname(oldplname,attrl[0][i]))
					continue;
				if (curattr=="$rlname") {
					for (j=0;j<mapn;j++)
						if (mapl[j].name==macname &&
						 mapl[j].rlname!="") {
							attrl[0][i]=
							 mapl[j].rlname;
							break;
							}
					}
				vattrname=varattrname(curattr,varidx);
				if (getvattribval(
				 lastname,vattrname,oldval)==0 &&
				 oldval==attrl[0][i])
					if (RLKEY!=curattr ||
					 (getvattribval(lastname,
					  varattrname("$rlname",varidx),
					   oldval)==0 && oldval==attrl[0][i]))
						continue;
				// Save current state for undo
				if (cflag==0) {
					bae_callmenu(MNU_BAESAVESTATE);
					cflag=1;
					}
				if (scm_setpartattrib(
				  lastname,vattrname,attrl[0][i],7) &&
				 (tfl[i].amode&4)==0 && attrl[0][i]!="") {
					sprintf(msg,ERRSETATT,curattr,lastname);
					bae_msgbox(1,msg,"");
					}
				if ((tfl[i].amode&4)==0 &&
				 cap_lastfigelem(lastfig)==0) {
					atextflag=0;
					// Scan the picked attribute
					if (cap_scanfelem(lastfig,0.0,0.0,0.0,
					 1,amacfunc,NULL,NULL,aptextfunc))
						error_scan();
					if (!atextflag) {
						sprintf(msgl[msgn],
						 ERRATTTMIS,lastname,
						 lastfig.NREF.MACRO.NAME,
						 curattr);
						msgn++;
						}
					}
				if (RLKEY==tfl[i].attr)
					scm_setpartattrib(lastname,
					 varattrname("$rlname",varidx),
					 attrl[0][i],7);
				attchg=1;
				}
			cnt++;
			if (attchg)
				acnt++;
			}
		}
	    // Check if single sheet process mode
	    if (!filemode)
		break;
	    bae_setintpar(22,1);
	    bae_callmenu(MNU_SCMSAVELEM);
	    bae_setintpar(22,0);
	    }
	// Terminate cached file access
	if (sqlcmd(attrdb,C_OFF,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Reload the original element
	if (jobclass!=DDBCLUNDEF && (jobclass!=bae_planddbclass() ||
	 jobfname!=bae_planfname() || jobename!=bae_planename())) {
		bae_setintpar(22,2);
		bae_loadelem(jobfname,jobename,jobclass);
		}
	// Test if any errors occurred
	if (msgn || hn) {
		if (hn) {
			hl[hn]=" ";
			hn++;
			}
		// Error(s) occurred
		hl[hn++]=REPIDMISS;
		hl[hn++]=" ";
		// Display messages with popup menu
		bae_setintpar(16,3097);
		popupmenu(0,"",hl,hn,msgl,msgn,
		 UINPOPABORT,0,-1,-1,hn+msgn+2,100,0,"");
		hn=0;
		// Abort
		return;
		}
	// Print process report
	sprintf(msg,REPSYMPROC,tcnt,cnt,acnt);
	bae_prtdialog(msg);
	exit(0);
}

int amacfunc(index C_MACRO macro,index C_POOL pool,int macinws,
 string refname,index C_LEVEL level,index C_LEVEL buslevel)
/*
// Attribute scan macro function
// Return value :
//	0 if out of workspace, 1 if inside, 2 if unknown, or (-1) on error
// Parameters :
//	index C_MACRO macro	: Macro index
//	index C_POOL pool	: Macro pool index
//	int macinws		: Macro in workspace flag
//	string refname		: Macro reference name
//	index C_LEVEL level	: Macro level
//	index C_LEVEL buslevel	: Macro bus level
*/
{
	return(macro.CLASS==DDBCLSSYM ? 1 : 0);
}

int aptextfunc(index C_TEXT textp,double tx,double ty,double tangle,
 int mirrflag,double tsize,string tstr,int textinws,int macclass,int varattr)
/*
// Scan a text data block for attribute pick
// Return value :
//	zero if done or (-1) on error
//	index C_TEXT textp	: Text index
//	double tx		: Text X coordinate
//	double ty		: Text Y coordinate
//	double tangle		: Text rotation angle
//	int mirrflag		: Text mirror flag
//	double tsize		: Text size
//	string tstr		: Text string
//	int textinws		: Text in workspace flag
//	int macclass		: Text macro class
//	int varattr		: Text variant attribute flag
*/
{
	if (textp.STR==curattr)
		atextflag=1;
	// Return without errors
	return(0);
}

static void documentation(int attridx)
/*
// Query documentation for mouse selectable symbol
// Parameters :
//	int attridx		: Attribute index, (-1) for symbol pick
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string key	= ""		/* Current key */;
	string docufile	= ""		/* Documentation file */;
	string docucmd	= ""		/* Documentation command */;
	string documenu	= ""		/* Documentation menu item text */;
	string docuext	= ""		/* Documentation extension */;
	string pdffile	= ""		/* PDF file */;
	string wwwlink	= ""		/* WWW Link */;
	int firstlev	= 1		/* First dir. level flag */;
	int len				/* File name length */;
	int i				/* Loop control variable */;
	// Check the key attribute ID
	if (keyid==(-1) && attridx!=(-1)) {
		bae_clriactqueue();
		bae_msgbox(2,REPNOKEYATTR,"");
		return;
		}
	if (attridx==(-1)) {
		// Pick symbol
		bae_promptdialog(UPRPICKSSYM);
		if (scm_pickelem(fig,C_FIGSREF)==0) {
			// Check if symbol with ID set
			if (cap_getpartattrib(fig.NAME,ATTRKEY,key)!=0 ||
			 key=="") {
				// Search macro documentation
				symmacrodoc(fig.NREF.MACRO);
				return;
				}
			}
		else
			exit(0);
		}
	else {
		// Get the ID value
		for (i=0;i<tfn;i++)
			if (tfl[i].attr==ATTRKEY) {
				key=attrl[attridx][i];
				break;
				}
		// Check if ID set
		if (key=="") {
			// No ID, no documentation
			bae_msgbox(0,REPNODOC,"");
			return;
			}
		}
	// Get the key data ID
	curid=(-1);
	sprintf(sqlcommand,DK_SELECT,keyid,sql_quotestr(key));
	if (sqlcmd(attrdb,sqlcommand,sresfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Check if key found
	if (curid==(-1)) {
		// Search macro documentation
		if (attridx==(-1)) {
			symmacrodoc(fig.NREF.MACRO);
			return;
			}
		bae_msgbox(0,REPNODOC,"");
		return;
		}
	// Get the PDF attribute ID
	if (PDFFILE!="" && (PDFCOMMAND!="" || DOCCOMMAND!="")) {
		curid=(-1);
		sprintf(sqlcommand,FI_SELECT,sql_quotestr(PDFFILE));
		if (sqlcmd(attrdb,sqlcommand,idfunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		sprintf(sqlcommand,DP_SELECT,seldatid,curid);
		attrval="";
		curid=(-1);
		if (sqlcmd(attrdb,sqlcommand,docufunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		pdffile=attrval;
		switch (PDFMODE) {
			// Direct file name spec.
			case 0 :
			break;
			// Common folder
			case 1 :
			pdffile=PDFDIR+pdffile;
			break;
			// Selection tree folder
			case 2 :
			while (curid!=0) {
				sprintf(sqlcommand,ST_SELECT,curid);
				curid=(-1);
				if (sqlcmd(
				 attrdb,sqlcommand,docufunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				if (curid==(-1))
					break;
				if (!firstlev)
					pdffile=attrval+"/"+pdffile;
				else
					firstlev=0;
				}
			pdffile=PDFDIR+pdffile;
			break;
			}
		}
	// Get the WWW attribute ID
	if (WWWLINK!="" && WWWCOMMAND!="") {
		curid=(-1);
		sprintf(sqlcommand,FI_SELECT,sql_quotestr(WWWLINK));
		if (sqlcmd(attrdb,sqlcommand,idfunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		sprintf(sqlcommand,DE_SELECT,seldatid,curid);
		attrval="";
		if (sqlcmd(attrdb,sqlcommand,attrvalfunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		wwwlink=attrval;
		}
	if (pdffile=="" && wwwlink=="") {
		// Search macro documentation
		if (attridx==(-1)) {
			symmacrodoc(fig.NREF.MACRO);
			return;
			}
		bae_msgbox(0,REPNODOC,"");
		return;
		}
	if (pdffile!="") {
		// Assume PDF file
		docucmd=PDFCOMMAND;
		documenu=UPRSELDOC0;
		docufile=strgetvarfilename(pdffile);
		len=strlen(docufile);
		// Search extension start
		for (i=len-1;i>0;i--)
			if (docufile[i]=='.') {
				// Check the file extension
				docuext=strextract(docufile,i,len);
				strlower(docuext);
				if (docuext==".doc") {
					docucmd=DOCCOMMAND;
					documenu=UPRSELDOC0D;
					}
				else if (docuext!=".pdf") {
					getextprog(docuext,docucmd);
					sprintf(documenu,UPRSELDOC0E,docuext);
					}
				break;
				}
		if (bae_swversion(4)=="\\")
			for (i=0;i<len;i++)
				if (docufile[i]=='/')
					docufile[i]='\\';
		if (wwwlink!="") {
			// Select document source
			bae_promptdialog(UPRSELDOC);
			switch (bae_askmenu(3,documenu,UPRSELDOC1,UPRABORT)) {
				// PDF/Word file
				case 0 :
				launch(docucmd+" \""+docufile+"\"");
				break;
				// WWW link
				case 1 :
				launch(WWWCOMMAND+" \""+
				 strgetvarfilename(wwwlink)+"\"");
				break;
				}
			}
		else {
			launch(docucmd+" \""+docufile+"\"");
			}
		}
	else {
		launch(WWWCOMMAND+" \""+strgetvarfilename(wwwlink)+"\"");
		}
}

static void symmacrodoc(index C_MACRO macro)
/*
// Display documentation for given symbol macro
// Parameters :
//	index C_MACRO macro		: Symbol macro index
*/
{
	string file			/* Documentation file name */;
	string fext			/* External file extension */;
	string cmd			/* Documentation command */;
	string msg			/* Message buffer */;
	if (cap_rulequery(RS_OCPOOL,macro,RS_SCMSUBJ,RS_SYMDOCU,"?s",file)<1 ||
	 file=="") {
		sprintf(msg,REPNOMDOC,macro.NAME);
		bae_msgbox(0,msg,"");
		return;
		}
	if ((fext=strextract(file,strlen(convstring(file,0)),
	 strlen(file)))=="" || getextprog(fext,cmd))
	 	cmd=WWWCOMMAND;
	launch(cmd+" \""+file+"\"");
}

void sympreview(int boxidx,int itemid,int attrmode)
/*
// Symbol preview display function
// Parameters :
//	int boxidx		: Dialog box index
//	int itemid		: Attribute
//	int attrmode		: Attribute source mode
*/
{
	string msg			/* Message string */;
	string plname			/* Layout part macro name */;
	string libname			/* Library file name */;
	string libfname			/* DDB file name */;
	string symname			/* Symbol name */;
	string nextname	= ""		/* Next symbol name */;
	string hd1			/* Popup header string buffer 1 */;
	string hd2			/* Popup header string buffer 2 */;
	index C_POOL pool		/* Pool element index */;
	double wslx,wsly		/* Workspace lower corner */;
	double wsux,wsuy		/* Workspace upper corner */;
	double wsxdim,wsydim		/* Workspace dimensions */;
	double wsbrd			/* Workspace border offset */;
	double labwidth			/* Picture label width */;
	double labheight		/* Picture label height */;
	double xoff, yoff		/* Draw offset */;
	int i				/* Loop control variable */;
	// Check if clear request
	if (itemid<0) {
		// Store the symbol data labels
		bae_dialsetcurrent(boxidx);
		if (h1idx>=0)
			bae_dialsetdata(h1idx,PA_LAB,0,0.0,hd1);
		if (h2idx>=0)
			bae_dialsetdata(h2idx,PA_LAB,0,0.0,hd2);
		if (bmlabidx>=0) {
			bae_dialbmpalloc(labwidth,labheight,29,0,0);
			bae_dialsetdata(bmlabidx,PA_BMLAB,29,0.0,"");
			}
		bae_dialsetcurrent(0);
		vardelete(GV_NAMEPAT);
		return;
		}
	if (PICBOXWIDTH==0.0)
		return;
	if (attrmode) {
		// Get search result data
		curattridx=0;
		gettabstruc(resl[itemid].parent);
		for (curtf=0;curtf<tfn;curtf++)
			if ((tfl[curtf].nmode&1) || (tfl[curtf].amode&1) ||
			 tfl[curtf].name==LIBFIELD ||
			 tfl[curtf].name==SYMFIELD) {
				sprintf(sqlcommand,D_SELECT,
				 resl[itemid].datid,curtf);
				if (sqlcmd(attrdb,sqlcommand,attrfunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				}
		}
	else {
		// Get symbol selection data
		curattridx=etransl[itemid];
		}
	// Check if display request enabled
	if (bae_swconfig(0)==BAE_HighEnd && bae_iniintval(PAR_DISPPLNAME,0))
	    // Get the layout part macro value
	    for (i=0;i<tfn;i++)
		if (tfl[i].attr=="$plname" || tfl[i].name==LMACTABF) {
			// Get default library name
			libname=strgetvarfilename(scm_defloglname());
			catext(libname,DDBEXT);
			strlower(plname=attrl[curattridx][i]);
			// Build the load part macro request message
			sprintf(msg,"%d %s\"%s",MSGID_LLPRTMAC,libname,plname);
			// Send the load part macro request message
			bae_sendmsg(msg,0);
			break;
			}
	// Get library and symbol name
	getsymdata(curattridx,libname,symname);
	if (mapn) {
		symname=mapl[0].name;
		libname=mapl[0].libname;
		}
	if (existddbelem(ddbfname,DDBCLSSYM,symname)==1)
		libfname=ddbfname;
	else
		libfname=scmlibdir()+libname+DDBEXT;
	// Set the default picture label bitmap size
	labwidth=PICBOXWIDTH-1.0;
	labheight=picheight;
	// Get the popup headers
	sprintf(hd1,REPLIB,libname);
	sprintf(hd2,REPSYM,symname);
	// Load the symbol macro
	if (cap_macload(pool,libfname,symname,DDBCLSSYM)<0) {
		if (bae_dialbmpalloc(labwidth,labheight,29,0,0)!=29)
			return;
		vardelete(GV_NAMEPAT);
		}
	else {
		// Get the workspace dimensions
		wslx=pool.MACRO.MLX; wsly=pool.MACRO.MLY;
		wsux=pool.MACRO.MUX; wsuy=pool.MACRO.MUY;
		wsxdim=wsux-wslx; wsydim=wsuy-wsly;
		// Create the picture label bitmap
		wsbrd= (wsxdim>wsydim ? wsxdim : wsydim)*0.05;
		if (bmp_setsize(wslx-wsbrd,wsuy+wsbrd,
		  wsux+wsbrd,wsly-wsbrd,labwidth,labheight,xoff,yoff) ||
		 bae_dialbmpalloc(PICBOXWIDTH-1.0,picheight,29,0,0)!=29)
			return;
		// Draw the picture label bitmap
		bae_popsetarea(29);
		// Set the dash base length
		btp_setdashlen(0.002,0.4);
		// Scan object data
		if (DISPTEXT) {
			if (cap_scanpool(pool,
			 xoff-pool.MACRO.MNX,yoff-pool.MACRO.MNY,
			 0.0,1,NULL,NULL,polyfunc,textfunc)!=0) {
				// Release the macro element
				bae_popsetarea(0);
				cap_macrelease(pool);
				error_scan();
				}
			}
		else {
			if (cap_scanpool(pool,
			 xoff-pool.MACRO.MNX,yoff-pool.MACRO.MNY,
			 0.0,1,NULL,NULL,polyfunc,NULL)!=0) {
				bae_popsetarea(0);
				// Release the macro element
				cap_macrelease(pool);
				error_scan();
				}
			}
		bae_popsetarea(0);
		nextname=pool.MACRO.PNAMEPAT;
		varset(GV_NAMEPAT,nextname);
		nameupdate(boxidx);
		// Release the macro element
		cap_macrelease(pool);
		}
	// Store the symbol data labels
	bae_dialsetcurrent(boxidx);
	if (h1idx>=0)
		bae_dialsetdata(h1idx,PA_LAB,0,0.0,hd1);
	if (h2idx>=0)
		bae_dialsetdata(h2idx,PA_LAB,0,0.0,hd2);
	if (bmlabidx>=0)
		bae_dialsetdata(bmlabidx,PA_BMLAB,29,0.0,"");
	bae_dialsetcurrent(0);
}

void nameupdate(int boxidx)
/*
// Symbol next name update
// Parameter :
//	int boxidx		: Dialog box index
*/
{
	string nextname			/* Next symbol name */;
	if (anidx<0)
		return;
	if (varget(GV_NAMEPAT,nextname)!=0 || scm_getstrpar(10,nextname)!=0)
		nextname="";
	bae_dialsetcurrent(boxidx);
	bae_dialsetdata(anidx,PA_TOGGLE,NAMEMODE,0.0,
	 nextname=="" ? UPRAUTONAME : nextname);
	bae_dialsetcurrent(0);
}

void gettabstruc(int tabid)
/*
// Get table structure
*/
{
	string varname			/* Variable name */;
	int mode = 0			/* Process mode */;
	tfn=0;
	cursidx=(-1);
	curstidx=(-1);
	sprintf(sqlcommand,T_SELECT,tabid);
	if (sqlcmd(attrdb,sqlcommand,tabstrucfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Get data fields
	for (curtf=0;curtf<tfn;curtf++) {
		if (tfl[curtf].aid>=0) {
			curname="";
			sprintf(sqlcommand,AN_SELECT,tfl[curtf].aid);
			if (sqlcmd(attrdb,sqlcommand,namefunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			tfl[curtf].attr=curname;
			if (curname!="") {
				strupper(curname);
				sprintf(varname,PAR_SSELATTR,
				 strextract(curname,1,strlen(curname)));
				if (varget(varname,mode)!=0)
					mode=DEFATTRMODE;
				}
			else {
				mode=0;
				}
			tfl[curtf].amode=mode;
			}
		else {
			tfl[curtf].attr="";
			tfl[curtf].amode=0;
			}
		curname="";
		sprintf(sqlcommand,FN_SELECT,tfl[curtf].fid);
		if (sqlcmd(attrdb,sqlcommand,namefunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		tfl[curtf].name=curname;
		tfl[curtf].colw=0.0;
		tfl[curtf].colctrl=(-1);
		if (curname!="") {
			if (curname==SORTFIELD)
				cursidx=curtf;
			if (curname==STATUSFIELD)
				curstidx=curtf;
			strupper(curname);
			if (curname[0]=='$') {
				sprintf(varname,PAR_SSELATTRW,
				 strextract(curname,1,strlen(curname)));
				if (varget(varname,tfl[curtf].width))
					tfl[curtf].width=DEFFIELDWIDTH;
				mode=0;
				}
			else {
				sprintf(varname,PAR_SSELFIELDW,curname);
				if (varget(varname,tfl[curtf].width))
					tfl[curtf].width=DEFFIELDWIDTH;
				sprintf(varname,PAR_SSELFIELD,curname);
				if (varget(varname,mode)) {
					if (tfl[curtf].name==SYMFIELD)
						mode=3;
					else if (tfl[curtf].name==LIBFIELD ||
					 tfl[curtf].name==PDFFILE ||
					 tfl[curtf].name==WWWLINK)
						mode=2;
					else
						mode=DEFFIELDMODE;
					}
				}
			}
		else {
			mode=0;
			tfl[curtf].width=DEFFIELDWIDTH;
			}
		tfl[curtf].nmode=mode;
		tfl[curtf].read= ((mode&1) || (tfl[curtf].amode&1) ||
		 tfl[curtf].name==LIBFIELD || tfl[curtf].name==SYMFIELD ||
		 curtf==cursidx || curtf==curstidx) ? 1 : 0 ;
		}
}

static void getsymdata(int attridx,string libname=DEFSYMLIB,string symname="")
/*
// Get symbol data
// Parameters :
//	int attridx		: Attribute index
//	string libname		: Library name
//	string symname		: Symbol name
*/
{
	int i				/* Loop control variable */;
	symname="";
	// Get library and symbol name
	for (i=0;i<tfn;i++) {
		if (tfl[i].name==LIBFIELD && attrl[attridx][i]!="")
			libname=attrl[attridx][i];
		else if (tfl[i].name==SYMFIELD)
			symname=attrl[attridx][i];
		}
	mapn=0;
	// Check if mapping reference
	if (libname==MAPLIB) {
		// Query sub gates
		sprintf(sqlcommand,M_SELECT,sql_quotestr(symname));
		if (sqlcmd(SYMMAPDB,sqlcommand,mapfunc))
			// SQL/DB error
			sql_dberror(0);
		}
	// Convert to lower case
	strlower(symname);
}

// Data callback functions

int selfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Selection list callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	int i				/* Loop control variable */;
	switch (didx) {
		// Selection type
		case 1 :
		cursel.typ=dint;
		break;
		// Selection ID
		case 2 :
		cursel.id=dint;
		break;
		// Name
		case 3 :
		cursel.name=dstr;
		switch (TREESORT) {
			case 1 :
			for (i=seln;i>0;i--)
				if (sell[i-1].name>dstr)
					sell[i]=sell[i-1];
				else
					break;
			sell[i]=cursel;
			break;
			case 2 :
			for (i=seln;i>0;i--)
				if (numstrcmp(sell[i-1].name,dstr)>0)
					sell[i]=sell[i-1];
				else
					break;
			sell[i]=cursel;
			break;
			default :
			sell[seln]=cursel;
			}
		seln++;
		break;
		}
	// Return without errors
	return(0);
}

int namefunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Any name query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Get name
	curname=dstr;
	// Return without errors
	return(0);
}

int namelfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Name list callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	string lname			/* Lowercase field name */;
	int mode = 0			/* Process mode */;
	int i				/* Loop control variable */;
	switch (didx) {
		// Name ID
		case 1 :
		curid=dint;
		break;
		// Selection ID
		case 2 :
		// Build process mode variable name
		strupper(curname=dstr);
		if (ntyp) {
			sprintf(curname,PAR_SSELATTR,
			 strextract(curname,1,strlen(curname)));
			if (varget(curname,mode))
				mode=DEFATTRMODE;
			}
		else {
			sprintf(curname,PAR_SSELFIELD,curname);
			if (varget(curname,mode)) {
				if (dstr==SYMFIELD)
					mode=3;
				else
					mode=DEFFIELDMODE;
				}
			}
		// Query search process mode
		if ((mode&2)==2) {
			// Store name sorted to list
			strlower(lname=dstr);
			if (ntyp) {
				for (i=0;i<sfn;i++)
					if (sfl[i].lowname>=lname)
						break;
				if (i<sfn && sfl[i].name==lname) {
					sfl[i].val="";
					sfl[i].id=curid;
					sfl[i].name=dstr;
					sfl[i].lowname=lname;
					sfl[i].typ=ntyp;
					break;
					}
				}
			for (i=sfn;i>0;i--)
				if (sfl[i-1].lowname>lname)
					sfl[i]=sfl[i-1];
				else
					break;
			sfl[i].val="";
			sfl[i].id=curid;
			sfl[i].aname=dstr;
			sfl[i].name=dstr;
			sfl[i].lowname=lname;
			sfl[i].typ=ntyp;
			sfn++;
			}
		break;
		}
	// Return without errors
	return(0);
}

int resfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Name list callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	int slb		= 0		/* Search lower boundary */;
	int sub		= resn-1	/* Search upper boundary */;
	int sidx			/* Search index */;
	int compres			/* Compare result */;
	int i				/* Loop control variable */;
	switch (didx) {
		// Data ID
		case 1 :
		seldatid=dint;
		break;
		// Selection ID
		case 2 :
		// Loop until search area empty
		while (slb<=sub) {
			// Get the search index
			sidx=(slb+sub)>>1;
			// Compare levels
			if ((compres=dint-resl[sidx].parent)==0 &&
			 (compres=seldatid-resl[sidx].datid)==0) {
				// Data set found
				resl[sidx].found=1;
				return(0);
				}
			// Update the search area
			if (compres<0)
				sub=sidx-1;
			else
				slb=sidx+1;
			}
		if (selmode==0) {
			// Update result list
			for (i=resn;i>slb;i--)
				resl[i]=resl[i-1];
			resl[slb].parent=dint;
			resl[slb].datid=seldatid;
			resl[slb].found=0;
			resn++;
			}
		break;
		}
	// Return without errors
	return(0);
}

int datidlfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Data ID query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Get data ID
	datidl[attrn]=dint;
	attrn++;
	// Return without errors
	return(0);
}

int sresfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Single result callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Data ID
		case 1 :
		seldatid=dint;
		break;
		// Selection ID
		case 2 :
		curid=dint;
		break;
		}
	// Return without errors
	return(0);
}

int colwfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Column width query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Column field index
		case 1 :
		curtf=dint;
		break;
		// Column width ID
		case 2 :
		tfl[curtf].colw=ddbl;
		break;
		}
	// Return without errors
	return(0);
}

int docufunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Document query result callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Document file spec.
		case 1 :
		attrval=dstr;
		break;
		// Selection ID
		case 2 :
		curid=dint;
		break;
		}
	// Return without errors
	return(0);
}

int idfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Any ID query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Get ID
	curid=dint;
	// Return without errors
	return(0);
}

int attrfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Attribute query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Get ID
	attrl[curattridx][curtf]=dstr;
	// Return without errors
	return(0);
}

int attrvalfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Attribute query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	// Attribute value
	attrval=dstr;
	// Return without errors
	return(0);
}

int tabstrucfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Table structure query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Field index
		case 1 :
		curtf=dint;
		if (curtf>=tfn)
			tfn=curtf+1;
		break;
		// Attribute ID
		case 2 :
		tfl[curtf].aid=dint;
		break;
		// Field ID
		case 3 :
		tfl[curtf].fid=dint;
		break;
		}
	// Return without errors
	return(0);
}

int mapfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Mapping query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Symbol name
		case 1 :
		strlower(dstr);
		mapl[mapn].name=dstr;
		break;
		// Symbol count
		case 2 :
		mapl[mapn].cnt=dint;
		break;
		// Library name
		case 3 :
		mapl[mapn].libname=dstr;
		break;
		// Requested library name
		case 4 :
		mapl[mapn].rlname=dstr;
		break;
		// Mapping attribute ID
		case 5 :
		mapl[mapn].id=dint;
		mapn++;
		break;
		}
	// Return without errors
	return(0);
}

int symfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Symbol pool query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Symbol name
		case 1 :
		// Store sorted to list
		for (cursym=symn;cursym>0;cursym--)
			if (numstrcmp(syml[cursym-1].name,dstr)>0)
				syml[cursym]=syml[cursym-1];
			else
				break;
		syml[cursym].name=dstr;
		break;
		// Symbol basket ID
		case 2 :
		syml[cursym].id=dint;
		break;
		// Symbol count
		case 3 :
		syml[cursym].cnt=dint;
		break;
		// Library name
		case 4 :
		syml[cursym].libname=dstr;
		break;
		// Requested library name
		case 5 :
		syml[cursym].rlname=dstr;
		break;
		// Mapping attribute id
		case 6 :
		syml[cursym].mapid=dint;
		symn++;
		break;
		}
	// Return without errors
	return(0);
}

int symattrfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Symbol pool query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	if (dstr!="")
		syml[cursym].attr+=","+dstr;
	// Return without errors
	return(0);
}

int attrassfunc(string dstr,int dint,double ddbl,
 int dval,int dtype,string dtable,string dfield,int didx)
/*
// Symbol attribute query callback function
// Return value :
//	zero if done or (-1) on data error
// Parameters :
//	string dstr		: String/Date data
//	int dint		: Integer/Boolean data
//	double ddbl		: Float data
//	int dval		: Data valid flag
//	int dtype		: Data type
//	string dtable		: Data table name
//	string dfield		: Data field name
//	int didx		: Data output field index
*/
{
	switch (didx) {
		// Attribute name
		case 1 :
		vall[valn].name=dstr;
		break;
		// Attribute value
		case 2 :
		vall[valn].val=dstr;
		valn++;
		break;
		}
	// Return without errors
	return(0);
}

static void plcnewsymbol(int attridx)
/*
// Place new symbol and transfer the selected attributes to it
// Parameters :
//	int attridx		: Attribute index
*/
{
	index C_FIGURE newfig		/* New figure list element */;
	index C_FIGURE lastfig		/* Last figure list element */;
	int lastflag			/* Last figure element known flag */;
	string refname	= ""		/* Reference name */;
	string libname			/* Library name */;
	string rlname	= ""		/* Requested library name */;
	string symname			/* Symbol name */;
	string msg			/* Message */;
	int oldnameprompt		/* Old name prompt mode */;
	int lastidx	= 0		/* Last attribute index */;
	int first	= 1		/* First attribute flag */;
	int i				/* Loop control variable */;
	// Get library and symbol name
	getsymdata(attridx,libname,symname);
	// Check if mapping symbol selection
	if (mapn)
		if (selmapping(libname,rlname,symname)!=0)
			return;
	// Get last placed element
	lastflag= cap_lastfigelem(lastfig)==0 ? 1 : 0 ;
	// Get new reference name
	if (!NAMEMODE && (refname=askstr(UPRASKREF,MAXKEYLEN))==UINPOPABORT)
		error_abort();
	// Disable symbol pool query
	varset(GV_SYMPDIS,1);
	bae_clriactqueue();
	bae_storetextiact(1,refname);
	if (libname=="")
		bae_storetextiact(1,symname);
	else
		bae_storetextiact(1,libname+"/"+symname);
	scm_getintpar(8,oldnameprompt);
	scm_setintpar(8,1);
	bae_callmenu(MNU_SCMADDSYM);
	scm_setintpar(8,oldnameprompt);
	// Reenable symbol pool query
	vardelete(GV_SYMPDIS);
	// Check if symbol successfully placed
	scm_getstrpar(1,refname);
	if (cap_lastfigelem(newfig)==0 && (!lastflag || newfig!=lastfig) &&
	 cap_nrefsearch("",newfig)==0 && newfig.NAME==refname) {
		// Search last attribute index
		if (rlname!="") {
			lastidx=(-1);
			}
		else {
			for (i=0;i<tfn;i++) {
				if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
					continue;
				lastidx=i;
				}
			}
		// Transfer attributes
		for (i=0;i<tfn;i++) {
			if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
				continue;
			if (scm_setpartattrib(refname,tfl[i].attr,
			 attrl[attridx][i],
			 (first ? 1 : 0)|(i==lastidx ? 2 : 0)) &&
			 (tfl[i].amode&4)==0 && attrl[attridx][i]!="") {
				sprintf(msg,ERRSETATT,tfl[i].attr,refname);
				bae_msgbox(1,msg,"");
				}
			first=0;
			if (RLKEY==tfl[i].attr)
				scm_setpartattrib(refname,"$rlname",
				 attrl[attridx][i],3);
			}
		if (rlname!="")
			scm_setpartattrib(refname,"$rlname",rlname,3);
		}
	else {
		bae_clriactqueue();
		}
}

static int plcpoolsymbol()
/*
// Place pool symbol and transfer the selected attributes to it
// Return value :
//	one if further symbols of this kind available, else zero
*/
{
	index C_FIGURE newfig		/* New figure list element */;
	index C_FIGURE lastfig		/* Last figure list element */;
	int lastflag			/* Last figure element known flag */;
	string refname	= ""		/* Reference name */;
	string testname			/* Test name */;
	int oldnameprompt		/* Old name prompt mode */;
	int sidx	= 1		/* Symbol index */;
	int i				/* Loop control variable */;
	// Get last placed element
	lastflag= cap_lastfigelem(lastfig)==0 ? 1 : 0 ;
	// Check if name set request
	for (i=0;i<valn;i++) {
		if (vall[i].name=="$") {
			refname=vall[i].val;
			strlower(refname);
			break;
			}
		else if (vall[i].name=="$rpname" || vall[i].name=="$rbname" ||
		 vall[i].name=="$vgrp") {
			testname=vall[i].val;
			strlower(testname);
			refname=testname;
			while (cap_nrefsearch(testname,newfig)==0 ||
			 cap_partplan(bae_planfname(),testname)!="") {
				sidx++;
				testname=refname+"_"+itoa(sidx);
				}
			refname=testname;
			break;
			}
		}
	// Get new reference name
	if (i>=valn && !NAMEMODE &&
	 (refname=askstr(UPRASKREF,MAXKEYLEN))==UINPOPABORT)
		error_abort();
	varset(GV_SYMBID,syml[cursym].id);
	varset(GV_SYMNAME,syml[cursym].name);
	varset(GV_LIBNAME,syml[cursym].libname);
	varset(GV_RLNAME,syml[cursym].rlname);
	varset(GV_FILENAME,ddbfname);
	// Disable symbol pool query
	varset(GV_SYMPDIS,1);
	mousegrab(1);
	bae_clriactqueue();
	bae_storetextiact(1,refname);
	if (syml[cursym].libname=="")
		bae_storetextiact(1,syml[cursym].name);
	else
		bae_storetextiact(1,
		 syml[cursym].libname+"/"+syml[cursym].name);
	scm_getintpar(8,oldnameprompt);
	scm_setintpar(8,1);
	bae_callmenu(MNU_SCMADDSYM);
	scm_setintpar(8,oldnameprompt);
	// Reenable symbol pool query
	vardelete(GV_SYMPDIS);
	// Check if symbol successfully placed
	scm_getstrpar(1,refname);
	if (cap_lastfigelem(newfig)==0 && (!lastflag || newfig!=lastfig) &&
	 cap_nrefsearch("",newfig)==0 && newfig.NAME==refname) {
		// Transfer attributes
		for (i=0;i<valn;i++) {
			if (vall[i].name=="$")
				continue;
			scm_setpartattrib(refname,vall[i].name,vall[i].val,
			 (i==0 ? 1 : 0)|
			 ((i==(valn-1) && syml[cursym].rlname=="") ? 2 : 0));
			}
		if (syml[cursym].rlname!="")
			scm_setpartattrib(refname,"$rlname",
			 syml[cursym].rlname,valn==0 ? 3 : 2);
		// Delete old basket entry
		sprintf(sqlcommand,SB_DELETE1+SB_DELETE2,syml[cursym].id,
		 sql_quotestr(syml[cursym].name),
		 sql_quotestr(syml[cursym].libname),
		 sql_quotestr(syml[cursym].rlname),syml[cursym].mapid);
		if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(29);
		// Store symbol with updated count to basket
		if (syml[cursym].cnt>1) {
			sprintf(sqlcommand,SB_INSERT,
			 syml[cursym].id,syml[cursym].cnt-1,
			 sql_quotestr(syml[cursym].name),
			 sql_quotestr(syml[cursym].libname),
			 sql_quotestr(syml[cursym].rlname),syml[cursym].mapid);
			if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
				// SQL/DB error
				sql_dberror(0);
			return(1);
			}
		else {
			curid=(-1);
			sprintf(sqlcommand,SC_SELECT,
			 syml[cursym].id,syml[cursym].mapid);
			if (sqlcmd(ddbfname,sqlcommand,idfunc)!=0)
				// SQL/DB error
				sql_dberror(0);
			if (curid==(-1)) {
				sprintf(sqlcommand,BA_DELETE,
				 syml[cursym].id,syml[cursym].mapid);
				if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
					// SQL/DB error
					sql_dberror(29);
				}
			return(0);
			}
		}
	else {
		bae_clriactqueue();
		exit(0);
		}
	// Unreachable statement
	return(1);
}

static void delpoolsymbol()
/*
// Delete pool symbol
*/
{
	// Delete old basket entry
	sprintf(sqlcommand,SB_DELETE1+SB_DELETE2,syml[cursym].id,
	 sql_quotestr(syml[cursym].name),sql_quotestr(syml[cursym].libname),
	 sql_quotestr(syml[cursym].rlname),syml[cursym].mapid);
	if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
		// SQL/DB error
		sql_dberror(29);
	curid=(-1);
	sprintf(sqlcommand,SC_SELECT,syml[cursym].id,syml[cursym].mapid);
	if (sqlcmd(ddbfname,sqlcommand,idfunc)!=0)
		// SQL/DB error
		sql_dberror(29);
	if (curid==(-1)) {
		sprintf(sqlcommand,BA_DELETE,
		 syml[cursym].id,syml[cursym].mapid);
		if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(29);
		}
}

static int symbolpooladd(int cnt,int attridx,string symname)
/*
// Add parts to project symbol pool
// Return value :
//	symbol count added to pool
// Parameters :
//	int cnt			: Part count
//	int attridx		: Attribute index
//	string symname		: Symbol name
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string libname			/* Library name */;
	string symmacro			/* Symbol macro name */;
	int i, j			/* Loop control variables */;
	if (cnt<=0)
		return(0);
	// Create/init database file
	if (sqlinit(ddbfname,0)==(-1) && sqlinit(ddbfname,1)==(-1))
		// SQL/DB creation error
		errormsg(ERRDBINIT,attrdb);
	// Create tables in database
	if (sqlcmd(ddbfname,SB_HELP,NULL)!=0)
		if (sqlcmd(ddbfname,SB_CREATE1+SB_CREATE2,NULL))
			// SQL/DB error (ignore table already defined error)
			sql_dberror(25);
	if (sqlcmd(ddbfname,BI_HELP,NULL)!=0)
		if (sqlcmd(ddbfname,BI_CREATE,NULL))
			// SQL/DB error (ignore table already defined error)
			sql_dberror(25);
	if (sqlcmd(ddbfname,BA_HELP,NULL)!=0)
		if (sqlcmd(ddbfname,BA_CREATE1+BA_CREATE2,NULL))
			// SQL/DB error (ignore table already defined error)
			sql_dberror(25);
	// Check if name already defined
	strlower(symname);
	if (symname!="" && cnt==1 && (cap_nrefsearch(symname,fig)==0 ||
	 cap_partplan(bae_planfname(),symname)!=""))
		// Ignore already placed symbol
		return(0);
	// Query last ID
	curid=0;
	if (sqlcmd(ddbfname,BI_SELECT,idfunc)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Delete last ID
	if (sqlcmd(ddbfname,BI_DELETE,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Allocate next ID
	curid++;
	// Store new ID
	sprintf(sqlcommand,BI_INSERT,curid);
	if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Get library and symbol name
	getsymdata(attridx,libname,symmacro);
	// Check if mapping symbol selection
	if (mapn) {
		for (i=0;i<mapn;i++) {
			// Store symbol to basket
			sprintf(sqlcommand,SB_INSERT,curid,cnt*mapl[i].cnt,
			 sql_quotestr(mapl[i].name),
			 sql_quotestr(mapl[i].libname),
			 sql_quotestr(mapl[i].rlname),mapl[i].id);
			if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
				// SQL/DB error
				sql_dberror(0);
			// Get gate specific attributes
			valn=0;
			sprintf(sqlcommand,MA_SELECT,mapl[i].id);
			if (sqlcmd(SYMMAPDB,sqlcommand,attrassfunc))
				// SQL/DB error
				sql_dberror(0);
			for (j=0;j<valn;j++) {
				sprintf(sqlcommand,BA_INSERT,curid,
				 sql_quotestr(vall[j].name),
				 sql_quotestr(vall[j].val),mapl[i].id);
				if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
					// SQL/DB error
					sql_dberror(0);
				}
			}
		}
	else {
		// Store symbol to basket
		sprintf(sqlcommand,SB_INSERT,curid,cnt,sql_quotestr(symmacro),
		 sql_quotestr(libname),sql_quotestr(""),0);
		if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		}
	// Store symbol attributes to basket
	for (i=0;i<tfn;i++) {
		if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
			continue;
		sprintf(sqlcommand,BA_INSERT,curid,
		 sql_quotestr(tfl[i].attr),sql_quotestr(attrl[attridx][i]),0);
		if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		if (RLKEY==tfl[i].attr) {
			sprintf(sqlcommand,BA_INSERT,curid,
			 sql_quotestr("$rlname"),
			 sql_quotestr(attrl[attridx][i]),0);
			if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
				// SQL/DB error
				sql_dberror(0);
			}
		}
	// Check if name store
	if (symname!="" && cnt==1) {
		// Store name attribute
		sprintf(sqlcommand,BA_INSERT,curid,
		 sql_quotestr(mapn==0 ? "$" : "$rpname"),
		 sql_quotestr(symname),0);
		if (sqlcmd(ddbfname,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		}
	return(cnt);
}

static void importpoolsymbols()
/*
// Fill symbol pool with data from external file
*/
{
	string msg			/* Message buffer */;
	string fname			/* File name */;
	string curstr			/* Current string */;
	string symname			/* Symbol name */;
	string id			/* Symbol ID */;
	int cnt				/* Symbol count */;
	int pcnt = 0			/* Pool symbol count */;
	int fh				/* Input file handle */;
	int sidx			/* Source string index */;
	int didx			/* Destination string index */;
	int nidx			/* Name string index */;
	char c				/* Scan character */;
	msgn=0;
	// Check the key attribute ID
	if (keyid==(-1)) {
		bae_msgbox(2,REPNOKEYATTR,"");
		return;
		}
	// Select file
	if (bae_askfilename(fname,"",UPRIMPFILE) || fname=="")
		// Abort
		error_abort();
	// Open the input file
	fh=fopen(fname,0);
	// Set file error mode
	fseterrmode(0);
	// Repetively get string from input file and store symbols to basket
	while (fgets(curstr,200,fh)==0) {
		if ((cnt=atoi(curstr))<=0)
			continue;
		sidx=didx=nidx=0;
		// Skip whitespace
		while ((c=curstr[sidx])!='\0' && (c==' ' || c=='\t'))
			sidx++;
		// Skip count
		while ((c=curstr[sidx])!='\0' && isdigit(c))
			sidx++;
		// Skip field seperator
		while ((c=curstr[sidx])!='\0' &&
		 (c==' ' || c=='\t' || c==';' || c==','))
			sidx++;
		// Transfer ID
		while ((c=curstr[sidx])!='\0' && c!=0x0d && c!=0x0a &&
		 c!=' ' && c!='\t' && c!=',' && c!=';') {
			id[didx]=c;
			didx++;
			sidx++;
			}
		if (didx==0)
			continue;
		id[didx]='\0';
		// Check if optional name field
		if (c==' ' || c=='\t' || c==',' || c==';') {
			// Skip field seperator
			while ((c=curstr[sidx])!='\0' &&
			 (c==' ' || c=='\t' || c==';' || c==','))
				sidx++;
			// Transfer ID
			while ((c=curstr[sidx])!='\0' && c!=0x0d && c!=0x0a &&
			 c!=' ' && c!='\t' && c!=',' && c!=';') {
				symname[nidx]=c;
				nidx++;
				sidx++;
				}
			}
		symname[nidx]='\0';
		// Get the key data ID
		curid=(-1);
		sprintf(sqlcommand,DK_SELECT,keyid,sql_quotestr(id));
		if (sqlcmd(attrdb,sqlcommand,sresfunc)!=0)
			// SQL/DB error
			sql_dberror(0);
		// Check if key found
		if (curid==(-1)) {
			sprintf(msgl[msgn],ERRIMPIDMISS,id);
			msgn++;
			continue;
			}
		gettabstruc(curid);
		// Get data fields
		curattridx=0;
		for (curtf=0;curtf<tfn;curtf++)
			if ((tfl[curtf].nmode&1) || (tfl[curtf].amode&1) ||
			 tfl[curtf].name==LIBFIELD ||
			 tfl[curtf].name==SYMFIELD) {
				sprintf(sqlcommand,D_SELECT,seldatid,curtf);
				if (sqlcmd(attrdb,sqlcommand,attrfunc)!=0)
					// SQL/DB error
					sql_dberror(0);
				}
		if (symname=="")
			sprintf(msg,REPSTOREPOOL,cnt,id);
		else
			sprintf(msg,REPSTORENPOOL,symname,id);
		bae_prtdialog(msg);
		pcnt+=symbolpooladd(cnt,0,symname);
		}
	// Close input file
	fclose(fh);
	symbolpool(1);
	// Test if any errors occurred
	if (msgn) {
		// Error(s) occurred
		hl[hn++]=REPIMPIDMISS;
		hl[hn++]="";
		// Display messages with popup menu
		bae_setintpar(16,3098);
		popupmenu(0,"",hl,hn,msgl,msgn,
		 UINPOPABORT,0,-1,-1,hn+msgn+2,100,0,"");
		// Abort
		return;
		}
}

static void symbolpool(int updcall)
/*
// Query symbol pool
// Parameter :
//	int updcall		: Pure update call
*/
{
	string msg			/* Message */;
	double butx			/* Dialog box button x coordinate */;
	double cy = DIAL_TOPMARG	/* Dialog box current y coordinate */;
	double dialwidth		/* Dialog box width */;
	double dialheight		/* Dialog box height */;
	double baseheight		/* Dialog box base height */;
	int lbidx = (-1)		/* List box item index */;
	int maxlen			/* Maximum name length */;
	string name			/* Dialog box item name */;
	string varname			/* Variable name */;
	int actcode			/* Action code */;
	int reason			/* Callback reason */;
	int intval			/* Dialog box item integer value */;
	int boxid			/* Dialog box ID */;
	int abortmode = 0		/* Abort symbol pool mode */;
	int i				/* Loop control variable */;
	// Check if action call
	if (varget(VAR_PDBOXIDX,boxidx)==0 &&
	 varget(VAR_PDBOXACT,actcode)==0 && varget(VAR_PDBOXREAS,reason)==0 &&
	 varget(VAR_PDBOXIVAL,intval)==0 && varget(VAR_PDBOXNAME,name)==0) {
		// Remove callback parameters
		vardelete(VAR_PDBOXIDX);
		vardelete(VAR_PDBOXACT);
		vardelete(VAR_PDBOXREAS);
		vardelete(VAR_PDBOXIVAL);
		vardelete(VAR_PDBOXNAME);
		bae_clriactqueue();
		varget(GV_SPITEMFIELD,lbidx);
		varget(GV_SPAUTONAME,anidx);
		varget(GV_SPAUTOCLOSE,acidx);
		bae_dialsetcurrent(boxidx);
		bae_dialgetdata(lbidx,intval,0.0,"");
		bae_dialgetdata(anidx,NAMEMODE,0.0,"");
		bae_dialgetdata(acidx,AUTOCLOSE,0.0,"");
		bae_dialsetcurrent(0);
		varset(GV_NAMEMODE,NAMEMODE);
		varset(GV_AUTOCLOSE,AUTOCLOSE);
		switch (actcode) {
			// Update box
			case 1 :
			// Resize
			case (-2) :
			break;
			// Symbol placement
			case 0 :
			case 2 :
			readsymbolpool();
			if (act_var>0) {
				bae_msgbox(1,ERRVARFUNC,"");
				break;
				}
			cursym=intval;
			if (cursym>=0 && cursym<symn) {
				valn=0;
				// Get symbol attributes
				sprintf(sqlcommand,BV_SELECT1+BV_SELECT2,
				 syml[cursym].id,0);
				if (sqlcmd(ddbfname,sqlcommand,attrassfunc))
					// SQL/DB error
					sql_dberror(0);
				// Get gate specific attributes
				if (syml[cursym].mapid!=0) {
					sprintf(sqlcommand,
					 BV_SELECT1+BV_SELECT2,
					 syml[cursym].id,syml[cursym].mapid);
					if (sqlcmd(
					 ddbfname,sqlcommand,attrassfunc))
						// SQL/DB error
						sql_dberror(0);
					}
				if (AUTOCLOSE) {
					vardelete(GV_SPITEMFIELD);
					vardelete(GV_SPAUTONAME);
					vardelete(GV_SPAUTOCLOSE);
					vardelete(GV_SPBOXID);
					sprintf(varname,VAR_PDBOXSEQ,boxidx);
					vardelete(varname);
					sprintf(varname,VAR_PDBOXMODE,boxidx);
					vardelete(varname);
					bae_dialsetcurrent(boxidx);
					bae_dialclr();
					bae_dialsetcurrent(0);
					}
				abortmode= plcpoolsymbol() ? 0 : 2 ;
				if (symn>1)
					abortmode=0;
				if (AUTOCLOSE)
					exit(0);
				}
			break;
			// Symbol delete
			case 3 :
			readsymbolpool();
			cursym=intval;
			if (cursym>=0 && cursym<symn) {
				if (symn<2)
					abortmode=2;
				delpoolsymbol();
				}
			break;
			// Empty symbol basket
			case 4 :
			readsymbolpool();
			if (verify(UPREMPTYBASKET,0)) {
				if (sqlcmd(ddbfname,SB_DELALL,NULL)!=0 ||
				 sqlcmd(ddbfname,BA_DELALL,NULL)!=0 ||
				 sqlcmd(ddbfname,BI_DELETE,NULL)!=0)
					// SQL/DB error
					sql_dberror(29);
				abortmode=2;
				}
			break;
			// Import symbol list into pool
			case 5 :
			importpoolsymbols();
			break;
			// Abort
			case (-1) :
			default :
			abortmode=1;
			}
		vardelete(GV_SPITEMFIELD);
		vardelete(GV_SPAUTONAME);
		vardelete(GV_SPAUTOCLOSE);
		vardelete(GV_SPBOXID);
		sprintf(varname,VAR_PDBOXSEQ,boxidx);
		vardelete(varname);
		sprintf(varname,VAR_PDBOXMODE,boxidx);
		vardelete(varname);
		bae_dialsetcurrent(boxidx);
		bae_dialclr();
		bae_dialsetcurrent(0);
		switch (abortmode) {
			case 1 :
			exit(0);
			case 2 :
			return;
			}
		}
	// Check if update call
	if (updcall) {
		if (varget(GV_SPBOXID,boxidx))
			// Symbol pool not active
			return;
		// Remove dialog box
		vardelete(GV_SPITEMFIELD);
		vardelete(GV_SPAUTONAME);
		vardelete(GV_SPAUTOCLOSE);
		vardelete(GV_SPBOXID);
		sprintf(varname,VAR_PDBOXSEQ,boxidx);
		vardelete(varname);
		sprintf(varname,VAR_PDBOXMODE,boxidx);
		vardelete(varname);
		bae_dialsetcurrent(boxidx);
		bae_dialclr();
		bae_dialsetcurrent(0);
		}
	if (varget(GV_SPBOXID,boxidx)==0)
		error(ERRDBLPOOL);
	// Check if dialog box support
	if (bae_dialclr())
		error(ERRNOWIN);
	baseheight=DIAL_TOPMARG+DIAL_BUTVSTEP+DIAL_SEPVSTEP+0.2;
	boxid=bae_iniintval(PAR_MODALBOX,0) ? (PA_MODALBOX|3048) : 3048;
	dial_getboxsizemin(boxid,dialwidth,dialheight,
	 DIAL_LEFTMARG+SELBOXWIDTH+DIAL_RIGHTSMARG,baseheight+SELBOXHEIGHT,
	 DIAL_LEFTMARG+5.0+bae_dialgettextlen(0,UPRFCT00)+
	 bae_dialgettextlen(0,UPRAUTOCLOSE)+bae_dialgettextlen(0,UPRAUTONAME)+
	 bae_dialgettextlen(0,UPRIMPORTBUT)+bae_dialgettextlen(0,UPRDELBUT)+
	 bae_dialgettextlen(0,UPREMPTYBUT)+6.0*ABUTXSTEP+DIAL_RIGHTSMARG,
	 baseheight+2.0);
	SELBOXWIDTH=dialwidth-DIAL_LEFTMARG-DIAL_RIGHTSMARG;
	// Query symbol pool
	readsymbolpool();
	maxlen=strlen(syml[0].name);
	for (i=1;i<symn;i++)
		if (maxlen<strlen(syml[i].name))
			maxlen=strlen(syml[i].name);
	butx=DIAL_LEFTMARG+1.0;
	// Store symbol placement button
	bae_dialaddcontrol(
	 PA_ACT,0,2,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRFCT00);
	butx+=bae_dialgettextlen(0,UPRFCT00)+ABUTXSTEP;
	anidx=bae_dialaddcontrol(
	 PA_TOGGLE,0,0,NAMEMODE,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTONAME);
	butx+=bae_dialgettextlen(0,UPRAUTONAME)+ABUTXSTEP+2.0;
	acidx=bae_dialaddcontrol(
	 PA_TOGGLE,0,0,AUTOCLOSE,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRAUTOCLOSE);
	butx+=bae_dialgettextlen(0,UPRAUTOCLOSE)+ABUTXSTEP+2.0;
	// Store import button
	bae_dialaddcontrol(PA_ACT|(ATTRKEY!="" ? 0 : PA_GRAYED),
	 0,5,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRIMPORTBUT);
	butx+=bae_dialgettextlen(0,UPRIMPORTBUT)+ABUTXSTEP;
	// Store symbol delete button
	bae_dialaddcontrol(
	 PA_ACT,0,3,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPRDELBUT);
	butx+=bae_dialgettextlen(0,UPRDELBUT)+ABUTXSTEP;
	// Store basket empty button
	bae_dialaddcontrol(
	 PA_ACT,0,4,0,0.0,0.0,0.0,"",0,butx,cy,0.0,UPREMPTYBUT);
	cy+=DIAL_BUTVSTEP;
	// Store list box
	lbidx=bae_dialadvcontrol(
	 PA_LB|PA_OKSEL|PA_HBRDREL|PA_HSCROLL|PA_VBRDREL,(-1),0,0,0.0,0.0,0.0,
	 "",0,DIAL_LEFTMARG,cy,DIAL_RIGHTSMARG,DIAL_SEPVSTEP,"");
	// Store list box entries
	for (i=0;i<symn;i++) {
		sprintf(msg,"%2d * %-*s %s%s",syml[i].cnt,maxlen,
		 syml[i].name,syml[i].libname,syml[i].attr);
		bae_dialaddcontrol(PA_LBE,0,0,i,0.0,0.0,0.0,"",0,
		 0.0,0.0,0.0,msg);
		}
	cy+=dialheight-baseheight+DIAL_SEPVSTEP;
	// Display dialog box
	bae_setintpar(16,boxid);
	if ((boxidx=bae_dialboxperm("!"+UPRSYMSEL,0,dialwidth,cy))<0)
		error_abort();
	sprintf(varname,VAR_PDBOXSEQ,boxidx);
	varset(varname,"symsel:'pool'");
	sprintf(varname,VAR_PDBOXMODE,boxidx);
	varset(varname,PDBOXLOADUPD);
	varset(GV_SPITEMFIELD,lbidx);
	varset(GV_SPAUTONAME,anidx);
	varset(GV_SPAUTOCLOSE,acidx);
	varset(GV_SPBOXID,boxidx);
}

static void readsymbolpool()
/*
// Query symbol pool from job database
*/
{
	struct symdes symbuf		/* Symbol swap buffer */;
	string symname			/* Current symbol name */;
	int symend			/* Symbol sort scan end */;
	int found			/* Swap symbol found flag */;
	int i				/* Loop control variable */;
	// Set cached file access
	if (sqlcmd(ddbfname,C_READ,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Query symbol pool
	symn=0;
	sqlcmd(ddbfname,SB_SELECT,symfunc);
	if (symn==0 && ATTRKEY=="") {
		// Terminate cached file access
		if (sqlcmd(ddbfname,C_OFF,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		return;
		}
	// Query the symbol attributes
	for (cursym=0;cursym<symn;cursym++) {
		syml[cursym].attr=
		 syml[cursym].rlname=="" ? "" : ","+syml[cursym].rlname;
		for (i=0;i<bdattrn;i++) {
			sprintf(sqlcommand,BA_SELECT1+BA_SELECT2,
			 syml[cursym].id,syml[cursym].mapid,
			 sql_quotestr(bdattrl[i]));
			if (sqlcmd(ddbfname,sqlcommand,symattrfunc))
				// SQL/DB error
				sql_dberror(0);
			if (syml[cursym].mapid!=0) {
				sprintf(sqlcommand,BA_SELECT1+BA_SELECT2,
				 syml[cursym].id,0,sql_quotestr(bdattrl[i]));
				if (sqlcmd(ddbfname,sqlcommand,symattrfunc))
					// SQL/DB error
					sql_dberror(0);
				}
			}
		}
	// Terminate cached file access
	if (sqlcmd(ddbfname,C_OFF,NULL)!=0)
		// SQL/DB error
		sql_dberror(0);
	// Sort symbol entries by attribute values
	for (cursym=0;cursym<symn;cursym=symend) {
		// Scan for current symbol items list end
		symname=syml[cursym].name;
		for (symend=cursym;symend<symn;symend++)
			if (syml[symend].name!=symname)
				break;
		// Sort symbol entries
		do {
			found=0;
			for (i=cursym+1;i<symend;i++)
				if (numstrcmp(syml[i].attr,syml[i-1].attr)<0) {
					symbuf=syml[i-1];
					syml[i-1]=syml[i];
					syml[i]=symbuf;
					found=1;
					break;
					}
			}
		 // Stop if no further repeat requests
		 while (found);
		}
}

static void singlesymbolids(int attridx)
/*
// Replace attributes and macros of mouse selectable symbols
// Parameters :
//	int attridx		: Attribute index
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string libname			/* Library name */;
	string rlname	= ""		/* Requested library name */;
	string symname			/* Symbol name */;
	string oldplname		/* Old phys. library name */;
	string newplname		/* New phys. library name */;
	string oldval			/* Old attribute value */;
	string msg			/* Message */;
	int cnt		= 0		/* Replacement count */;
	int acnt	= 0		/* Replacement count */;
	int tcnt	= 0		/* Total symbol count */;
	int attchg			/* Attributes changed flag */;
	int i				/* Loop control variable */;
	// Get library and symbol name
	getsymdata(attridx,libname,symname);
	// Check if mapping symbol selection
	if (mapn)
		if (selmapping(libname,rlname,symname)!=0)
			return;
	// Pick symbols
	while (bae_promptdialog(UPRPICKSYM),scm_pickelem(fig,C_FIGSREF)==0) {
		// Check if valid $plname change
		if (chkplnamechg(fig.NREF,attridx,oldplname,newplname) &&
		 checkplname(oldplname,newplname)) {
			if (act_var!=0) {
				sprintf(msg,ERRPLVARERRV,oldplname,newplname);
				bae_msgbox(2,msg,"");
				continue;
				}
			else if (LMACQRY) {
				if (!verify(UPRPLNCHG,0))
					continue;
				}
			}
		// Check if macro replacement
		if (fig.NREF.MACRO.NAME!=symname) {
			sprintf(msg,UPRSYMCHG,fig.NREF.MACRO.NAME,symname);
			if (!verify(msg,0))
				continue;
			bae_callmenu(MNU_SCMGRPRESE);
			scm_elemgrpchg(fig,1);
			bae_clriactqueue();
			bae_storemenuiact(1,0,LMB);
			bae_storetextiact(1,libname+"/"+symname);
			bae_callmenu(MNU_SCMGRPMACN);
			bae_callmenu(MNU_SCMGRPRESE);
			}
		tcnt++;
		// Get old phys. library name
		if (cap_getpartattrib(fig.NAME,"$plname",oldplname)!=0)
			oldplname="";
		// Transfer attributes
		for (i=0;i<tfn;i++) {
			if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
				continue;
			if (tfl[i].attr=="$plname" &&
			 !checkplname(oldplname,attrl[attridx][i]))
				continue;
			if (cap_getpartattrib(
			 fig.NAME,tfl[i].attr,oldval)==0 &&
			 oldval==attrl[attridx][i])
				if (RLKEY!=tfl[i].attr ||
				 (cap_getpartattrib(
				   fig.NAME,"$rlname",oldval)==0 &&
				  oldval==attrl[attridx][i]))
					continue;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			if (scm_setpartattrib(
			  fig.NAME,tfl[i].attr,attrl[attridx][i],3) &&
			 (tfl[i].amode&4)==0 && attrl[attridx][i]!="") {
				sprintf(msg,ERRSETATT,tfl[i].attr,fig.NAME);
				bae_msgbox(1,msg,"");
				}
			if (RLKEY==tfl[i].attr)
				scm_setpartattrib(fig.NAME,"$rlname",
				 attrl[attridx][i],3);
			attchg=1;
			}
		if (rlname!="") {
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			scm_setpartattrib(fig.NAME,"$rlname",rlname,3);
			attchg=1;
			}
		cnt++;
		if (attchg)
			acnt++;
		}
	// Print process report
	sprintf(msg,REPSYMPROC,tcnt,cnt,acnt);
	bae_prtdialog(msg);
}

static void groupsymbolids(int attridx)
/*
// Replace attributes and macros of group selected symbols
// Parameters :
//	int attridx		: Attribute index
*/
{
	index C_FIGURE fig		/* Figure list element */;
	string libname			/* Library name */;
	string rlname	= ""		/* Requested library name */;
	string symname			/* Symbol name */;
	string oldplname		/* Old phys. library name */;
	string oldval			/* Old attribute value */;
	string newplname		/* New phys. library name */;
	string lastname	= ""		/* Last symbol name */;
	string msg			/* Message */;
	int firstmchg	= 1		/* First macro name change */;
	int cnt		= 0		/* Replacement count */;
	int acnt	= 0		/* Replacement count */;
	int tcnt	= 0		/* Total symbol count */;
	int mcnt	= 0		/* Macro change count */;
	int pcnt	= 0		/* $plname change count */;
	int attchg			/* Attributes changed flag */;
	int i				/* Loop control variable */;
	// Get library and symbol name
	getsymdata(attridx,libname,symname);
	// Check if mapping symbol selection
	if (mapn)
		if (selmapping(libname,rlname,symname)!=0)
			return;
	forall (fig where fig.TYP==C_FIGNREF && fig.GROUP &&
	 fig.NREF.MACRO.CLASS!=DDBCLSLAB) {
		if (fig.NREF.MACRO.NAME!=symname)
			mcnt++;
		if (chkplnamechg(fig.NREF,attridx,oldplname,newplname) &&
		 checkplname(oldplname,newplname))
			pcnt++;
		}
	if (pcnt) {
		if (act_var!=0) {
			bae_msgbox(2,ERRPLVARERR,"");
			return;
			}
		else if (LMACQRY) {
			sprintf(msg,UPRMPLNCHG,pcnt);
			if (!verify(msg,0))
				return;
			}
		}
	if (mcnt) {
		sprintf(msg,UPRMSYMCHG,mcnt);
		if (!verify(msg,0))
			return;
		}
	// Loop for all group symbols
	forall (fig where fig.TYP==C_FIGNREF && fig.GROUP &&
	 fig.NAME!=lastname && fig.NREF.MACRO.CLASS!=DDBCLSLAB) {
		lastname=fig.NAME;
		// Check if macro replacement
		tcnt++;
		if (fig.NREF.MACRO.NAME!=symname && firstmchg) {
			bae_clriactqueue();
			bae_storemenuiact(1,0,LMB);
			bae_storetextiact(1,libname+"/"+symname);
			bae_callmenu(MNU_SCMGRPMACN);
			firstmchg=0;
			}
		// Get old phys. library name
		if (cap_getpartattrib(lastname,"$plname",oldplname)!=0)
			oldplname="";
		// Transfer attributes
		for (i=0;i<tfn;i++) {
			if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
				continue;
			if (tfl[i].attr=="$plname" &&
			 !checkplname(oldplname,attrl[attridx][i]))
				continue;
			if (cap_getpartattrib(
			 lastname,tfl[i].attr,oldval)==0 &&
			 oldval==attrl[attridx][i])
				if (RLKEY!=tfl[i].attr ||
				 (cap_getpartattrib(
				   lastname,"$rlname",oldval)==0 &&
				  oldval==attrl[attridx][i]))
					continue;
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			if (scm_setpartattrib(
			  lastname,tfl[i].attr,attrl[attridx][i],3) &&
			 (tfl[i].amode&4)==0 && attrl[attridx][i]!="") {
				sprintf(msg,ERRSETATT,tfl[i].attr,lastname);
				bae_msgbox(1,msg,"");
				}
			if (RLKEY==tfl[i].attr)
				scm_setpartattrib(lastname,"$rlname",
				 attrl[attridx][i],3);
			attchg=1;
			}
		if (rlname!="") {
			// Save current state for undo
			if (cflag==0) {
				bae_callmenu(MNU_BAESAVESTATE);
				cflag=1;
				}
			scm_setpartattrib(lastname,"$rlname",rlname,3);
			attchg=1;
			}
		cnt++;
		if (attchg)
			acnt++;
		}
	// Print process report
	sprintf(msg,REPSYMPROC,tcnt,cnt,acnt);
	bae_prtdialog(msg);
}

static void replaceid(int attridx)
/*
// Replace attributes and macros of symbols with given ID
// Parameters :
//	int attridx		: Attribute index
*/
{
	index C_FIGURE fig		/* Figure list element */;
	index C_NREF nref		/* Named reference index */;
	index C_ATTRIBUTE attr		/* Attribute index */;
	string libname			/* Library name */;
	string symname			/* Symbol name */;
	string ename			/* Current element name */;
	string oldplname		/* Old phys. library name */;
	string oldval			/* Old attribute value */;
	string vattrname		/* Variant specific attribute name */;
	string lastname			/* Last symbol name */;
	string oldidnr	= ""		/* Old ID */;
	string idnr			/* ID */;
	string username			/* Element lock user name */;
	string msg			/* Message */;
	string g_dis	= ","		/* Group functions disable */;
	int filemode			/* File mode */;
	int grpmode			/* Group mode */;
	int cnt		= 0		/* Key symbol count */;
	int acnt	= 0		/* Replacement count */;
	int tcnt	= 0		/* Total symbol count */;
	int found	= 0		/* Key attribute found */;
	int attchg			/* Attributes changed flag */;
	int varidx			/* Variant index */;
	int jobclass			/* Current job DDB class */;
	string jobfname			/* Current job file name */;
	string jobename			/* Current job element name */;
	int i				/* Loop control variable */;
	forall (fig where fig.GROUP) {
		g_dis="";
		break;
		}
	// Select update function
	bae_promptdialog(UPRSELBMOD);
	switch (bae_askmenu(4,
	 UPRSELBMOD0,g_dis+UPRSELBMOD1,UPRSELBMOD2,UPRABORT)) {
		// Current sheet
		case 0 :
		filemode=0;
		grpmode=0;
		break;
		// Group elements
		case 1 :
		filemode=0;
		grpmode=1;
		break;
		// All sheets
		case 2 :
		verifysave();
		filemode=1;
		grpmode=0;
		break;
		default :
		return;
		}
	// Store the current plan designators
	jobclass=bae_planddbclass();
	jobfname=bae_planfname();
	jobename=bae_planename();
	// Get old ID
	bae_nameclr();
	forall (nref)
		for (varidx=0;varidx<varn;varidx++) {
			vattrname=varattrname(ATTRKEY,varidx);
			forall (attr of nref where
			 attr.NAME==vattrname && attr.VALUE!="") {
				bae_nameadd(attr.VALUE,"","","",2);
				found=1;
				}
			}
	// Check if group names found
	if (filemode==0 && !found)
		error(ERRNOKEYID);
	// Select old key
	bae_setintpar(16,3140);
	if (bae_askname(oldidnr,UPROLDID,80))
		// Aborted
		error_abort();
	// Check element lock state
	if (filemode) {
		ename="*";
		switch (sql_lockcheck(ddbfname,ename,DDBCLSCM,username)) {
			case 1 :
			sprintf(msg,UPRLOCKWARN,ename,username);
			if (bae_msgboxverify(msg,"")!=1)
				error_abort();
			break;
			case 2 :
			case 3 :
			sprintf(msg,ERRELEMLOCK,ename,username);
			error(msg);
			break;
			default :
			;
			}
		}
	// Get library and symbol name
	getsymdata(attridx,libname,symname);
	ename="";
	while (filemode==0 || scanddbenames(ddbfname,DDBCLSCM,ename)==1) {
	    // Load next plan
	    if (filemode && bae_planename()!=ename) {
		if (bae_planfname()==ddbfname)
			bae_setintpar(22,1);
		loadddbelem(ddbfname,ename,DDBCLSCM);
		}
	    // Loop for all selected symbols
	    lastname="";
	    forall (fig where fig.TYP==C_FIGNREF && (!grpmode || fig.GROUP) &&
	     fig.NAME!=lastname && fig.NREF.MACRO.CLASS!=DDBCLSLAB) {
		lastname=fig.NAME;
		tcnt++;
		for (varidx=0;varidx<varn;varidx++) {
			// Check if symbol with requested ID
			if (getvattribval(lastname,
			 varattrname(ATTRKEY,varidx),idnr)!=0 || idnr!=oldidnr)
				continue;
			if (mapn) {
				// Check if symbol matches mapping
				for (i=0;i<mapn;i++)
					if (mapl[i].name==fig.NREF.MACRO.NAME)
						break;
				if (i>=mapn) {
					sprintf(msg,ERRMAPERR,
					 fig.NREF.MACRO.NAME,symname);
					bae_msgbox(2,msg,"");
					continue;
					}
				}
			// Check if macro replacement
			else if (fig.NREF.MACRO.NAME!=symname) {
				bae_callmenu(MNU_SCMGRPRESE);
				scm_elemgrpchg(fig,1);
				bae_clriactqueue();
				bae_storemenuiact(1,0,LMB);
				bae_storetextiact(1,libname+"/"+symname);
				bae_callmenu(MNU_SCMGRPMACN);
				bae_callmenu(MNU_SCMGRPRESE);
				}
			// Get old phys. library name
			if (getvattribval(lastname,
			 varattrname("$plname",varidx),oldplname)!=0)
				oldplname="";
			// Transfer attributes
			for (i=0;i<tfn;i++) {
				if (tfl[i].attr=="" || (tfl[i].amode&1)==0)
					continue;
				if (tfl[i].attr=="$plname" &&
				 !checkplname(oldplname,attrl[attridx][i]))
					continue;
				vattrname=varattrname(tfl[i].attr,varidx);
				if (getvattribval(
				  lastname,vattrname,oldval)==0 &&
				 oldval==attrl[attridx][i])
					if (RLKEY!=tfl[i].attr ||
					 (getvattribval(lastname,
					  varattrname("$rlname",varidx),
					   oldval)==0 && oldval==attrl[0][i]))
						continue;
				// Save current state for undo
				if (cflag==0) {
					bae_callmenu(MNU_BAESAVESTATE);
					cflag=1;
					}
				if (scm_setpartattrib(
				  lastname,vattrname,attrl[attridx][i],7) &&
				 (tfl[i].amode&4)==0 &&
				 attrl[attridx][i]!="") {
					sprintf(msg,ERRSETATT,
					 tfl[i].attr,lastname);
					bae_msgbox(1,msg,"");
					}
				if (RLKEY==tfl[i].attr)
					scm_setpartattrib(lastname,
					 varattrname("$rlname",varidx),
					 attrl[attridx][i],7);
				attchg=1;
				}
			cnt++;
			if (attchg) {
				if (varidx==0)
					sprintf(msgl[msgn],REPATTCHG,
					 lastname);
				else
					sprintf(msgl[msgn],REPVATTCHG,
					 varidx,lastname);
				msgn++;
				acnt++;
				}
			}
		}
	    if (filemode==0)
		break;
	    bae_setintpar(22,1);
	    bae_callmenu(MNU_SCMSAVELEM);
	    bae_setintpar(22,0);
	    }
	// Reload the original element
	if (jobclass!=DDBCLUNDEF && (jobclass!=bae_planddbclass() ||
	 jobfname!=bae_planfname() || jobename!=bae_planename())) {
		bae_setintpar(22,2);
		bae_loadelem(jobfname,jobename,jobclass);
		}
	// Test if any errors occurred
	if (msgn) {
		// Search key value
		idnr="";
		for (i=0;i<tfn;i++)
			if (tfl[i].attr==ATTRKEY) {
				idnr=attrl[attridx][i];
				break;
				}
		// Error(s) occurred
		sprintf(hl[hn++],REPIDREPLACE,oldidnr,idnr);
		sprintf(hl[hn++],REPSYMCHECK,tcnt);
		sprintf(hl[hn++],REPIDFOUND,cnt);
		sprintf(hl[hn++],REPIDREPCNT,acnt);
		hl[hn++]=" ";
		// Display messages with popup menu
		bae_setintpar(16,3118);
		popupmenu(0,"",hl,hn,msgl,msgn,
		 UINPOPABORT,0,-1,-1,hn+msgn+2,100,0,"");
		}
	else {
		// Print process report
		sprintf(msg,REPSYMPROC,tcnt,cnt,acnt);
		bae_prtdialog(msg);
		}
}

static int selmapping(string libname,string rlname="",string symname)
/*
// Select a mapping symbol from current mapping list
// Return value :
//	zero if selection OK or (-1) on invalid selection
// Parameters :
//	string libname		: Library name
//	string rlname		: Requested library name
//	string symname		: Symbol name
*/
{
	string mapsell[]		/* Map selection list */;
	string msg			/* Message */;
	int maxlen			/* Maximum name length */;
	int i				/* Loop control variable */;
	// Get required name field width
	maxlen=strlen(mapl[0].name);
	for (i=1;i<mapn;i++)
		if (maxlen<strlen(mapl[i].name))
			maxlen=strlen(mapl[i].name);
	// Build selection list
	for (i=0;i<mapn;i++)
		sprintf(mapsell[i],"%2d * %-*s %s %s",
		 mapl[i].cnt,maxlen,mapl[i].name,
		 mapl[i].libname,mapl[i].rlname);
	// Get symbol mapping
	bae_setintpar(16,3099);
	if ((symname=popupmenu(1,UPRMAPSEL,mapsell,0,
	  mapsell,mapn,UINPOPABORT,0,1,1,mapn+2,0,0,""))=="" ||
	 symname==UINPOPABORT)
		error_abort();
	for (i=0;i<mapn;i++)
		if (mapsell[i]==symname) {
			symname=mapl[i].name;
			libname=mapl[i].libname;
			rlname=mapl[i].rlname;
			break;
			}
	if (i>=mapn) {
		sprintf(msg,ERRNOMAP,symname);
		bae_msgbox(2,msg,"");
		return(-1);
		}
	// Return without errors
	return(0);
}

int checkplname(string macname,string libplname)
/*
// Check a physical library part name
// Return value :
//	zero if plname OK, 1 if normal plname set or (-1) on invalid macname
// Parameters :
//	string macname		: Part macro name
//	string libplname	: Predefined physical library name
*/
{
	string altprefix		/* Alternate part name prefix */;
	string altphext			/* Alternate part name extension */;
	int dstidx1			/* Destination string 1st index */;
	int dstidx2			/* Destination string 2nd index */;
	int dstid			/* Destination string ID */;
	char c				/* Scan character */;
	int i				/* Loop control variable */;
	// Check if macro set
	if (LMACUPD || macname=="")
		return(1);
	// Check if already set
	if (macname==libplname)
		return(0);
	// Check if single name library definition
	if (libplname[0]!='[')
		// Invalid $plname replace
		return(-1);
	// Scan alternate physical part name list
	for (i=1,dstidx1=0,dstidx2=0,dstid=0;(c=libplname[i])!='\0';i++)
		switch (c) {
			case ']' :
			case ',' :
			// Check name scan state
			if (dstid==0) {
				if (dstidx1!=0) {
					// Store pure prefix name
					altprefix[dstidx1]='\0';
					dstidx1=0;
					// Store the new alternate name
					if (altprefix==macname)
						return(0);
					}
				}
			else {
				/* Build name combination */
				altphext[dstidx2]='\0';
				dstidx2=0;
				/* Store the new alternate name */
				if ((altprefix+altphext)==macname)
					return(0);
				if (c==']') {
					dstid=0;
					dstidx1=0;
					}
				}
			break;
			case '[' :
			if (dstid==0) {
				altprefix[dstidx1]='\0';
				dstid=1;
				dstidx2=0;
				break;
				}
			default :
			if (dstid==0) {
				if (dstidx1<MAXKEYLEN)
					altprefix[dstidx1++]=c;
				}
			else {
				if (dstidx2<MAXKEYLEN)
					altphext[dstidx2++]=c;
				}
			}
	// Name not found, invalid name used
	return(-1);
}

int chkplnamechg(index C_NREF part,int attridx,string opl,string npl)
/*
// Check for $plname change status of given symbol
// Return value :
//      1 if $plname change, else zero
// Parameter :
//      index C_NREF part	: Part index
//      int attridx		: Attribute index
//	string opl		: Old $plname return
//	string npl		: New $plname return
*/
{
	index C_ATTRIBUTE att		/* Attribute index */;
	string oldplname = ""		/* Old $plname base variant value */;
	string newplname = ""		/* New $plname value */;
	// Search the $plname base variant value
	forall (att of part where att.NAME=="$plname") {
		oldplname=att.VALUE;
		break;
		}
	// No value defined
	if (oldplname=="") {
		opl=npl="";
		return(0);
		}
	// Search the new $plname value
	for (curtf=0;curtf<tfn;curtf++) {
		if (tfl[curtf].attr=="" || (tfl[curtf].amode&1)==0)
			continue;
		if (tfl[curtf].attr=="$plname") {
			newplname=attrl[attridx][curtf];
			break;
			}
		}
	opl=oldplname;
	npl=newplname;
	// Compare $plname value
	return(newplname==oldplname ? 0 : 1);
}

string tabhead()
/*
// Build table header string
// Return value: table header string
*/
{
	string buf			/* String buffer */;
	string fbuf			/* Field string buffer */;
	string name			/* Field name */;
	string aliasvar			/* Field alias variable name */;
	string aliasname		/* Field alias name */;
	int dcnt			/* Display field count */;
	// Build header label
	buf="";
	for (curtf=dcnt=0;curtf<tfn;curtf++) {
		// Check if field/attribute displayed
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		name=tfl[curtf].name;
		// Check if attribute alias name defined
		if ((tfl[curtf].amode&8)!=0) {
			// Build alias variable name
			sprintf(aliasvar,PAR_SSELAALIAS,
			 strextract(name,1,strlen(name)));
			strupper(aliasvar);
			// Query alias name variable
			if (varget(aliasvar,aliasname)==0 &&
			 aliasname!="")
				// Replace attr. name by alias
				name=aliasname;
			}
		// Set default field length
		if (tfl[curtf].width==999)
			tfl[curtf].width=(-15);
		// Get field name
		if (FIELDDISP && tfl[curtf].width<0)
			// Field length cut required
			fbuf=strextract(name,0,abs(tfl[curtf].width));
		else
			fbuf=name;
		// Check if first field
		if (dcnt==0) {
			// Add field name to header
			if (FIELDDISP && tfl[curtf].width)
				sprintf(buf,"%-*s",abs(tfl[curtf].width),fbuf);
			else
				buf=fbuf;
			}
		else {
			// Add field name to header
			if (FIELDDISP && tfl[curtf].width)
				sprintf(buf,"%s %-*s",
				 buf,abs(tfl[curtf].width),fbuf);
			else
				buf+=";"+fbuf;
			}
		dcnt++;
		}
	// Return table header string
	return(buf);
}

string tabentry(int attridx)
/*
// Build table entry string
// Parameters :
//	int attridx		: Attribute index
// Return value: table header string
*/
{
	string buf = ""			/* String buffer */;
	string fbuf			/* Field string buffer */;
	int dcnt			/* Display field count */;
	int i				/* Loop control variable */;
	for (curtf=dcnt=0;curtf<tfn;curtf++) {
		if (curtf==curstidx)
			for (i=0;i<statdn;i++)
				if (attrl[attridx][curtf]==statdl[i].val) {
					if (statdl[i].proc==2)
						return("");
					break;
					}
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		if (FIELDDISP && tfl[curtf].width<0)
			fbuf=strextract(attrl[attridx][curtf],0,
			 abs(tfl[curtf].width));
		else
			fbuf=attrl[attridx][curtf];
		if (dcnt==0) {
			if (FIELDDISP && tfl[curtf].width)
				sprintf(buf,"%-*s",
				 abs(tfl[curtf].width),fbuf);
			else
				buf=fbuf;
			}
		else {
			if (FIELDDISP && tfl[curtf].width)
				sprintf(buf,"%s %-*s",
				 buf,abs(tfl[curtf].width),fbuf);
			else
				buf+=";"+fbuf;
			}
		dcnt++;
		}
	// Return table entry string
	return(buf);
}

string tabspec()
/*
// Build table specification string
// Return value: table specification string
*/
{
	string buf			/* String buffer */;
	int dcnt			/* Display field count */;
	// Build specification string
	buf="";
	for (curtf=dcnt=0;curtf<tfn;curtf++) {
		// Check if field/attribute displayed
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		// Check if first field
		if (dcnt==0)
			buf=tfl[curtf].name;
		else
			buf+="_"+tfl[curtf].name;
		dcnt++;
		}
	if (strlen(buf)>200) {
		// Build specification string
		buf="";
		for (curtf=dcnt=0;curtf<tfn;curtf++) {
			// Check if field/attribute displayed
			if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
				continue;
			// Check if first field
			if (dcnt==0)
				buf=strextract(tfl[curtf].name,0,3);
			else
				buf+="_"+strextract(tfl[curtf].name,0,3);
			dcnt++;
			}
		if (strlen(buf)>200)
			buf[200]='\0';
		}
	// Return table specification string
	return(buf);
}

void tabcolhead()
/*
// Build table header column list
*/
{
	string name			/* Field name */;
	string varname			/* Variable name */;
	string aliasname		/* Field alias name */;
	// Scan header columns
	for (curtf=0;curtf<tfn;curtf++) {
		// Check if field/attribute displayed
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		name=tfl[curtf].name;
		// Check if attribute alias name defined
		if ((tfl[curtf].amode&8)!=0) {
			// Build alias variable name
			sprintf(varname,PAR_SSELAALIAS,
			 strextract(name,1,strlen(name)));
			strupper(varname);
			// Query alias name variable
			if (varget(varname,aliasname)==0 &&
			 aliasname!="")
				// Replace attr. name by alias
				name=aliasname;
			}
		tfl[curtf].colctrl=bae_dialaddcontrol(PA_LBE,2,curtf+1000,0,
		 0.0,0.0,0.0,"",0,0.0,0.0,
		 tfl[curtf].colw!=0.0 ? tfl[curtf].colw : 15.0,name);
		sprintf(varname,GV_TABCOL,curtf);
		varset(varname,tfl[curtf].colctrl);
		}
}

void tabcoltrim()
/*
// Trim table columns according to contents
*/
{
	string name			/* Field name */;
	string varname			/* Variable name */;
	string aliasname		/* Field alias name */;
	double minw			/* Minimum column width value */;
	double curw			/* Current column width value */;
	// Scan header columns
	for (curtf=0;curtf<tfn;curtf++) {
		// Check if field/attribute displayed
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		if (FULLTABHEAD) {
			name=tfl[curtf].name;
			// Check if attribute alias name defined
			if ((tfl[curtf].amode&8)!=0) {
				// Build alias variable name
				sprintf(varname,PAR_SSELAALIAS,
				 strextract(name,1,strlen(name)));
				strupper(varname);
				// Query alias name variable
				if (varget(varname,aliasname)==0 &&
				 aliasname!="")
					// Replace attr. name by alias
					name=aliasname;
				}
			minw=bae_dialgettextlen(0,name)+2.0;
			}
		else {
			minw=2.0;
			}
		for (curattridx=0;curattridx<attrn;curattridx++) {
			curw=bae_dialgettextlen(0,attrl[curattridx][curtf])+2.0;
			if (curw>minw)
				minw=curw;
			}
		tfl[curtf].colw=minw;
		}
}

void tabcolstore(int tabid)
/*
// Store table header column width values
*/
{
	string header			/* Table header string */;
	string varname			/* Variable name */;
	// Get the table structure
	gettabstruc(tabid);
	// Get the table identifier string
	header=tabspec();
	// Dismiss any previos table info
	sprintf(sqlcommand,W_DELETE,sql_quotestr(header));
	if (sqlcmd(WPOSDB,sqlcommand,NULL)!=0)
		// SQL/DB error
		sql_dberror(29);
	// Scan header columns
	for (curtf=0;curtf<tfn;curtf++) {
		sprintf(varname,GV_TABCOL,curtf);
		varget(varname,tfl[curtf].colctrl);
		if (tfl[curtf].colctrl<0)
			continue;
		bae_dialgetdata(tfl[curtf].colctrl,0,tfl[curtf].colw,"");
		sprintf(sqlcommand,W_INSERT,sql_quotestr(header),
		 curtf,tfl[curtf].colw);
		if (sqlcmd(WPOSDB,sqlcommand,NULL)!=0)
			// SQL/DB error
			sql_dberror(0);
		}
}

void tabcolentry(int attridx,int attrlidx)
/*
// Build table column entry list
// Parameters :
//	int attridx		: Attribute index
//	int attrlidx		: Attribute list index
*/
{
	int first = 1			/* First entry flag */;
	int i				/* Loop control variable */;
	for (curtf=0;curtf<tfn;curtf++) {
		if (curtf==curstidx)
			for (i=0;i<statdn;i++)
				if (attrl[attridx][curtf]==statdl[i].val) {
					if (statdl[i].proc==2)
						return;
					break;
					}
		if ((tfl[curtf].nmode&1)==0 && (tfl[curtf].amode&8)==0)
			continue;
		bae_dialaddcontrol(PA_LBE,first,7,attrlidx,0.0,0.0,0.0,"",0,
		 0.0,0.0,0.0,attrl[attridx][curtf]);
		first=0;
		}
}

string scmlibdir()
/*
// Get SCM library directory path
// Return value: SCM library directory path name
*/
{
	string s			/* String buffer */;
	// Get the default SCM library name
	if ((s=strgetvarfilename(scm_deflibname()))=="")
		// Return current directory name
		return("");
	// Extract and return directory path name
	return(strextract(s,0,strscanprior(s,"\\/",strlen(s)-1,1)));
}

int polyfunc(index C_POLY poly,int polyinws,
 index C_LEVEL level,int macclass,int bustapidx)
/*
// Output an already transformed polygon data block to PS file
// Return value :
//	zero if done or (-1) on file error
// Parameters :
//	index C_POLY poly	: Polygon
//	int polyinws		: Poly in workspace flag
//	index C_LEVEL level	: Polygon level
//	int macclass		: Polygon macro class
//	int bustapidx		: Polygon bustap index
*/
{
	index C_POINT point		/* Polygon point */;
	int fillmode			/* Popup polygon fill mode */;
	// Init the color
	color=COLOR_NONE;
	// Test if the polygon type is requested for output
	switch (poly.TYP) {
		// Documentary line
		case C_POLYDOCLINE :
		// Dotted documentary line
		case C_POLYDOTLINE :
		// Documentary area
		case C_POLYDOCAREA :
		fillmode=poly.TYP==C_POLYDOCAREA ?
		 1 : (poly.TYP==C_POLYDOTLINE ? 6 : 2 );
		switch (macclass) {
			case bae_planddbclass() :
			color=bae_getcolor(0);
			break;
			case DDBCLSSYM :
			case DDBCLSLAB :
			color=bae_getcolor(2);
			break;
			case DDBCLSMRK :
			color=bae_getcolor(3);
			break;
			default :
			color=bae_getcolor(0);
			break;
			}
		break;
		// Contact area
		case C_POLYCONAREA :
		color=bae_getcolor(7);
		fillmode=1;
		break;
		// Internal
		case 2 :
		color=15;
		fillmode=1;
		break;
		case 3 :
		color=13;
		fillmode=1;
		break;
		// No output area
		default :
		return(0);
		}
	// Abort if invisible
	if (color<=0)
		return(0);
	// Display the polygon
	bae_clearpoints();
	forall (point of poly)
		btp_storepoint(point.X,point.Y,point.TYP);
	bae_popdrawpoly(color,DM_SET,fillmode);
	// Return without errors
	return(0);
}

int textfunc(index C_TEXT textp,double tx,double ty,double tangle,
 int mirrflag,double tsize,string tstr,int textinws,int macclass,int varattr)
/*
// Vectorize a text data block
// Return value :
//	zero if done or (-1) on error
//	index C_TEXT textp	: Text index
//	double tx		: Text X coordinate
//	double ty		: Text Y coordinate
//	double tangle		: Text rotation angle
//	int mirrflag		: Text mirror flag
//	double tsize		: Text size
//	string tstr		: Text string
//	int textinws		: Text in workspace flag
//	int macclass		: Text macro class
//	int varattr		: Text variant attribute flag
*/
{
	// Abort scan if empty string
	if (tstr=="" || tsize<=0.0)
		return(0);
	// Test the rotation visibility
	if (textp.ROTVIS!=100 && !((textp.ROTVIS&1) && (textp.ROTVIS&0x20)))
		// Don't display, return
		return(0);
	// Get the text color
	if (textp.MODE&TEXTCOMM)
		// Comment text
		color=bae_getcolor(11);
	else {
		// Standard text
		// Set color according to macro class
		switch (macclass) {
			case DDBCLSSYM :
			case DDBCLSLAB :
			color=bae_getcolor(2);
			break;
			case DDBCLSMRK :
			color=bae_getcolor(3);
			break;
			default :
			color=bae_getcolor(0);
			}
		}
	// Ignore if not visible
	if (color<=0)
		return(0);
	if (cap_vecttext(
	 tx,ty,tangle,mirrflag,tsize,textp.MODE,tstr,tlinefunc)==(-1))
		// Vectorization failed
		return(-1);
	// Return without errors
	return(0);
}

static int tlinefunc(double x1,double y1,double x2,double y2)
/*
// Draw a text line as path
// Return value :
//	zero if done or (-1) on error
// Parameters :
//	double x1		: First line point X coordinate
//	double y1		: First line point Y coordinate
//	double x2		: Second line point X coordinate
//	double y2		: Second line point Y coordinate
*/
{
	// Draw the line
	bae_clearpoints();
	btp_storepoint(x1,y1,0);
	btp_storepoint(x2,y2,0);
	bae_popdrawpoly(color,DM_SET,PPFM_LINE);
	// Return without errors
	return(0);
}

int getvattribval(string partname,string attname,string attval)
/*
// Get pure variant attribute value
// Return value :
//	0 if done or (-4) on attribute not found
// Parameters :
//	string partname		: Part name
//	string attname		: Attribute name
//	string attval		: Attribute value return
*/
{
	index C_ATTRIBUTE att		/* Attribute index */;
	index C_FIGURE fig		/* Figure list index */;
	index C_NREF part		/* Part index */;
	// Search part
	if (cap_nrefsearch(partname,fig))
		return(-3);
	part=fig.NREF;
	// Search for attribute
	forall (att of part where att.NAME==attname) {
		// Attribute value found
		attval=att.VALUE;
		return(0);
		}
	// Attribute not found
	return(-4);
}

// User Language program end