233 lines
5.1 KiB
Plaintext
233 lines
5.1 KiB
Plaintext
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'
|