******************************************************************************
*
*	UVEXPORT.H - Heading info for UVEXPORT programs.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description........................................
*	10/14/98 23801 SAP Change copyrights. 
*	12/15/93 11810 FTW Add entries to support 'null' ASCII export options
*	08/07/92 9064  TMC Fix comment at top of file
*	07/23/92 9064  WLC Initial Release	
*******************************************************************************

COMMON fcount, field.start, SEQ.result, SEQ.exp, conv.code, single.multi
COMMON record, interactive, normalize, column, num.records, num.done
COMMON display, width, saved.list, new.bar, old.bar, record.name, ss.file 
COMMON rec.onfile, READ.record

EQU	ma%ss.new		TO	 1
EQU	ma%ss.open		TO	 2
EQU	ma%ss.save		TO	 3
EQU	ma%ss.saveas		TO	 4
EQU	ma%ss.delete		TO	 5
EQU	ma%exit			TO	 6
EQU	ma%spread.gen		TO	 7
EQU	ma%spread.delete	TO	10
EQU	ma%help.appl		TO	11
EQU	ma%help.keys		TO	12
EQU	ma%help.vers		TO	13


EQU DRAW.SCREEN LIT 'CALL *DRAW.SCRN.B("uniVerse Export Facility ",1);CALL *MNU.BAR.PR.B(Menu.Bar,1)'
EQU PAINT.SCREEN LIT "CALL *PUT.FORM.B(form.size,form,record,PRMPT,1)"
EQU UNTITLED LIT "record.name = '(Untitled)' OR record.name = ''"
EQU UNTITLED.MSG LIT "'Would you like to save the above information?'"
EQU TITLED.CHANGED LIT "record.name:' has changed, would you like to save it?'"
EQU FLCLEAR TO form<curr,6>

* Indexes into the UVEXPORT record template (SS.FILE entries)
EQU DESCRIPTION TO 1
EQU XPTNUL      TO record<1,2>
EQU DATABASE    TO 2
EQU OUTFILE     TO 3
EQU OUTFORMAT   TO 4
EQU SORT.CLAUSE TO 5
EQU SEL.CLAUSE  TO 6

* Indexes into the sub-values of the UVEXPORT record field list (entries 7 - 31)
EQU	FNAME			TO	1
EQU	FTYPE			TO	2
EQU	FPLACES			TO	3


EQU	Default		to	1
EQU	Y.N.Start	to	17	;* Starting location of y/n box

EQU STR.CODE	TO	"STR"
EQU INT.CODE	TO	"INT"
EQU FLOAT.CODE	TO	"FLOAT"

* indexes into buff
EQU ROW		TO	1
EQU COL		TO	2
EQU DATA	TO	3
EQU FRMT	TO	4

* return.code values
EQU NO.ERR	TO	0
EQU WRITE.ERR	TO	1
EQU OPEN.ERR	TO	2
EQU READ.ERR	TO	3