compile insert or_equates

******** OR_EQUATES *********

* declarations

DECLARE FUNCTION GET_PROPERTY, SET_PROPERTY, SEND_MESSAGE, DIALOG_BOX
DECLARE FUNCTION MESSAGE_BOX, GET_DIALOG_PARAMS, UTILITY
DECLARE FUNCTION REPOSITORY, ENTID, GETAPPID, GET_STATUS
DECLARE FUNCTION REPOS_RESOLVE_ENTITY, RESTOSTRING

DECLARE SUBROUTINE SET_PROPERTY, MESSAGE_BOX, SEND_MESSAGE, UTILITY
DECLARE SUBROUTINE END_DIALOG, START_WINDOW, END_WINDOW
DECLARE SUBROUTINE REPOSITORY, SET_STATUS

* common constants

EQU IMGSEP$ TO ':'	;* image separator for BMP-lists
EQU LSTSEP$ TO \F7\	;* lists separator for @-properties

EQU CHARWIDTH$ TO 8	;* character width in pixels

EQU ORDERIMG$ TO 3
EQU SPACEIMG$ TO 1

EQU On$	 TO 1
EQU Off$ TO 0

* MESSAGE_BOX answers

EQU MBA_OK$     TO 1
EQU MBA_CANCEL$ TO 2
EQU MBA_ABORT$  TO 3
EQU MBA_RETRY$  TO 4
EQU MBA_IGNORE$ TO 5
EQU MBA_YES$    TO 6
EQU MBA_NO$     TO 7

* for Select Rows dialog box

EQU EPSILON_TOKEN$   TO 1
EQU STATEMENT_TOKEN$ TO 2
EQU OPARANTES_TOKEN$ TO 3
EQU CPARANTES_TOKEN$ TO 4
EQU OPERATOR_TOKEN$  TO 5

* objects

EQU MAINWIN$ TO 'ORMAIN'

* literals

EQU RES_UNTITLED$		TO 5
EQU RES_TITLE$			TO 6
EQU RES_ORIG_TITLE$		TO 7
EQU RES_SAVEAS$			TO 8
EQU RES_OPEN$			TO 9
EQU RES_REPORT$			TO 10
EQU RES_FILTERS$		TO 11
EQU RES_REPNOTFOUND$	TO 12
EQU RES_TABLE$			TO 13
EQU RES_TABLEUSING$		TO 14
EQU RES_CANNOTSAVE$		TO 15
EQU RES_CANNOTOPENDICT$	TO 16
EQU RES_SAVEOK$			TO 17
EQU RES_INUSE$			TO 18	
EQU RES_CHECKEDOUT$		TO 19
EQU RES_NOSAVE$			TO 20
EQU RES_NOREAD$			TO 21
EQU RES_TOPIC$			TO 22
EQU RES_PAGE$			TO 23
EQU RES_DATE$			TO 24
EQU RES_TIME$			TO 25
EQU RES_TABLE1$			TO 26
EQU RES_VALUE$			TO 27
EQU RES_PRINTTOFILE$	TO 28
EQU RES_REPWIDTH$		TO 29
EQU RES_COLFROMTABLE$	TO 30
EQU RES_DISKFULL$		TO 31
EQU RES_PREVIEW$		TO 32
EQU RES_ERRORWRITING$	TO 33
EQU RES_ERRORCODE$		TO 34
EQU RES_COLDESCRIPT$	TO 35
EQU RES_ERRORWRIOSFILE$	TO 36
EQU RES_WRITINGREP$		TO 37
EQU RES_PREVIEWREP$		TO 38
EQU RES_DISKOVRFLW$		TO 39
EQU RES_COMPOSECOMP$	TO 40
EQU RES_PARENMISMATCH$	TO 41
EQU RES_STATMISSING$	TO 42
EQU RES_OPMISSING$		TO 43
EQU RES_STATORXOP$		TO 44
EQU RES_USESTAT$		TO 45
EQU RES_SELECTROWS$		TO 46
EQU RES_AND$			TO 47
EQU RES_OR$				TO 48

* Global variables (@-properties)

EQU FOCUS$      TO '@FOCUS'	;* recent focus object

EQU QUERY$	TO '@QUERY'

EQU TABLE$	TO '@TABLE'
	EQU TableName$  TO 1
	EQU DictName$   TO 2
	EQU ChangeFlag$ TO 3
		EQU NoChanges$    TO 0
		EQU TableChanged$ TO 1
		EQU DictChanged$  TO 2

EQU VIEW$	TO '@VIEW'
EQU DISPLAY$	TO '@DISPL'
EQU SORT$	TO '@SORT'

* VIEW$ ::=
*	<@fm delimeted list of ColumnName> LSTSEP$
*	<@fm delimeted list of ColumnDescription (defaults)>
* 
* DISPLAY$ ::=
*	<@fm-delimeted list of ColumnName> LSTSEP$
*	<@fm-delimeted list of ColumnDescription>
* 
* SORT$ ::=
*	<@fm-delimeted list of ImagedColumnName> 	
*
*
* <ImagedColumnName> ::=
*	 <ImageIndex> IMGSEP$ <ColumnName>
*
* <ColumnDescription> ::=
*	<@vm delimeted array of data (see below)>
*
	EQU CD_Statistic$    TO 1
		EQU CDS_None$    TO 1
		EQU CDS_BreakOn$ TO 2
		EQU CDS_Total$   TO 3
		EQU CDS_Average$ TO 4

	EQU CD_Sort$         TO 2
		EQU CDSO_None$       TO 0
		EQU CDSO_Ascending$  TO 1
		EQU CDSO_Descending$ TO 2

	EQU CD_BreakFormat$  TO 3
		EQU CDB_None$      TO 0
		EQU CDB_Condence$  TO 1
		EQU CDB_Insert$    TO 2
		EQU CDB_Underline$ TO 4
		EQU CDB_Overline$  TO 8
		EQU CDB_Page$      TO 16

	EQU CD_BreakText$    TO 4
		* should be in sync witn CD_Statistic$
		EQU CDB_DefaultText$ TO '':@FM:'***':@FM:'{TOTAL}':@FM:'{AVERAGE}'

	EQU CD_ColumnLabel$  TO 5
	EQU CD_ColumnLength$ TO 6
	EQU CD_Oconv$        TO 7

	EQU CD_Justification$ TO 8
		EQU CDJ_Left$   TO 'L'
		EQU CDJ_Center$ TO 'C'
		EQU CDJ_Right$  TO 'R'

EQU FORMAT$ TO '@FRMT'
*
* FORMAT$ ::= 
*	<@vm-delimeted array of data (see below)>
*
	EQU FR_IsHeading$ TO 1
	EQU FR_IsFooting$ TO 2
	EQU FR_IsColHead$ TO 3
	EQU FR_IsDetail$  TO 4
	EQU FR_Heading$   TO 5
	EQU FR_Footing$   TO 6
	EQU FR_GrandHeading$ TO 7
	EQU FR_GrandFooting$ TO 8
	EQU FR_Last$         TO 8

EQU PAGE$ TO '@PAGE'
*
* PAGE$ ::=
*	<@vm-delimeted array of data (see below)>
*
	EQU PG_Left$    TO 1
	EQU PG_Top$     TO 2
	EQU PG_Width$   TO 3
	EQU PG_Height$  TO 4

*
* <Report Template> ::=
*	<RList script>  @FM
*	<Date of last modification> @FM
*	FORMAT$
*		@RM
*	TABLE$
*		@RM
*	DISPLAY$
*		@RM
*	SORT$
*		@RM
*	QUERY$
*

	EQU RT_RLScript$ TO 1
	EQU RT_Date$     TO 2
	EQU RT_Format$   TO 3

*** VIEW processor's equates

EQU VP_RLISTSCRIPT$     TO '@RLS'
EQU VP_TEMPFILE$        TO 'vp':@STATION [1, 5]:'~.tmp'
EQU VP_MAXFRAMESIZE$    TO 30000

EQU VP_FRAME$           TO '@FRAME'
	EQU VPF_CURROFFSET$     TO 1
	EQU VPF_NEXTOFFSET$     TO 2
	EQU VPF_PREVOFFSET$     TO 3
	EQU VPF_FIRSTPAGE$      TO 4
	EQU VPF_LASTPAGE$       TO 5
	EQU VPF_DATA$           TO 6

EQU VP_PAGE$		TO '@VPG'
	EQU VPP_WRITEPAGE$      TO 1
	EQU VPP_RLISTACTIVE$    TO 2
	EQU VPP_VIEWPAGE$       TO 3
	EQU VPP_TEXT$           TO 4

*** Help

EQU HELPFILE$ TO 'OINSIGHT.HLP'