81 lines
2.5 KiB
C
Executable File
81 lines
2.5 KiB
C
Executable File
******************************************************************************
|
|
*
|
|
* 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
|