phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added sysprog entities

Browse Source
This commit is contained in:
Infineon\StieberD
2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

84
SYSPROG/STPROCINS/ACD_EQU.txt Normal file
View File

@ -0,0 +1,84 @@
compile insert ACD_EQU
* setup constants for ar_cash_detail file
EQU PAT.ID$ TO 1
EQU TOT.CHARGES$ TO 2
EQU AR.SEC.INS$ TO 3
EQU AR.SEC.INSURED.NO$ TO 4
EQU DT.POSTED$ TO 5
EQU AR.DOS$ TO 6
EQU AR.ON.SITE.PMT$ TO 7
EQU AR.CHK.ON.SITE$ TO 8
EQU TOT.BILLED$ TO 9
*
EQU AR.ENC.TYPE$ TO 10
EQU INV.DATE$ TO 11
EQU AR.INSURED.NO$ TO 12
EQU BILL.CODE$ TO 13
EQU PRI.INS.NO$ TO 14
EQU INV.AMT$ TO 15
EQU XACT.PST.PERIOD$ TO 16
EQU INV.AMT.PD$ TO 17
EQU INV.DT.PD$ TO 18
EQU INV.CHK.NO$ TO 19
*
EQU AR.ADJ.DT$ TO 20
EQU AR.ADJ.ACCT$ TO 21
EQU AR.ADJ.AMT$ TO 22
*
EQU ASSIGNMENT$ TO 23
EQU ATTN.PHYS$ TO 24
EQU PAT.PHYS$ TO 25
EQU PAT.PMT.STATUS$ TO 26
EQU COMPANY$ TO 27
EQU AR.I.BAL$ TO 28
EQU AR.P.BAL$ TO 29
EQU AR.PST.NO$ TO 30
EQU AR.BEG.BAL$ TO 31
EQU ENC.PST.PER$ TO 32
EQU AR.CR.NO$ TO 33
EQU AR.BF$ TO 34
*
EQU AR.PAT.PAID$ TO 35
EQU AR.INS.PAID$ TO 36
EQU AR.INS.ID$ TO 37
EQU ENC.PST.NO$ TO 38
EQU WH$ TO 39
EQU BILL.DT$ TO 45
EQU BILL.RUN.NO$ TO 46
* 11/18/02 rmc, indicator used to track future reversal of cash posting
Equ Rev_Ind$ to 55
Equ Rev_Amt$ to 56
Equ Rev_Adj$ to 57
Equ Rev_Wh$ to 58
* 4/30/02 track insurance filing for this encounter
Equ Filed_Ins_ID$ To 50 ;* MV
Equ Filed_Ins_DT$ To 51 ;* MV
Equ Filed_Ins_Method$ to 52 ;* MV
*HCFA-PAPER
*HCFA_ECS
*UB92-PAPER
*UB92-ECS
Equ Filed_Ins_Amt$ to 52 ;* MV, Amt filed with Insurance
Equ Filed_Ins_Run_No$ to 54 ;* MV, the Run Number for this billing run.
* 08/29/03 jz, add to track who, how, when billed
Equ AR.BILLING$ to 59
Equ AR.DT_BILLING$ to 60
Equ AR.BILLED_TO_ID$ to 61
* 10/07/2003 jz add amt_billed
Equ AR.INVOICED_AMT$ to 62
*** track insurance filing

133
SYSPROG/STPROCINS/ACTION_SETUP.txt Normal file
View File

@ -0,0 +1,133 @@
Compile insert Action_Setup
/***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from SRP Computer Solutions, Inc.
Name : Action_Setup
Description : Declarations and equates used by the table action commuters.
Notes : Action_Setup also populates several variables that will often be useful within action handler code.
History : (Date, Initials, Notes)
08/13/10 dmb Original programmer.
09/18/19 dmb Add TableVolumes@ and new Unused global commons in the /Tables/ common block. Remove
dependency upon the Locate statement in @Tables to find the volume of the current table.
- [SRPFW-282]
***********************************************************************************************************************/
Common /Tables/ TableNames@, TableAccounts@, TableHandles@, SysObjHandle@, ActionListHandle@, PromotedListHandle@, NoActionListHandle@, NoPromotedListHandle@, TableVolumes@, Unused10@, Unused11@, Unused12@, Unused13@
Declare function RetStack
// SRP List declarations.
Declare function SRP_List_Create, SRP_List_CreateFromFastArray, SRP_List_Count, SRP_List_GetAt, SRP_List_GetVariable, SRP_List_Locate
Declare subroutine SRP_List_Add, SRP_List_InsertAt, SRP_List_Release, SRP_List_RemoveAt, SRP_List_SetAt
// Initialize handles if necessary.
// The handle to SYSOBJ is formatted for use with MFS/BFS calls.
If Len(SysObjHandle@) else Open 'SYSOBJ' to SysObjHandle@ then SysObjHandle@ = SysObjHandle@<0, 2>
If Len(ActionListHandle@) else ActionListHandle@ = SRP_List_Create()
If Len(PromotedListHandle@) else PromotedListHandle@ = SRP_List_Create()
If Len(NoActionListHandle@) else NoActionListHandle@ = SRP_List_Create()
If Len(NoPromotedListHandle@) else NoPromotedListHandle@ = SRP_List_Create()
// Return values to indicate how the action flow should continue.
Equ ACTION_STOP$ to 0 ; // Action flow should stop
Equ ACTION_CONTINUE$ to 1 ; // Action flow should continue until a later process changes this value
Equ ACTION_CONTINUE_NO_PROMOTED$ to 2 ; // Action flow should by-pass the promoted (generic) logic but allow the system action to execute
Equ ACTION_CONTINUE_NO_SYSTEM$ to 3 ; // Action flow should execute the promoted (generic) logic but stop the system action from executing
Equ ACTION_SYSTEM_ONLY$ to 4 ; // Action flow should execute the system action only
// Make sure any action parameters which have not been assigned are nulled.
If Assigned(Code) else Code = ''
If Assigned(Action) else Action = ''
If Assigned(CalcColName) else CalcColName = ''
If Assigned(FSList) else FSList = ''
If Assigned(Handle) else Handle = ''
If Assigned(Name) then KeyID = Name
If Assigned(KeyID) else KeyID = ''
If Assigned(FMC) else FMC = ''
If Assigned(Record) else Record = ''
If Assigned(Param1) else Param1 = ''
If Assigned(Param2) else Param2 = ''
If Assigned(Param3) else Param3 = ''
If Assigned(Param4) else Param4 = ''
If Assigned(Param5) else Param5 = ''
If Assigned(Param6) else Param6 = ''
If Assigned(Param7) else Param7 = ''
If Assigned(Param8) else Param8 = ''
If Assigned(Param9) else Param9 = ''
If Assigned(Param10) else Param10 = ''
If Assigned(OrigRecord) else OrigRecord = ''
// Get the program stack
RetStack = RetStack()
// 11 is the code value for the OPEN.FILE primitive. No need to call the following logic since it would be premature.
If Code NE 11 then
// Get the name of the database table if it has already been opened with the OPEN.FILE action.
If Len(Handle) then
// Being called from within the MFS. Most methods will pass in the valid database table handle. This should already
// be stored in the TableHandles@ global common. The associated regular database table name will be found in the
// TableNames@ global common.
Locate Handle in TableHandles@ using @FM Setting fPos then
TableName = TableNames@<fPos>
DictName = 'DICT.' : TableName
AccountName = TableAccounts@<fPos>
Volume = TableVolumes@<fPos>
TableHandle = FSList : @VM : Handle
end else
// If the handle was unable to be located in the TableHandles@ global common, this could be a situation where
// the handle was modified on-the-fly by the calling procedure (such as the MFS stack being manipulated for
// some reason). In this case, loop though each hnadle in TableHandles@ and see if it is contained within the
// handle being passed into the MFS. This isn't as precise, but a match will almost certainly be the correct
// handle.
FoundHandle = 0
NumberHandles = DCount(TableHandles@, @FM)
For fPos = 1 to NumberHandles
CompareHandle = TableHandles@<fPos>
If Index(Handle, CompareHandle, 1) then
FoundHandle = 1
TableName = TableNames@<fPos>
end
Until FoundHandle
Next CompareHandle
If FoundHandle then
DictName = 'DICT.' : TableName
AccountName = TableAccounts@<fPos>
Locate TableName in @Tables(0) using @FM setting fPos then
VolumeName = @Tables(1)<fPos>
BFSType = VolumeName[1, '*']
Volume = VolumeName[Col2() + 1, 99]
end else
Volume = ''
end
TableHandle = FSList : @VM : Handle
end
end
end
If Assigned(TableName) else
// Either the Handle argument wasn't assigned or no match could be found in the TableHandles@ global common.
// Most likely this is because an ACTION commuter is being called directly from a program other than an MFS.
// Therefore the name of the database table will be extracted from the name of the ACTIONS program (which is
// assumed to follow the format <TableName>_ACTIONS.
CurProc = RetStack[1, 'F' : @FM]
TableName = CurProc
Swap '_ACTIONS' with '' in TableName
DictName = 'DICT.' : TableName
AccountName = ''
Volume = ''
Open TableName to TableHandle else TableHandle = ''
end
end

31
SYSPROG/STPROCINS/APNDES_EQUATES.txt Normal file
View File

@ -0,0 +1,31 @@
compile insert APNDES_EQUATES
*** APNDES_EQUATES
* Declarations
DECLARE FUNCTION GET_PROPERTY, UTILITY, MESSAGE_BOX, DIALOG_BOX
DECLARE FUNCTION GET_REPOS_ENTITIES, ENTID, REPOSITORY, GETAPPID, GET_STATUS
DECLARE SUBROUTINE SET_PROPERTY, UTILITY, END_WINDOW, SET_STATUS, MESSAGE_BOX
DECLARE SUBROUTINE APPNOTE
* Constants
EQU TITLE$ TO 'HelpNote Builder'
EQU UNTITLED$ TO '(UNTITLED)'
EQU APNTYPE$ TO 'APPNOTE'
* Global variables
EQU APPLIST$ TO '@APL'
* 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
* Source Date: 12:44:59 29 SEP 1993 Build ID: OI*1.0.323 Level: 2.0

96
SYSPROG/STPROCINS/APPNOTE_EQUATES.txt Normal file
View File

@ -0,0 +1,96 @@
compile insert AppNote_Equates
/*
** Copyright (C) 1992-2014 Revelation Software Inc. All Rights Reserved **
Author : ????
Date : Between the years when the oceans drank Atlantis, and the rise
of the sons of Aryas ...
Purpose : Constants for use with APPNOTE entities
Comments
========
Amended Date Reason
======= ==== ======
cp 15 Oct 97 Updated for 3.5; added header
mtr 05 Feb 14 Updated for OI10 (HTML format)
Mr C 24 Nov 14 Added header guards, default values
Mr C 03 Jan 15 Added "system" fields
Mr C 20 Mar 15 Added FrameStyle constants
Mr C 20 Jul 16 Changed default Font size to 9pt
Chnaged default size
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _APPNOTE_EQUATES_
#define _APPNOTE_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
$insert ps_Window_Equates
$insert colors
$insert logical
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ ACOL$ to 1
equ AROW$ to 2
equ AWIDTH$ to 3
equ AHEIGHT$ to 4
equ AREADONLY$ to 5
equ AFONT$ to 6
equ ABKCOLOR$ to 7
equ AFGCOLOR$ to 8
equ AJUST$ to 9
equ ATITLE$ to 10
equ ATEXT$ to 11
equ ASCROLL$ to 12
equ AHTMLTEXT$ to 13
equ ANONMODAL$ to 14
equ AFRAMESTYLE$ to 15
equ ANUMFIELDS$ to 15
equ ATESTRUN$ to 100 ; * // "hidden" system field to denote
* // if we're in TESTRUN from the IDE
equ ALOCKED$ to 101 ; * // "hidden" system locked field
equ AMINWIDTH$ To 200
equ AMINHEIGHT$ to 160
equ HELPTOOLNAME$ to "QuickHelp"
equ APPNOTETYPE$ to "APPNOTE"
equ APPNOTECLASS$ to ""
* // Default values
equ ADEFCOL$ to -1
equ ADEFROW$ to -1
equ ADEFWIDTH$ to 750 ; // wide enough for the editor toolbar
equ ADEFHEIGHT$ to 480
equ ADEFREADONLY$ to FALSE$
equ ADEFBKCOLOR$ to COLOR_WINDOW$
equ ADEFFGCOLOR$ to COLOR_WINDOWTEXT$
equ ADEFFRAMESTYLE$ to PS_FRAMESTYLE_SIZEABLE$
equ DFLT_FONT_SIZE$ to 9 ; * 9pt
* // Property Panel Names
equ PPL_ACOL$ to "Left"
equ PPL_AROW$ to "Top"
equ PPL_AWIDTH$ to "Width"
equ PPL_AHEIGHT$ to "Height"
equ PPL_AREADONLY$ to "ReadOnly"
equ PPL_AFONT$ to "Font"
equ PPL_ABKCOLOR$ to "BackColor"
equ PPL_AFGCOLOR$ to "ForeColor"
equ PPL_AMODAL$ to "Modal"
equ PPL_AFRAMESTYLE$ to "FrameStyle"
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

252
SYSPROG/STPROCINS/APP_INSERTS.txt Normal file
View File

@ -0,0 +1,252 @@
Compile insert App_Inserts
/***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from SRP Computer Solutions, Inc.
Name : App_Inserts
Description : Common declarations and equates used by the application.
Notes : App_Inserts is designed to be the most commonly used insert within SRP FrameWorks routines.
History : (Date, Initials, Notes)
07/23/98 dmb Original programmer.
10/04/13 dmb Added insert for SystemFont$, SystemTypeface$, and SystemPoint$ to make it easier for
commuters to apply the FrameWorks default font. - [SRPFW-17]
***********************************************************************************************************************/
Declare function Msg, PopUp, Set_Property, Get_Property, Utility, Send_Message, Dialog_Box, Start_Window
Declare function Start_MDIChild, Set_Printer, Get_Printer, SRP_Show_Window, MCP, GetTickCount
Declare function Form_Services, Error_Services, Memory_Services, MCP
Declare subroutine Set_Property, Utility, Send_Event, Send_Message, End_Dialog, Send_Info, Msg, SendMessage
Declare subroutine Forward_Event, Lock_Record, Post_Event, SRP_Show_Window, SRP_Set_Prop_Array
Declare subroutine Form_Services, Error_Services, SRP_Stopwatch, Memory_Services, MCP
Equ SystemTable$ to 'APP_INFO'
* Logical equates
$insert LOGICAL
Equ Success$ to 1
Equ Failure$ to 0
Equ Passed$ to 1
Equ Failed$ to 0
Equ Qualified$ to 1
Equ Not_qualified$ to 0
Equ Confirmed$ to 1
Equ Not_confirmed$ to 0
Equ OK$ to 1
* General equates
Equ Tab$ to Char(9)
Equ Esc$ to \1B\
Equ CRLF$ to \0D0A\
Equ Lock$ to 1
Equ Unlock$ to 2
Equ ReadOnly$ to 0
Equ FullWrite$ to 1
Equ NoAccess$ to -1
* Font equates
Equ Tahoma_8_Reg$ to 'Tahoma' : @SVM : -11 : @SVM : 400 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
Equ Tahoma_8_Reg_UL$ to 'Tahoma' : @SVM : -11 : @SVM : 400 : @SVM : 0 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
Equ Tahoma_8_Bold$ to 'Tahoma' : @SVM : -11 : @SVM : 700 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
Equ Tahoma_12_Reg$ to 'Tahoma' : @SVM : 12 : @SVM : 400 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
Equ Tahoma_12_Reg_UL$ to 'Tahoma' : @SVM : 12 : @SVM : 400 : @SVM : 0 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
Equ Tahoma_12_Bold$ to 'Tahoma' : @SVM : 12 : @SVM : 700 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 34 : @SVM : 0 : @SVM : 3 : @SVM : 2 : @SVM : 1 : @SVM : 0 : @SVM : 0 : @SVM : 0 : @SVM : 0
* Promoted Event equates
Equ Create$ to 1
Equ Activated$ to 2
Equ Read_Pre_System$ to 3
Equ Clear_Post_System$ to 4
Equ Close_Post_System$ to 5
Equ Size$ to 6
Equ Delete_Post_System$ to 7
Equ Winmsg$ to 8
Equ Write_Pre_System$ to 9
Equ Gotfocus$ to 10
Equ Lostfocus$ to 11
Equ Inactivated$ to 12
Equ Read_Post_System$ to 13
Equ Clear_Pre_System$ to 14
Equ Poschanged$ to 15
Equ Close_Pre_System$ to 16
Equ Write_Post_System$ to 17
Equ Delete_Pre_System$ to 18
Equ InsertRow$ to 19
Equ DeleteRow$ to 20
Equ ColSize$ to 21
Equ RightClickUp$ to 22
Equ MouseOver$ to 23
Equ MouseOff$ to 24
Equ OLE$ to 25
Equ Click$ to 26
Equ Timer$ to 27
Equ ContextMenu$ to 28
// General Windows API equates
Equ WM_USER to 1024
Equ WM_CLOSE to 16
Equ WM_COMMAND to 273
Equ WM_LBUTTONDOWN to 513 ; // 0x0201
Equ WM_LBUTTONUP to 514 ; // 0x0202
Equ WM_LBUTTONDBLCLK to 515 ; // 0x0203
Equ WM_RBUTTONDOWN to 516 ; // 0x0204
Equ WM_RBUTTONUP to 517 ; // 0x0205
Equ WM_PARENTNOTIFY to 528 ; // 0x0210
Equ WM_SYSCOLORCHANGE to 21 ; // 0x0015
Equ WM_SETCURSOR to 32 ; // 0x0020
Equ WM_SIZE to 5 ; // 0x0005
Equ WM_MOVE to 3 ; // 0x0003
Equ WM_GETMINMAXINFO to 36 ; // 0x0024
Equ WM_WINDOWPOSCHANGING to 70
// ShowWindow API equates
Equ SW_FORCEMINIMIZE to 11
Equ SW_HIDE to 0
Equ SW_MAXIMIZE to 3
Equ SW_MINIMIZE to 6
Equ SW_RESTORE to 9
Equ SW_SHOW to 5
Equ SW_SHOWDEFAULT to 10
Equ SW_SHOWMAXIMIZED to 3
Equ SW_SHOWMINIMIZED to 2
Equ SW_SHOWMINNOACTIVE to 7
Equ SW_SHOWNA to 8
Equ SW_SHOWNOACTIVATE to 4
Equ SW_SHOWNORMAL to 1
Equ WS_CAPTION$ to 0x00C00000
Equ WS_SYSMENU$ to 0x00080000
Equ WS_THICKFRAME$ to 0x00040000
Equ WS_EX_TOOLWINDOW$ to 0x00000080
Equ WS_EX_CLIENTEDGE$ to 0x200
Equ WS_CLIPCHILDREN$ to 0x02000000
Equ SM_CYCAPTION$ to 4
Equ F4_VK_CODE to 115 ; // 115 is the virtual key code for F4.
Equ TAB_VK_CODE to 9
* Edittable/Datatable equates
Equ DTN_ABORTEDIT to 17
Equ DTM_EDITCURCELL to WM_USER + 95 ; * Change to Edit mode now
Equ DTM_SETEDITKEY to 1118 ; * Set key to change to Edit Mode
Equ DTM_SETCOLFORMAT to WM_USER + 18
Equ DT_BEGINEDIT to 1 ;* begin edit mode
Equ DT_ENDEDIT to 2 ;* end the edit
Equ DT_ABORTEDIT to 3 ;* Esc will undo changes
Equ DTS_EDIT to 4
Equ DTCS_PROTECT to 8
* Help equates
Equ HELP_CONTEXT to 1
Equ HELP_QUIT to 2
Equ HELP_INDEX to 3
Equ HELP_CONTENTS to 3
Equ HELP_HELPONHELP to 4
Equ HELP_SETINDEX to 5
Equ HELP_SETCONTENTS to 5
Equ HELP_CONTEXTPOPUP to 8
Equ HELP_FORCEFILE to 9
Equ HELP_KEY to 257
Equ HELP_COMMAND to 258
Equ HELP_PARTIALKEY to 261
Equ HELP_MULTIKEY to 513
Equ HELP_SETWINPOS to 515
* Color equates
Equ Msg_Light_Grey$ to 212:@VM:208:@VM:200
Equ Msg_Dark_Grey$ to 127:@VM:127:@VM:127
Equ Msg_Light_Blue$ to 0:@VM:255:@VM:255
Equ Msg_Dark_Blue$ to 0:@VM:0:@VM:255
Equ Msg_Red$ to 255:@VM:0:@VM:0
Equ Msg_Green$ to 0:@VM:255:@VM:0
Equ Msg_Purple$ to 255:@VM:0:@VM:255
Equ Msg_Yellow$ to 255:@VM:255:@VM:0
Equ Msg_Black$ to 0:@VM:0:@VM:0
Equ Msg_White$ to 255:@VM:255:@VM:255
* RGB colors
EQU USEPARENT$ TO 0 ;* \000000\
EQU BLACK$ TO 1 ;* \FFFFFF\
EQU RED$ TO 255 ;* \0000FF\
EQU ORANGE$ TO 33023 ;* \0080FF\
EQU GREEN$ TO 65280 ;* \00FF00\
EQU YELLOW$ TO 65535 ;* \00FFFF\
EQU GREY$ TO 12632256 ;* \C0C0C0\
EQU BLUE$ TO 16711680 ;* \FF0000\
EQU PURPLE$ TO 16711808 ;* \FF0080\
EQU MAGENTA$ TO 16711935 ;* \FF00FF\
EQU CYAN$ TO 16776960 ;* \FFFF00\
EQU WHITE$ TO 16777215 ;* \FFFFFF\
// The following color equates are used directly
// Example: Set_Property(CtrlEntID, "BACKCOLOR", COLOR_BTNFACE$)
EQU COLOR_SCROLLBAR$ TO 2147483648 ;* \80000000\
EQU COLOR_BACKGROUND$ TO 2164260864 ;* \81000000\
EQU COLOR_ACTIVECAPTION$ TO 2181038080 ;* \82000000\
EQU COLOR_INACTIVECAPTION$ TO 2197815296 ;* \83000000\
EQU COLOR_MENU$ TO 2214592512 ;* \84000000\
EQU COLOR_WINDOW$ TO 2231369728 ;* \85000000\
EQU COLOR_WINDOWFRAME$ TO 2248146944 ;* \86000000\
EQU COLOR_MENUTEXT$ TO 2264924160 ;* \87000000\
EQU COLOR_WINDOWTEXT$ TO 2281701376 ;* \88000000\
EQU COLOR_CAPTIONTEXT$ TO 2298478592 ;* \89000000\
EQU COLOR_ACTIVEBORDER$ TO 2315255808 ;* \8A000000\
EQU COLOR_INACTIVEBORDER$ TO 2332033024 ;* \8B000000\
EQU COLOR_APPWORKSPACE$ TO 2348810240 ;* \8C000000\
EQU COLOR_HIGHLIGHT$ TO 2365587456 ;* \8D000000\
EQU COLOR_HIGHLIGHTTEXT$ TO 2382364672 ;* \8E000000\
EQU COLOR_BTNFACE$ TO 2399141888 ;* \8F000000\
EQU COLOR_BTNSHADOW$ TO 2415919104 ;* \90000000\
EQU COLOR_GRAYTEXT$ TO 2432696320 ;* \91000000\
EQU COLOR_BTNTEXT$ TO 2449473536 ;* \92000000\
EQU COLOR_INACTIVECAPTIONTEXT$ TO 2466250752 ;* \93000000\
EQU COLOR_BTNHIGHLIGHT$ TO 2483027968 ;* \94000000\
// The following color equates are used with the GetSysColor WinAPI command
// Example: Set_Property(CtrlEntID, "BACKCOLOR", GetSysColor(API_COLOR_BTNFACE$))
Equ API_COLOR_SCROLLBAR$ To 0
Equ API_COLOR_BACKGROUND$ To 1
Equ API_COLOR_ACTIVECAPTION$ To 2
Equ API_COLOR_INACTIVECAPTION$ To 3
Equ API_COLOR_MENU$ To 4
Equ API_COLOR_WINDOW$ To 5
Equ API_COLOR_WINDOWFRAME$ To 6
Equ API_COLOR_MENUTEXT$ To 7
Equ API_COLOR_WINDOWTEXT$ To 8
Equ API_COLOR_CAPTIONTEXT$ To 9
Equ API_COLOR_ACTIVEBORDER$ To 10
Equ API_COLOR_INACTIVEBORDER$ To 11
Equ API_COLOR_APPWORKSPACE$ To 12
Equ API_COLOR_HIGHLIGHT$ To 13
Equ API_COLOR_HIGHLIGHTTEXT$ To 14
Equ API_COLOR_BTNFACE$ To 15
Equ API_COLOR_BTNSHADOW$ To 16
Equ API_COLOR_GRAYTEXT$ To 17
Equ API_COLOR_BTNTEXT$ To 18
Equ API_COLOR_INACTIVECAPTIONTEXT$ To 19
Equ API_COLOR_BTNHIGHLIGHT$ To 20
// Preference Manager
Equ ImagePath$ to Memory_Services('GetValue', 'PM_CURRENT_IMAGE_PATH') : '\'
PMSystemFont = Memory_Services('GetValue', 'PM_SYSTEM_FONT')
Convert ',' to @SVM in PMSystemFont
Equ SystemFont$ to PMSystemFont
Equ SystemTypeface$ to SystemFont$[1, @SVM]
Equ SystemPoint$ to SystemFont$[Col2() + 1, @SVM]

16
SYSPROG/STPROCINS/AREV_POPUP_EQUATES.txt Normal file
View File

@ -0,0 +1,16 @@
compile insert AREV_POPUP_EQUATES
EQU POPX$ TO 1
EQU POPY$ TO 2
EQU POPFILE$ TO 3
EQU POPLIST$ TO 4
EQU POPFORMAT$ TO 5
EQU POPMODE$ TO 6
EQU POPMULT$ TO 7
EQU POPTITLE$ TO 8
EQU POPATTR$ TO 9
EQU POPHELP$ TO 10
EQU POPCOLUMN$ TO 11
EQU POPTYPE$ TO 12
*EQU DFLT.POP TO 0:@FM:0:@FM:@FM:@FM:25:@FM:'R'
EQU DFLT.POP TO "1:25:R::"
* Source Date: 07:20:26 18 AUG 1992 Build ID: AREV*2.2.76 Level: 2.2

33
SYSPROG/STPROCINS/ATTACH_IMAGE_EQUATES.txt Normal file
View File

@ -0,0 +1,33 @@
cOMPILE Insert Attach_Image_Equates
* Equate record for attach image
EQU TAG$ TO 1
EQU BATCH_NAME$ TO 2 ;* Name of TCL batch command
EQU SYSTEM1$ TO 3 ;* SYSTEM USE ONLY!!! Do not change
EQU VOL_NAME_LIST$ TO 4
EQU BFS_NAME_LIST$ TO 5
EQU DATA_LOC_LIST$ TO 6
EQU CONTROL_LOC_LIST$ TO 7
EQU MAP_CHECKSUM$ TO 8
EQU IMAGE$ TO 20
EQU IMAGE_TAG$ TO 'ATTACH_IMAGE'
EQU IMAGE_DELIM$ TO \00\
******************************************************************************
* SET_ATTACH_IMAGE errors
EQU SET_ERROR_1$ TO 'W109' ;* Image record already exists
EQU SET_ERROR_2$ To '120' ;* Image to Big
******************************************************************************
* USE_ATTACH_IMAGE errors
EQU USE_ERROR_1$ TO '202' ;* Image record does not exist
EQU USE_ERROR_2$ TO 'B127' ;* Not a valid image record
EQU USE_ERROR_3$ TO 'B308' ;* Open media failed on volume %?%
EQU USE_ERROR_4$ TO '201' ;* Unable to open system file %?%
* Source Date: 13:04:14 20 MAR 1992 Build ID: AREV*2.12.104 Level: 2.12

13
SYSPROG/STPROCINS/AUDIT_EQUATES.txt Normal file
View File

@ -0,0 +1,13 @@
COMPILE Insert AUDIT_EQUATES
* Equates for COA table
EQU AUDIT_TABLENAME$ TO 0.1
EQU AUDIT_USERNAME$ TO 0.2
EQU AUDIT_DATE_TIME$ TO 0.3 ;* Record key is in parts 0.4 through 0.n
EQU AUDIT_ACTION$ TO 1 ;* New,Read, Write, Delete
EQU AUDIT_FIELDS$ TO 2 ;* Field name
EQU AUDIT_OLD_VALS$ TO 3 ;* Old values for each field
EQU AUDIT_NEW_VALS$ TO 4 ;* New values for each field
EQU AUDIT_DEL_RECORD$ TO 5 ;* complete record stored here on DELETE action

53
SYSPROG/STPROCINS/AVERY_LABELS_EQUATES.txt Normal file
View File

@ -0,0 +1,53 @@
compile insert AVERY_LABELS_EQUATES
/*----------------------------------------
Author : Table Create Insert Routine
Written : 08/08/2005
Description : Insert for Table AVERY_LABELS
----------------------------------------*/
Equ AVERY_LABELS_AVERY_PRODUCT_CATEGORY$ To 7
Equ AVERY_LABELS_COATED_STOCK$ To 11
Equ AVERY_LABELS_CORNER_RADIUS_IN$ To 23
Equ AVERY_LABELS_CROSSREF$ To 3
Equ AVERY_LABELS_DATE_LAUNCHED$ To 17
Equ AVERY_LABELS_FOLDS_BI_DIRECTION$ To 36
Equ AVERY_LABELS_FOLDS_HORIZ_TOP$ To 34
Equ AVERY_LABELS_FOLDS_VERT_LEFT$ To 35
Equ AVERY_LABELS_FULL_BLEED$ To 13
Equ AVERY_LABELS_HORIZ_PITCH_IN$ To 30
Equ AVERY_LABELS_LABELS_PER_SHEET$ To 20
Equ AVERY_LABELS_LABEL_SECT_HEIGHT_IN$ To 21
Equ AVERY_LABELS_LABEL_SECT_WIDTH_IN$ To 22
Equ AVERY_LABELS_LABEL_TYPE$ To 42
Equ AVERY_LABELS_MARGIN_BOTTOM_IN$ To 27
Equ AVERY_LABELS_MARGIN_LEFT_IN$ To 28
Equ AVERY_LABELS_MARGIN_RIGHT_IN$ To 29
Equ AVERY_LABELS_MARGIN_TOP_IN$ To 26
Equ AVERY_LABELS_MIRROR_IMAGE_REQD$ To 14
Equ AVERY_LABELS_NON_STANDARD_DESIGN_ISSUES$ To 41
Equ AVERY_LABELS_NUMBER_SECTIONS_ACROSS$ To 24
Equ AVERY_LABELS_NUMBER_SECTIONS_DOWN$ To 25
Equ AVERY_LABELS_ORIGINAL_NO$ To 4
Equ AVERY_LABELS_PAGE_SIZE_IN$ To 18
Equ AVERY_LABELS_PERFS_HORIZ_DESC$ To 38
Equ AVERY_LABELS_PERFS_HORIZ_NO$ To 37
Equ AVERY_LABELS_PERFS_VERT_DESC$ To 40
Equ AVERY_LABELS_PERFS_VERT_NO$ To 39
Equ AVERY_LABELS_PHOTO_QUALITY$ To 12
Equ AVERY_LABELS_PRINTER_TYPE$ To 15
Equ AVERY_LABELS_PRINT_ORIENT$ To 19
Equ AVERY_LABELS_PRIORITY_SKU$ To 9
Equ AVERY_LABELS_PRODUCTCODE$ To 1
Equ AVERY_LABELS_PRODUCT_DESC$ To 8
Equ AVERY_LABELS_PRODUCT_TYPE$ To 10
Equ AVERY_LABELS_SEQUENCE$ To 2
Equ AVERY_LABELS_SHEET_DEPT_IN$ To 33
Equ AVERY_LABELS_SHEET_WIDTH_IN$ To 32
Equ AVERY_LABELS_STATUS_GRP_NAME$ To 5
Equ AVERY_LABELS_STATUS_NAME$ To 6
Equ AVERY_LABELS_TEMPLATE_FAMILY$ To 16
Equ AVERY_LABELS_UNIQUEPRODUCTID$ To 0
Equ AVERY_LABELS_UNITS$ To 43
Equ AVERY_LABELS_VERT_PITCH_IN$ To 31

407
SYSPROG/STPROCINS/BERRORS.txt Normal file
View File

@ -0,0 +1,407 @@
compile insert BErrors
if this then that
* mtr 9-11-2001
* Provided per user request
* B101" toSort mode selected is not correct. Column %1% already has relational index with %2% mode. Please apply this mode for creating c
* B102" to %1% already has a relational index established from table %2%. The Relational index cannot be set again from table %3%.
* B103" to Compressing %1%...
* B104 %1% has been selected, but cannot be found in %2%.
* B105 The dBASEIII file %1% already exists. Do you want to overwrite it?
* B106 The dBASEIII memo file %1% already exists. Do you want to overwrite it?
* B107 Cannot find the %1% command in the LIST.SUB subroutines.
* B108 Enter number.
* B109 Enter text without quotes.
* B110 Port Call:
* B111 An invalid option was used in the "PORT" command.
* B112 The code %2% is not valid in "%1%".
* B113 The %1% option is not currently implemented.
* B114 Not available.
* B115 The column must not be a symbolic, group, or key column, or have a relational index on it.
* B116 You must first select a column.
* B117 Enter a table name followed by a slash (/) and a column name.
* B118 Warning! All index information will be deleted from %1%. Do you want to continue?
* B119 Clearing indexing information in %1%...
* B120 Deleting Cross Reference information from %1%...
* B121 The character column %1% is longer than the 254 character limit. Use a memo field for this column.
* B123 Finding indexed tables...
* B124 Collecting indexing information...
* B125 Enter a new table name for the save list statement. Press [Esc] to cancel the process.
* B126 %1% is a new row.
* B127 %1% is an invalid row.
* B128 Hours cannot exceed 12.
* B129 Text cut into buffer %1%.
* B130 "%1%" was not found.
* B131 The default macro set %1% cannot be found.
* B132 The header for group 1 has been corrupted. No framesize or modulo information can be read. Do you want to fix group 1?
* B133 Cannot determine the framesize of this table. Please enter your best estimate for the framesize in bytes.
* B134 Framesize must divide evenly into the filesize (%1%).
* B135 The FRAMESIZE must be between 256 and 10000.
* B136 The FRAMESIZE parameter must be numeric.
* B137 Enter a group or group range to fix. Formats are: x, x-y, ALL. Press [Esc] to cancel the process.
* B138 Response = %1%
* B139 Fixing groups %1% through %2%...
* B140 Rebuilding the primary % figure...
* B141 Copying all good rows found from a temporary table back into re-initialized groups...
* B142 Another station is fixing. Please try again later.
* B143 The overflow freelist has been cleared. You can issue a compress to recover and re-order the overflow frames.
* B144 Compress file. There must be no other user of this file. After compression, this file should be re-attached at all other s
* B145 An error occurred during the compress operation. The operation has been canceled.
* B146 The drive %1% does not contain Advanced Revelation files.
* B147 The program OCONV.RUN is not available in the SYSOBJ table.
* B148 Enter the names of the programs to display.
* B149 The %1% table was not found. Do you want to list all indexed tables?
* B150 The %1% table is not indexed. Do you want to list all indexed tables?
* B151 You have defined an index. Do you want to turn it on?
* B152 *CAUTION* You have asked to delete rows from SYSCOLUMNS. These rows will also be deleted from your dictionaries. Do you want to c
* B153 The %1% column in the %2% table is not available. Do you want to list all indexed columns?
* B154 Will "%1%" be a key prompt?
* B155 Finding the %1% column in the dictionary...
* B156 %1% cannot be found. It must exist in %2%.
* B157 %1% is currently a Data Column at position %3% Do you want to convert it to a Symbolic column?
* B158 No formula has been saved.
* B159 The formula was not changed.
* B160 Collector windows do not use dictionary formulas.
* B161 The object code for %2% cannot be found in the %1% table. %2% is also not cataloged. Please enter the name of the table containin
* B162 The window %1% cannot be found.
* B163 Updating the dictionary...
* B164 %1% did not bind correctly.
* B165 No index values were found.
* B166 Cannot find the row %1% in the %2% table.
* B167 Collecting information about indexes...
* B168 Key capture functions have been disabled.
* B169 This is an invalid key.
* B170 Macro execution has been disabled.
* B171 Window %1% is about to be deleted from %2%. Do you want to continue?
* B172 Deleting...
* B173 No columns are indexed in %1%.
* B174 Sorting is not allowed within a protected group.
* B175 Sorting is not allowed before row %1%.
* B176 Enter the number of rows to select or leave this blank to select all rows.
* B177 Enter heading text for this column.
* B178 Enter an output format code. (example: "D2/" for a date format of mm/dd/yy)
* B179 Enter a heading.
* B180 Enter a footing.
* B181 QBEC1, HORMV.OUT sync error?
* B182 QBEC1, HORMV.SCB out of sync?
* B184 Building query...
* B185 Updating %1% in the %2% table...
* B186 No key prompt was specified. The default key prompt will be %1%.
* B187 You must create at least one prompt before you can save this window. The save operation has been canceled.
* B188 The window %1% was not locked. No changes will be saved.
* B189 Join prompt %1% cannot be found.
* B190 Do you want to execute the filter?
* B191 %1%, needed for index transactions is not available. Indexes depending on this table will probably need rebuilding.
* B192 The Lotus file %1% already exists. Do you want to overwrite it?
* B193 Enter a variable name.
* B194 Editing must be complete to continue.
* B195 There is nothing to pan.
* B196 This label is as large as you can make it in the current window.
* B197 You have reached the edge of window space. You may want to try resizing your window using [Ctrl-F7].
* B198 The dictionary of %1% is in use. No changes will be saved.
* B199 The dictionary is in use elsewhere. The binding cannot be changed.
* B200 You have maximized this prompt entry in the current window. You may want to try resizing your window using [Ctrl-F7].
* B201 Reading window...
* B202 %1% has %2% installed. Do you want to remove %2%?
* B203 Removing the %1% modifying filing system from %2%...
* B204 Waiting until the source record %1% can be locked...
* B205 %1% is locked.
* B206 No R/LIST program was generated. An invalid expression or column has been detected in line %1%.
* B207 %1% is not a valid dBASEIII file.
* B208 Do you want to perform the conversion?
* B209 That is an invalid color name.
* B210 If no record delimiter is specified, a record length must be specified.
* B211 The operating system file %1% already exists. Do you want to overwrite it?
* B212 The HELP file is not available. No help message will be saved. Do you want to continue?
* B213 Done.
* B214 There are no columns defined in the dictionary of %1%.
* B215 You must add a table to the window before you can use Quick Paint.
* B216 There are no tables in this window.
* B217 Formatting...
* B218 Printing...
* B220 The mode %1% is invalid.
* B221 The selected objects have been copied to the Paint clipboard.
* B222 Function key? %1%
* B223 You must be in Roam mode to Insert or Delete rows.
* B224 The record already exists in the VOC. Do you want to overwrite it?
* B225 Resizing is not supported in Table mode.
* B226 You may not pan while in Table mode.
* B227 The Window is fully displayed.
* B228 There is no transaction file for this Batch Update.
* B229 This label is at maximum length for the current window. You may want to try resizing your window using [Ctrl-F7].
* B230 A starting byte and a length are required.
* B231 Lock information has been updated in the templates in the %1% file.
* B232 No related windows are available.
* B233 Macro building has been disabled.
* B234 Searching Indexes... Press [Esc] to cancel the search.
* B234.OLD Searching Cross References... Press [Esc] to cancel the search.
* B235 Waiting for index %1% to be available...
* B236 Error in compiling "%1%"
* B237 No [F2] Help for %1% type commands is available.
* B238 Collector windows do not have dictionaries.
* B239 Updating prompt %1%...
* B240 Updating the %1% field...
* B241 %1% is invalid.
* B242 Enter the table name to move to.
* B243 Selecting referenced programs...
* B244 %1% is not a valid table type. Press [F2] for table type options.
* B245 The %1% key is not active %2% Press [Ctrl-F9] for a list of the currently active keys.
* B246 The clipboard has been cleared.
* B247 Pasting is only allowed while Roaming.
* B248 Reading dictionary...
* B249 The dictionary is not bound to %1%. Use the Prompt Window to verify the prompt.
* B250 Table Information for %1%: Volume = %2% OS Path = %3% File Type = %4% File Number = %5%
* B251 The %1% table belongs to the %2% volume. You may only change indexing in tables under the same volume.
* B252 Do you want to save?
* B253 Shifting...
* B254 No block of text has been defined.
* B255 The menu options key is disabled.
* B256 An invalid attribute was passed to ATTR.TO.ESC. Attribute = "%1%" (hex).
* B257 Cannot access color definitions correctly.
* B258 The escape sequence "%1%" (hex) is invalid in ESC.TO.ATTR.
* B259 The %1% table belongs to the %2% application. You may only change indexing in tables in the same application.
* B260 %1% is not a valid volume name or an existing subdirectory.
* B261 Table name = %1% OS name = %8% Volume = %2% Application = %3% File Type = %4% %5%
* B262 %1% is indexed and cannot be renamed.
* B263 %1% in the %2% table is not a valid dictionary type for indexing. Only the dictionary types "F" and "S" may be indexed.
* B264 %1% already exists in the %3% application on the %2% volume.
* B265 The clipboard is empty.
* B266 %1% is not a Linear Hash table. You must convert your table before attempting to use it with PAINT.
* B267 The maximum length of the Quickdex index (65,530 characters) has been reached -- no more records will be added to the Quickdex in
* B268 The "BY" clause is invalid. You cannot sort by %1%.
* B269 The disk the drive is NOT a valid LAN Pack disk. Please insert a valid LAN Pack disk.
* B269A Fatal Bump error. Improper Bump information.
* B272 There is no disk in drive %1%. Insert a disk and then try agian.
* B273 To install a LAN Pack, you must log in as the "LANPACK" user.
* B274 This installation currently supports %1% user(s). Would you like to enable more users?
* B275 Insert a NEW Lanpack into Drive. Choose drive (A or B) or Cancel
* B276 If you change the location of your application without moving the DOS files, you will NOT be able to open the application.
* B279 Cannot find the %1% driver in the SYSNETWORKS table.
* B280 The REVBOOT file is too large.
* B282 The original REVBOOT file has been renamed REVBOOT.OLD. The new network driver will be available the next time you log onto Adva
* B284 Logging off.
* B285 No rows found.
* B286 %1% is not a valid index name.
* B287 Warning! The index update process must not be interrupted or indexes will be corrupted. Do you still want to update ALL i
* B288 There are invalid character(s) in the table name %1%. Use only alphanumeric characters and the special characters underscore "_"
* B289 The dictionary of %1% is not available.
* B291 The key list has exceeded the maximum allowed length. The list will be truncated.
* B292 The list accumulated in %1% has been truncated to the 64K bytes limit. Please use the R/LIST command to retrieve correct
* B293 The Btree index for the indexed column %1% in the table %2% has not been created. Please initialize the index for this column an
* B294 The list returned from BTREE.EXTRACT has been truncated to the 64K limit. To retrieve more rows from the %1% table use the SELEC
* B295 The list %1% cannot be found in the LISTS table.
* B296 Do you want to cancel this process?
* B297 The correct form for the TRANSACTION command is: TRANSACTION operator (option) where: operator = COMMIT, ROLLBACK, S
* B300 These table(s) are not found in this volume:
* B301 Table(s) not available:
* B303 No candidate tables found.
* B304 Domain and validation controls have been added to %1% tables.
* B305 Control features have been removed from %1% tables.
* B306 Locating tables...
* B307 No tables were affected. The "S" option is not active if no volume is specified.
* B308 The "%1%" volume is not available.
* B311 The "%1%" table does not have control features active. Press [Esc] to cancel the process or press any other key to continue.
* B312 The "%1%" table already has Control features active. Press [Esc] to cancel the process or press any other key to continue.
* B313 The "%2%" volume does not exist.
* B314 "%1%" is not a data table, and cannot have control features added. Press [Esc] to cancel the process or press any other key to c
* B315 The "%1%" table is not available. It must be attached before Control features can be added. Press [Esc] to cancel the process or
* B316 The "%1%" table does not exist on the "%2%" volume. Press [Esc] to cancel the process or press any other key to continue.
* B317 An error has occurred while writing to the volume directory for the "%2%" volume. Press [Esc] to cancel the process or press any
* B318 The "%1%" table is not on the "%2%" volume. Press [Esc] to cancel the process or press any other key to continue.
* B319 Unable to save "%1%" in the "%2%" table.
* B320 Subroutine: %1%|Branch value must be numeric!
* B321 Subroutine: %1%|Value of %2% exceeds highest ON...GOSUB branch.
* B322 The table: %1% is excluded from all EasyWriter and QBE|queries. Therefore, you may not set up additional|dictionary level contro
* B323 Link list in the table "%1%" is broken. Transactions cannot be properly flushed. To correct this problem, please rebuild a
* B324 The table: %1% has no dictionary attached or created.|Therefore, you may not set up additional|dictionary level control on the ta
* B325 Dictionary tables cannot be further qualified for EasyWriter queries.
* B326 Error writing to DOS file "%1%"
* B327 Default configuration record "%1%" is missing from the %2% table.
* B328 Error opening or reading from .INI file "%1%"
* B329 %1% is an invalid Advanced Revelation .INI file.
* B330 The file or path "%1%" does not contain .INI files.
* B331 Other .INI files only accessable from the SYSPROG account.
* B332 No INI-file has been found. "%1%" has been created as the default INI-file.
* B333 Finishing processing selections. Please wait.
* B400 Initializing the index control information...
* B401 Null I/O Error
* B402 Error compiling %1%. Use the dictionary window to correct the formula.
* B403 Error while copying row "%1%" to the "%2%" table.
* B404 Building the "%1%" index for the "%2%" table...
* B440 Another workstation is currently accessing table "%2%" and has row "%1%" locked. The index update you have requested will pr
* B441 Records can not be updated because the table "%1%" is not available or attached for reference to store index transactions. P
* B500 The "%1%" table has been dropped.
* B501 The wait-for-lock process has been interrupted. Lock information: Lock Type: "%1%" Table : "%2%" Row : "%
* B502 Transaction Control is OFF.
* B503 You must log in as the user "SYSPROG" to perform this function.
* B504 Do you want to remove the user "%1%" from the commit queue "%2%" ?
* B505 Do you want to remove the user "%1%" from ALL commit queues?
* B506 Do you want to clear the entire Commit Log?
* B507 Warning! Invoking Auto-Transaction Start causes all changes to be held until they are explicitly committed. Unless committed, ch
* B508 A pending transaction exists for this station. Do you want to Commit or Rollback before logoff?
* B509 A pending transaction exists for this station. Do you want to Commit, Rollback, or Ignore the transaction?
* B510 Invalid response. Entry must be "C", "R", or "I".
* B511 Invalid response. The entry must be a "C" or "R".
* B512 This function can only be used when Commit Protection is "ON". Commit protection causes commit queues to be maintained. A lock
* B513 The "COMMITLOG" file has been locked. Transactions cannot be committed while this utility is being run.
* B514 This volume does not contain any tables of the Revelation G type.
* B515 Row "%1%" was found in the "VOC", but is not a valid volume name.
* B516 "%1%" is mapped to drive "%2%".
* B517 "%1%" is not a volume. This process assumes that it is a path name. Is this correct?
* B518 The volume name that corresponds to the path "%1%" is "%2%" Is this correct?
* B519 The target must a be valid volume. Building "%TEMP.VOL.CONVERT%" using the path "%1%".
* B520 The volume directory on path "%1%" is not available.
* B521 Another workstation is currently updating indexes on table "%2%" with control column "%1%" locked. The index update you have
* B522 "%1%" is not a valid column name.
* B523 Help level can only be set from Level 1 of TCL.
* B524 All other users should reattach this table in order for indexing to remain up-to-date.
* B525 Error %1% in VSPACE.
* B526 The View window cannot be displayed. The operating system file required for the window is not available or cannot be created.
* B527 Your DOS path for temporary files is invalid. Please check your environment setting.
* B528 I/O error during join process.
* B529 An error was encountered while joining columns. No changes will be saved.
* B530 A Merge name is required.
* B531 The printer configuration for "%1%" cannot be found in "%2%".
* B532 The flag definition record "%1%" cannot be found.
* B533 Cannot find "%1%".
* B534 The "%C37%FIELDS%C37%" row in the the dictionary of "%1%" is not available.
* B535 Reprocessing row "%1%" from the "%2%" table %3% ...
* B536 Cannot find "%1%" in "%2%".
* B537 Merging row "%1%" from the "%2%" table to the output table %3% ...
* B538 The key list contains imbalanced single or double quote marks.
* B539 No output table was specified in the template.
* B540 Widow/Orphan override.
* B541 MERGE.SUB was passed a dispatch value out of range %1%.
* B542 Collecting column information...
* B543 %1% Enter a value.
* B544 Do you want to delete "%1%"?
* B545 The Merge sample is active only while editing the Merge script.
* B546 Do you want to view the previous sample?
* B547 The row "%1%" is not available in the "%2%" table to do a Merge sample.
* B548 Do you want to abandon the sample?
* B549 Selecting a random row.
* B550 Initializing...
* B551 "%1%" error(s) detected.
* B552 No errors have been detected.
* B553 This field is protected. Press [F2] to edit the Script.
* B554 Enter the name of the operating system text file to import.
* B555 The table can be accessed successfully.
* B556 "%1%" is not a legal operating system filename.
* B557 Access to this file has been denied by the operating system.
* B558 "%1%" does not exist.
* B559 "%1%" is not available or cannot be found.
* B560 Convert high ASCII characters (higher than character 127)?
* B561 The format flag template contains an invalid key flag (%1%-%2%).
* B562 The text file is too long. The file will be truncated to fit into the Merge template.
* B563 Wrap long lines?
* B564 The key flag "%1%" in the options list is a valid flag.
* B565 "%1%" is not a valid format code. Press [F2] for a list of valid formats.
* B566 The format code %1% is invalid.
* B567 The "%1%" table does not exist. Do you want to create it?
* B568 The Merge script is empty.
* B569 The Merge header has not been specified.
* B570 The Merge footer has not been specified.
* B571 Printer format specifications must be entered as up to 3 decimal numbers separated by spaces. (example: 27 72 105)
* B572 Selecting rows...
* B573 Enter the name of the filter row.
* B574 The "REPORTS" table is not available. Press [Enter] to return to the Query window.
* B575 The filter "%1%" has been saved.
* B576 Do you want to save your custom changes in a Filter?
* B577 The "%1%" prompt contains unbalanced quotation marks.
* B578 Converting the R/DESIGN row "%1%".
* B579 "%1%" This row already exists in "%2%". The row was not converted.
* B580 "%1%" This record was converted and saved in "%2%".
* B581 %1% Possible incompatibility. This prompt has a symbolic reference in %2%. The code has been placed in %3%.
* B582 The symbolic uses RDESIGN.COMMON. This is incompatible with window templates.
* B583 The symbolic defines COMMON variables. This may be incompatible with Window templates.
* B584 "%1%" This prompt has a subroutine reference in Description. The code has been placed in the Options prompt. This may be incompat
* B585 The subroutine "%1%" uses RDESIGN.COMMON. This is incompatible with window templates.
* B586 The subroutine "%1%" defines common. This may be incompatible with Window templates.
* B587 The program "%1%" cannot not be found. The process is unable to check for incompatibility.
* B588 The program table is not available. Unable to check for incompatibility.
* B589 "%1%" This row is not an "ENTRY" type. It cannot be converted by this program.
* B590 The "VOC" entry was not a catalog pointer. The process is unable to check for incompatibility.
* B591 "%1%" The "VOC" entry is not available. Unable to check for incompatibility.
* B592 "%1%" This row cannot be found in the "%2%" table.
* B593 "%1%" The cross reference login was not converted.
* B594 "%1%" The table accessed by this template is not available. The prompts for symbolic columns cannot be verified.
* B595 The change prompt has a value in "PARAMETER 1". Linked screen conversion is not completed yet. PARAMETER 1 = "%1%"
* B596 Prompt number %1% (R/DESIGN window number %2%) is more than one column wide. It has been truncated to one column.
* B597 %1% This prompt has a non-numeric value in Parameter 1. No action has been taken.
* B598 "%1%" This prompt has a value in the "DESCRIPTION" field that cannot be converted.
* B599 Mode %1% is an invalid reduction mode.
* B600 The first (meta) pass for "WITH" has failed.
* B601 WITH meta compilation failed.
* B602 This option/process is not supported.
* B603 The cursor value %1% is out of range.
* B604 The cursor "%1%" is invalid.
* B605 The template has not been saved. There is no Table or Collector information.
* B606 Position information must be numeric.
* B607 The mode %1% is invalid for LIST.ACTIVE.
* B608 Error during Readnext operation while seeking.
* B609 Waiting for an index lock... If you cancel this process, the table will not be deleted.
* B610 BFS name cannot be read for DICT %1%
* B611 The [Alt-V] key is functional only when using R/LIST commands.
* B615 The active select list is unresolved. Do you want to continue?
* B616 The active select list is unresolved with reduction pending. Do you want to continue?
* B617 The active select list is unresolved. The "%1%" table contains %2% rows. Do you want to continue?
* B618 The active SELECT list is unresolved. The "%1%" table contains %2% rows. Do you want to continue?
* B619 Seek to the top of table has failed. Do you want to continue the Savelist from the current position?
* B620 %B%No Cross Reference or Btree index has been established for the "%1%" table.
* B621 "%1%" is not a valid key in the "%2%" table.
* B622 Preparing "%1%" listing...
* B623 No rows have been selected.
* B624 The record "@CRT" in the dictionary of "%1%" contains an invalid column. "%2%" does not exist.
* B625 VSPACE status error %1%.
* B626 "%1%" is not available for the View window. Cancelling the process.
* B627 STATUS() error = "%1%" "%2%"
* B628 Cannot move to the top of the table. Do you want to continue the report from the current position?
* B629 Enter page number to display.
* B630 Do you want to print this report?
* B631 The "REPORTS" table is not available.
* B632 The row "%1%" cannot be found in the "REPORTS" table.
* B633 Moving "%1%" menus is not allowed.
* B634 This menu is too large to display. The process has been cancelled.
* B635 The [Alt-P] key is functional only when using R/LIST commands.
* B636 SELECT.INDEX failed during REDUCE operation.
* B700 The ASCII %1% character is reserved for system use and cannot be used in prompts or labels.
* B701 The index search type specified for "%1%" is invalid.
* B702 The index "%1%" must be rebuilt.
* B703 Warning! The index "%1%" must be rebuilt. (The primary data and index control information has not been corrupted.)
* B704 Restricted access.
* B705 The correct form for the "BUILD.TABLE" command is: BUILD.TABLE template.file.name template.name
* B706 Working on template "%1%" in the "%2%" table...
* B707 The "%1%" template is encrypted. Unable to build a table row.
* B708 No help is available for "%1%".
* B709 Row is locked. Retrying...
* B710 Do you want to change the message?
* B711 Waiting for "%1%" transaction lock in "%2%"... Warning! If you cancel this process, you will have to rebuild this index.
* B712 The "%1%" option is not available in FILE.CVT.
* B713 Working on "%1%"...
* B714 The popup has reached the maximum size allowed for your memory configuration.
* B772
* B800 Waiting to lock the "%1%" table... Press [Esc] to cancel the process.
* B801 %1% row(s) have been selected. %2% logical error(s) were detected.
* B802 %1% row(s) have been selected. %2% error(s) were detected.
* B805 This statement contains unbalanced quotes.
* B810 "%1%" is an invalid active language set. The active language set must be in the list of loaded sets or must be "DEFAULT".
* B811 "%1%" is an invalid language set. Press [F2] for a list of valid choices.
* B812 "%1%" already exists in the load list.
* B813 "%1%" is an invalid output conversion pattern for the TIMEDATE() function. The pattern must be a valid "DT" (Date-Time) conversio
* B815 Case sensitive character sort order in record "%1%" is invalid. It must be 256 bytes in length exactly.
* B816 Case insensitive character sort order in record "%1%" is invalid. It must be 256 bytes in length exactly.
* B817 The language set control row "%1%" is not in the load list and is not "DEFAULT".
* B818 The language set control row "%1%" was not found in the SYSENV table.
* B820 No fonts or styles defined for this printer.
* B821 No printers have been defined in the environment.
* B822 Cannot initialize printer %1%
* B823 %1% is not a valid color.
* B824 %1% rows converted.
* B825 The spooling file %1% already exists.|Do you wish to overwrite the file?
* B826 Operation cancelled.
* B827 WARNING! If you cancel the print job, the spool file will be erased, and you must rerun any reports that you want printed. Do yo
* B828 A print process is open for this station and a close process has been defined for this printer. Do you wish to execute the Close
* B829 You have selected the postcript printer driver and any printed output will be spooled to a temporary file. To send any pendin
* B830 The value you have entered does not meet validation criteria. You can enter strings of characters to send to the printer in any
* B834 There is no ROSMEDIA.MAP file on "%1%".
* B835 "%1%" is in the "VOC" but it is not a volume pointer.

13
SYSPROG/STPROCINS/BITMAP_IDX_MFS_EQUATES.txt Normal file
View File

@ -0,0 +1,13 @@
compile insert Bitmap_Idx_MFS_Equates
/* Bitmap index MFS equates
Author: CP Sprezzatura Ltd, 16.10.2007, Insert created
ssc , 31.10.2007, Compacted and optimized */
equ BITMAP_IDX$ to "RTI_BITMAP_IDX"
equ BI_ERR_OPEN_DICT$ to 3000 ; * Error FS%1% opening DICT.%2% for Bitmap Index update
equ BI_ERR_OPEN_BI_DICT$ to 3001 ; * Error FS%1% opening DICT.%2% - Bitmap Index updates are not available
* rjc 03-31-10
Equ BITMAP_IDX_SUFFIX$ To "_BITMAP_IDX"

21
SYSPROG/STPROCINS/BND_EQUATES.txt Normal file
View File

@ -0,0 +1,21 @@
compile insert bnd_equates
*
* Record Structure
Equ Rpt_Table$ to 1
Equ Rpt_Detail$ to 2
Equ group_header$ to 3
Equ group_footer$ to 4
Equ page_header$ to 5
Equ page_footer$ to 6
Equ Rpt_Header$ to 7
Equ Rpt_Footer$ to 8
* Structure of bands
Equ Str_Table$ to 1
Equ Str_col$ to 2
Equ Str_x$ to 3
Equ Str_y$ to 4
Equ Str_Width$ to 5
Equ Str_Font$ to 6

120
SYSPROG/STPROCINS/BOND.SUBS.EQUATES.txt Normal file
View File

@ -0,0 +1,120 @@
cOMPILE Insert Bond.Subs.Equates
*
* BOND.SUBS.EQUATES - equates for the central bonding kit dispatcher
*
DECLARE SUBROUTINE BOND.SUBS
!
!
* BOND.SUBS COMMAND CODES
* The first argument to BOND.SUBS is a code which specifies the
* function to be performed:
EQU BS.TYPE.PARSE$ TO 1 ;* Parse parameterized type.
EQU BS.TYPE.EXPAND$ TO 2 ;* Parse and expand parameterized
* * type.
EQU BS.TYPE.POPUP$ TO 3 ;* Formatted popup of global data
* * types.
EQU BS.TYPE.WPOPUP$ TO 4 ;* Like TYPE.POPUP, only no args.
EQU BS.MACRO.EXPAND$ TO 5 ;* Apply parsed macro (parameterized
* * type) to template.
*
EQU BS.ERROR$ TO 6 ;* Error handler.
EQU BS.GET.TYPE.REC$ TO 7 ;* Get record from type table.
EQU BS.GET.MAP.REC$ TO 8 ;* Get record from type maps table.
EQU BS.GET.FLAG.ALL$ TO 1 ;* Get all map records
EQU BS.GET.FLAG.CREATE$ TO 2 ;* Get default creation mapping
EQU BS.GET.FLAG.ATTACH$ TO 3 ;* Get default attach mapping
EQU BS.GET.TYPE$ TO 9 ;* Collect valid type from user.
EQU BS.REQUOTE$ TO 10 ;* requote a string.
EQU BS.FIELD.ATTR$ TO 11 ;* display field attr collector.
EQU BS.FILE.ATTR$ TO 12 ;* display file attr collector.
EQU BS.MAP.FILENAME$ TO 13 ;* Map filename into foreign env.
EQU BS.MAP.FIELDNAME$ TO 14 ;* Map fieldname into foreign env.
EQU BS.GET.FILE.ATTR$ TO 15 ;* Get default file attributes.
EQU BS.VOL.ATTR$ TO 16 ;* display volume attr collector.
EQU BS.TYPE.CREATE$ TO 17 ;* Type expansion when creating a
;* dictionary field.
EQU BS.TYPE.ATTACH$ TO 18 ;* Type expansion when attaching
;* to an existing dictionary field.
EQU BS.GET.WINFO$ TO 19 ;* For internal use only.
EQU BS.DEBUG$ TO 20 ;* Turn debugging on/off.
EQU BS.TYPE.WINDOW$ TO 21 ;* Call this for F2 for data type fields
EQU BS.GET.WINFO.MAP$ TO 22 ;* Internal use only.
EQU BS.LAST.FUNC.CODE$ TO 22 ;* Sentinel for internal use
!
!
* BOND.SUBS FILE DEFINITIONS
*
EQU BSTM.FILE.NAME$ TO 'TYPE_MAPS' ;* Type mappings for each bond
EQU BSTM.BOND.NAME$ TO 1 ;* Key part 1. Name of bond.
EQU BSTM.FILE.TYPE$ TO 2 ;* Key part 2. File type ("." = default).
EQU BSTM.GENERIC.TYPE$ TO 3 ;* Key part 3. Name of corresponding
;* record in generic data type table.
EQU BSTM.MAPPING.NAME$ TO 4 ;* The mapping name is the name selected
;* by the bond developer which uniquely
;* identifies a particular transformation
;* of data between arev and the foreign
;* environment.
EQU BSTM.GEN.PARM.NAME$ TO 1 ;* A multi-valued list of the names of
;* the parameters of the generic data
;* type. The type mapping definition
;* window initializes these to be the
;* generic data type parameter names. The
;* intent is that the mapping may append
;* additional arguments, but that is not
;* implemented in 2.0
EQU BSTM.PARM.PROMPT$ TO 2 ;* A multi-valued list of scaled-down
;* prompt window templates, each of which
;* will be used in constructing the
;* dynamic window for data type params.
EQU BSTM.DICT.TEMPLATE$ TO 3 ;* A dictionary template which contains
;* replaceable parameters that will be
;* used in expanding a data type into
;* a dictionary record.
EQU BSTM.CALL.EDIT.ROUTINE$ TO 4 ;* Y/N. Should FOREIGN.SUBS be called
;* at the end of a type expansion in order
;* to perform additional editing?
EQU BSTM.DYNAMIC.FLAG$ TO 5 ;* 0 or 1. 1 means that the bond will
;* have an opportunity to select the type
;* mapping dynamically.
EQU BSTM.NATURAL.FLAG$ TO 6 ;* 0 or 1. 1 means that this is a
;* natural mapping. 0 means that if this
;* data type is being created interactively,
;* the user must be informed that the
;* data type is being mapped to a less-than
;* natural type in the foreign environment.
equ BSTM.DESCRIPTION$ TO 7 ;* one-line description of mapping for popup
EQU BSTY.FILE.NAME$ TO "TYPE_TABLE" ;* The name of the file
;* containing the generic
;* data type records.
EQU BSTY.TYPE.NAME$ TO 0 ;* The name of the generic data
;* (this is the key to the file).
EQU BSTY.TYPE.DESCRIPTION$ TO 1 ;* One-liner description that will
;* appear in the types popup.
EQU BSTY.SYNONYM.FOR$ TO 2 ;* Name of generic type that this
;* type is just a synonym for.
EQU BSTY.DERIVED.FROM$ TO 3 ;* Name of generic type that this
;* type is derived from.
EQU BSTY.PARM.NAME$ TO 4 ;* Multi-valued list of type
;* parameters.
EQU BSTY.PARM.PROMPT$ TO 5 ;* Prompt template that will be
;* used with this parameter.
EQU BSTY.DICT.TEMPLATE$ TO 6 ;* Dictionary template.
EQU BSTY.CALL.EDIT.ROUTINE$ TO 7 ;* 0 or 1. Specifies whether
;* edit routine must be called.
* Source Date: 09:48:07 02 MAR 1993 Build ID: AREV*3.1.31 Level: 3.1

120
SYSPROG/STPROCINS/BOND_SUBS_EQUATES.txt Normal file
View File

@ -0,0 +1,120 @@
Compile Insert Bond_Subs_Equates
*
* BOND.SUBS.EQUATES - equates for the central bonding kit dispatcher
*
DECLARE SUBROUTINE BOND.SUBS
* BOND.SUBS COMMAND CODES
* The first argument to BOND.SUBS is a code which specifies the
* function to be performed:
EQU BS.TYPE.PARSE$ TO 1 ;* Parse parameterized type.
EQU BS.TYPE.EXPAND$ TO 2 ;* Parse and expand parameterized
* * type.
EQU BS.TYPE.POPUP$ TO 3 ;* Formatted popup of global data
* * types.
EQU BS.TYPE.WPOPUP$ TO 4 ;* Like TYPE.POPUP, only no args.
EQU BS.MACRO.EXPAND$ TO 5 ;* Apply parsed macro (parameterized
* * type) to template.
*
EQU BS.ERROR$ TO 6 ;* Error handler.
EQU BS.GET.TYPE.REC$ TO 7 ;* Get record from type table.
EQU BS.GET.MAP.REC$ TO 8 ;* Get record from type maps table.
EQU BS.GET.FLAG.ALL$ TO 1 ;* Get all map records
EQU BS.GET.FLAG.CREATE$ TO 2 ;* Get default creation mapping
EQU BS.GET.FLAG.ATTACH$ TO 3 ;* Get default attach mapping
EQU BS.GET.TYPE$ TO 9 ;* Collect valid type from user.
EQU BS.REQUOTE$ TO 10 ;* requote a string.
EQU BS.FIELD.ATTR$ TO 11 ;* display field attr collector.
EQU BS.FILE.ATTR$ TO 12 ;* display file attr collector.
EQU BS.MAP.FILENAME$ TO 13 ;* Map filename into foreign env.
EQU BS.MAP.FIELDNAME$ TO 14 ;* Map fieldname into foreign env.
EQU BS.GET.FILE.ATTR$ TO 15 ;* Get default file attributes.
EQU BS.VOL.ATTR$ TO 16 ;* display volume attr collector.
EQU BS.TYPE.CREATE$ TO 17 ;* Type expansion when creating a
;* dictionary field.
EQU BS.TYPE.ATTACH$ TO 18 ;* Type expansion when attaching
;* to an existing dictionary field.
EQU BS.GET.WINFO$ TO 19 ;* For internal use only.
EQU BS.DEBUG$ TO 20 ;* Turn debugging on/off.
EQU BS.TYPE.WINDOW$ TO 21 ;* Call this for F2 for data type fields
EQU BS.GET.WINFO.MAP$ TO 22 ;* Internal use only.
EQU BS.LAST.FUNC.CODE$ TO 22 ;* Sentinel for internal use
!
!
* BOND.SUBS FILE DEFINITIONS
*
EQU BSTM.FILE.NAME$ TO 'SYSTYPEMAPS' ;* Type mappings for each bond
EQU BSTM.BOND.NAME$ TO 1 ;* Key part 1. Name of bond.
EQU BSTM.FILE.TYPE$ TO 2 ;* Key part 2. File type ("." = default).
EQU BSTM.GENERIC.TYPE$ TO 3 ;* Key part 3. Name of corresponding
;* record in generic data type table.
EQU BSTM.MAPPING.NAME$ TO 4 ;* The mapping name is the name selected
;* by the bond developer which uniquely
;* identifies a particular transformation
;* of data between arev and the foreign
;* environment.
EQU BSTM.GEN.PARM.NAME$ TO 1 ;* A multi-valued list of the names of
;* the parameters of the generic data
;* type. The type mapping definition
;* window initializes these to be the
;* generic data type parameter names. The
;* intent is that the mapping may append
;* additional arguments, but that is not
;* implemented in 2.0
EQU BSTM.PARM.PROMPT$ TO 2 ;* A multi-valued list of scaled-down
;* prompt window templates, each of which
;* will be used in constructing the
;* dynamic window for data type params.
EQU BSTM.DICT.TEMPLATE$ TO 3 ;* A dictionary template which contains
;* replaceable parameters that will be
;* used in expanding a data type into
;* a dictionary record.
EQU BSTM.CALL.EDIT.ROUTINE$ TO 4 ;* Y/N. Should FOREIGN.SUBS be called
;* at the end of a type expansion in order
;* to perform additional editing?
EQU BSTM.DYNAMIC.FLAG$ TO 5 ;* 0 or 1. 1 means that the bond will
;* have an opportunity to select the type
;* mapping dynamically.
EQU BSTM.NATURAL.FLAG$ TO 6 ;* 0 or 1. 1 means that this is a
;* natural mapping. 0 means that if this
;* data type is being created interactively,
;* the user must be informed that the
;* data type is being mapped to a less-than
;* natural type in the foreign environment.
equ BSTM.DESCRIPTION$ TO 7 ;* one-line description of mapping for popup
EQU BSTY.FILE.NAME$ TO "SYSTYPES" ;* The name of the file
;* containing the generic
;* data type records.
EQU BSTY.TYPE.NAME$ TO 0 ;* The name of the generic data
;* (this is the key to the file).
EQU BSTY.TYPE.DESCRIPTION$ TO 1 ;* One-liner description that will
;* appear in the types popup.
EQU BSTY.SYNONYM.FOR$ TO 2 ;* Name of generic type that this
;* type is just a synonym for.
EQU BSTY.DERIVED.FROM$ TO 3 ;* Name of generic type that this
;* type is derived from.
EQU BSTY.PARM.NAME$ TO 4 ;* Multi-valued list of type
;* parameters.
EQU BSTY.PARM.PROMPT$ TO 5 ;* Prompt template that will be
;* used with this parameter.
EQU BSTY.DICT.TEMPLATE$ TO 6 ;* Dictionary template.
EQU BSTY.CALL.EDIT.ROUTINE$ TO 7 ;* 0 or 1. Specifies whether
;* edit routine must be called.
* Source Date: 10:58:08 27 FEB 1991 Build ID: AREV*2.1 Level: 2.1

18
SYSPROG/STPROCINS/BRW_CFG_EQUATES.txt Normal file
View File

@ -0,0 +1,18 @@
cOMPILE Insert BRW_Cfg_Equates
* mtr 11-2-06
* layout of the BRW_CFG record in the SYSENV file, used by the BRW
Equ show_grid$ To 1
Equ snap_grid$ To 2
Equ grid_uom$ To 3
Equ grid_spacing$ To 4
Equ grid_hspace$ To 1
Equ grid_vspace$ To 2
Equ Font_List$ To 5
Equ point_list$ To 6
Equ current_font$ To 7
Equ current_point$ To 8

53
SYSPROG/STPROCINS/BRW_EQUATES.txt Normal file
View File

@ -0,0 +1,53 @@
Compile Insert BRW_Equates
* mtr 7-13-06
* mtr 7-17-07
* Report Structure Equates
Equ RS_TableName$ To 1
Equ RS_Detail_Info$ To 2
Equ RS_Detail_Coords$ To 3
Equ RS_Grouped_Fields$ To 4
Equ RS_Grp_Header_Info$ To 5
Equ RS_Grp_Footer_Info$ To 6
Equ RS_Page_Header$ To 7
Equ RS_Page_Footer$ To 8
Equ RS_Report_Header$ To 9
Equ RS_Report_Footer$ To 10
Equ RS_Margin_Info$ To 11
Equ RS_Sel_Criteria$ To 12
Equ RS_Screen_Size$ To 13
Equ RS_Group_Coords$ To 14
Equ RS_Group_Params$ To 15
Equ RS_Sel_Params$ To 16
Equ RS_Splitter$ To 17
Equ RS_Allctrls$ To 18
Equ RS_Allsizes$ To 19
Equ RS_Allfonts$ To 20
Equ RS_Options$ To 21
* detail Structure
Equ det_table$ To 1
Equ det_col$ To 2
Equ det_x$ To 3
Equ det_y$ To 4
Equ det_width$ To 5
Equ det_height$ To 6
Equ det_font$ To 7
Equ det_just$ To 8
* mtr 7-17-07
Equ det_override_conv$ To 9
* ro 10-26-07
Equ det_override_total$ To 10
* ro 02-21-08
Equ det_override_formula$ To 11
Equ det_override_colhdr$ To 12
* header footer flag
Equ Grp_Fieldname$ To 1
Equ Grp_HeaderFlag$ To 2
Equ Grp_FooterFlag$ To 3

67
SYSPROG/STPROCINS/BTREE.EQUATES.txt Normal file
View File

@ -0,0 +1,67 @@
compile Insert BTREE.EQUATES
/*
* rjc 02-15-15 Copy In From Arev bp
*/
#pragma BLINT_NOWARN
EQU TRUE TO 1
EQU FALSE TO 0
EQUATE MAX.LISTLEN$ TO 4000000
* MTR 9-11-13 WAS 65500
EQU V.INDEX.TYPE TO 0 ;* VALUE INDEX MARKER
EQU ID.INDEX.TYPE TO 1 ;* ID INDEX MARKER
EQU LEAF.TYPE TO 2 ;* VALUE RECORD MARKER
EQU REC.TYPE.IX TO 1 ;* FIELD # FOR RECORD TYPE
EQU NEXT.LEAF.IX TO REC.TYPE.IX + 1 ;* FIELD # FOR "RIGHT" REC ID PTR
EQU PREV.LEAF.IX TO NEXT.LEAF.IX + 1 ;* FIELD # FOR "LEFT" REC ID PTR
EQU SEP.IX TO REC.TYPE.IX + 1 ;* FIELD # FOR SEPARATORS IN INDEX
EQU OPT.IX TO SEP.IX + 1
EQU VALUE.IX TO PREV.LEAF.IX + 1 ;* FIELD # FOR VALUES IN LEAF
EQU ID.IX TO VALUE.IX + 1 ;* FIELD # FOR IDS IN LEAF
EQU SVM TO \FC\
*
* B+TREE INDEX RECORD FORMAT:
*
* F1: '0' OR '1' - INDICATING A NON-LEAF RECORD(INDEX).
* 0 => VALUE INDEX - SEPARATORS REFER TO VALUES
* 1 => ID INDEX - SEPARATORS REFER TO ID'S
* F2: Multivalued list of separator values
* F3: Associated multivalued list of optional identifiers
*
* THE SEPARATOR VALUES DOUBLE AS RECORD POINTERS
* D L S <MAX>
* / | | \______________
* | \
* N Q S SEP SEP <MAX>
*
* A SEPARATOR POINTS TO A RECORD CONTAINING INDEXES TO OR DATA WHOSE
* VALUES ARE LESS THAN OR EQUAL TO THE SEPARATOR VALUE.
* A <MAX> SEPARATOR IMPLIES THE LARGEST POSSIBLE VALUE
* FOR LEFT JUSTIFIED INDEXES, <MAX> = @SVM:@SVM:@SVM
* FOR RIGHT JUSTIFIED INDEXES, <MAX> = 1E4932
*
* RECORD ID'S ARE BUILT AS FOLLOWS:
*
* F.NAME:"*":OPTIONALIDENTIFIER:"*":SEPARATOR
* WHERE F.NAME IS THE FIELD NAME OF THE FIELD BEING INDEXED.
* E.G. THE TOP LINE IN THE TREE ABOVE INDICATES RECORD IDS OF:
* (ASSUMING FIELD IS "NAME")
* NAME**D
* NAME**L
* NAME**S
* NAME**
* THE OPTIONAL IDENTIFIER IS ADDED IF NECESSARY TO MAKE UNIQUE ID'S
*
* LEAF RECORD FORMAT:
*
* F1: '2' IMPLYING A LEAF RECORD
* F2: NEXT SEQUENTIAL LEAF ID
* F3: PREVIOUS SEQUENTIAL LEAF ID
* F4: MULTIVALUED LIST OF INDEX VALUES
* F5: ASSOCIATED MV LIST OF IDS FOR EACH VALUE IN F4
* ID'S SEPARATED BY SVM'S
*
* Source Date: 17:15:53 16 FEB 1988 Build ID: AREV*1.0.2 Level: 2.0

25
SYSPROG/STPROCINS/CACHE_MFS_COMMON.txt Normal file
View File

@ -0,0 +1,25 @@
Compile Insert Cache_Mfs_Common
/*
**
** See CACHE_MFS, SYSLISTS_MFS
**
**
** 10-20-2005 rjc Created
*/
EQU CREATE_CACHE$ TO 0
EQU OPEN_CACHE$ TO 1
EQU CLOSE_CACHE$ TO 2
EQU CLEAR_CACHE$ TO 3
EQU READ_CACHE$ TO 4
EQU WRITE_CACHE$ TO 5
EQU DELETE_CACHE$ TO 6
EQU MAX_CACHE_CNT$ to 100
EQU CACHE_HANDLE_DELIM$ to \F7\
Equ CACHE_HANDLE_POS$ To 6
declare subroutine rtp65
common /cache_mfs_Common/init@,handle_cnt@,names@,file_handles@(max_cache_cnt$),cache_handles@,full_cache_flags@

41
SYSPROG/STPROCINS/CAPTIONSUFFIX_EQUATES.txt Normal file
View File

@ -0,0 +1,41 @@
compile insert CAPTIONSUFFIX_EQUATES
******
* NOTE: This insert is dependant on the WINRES_EQUATES insert. Thus, to use
* this insert ( captionsuffix_equates ) you must include the other insert first:
*
*
* Changes
* --------------------------------------------------------
* 10-18-95 VG Soft-coding literals
* 10-27-13 Mr C Added header guards - updated for v10
******
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _CAPTIONSUFFIX_EQUATES_
#define _CAPTIONSUFFIX_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
$insert winRes_Equates
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
EQU SUFF_NEWENTRY$ TO ResToString( WINRES_NEWENTRY$, SYSRES_SYSTEM$ )
EQU SUFF_QBFINIT$ TO ResToString( WINRES_QBFDEFINE$, SYSRES_SYSTEM$ )
EQU SUFF_QBFRUN$ TO ResToString( WINRES_QBFINPROGRESS$, SYSRES_SYSTEM$ )
EQU SUFF_QBFBROWSE$ TO ResToString( WINRES_QBFBROWSE$, SYSRES_SYSTEM$ )
EQU SUFF_LOCKED$ TO ResToString( WINRES_LOCKED$, SYSRES_SYSTEM$ )
EQU SUFF_NONE$ TO ''
EQU SUFF_DELIM$ TO ' - <'
EQU SUFF_DELIM_LASTCHAR$ TO '<'
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

53
SYSPROG/STPROCINS/CBBFS_HELPER_EQUATES.txt Normal file
View File

@ -0,0 +1,53 @@
compile insert CBBFS_HELPER_EQUATES
/*
** Supporting equates For cbbfs_helper function
** 02-23-15 rjc move defaults To cbbfs_Equates, Add Lockmode_field, list_index, add_index, remove_Index, list_lock_methods commands
** 09-21-17 rjc added raw read, write, delete methods
** 03-26-18 rjc added admin port
*/
* Supported fields
Equ CMD_PING$ To 0
Equ CMD_VOLUME_LIST$ To 1
Equ CMD_VOLUME_READ$ To 2
Equ CMD_VOLUME_ATTACH$ To 3
Equ CMD_VOLUME_DETACH$ To 4
Equ CMD_VOLUME_DELETE$ To 5
Equ CMD_VOLUME_SAVE$ To 6
Equ CMD_SERVER_TABLES$ To 7
Equ CMD_LIST_STORAGE_TYPES$ To 8
Equ CMD_LIST_LOCK_TYPES$ To 9
Equ CMD_ADMIN_CONNECTION$ To 10
Equ CMD_LIST_PLATFORMS$ To 11
Equ CMD_USERNAMES$ To 12
Equ CMD_WRITECRED$ To 13
Equ CMD_REMOVECRED$ To 14
EQU CMD_VOLUME_ADMIN$ To 15
EQU CMD_STATUS_CONNECTION$ To 16
Equ CMD_CHECK$ To 17
Equ CMD_PREFIX$ To 18
Equ CMD_WRITE_RAW$ To 19
Equ CMD_READ_RAW$ To 20
Equ CMD_DELETE_RAW$ To 21
Equ CMD_LIST_LOCKS$ To 22
Equ CMD_RELEASE_LOCKS$ To 23
* record layout
EQU BFS_FIELD$ TO 1
EQU BUCKET_FIELD$ TO 2
EQU PLATFORM_FIELD$ TO 3
EQU HOSTNAME_FIELD$ TO 4
EQU DESIGN_DOC_FIELD$ TO 5
EQU PORT_FIELD$ TO 6
EQU USER_FIELD$ TO 7
EQU PWD_FIELD$ TO 8
EQU TABLE_ATT_FIELD$ TO 9
EQU ATID_ATT_FIELD$ TO 10
Equ STORAGE_TYPE_FIELD$ To 11
Equ RECORD_ATT_FIELD$ To 12
Equ LOCKMODE_FIELD$ To 13
Equ APPLICATION_FIELD$ To 14
Equ UNLINKED_TABLES_FIELD$ To 15
Equ LINKED_TABLES_FIELD$ To 16
Equ ADMIN_PORT_FIELD$ To 17

59
SYSPROG/STPROCINS/CDOMAIL_ERRORS.txt Normal file
View File

@ -0,0 +1,59 @@
compile insert CDOMAIL_ERRORS
* Error codes used by RTI_CDOMAIL
/*
0x80020009 An exception has occurred.
0×80040201 Exception %1 was generated at address %2.
0×80040202 No data source has been opened for the object.
0×80040203 The object does not support this type of data source.
0×80040204 The object does not support the requested property name or namespace.
0×80040205 The object does not support the requested property.
0×80040206 The object is not active. It may have been deleted or it may not have been opened.
0×80040207 The object does not support storing persistent state information for objects.
0×80040208 The requested property or feature, while supported, is not available at this time or in this context.
0×80040209 No default drop directory has been configured for this server.
0x8004020A The SMTP server name is required, and was not found in the configuration source.
0x8004020B The NNTP server name is required, and was not found in the configuration source.
0x8004020C At least one recipient is required, but none were found.
0x8004020D At least one of the From or Sender fields is required, and neither was found.
0x8004020E The server rejected the sender address. The server response was: %1
0x8004020F The server rejected one or more recipient addresses. The server response was: %1
0×80040210 The message could not be posted to the NNTP server. The transport error code was %2. The server response was %1
0×80040211 The message could not be sent to the SMTP server. The transport error code was %2. The server response was %1
0×80040212 The transport lost its connection to the server.
0×80040213 The transport failed to connect to the server.
0×80040214 The Subject, From, and Newsgroup fields are all required, and one or more was not found.
0×80040215 The server rejected the logon attempt due to authentication failure. The server response was: %1
0×80040216 The content type was not valid in this context. For example, the root of an MHTML message must be an HTML document.
0×80040217 The transport was unable to log on to the server.
0×80040218 The requested resource could not be found. The server response was: %1.
0×80040219 Access to the requested resource is denied. The server response was: %1.
0x8004021A The HTTP request failed. The server response was: %1.
0x8004021B This is a multipart body part. It has no content other than the body parts contained within it.
0x8004021C Multipart body parts must be encoded as 7bit, 8bit, or binary.
0x8004021E The requested property was not found.
0×80040220 The "SendUsing" configuration value is invalid.
0×80040221 The "PostUsing" configuration value is invalid.
0×80040222 The pickup directory path is required and was not specified.
0×80040223 One or more messages could not be deleted.
0×80040227 The property is read-only.
0×80040228 The property cannot be deleted.
0×80040229 Data written to the object are inconsistent or invalid.
0x8004022A The requested property is not in the mail header namespace.
0x8004022B The requested character set is not installed on the computer.
0x8004022C The ADO stream has not been opened.
0x8004022D The content properties are missing.
0x8004022E Content properties XML must be encoded using UTF-8.
0x8004022F Failed to parse content properties XML.
0×80040230 Failed to convert a property from XML to a requested type.
0×80040231 No directories were specified for resolution.
0×80040232 Failed to resolve against one or more of the specified directories.
0×80040233 Could not find the Sender’s mailbox.
0×80040234 Binding to self is not allowed.
0×80044000 The first argument is invalid.
0×80044001 The second argument is invalid.
0×80044002 The third argument is invalid.
0×80044003 The fourth argument is invalid.
0×80044004 The fifth argument is invalid.
0x800CCE05 The requested body part was not found in this message.
0x800CCE1D The content encoding type is invalid.
*/

84
SYSPROG/STPROCINS/COLORS.txt Normal file
View File

@ -0,0 +1,84 @@
compile insert colors
/*
** Copyright (C) 1992-2016 Revelation Software Inc. All Rights Reserved **
Author : GG??
Date : Way back when dinosaurs ruled the earth
Purpose : Basic and SysColor contants for use with the PS
Comments
========
Amended Date Reason
======= ==== ======
Mr C 10 Oct 14 Corrected USEPARENT$ and BLACK$
Mr C 30 Jul 14 Updated for v10
MTR 18 Sep 17 Touched for Update
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _COLORS_
#define _COLORS_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
* PS colors
equ CLR_TRANSPARENT$ to -1
equ CLR_USEDEFAULT$ to -2
* // Beware of the "USEPARENT$" from v10 onwards - We no longer have the
* // concept of "ask the parent" for the color - instead we use the default
* // selected by the VSM.
* //
* // We want "0" to mean Black.
* RGB colors
*EQU USEPARENT$ TO 0 ;* \000000\ <- Deprecated in v10
*EQU BLACK$ TO 1 ;* \000001\
EQU USEPARENT$ TO CLR_USEDEFAULT$
EQU BLACK$ TO 0 ;* \000000\
EQU RED$ TO 255 ;* \0000FF\
EQU ORANGE$ TO 33023 ;* \0080FF\
EQU GREEN$ TO 65280 ;* \00FF00\
EQU YELLOW$ TO 65535 ;* \00FFFF\
EQU GREY$ TO 12632256 ;* \C0C0C0\
EQU BLUE$ TO 16711680 ;* \FF0000\
EQU PURPLE$ TO 16711808 ;* \FF0080\
EQU MAGENTA$ TO 16711935 ;* \FF00FF\
EQU CYAN$ TO 16776960 ;* \FFFF00\
EQU WHITE$ TO 16777215 ;* \FFFFFF\
* system colors (see windows.h)
EQU COLOR_SCROLLBAR$ TO 2147483648 ;* \80000000\
EQU COLOR_BACKGROUND$ TO 2164260864 ;* \81000000\
EQU COLOR_ACTIVECAPTION$ TO 2181038080 ;* \82000000\
EQU COLOR_INACTIVECAPTION$ TO 2197815296 ;* \83000000\
EQU COLOR_MENU$ TO 2214592512 ;* \84000000\
EQU COLOR_WINDOW$ TO 2231369728 ;* \85000000\
EQU COLOR_WINDOWFRAME$ TO 2248146944 ;* \86000000\
EQU COLOR_MENUTEXT$ TO 2264924160 ;* \87000000\
EQU COLOR_WINDOWTEXT$ TO 2281701376 ;* \88000000\
EQU COLOR_CAPTIONTEXT$ TO 2298478592 ;* \89000000\
EQU COLOR_ACTIVEBORDER$ TO 2315255808 ;* \8A000000\
EQU COLOR_INACTIVEBORDER$ TO 2332033024 ;* \8B000000\
EQU COLOR_APPWORKSPACE$ TO 2348810240 ;* \8C000000\
EQU COLOR_HIGHLIGHT$ TO 2365587456 ;* \8D000000\
EQU COLOR_HIGHLIGHTTEXT$ TO 2382364672 ;* \8E000000\
EQU COLOR_BTNFACE$ TO 2399141888 ;* \8F000000\
EQU COLOR_BTNSHADOW$ TO 2415919104 ;* \90000000\
EQU COLOR_GRAYTEXT$ TO 2432696320 ;* \91000000\
EQU COLOR_BTNTEXT$ TO 2449473536 ;* \92000000\
EQU COLOR_INACTIVECAPTIONTEXT$ TO 2466250752 ;* \93000000\
EQU COLOR_BTNHIGHLIGHT$ TO 2483027968 ;* \94000000\
EQU SYSCOLORMASK$ TO 0xFF000000
EQU SYSCOLORBASE$ TO 0x80000000
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

10
SYSPROG/STPROCINS/COLOR_EQUATES.txt Normal file
View File

@ -0,0 +1,10 @@
Compile Insert Color_Equates
/*
** Copyright (C) 2015 Revelation Software Inc. All Rights Reserved **
Amended Date Reason
======= ==== ======
rjc 15 Apr 15 Colors is a superset of Color Equates
*/
$Insert Colors

49
SYSPROG/STPROCINS/COMPDOC_EQUATES.txt Normal file
View File

@ -0,0 +1,49 @@
Compile Insert CompDoc_Equates
*****************************************************************************
*
* Product : OI/WG
* Poject : OI/CS
* Release : 2.7
*
* Name : CompDoc() Equates
* Description: Instructions and return values for the CompDoc() function
*
* History (Date, Initials, Notes)
* 06/27/95 cp Original programmer
*
*****************************************************************************
declare function CompDoc ;* Flag = CompDoc(Instruction, Doc, Name, SubDoc)
* Instruction values:
equ CD_LISTDOCS$ to 1
* Doc [in] - the compound document
* Name [out] - an @vm delimited list of sub-document names
equ CD_PUTDOC$ to 2
* Doc [i/o] - the compound document
* Name [in] - the name of the sub-document to put
* SubDoc [in] - the body of the sub-document to put
* Error returned if the compound document would exceed 64k limit
equ CD_GETDOC$ to 3
* Doc [in] - the compound document
* Name [in] - the name of the sub-document to extract
* SubDoc [out] - the extracted sub-document
* Error returned if the sub-document is not found
equ CD_DELDOC$ to 4
* Doc [i/o] - the compound document
* Name [in] - the name of the sub-document to delete
* Error returned if the sub-document is not found
* Flag values
equ CD_ERROR$ to 0
equ CD_SUCCESS$ to 1
* Compound Document header
equ CD_STAMP$ to "%CD%"

37
SYSPROG/STPROCINS/COMPSTAT_EQUATES.txt Normal file
View File

@ -0,0 +1,37 @@
compile insert COMPSTAT_EQUATES
/*
Copyright (c) 1992-2012 Revelation Software. All rights reserved.
* This program is proprietary and is not to be used by or disclosed
* to others, nor is it to be copied without written permission from
* Revelation Technologies, Inc.
Author Mr C
Date October 2012
Purpose Compiler status constants
Comments
========
Amended Date Reason
======= ==== ======
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _COMPSTAT_EQUATES_
#define _COMPSTAT_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ COMPSTAT_ERR$ to 0 ; * // error occured in compilation - return codes as appropriate
equ COMPSTAT_NOCOMP$ to 1 ; * // No compilation was required - return last update time of source
equ COMPSTAT_COMP$ to 2 ; * // Compilation performed successfully - return last update time of source
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

19
SYSPROG/STPROCINS/CONCURRENCY_EQUATES.txt Normal file
View File

@ -0,0 +1,19 @@
Compile Insert Concurrency_Equates
*SC_CONCURRENCY variable offsets and domains
EQU CONC_SET$ TO 1
EQU SET_ALL$ TO 1
EQU SET_MODIFIED$ TO 2
EQU CONC_WHERE$ TO 2
EQU WHERE_ID_ONLY$ TO 1
EQU WHERE_MODIFIED$ TO 2
EQU WHERE_ALL$ TO 3
EQU CONC_UPDATE$ TO 3
EQU UPDATE_NO_TRANSACT$ TO 1
EQU UPDATE_FULL_TRANSACT$ TO 2
EQU UPDATE_EXPLICIT_LOCK$ TO 3
* Source Date: 15:31:40 20 JAN 1994 Build ID: OI*2.01.26 Level: 2.01

9
SYSPROG/STPROCINS/CONFIG_EQUATES.txt Normal file
View File

@ -0,0 +1,9 @@
compile insert CONFIG_EQUATES
/*----------------------------------------
Author : Table Create Insert Routine
Written : 28/03/2005
Description : Insert for Table CONFIG
----------------------------------------*/
Equ CONFIG_KEY_FIELD$ To 0
Equ CONFIG_BASE_IP$ To 1

45
SYSPROG/STPROCINS/CONTEXTMENU_EQUATES.txt Normal file
View File

@ -0,0 +1,45 @@
Compile Insert ContextMenu_Equates
* Multi-valued fields
Equ CM_ITEMTEXT$ To 1
Equ CM_ITEMNAME$ To 2
Equ CM_HELPTEXT$ To 3
Equ CM_STYLE$ To 4; * Unused
Equ CM_MSGTYPE$ To 5
Equ CM_RECEIPIENT$ To 6
Equ CM_MESSAGE$ To 7
Equ CM_PARAMETERS$ To 8
Equ CM_DISABLED$ To 9
Equ CM_CHECKED$ To 10
Equ CM_HIDDEN$ To 11
* Added for SRP Context Menus
Equ CM_STYLE_FUNCTION$ To 12
Equ CM_STYLE_FUNC_PARAMS$ To 13
Equ CM_DISABLED_FUNCTION$ To 12
Equ CM_DISABLED_PARAMS$ To 13
Equ CM_HIDDEN_FUNCTION$ To 14
Equ CM_HIDDEN_PARAMS$ To 15
Equ CM_CHECKED_FUNCTION$ To 16
Equ CM_CHECKED_PARAMS$ To 17
Equ CM_VARIABLE_FUNCTION$ To 18
Equ CM_VARIABLE_PARAMS$ To 19
* Single-value fields
*Equ CM_INCLUDE_OI_MENU$ To 14
*Equ CM_INCLUDE_WIN_MENU$ To 15
Equ CM_INCLUDE_OI_MENU$ To 20
Equ CM_INCLUDE_WIN_MENU$ To 21
*Equ CM_NUM_MVFIELDS$ To 13
*Equ CM_NUMFIELDS$ To 15
Equ CM_NUM_MVFIELDS$ To 19
Equ CM_NUMFIELDS$ To 21
* For Record 2 of Context Menu
*Equ CM_INCLUDE_OI_MENU$ To 1
*Equ CM_INCLUDE_WIN_MENU$ To 2

5
SYSPROG/STPROCINS/COPYRIGHT.txt Normal file
View File

@ -0,0 +1,5 @@
COMPILE Insert CopyRight
* J.C. Henry, Inc. Copyright Notice
CopyRight = 'Copyright 1996, 1997, 1998, 1999, 2000, 2001,2002, 2003 - J.C. Henry, Inc - All Rights Reserved'

2
SYSPROG/STPROCINS/CTODICT_COMMON.txt Normal file
View File

@ -0,0 +1,2 @@
compile insert CTODICT_COMMON
COMMON /CTODICT_MFS_COMMON/ PreserveID%, overridePreserveID%

3
SYSPROG/STPROCINS/CTOOPTIONSTATUS.txt Normal file
View File

@ -0,0 +1,3 @@
COMPILE INSERT CTOOPTIONSTATUS
COMMON /CTOOPTIONSTATUS/ OPTIONS_CHANGED%

270
SYSPROG/STPROCINS/CTRL_PROPERTY_EQUATES.txt Normal file
View File

@ -0,0 +1,270 @@
compile insert Ctrl_Property_Equates
/*
** Copyright (C) 1992-2016 Revelation Software Inc. All Rights Reserved **
*******************************************************************
@@@@@@ @@@@@@@ @@@@@@ @@@@@@ @ @ @
@ @ @ @ @ @ @ @ @
@ @ @ @ @ @ @ @ @
@@@@@@ @ @ @ @@@@@@ @ @ @
@ @ @ @ @ @ @ @
@ @ @ @ @
@@@@@@ @ @@@@@@ @ @ @ @
This insert is for backwards compatibility only. From v10 onwards
it will NOT be updated - type information for a control should use
the PS_TYPEINFO stored procedure instead.
******************************************************************
Amended Date Reason
======= ==== ======
Mr C 29th Mar 16 Added STOP notice
Mr C 10th Jan 06 Added ATRECORD
Mr C 3rd Jan 06 Added RTFTEXT, RichEditBox DEFPROP
Mr C 7th Oct 05 Added SCREENSIZE, HEADERHEIGHT, AUTOINDENT, ANCHORRIGHT, ANCHORBOTTOM
AUTOSCROLL, AUTOSIZEHEIGHT, AUTOSIZEWIDTH, IMAGE, IMAGE_INFO
IMAGETRANSPARENT, RESIZECOL, SEND_MESSAGE
Mr C 7th Sep 05 Added ROWLIMIT
Added ROWSHADE, ODDROWCOLOR, EVENROWCOLOR
Added DTCOLOR
Added DEVMODE, SERVERNAME
*/
* OpenInsight Window / Control Properties
equ ACCELERATOR$ to "ACCELERATOR" ;* for menu items
equ ACCESSDATA$ to "ACCESSDATA"
equ ACCESSPOS$ to "ACCESSPOS"
equ ANCHORBOTTOM$ to "ANCHORBOTTOM"
equ ANCHORRIGHT$ to "ANCHORRIGHT"
equ ARRAY$ to "ARRAY"
equ ATRECORD$ to "ATRECORD"
equ AUTOINDENT$ to "AUTOINDENT"
equ AUTOSCROLL$ to "AUTOSCROLL"
equ AUTOSIZEHEIGHT$ to "AUTOSIZEHEIGHT"
equ AUTOSIZEWIDTH$ to "AUTOSIZEWIDTH"
equ AUTOSIZECOL$ to "AUTOSIZECOL"
equ BACKCOLOR$ to "BACKCOLOR"
equ BITMAP$ to "BITMAP"
equ BLOCK_EVENTS$ to "BLOCK_EVENTS" ;* for "SYSTEM" object
equ CANCEL$ to "CANCEL"
equ CANUNDO$ to "CANUNDO"
equ CARETPOS$ to "CARETPOS"
equ CELLPOS$ to "CELLPOS" ;* for accessing cell of edittable.
equ CHECK$ to "CHECK"
equ CLICKPOS$ to "CLICKPOS"
equ CLIENTSIZE$ to "CLIENTSIZE"
equ COLDATA$ to "COLDATA"
equ COLUMN$ to "COLUMN"
equ CONV$ to "CONV"
equ COUNTER$ to "COUNTER" ;* for "SYSTEM" object
equ CTRLMAP$ to "CTRLMAP" ;* Master list of all controls in the current window
equ DATASOURCETYPE$ to "DATASOURCETYPE"
equ DDECOMMAND$ to "DDECOMMAND"
equ DDEDATA$ to "DDEDATA"
equ DDEERROR$ to "DDEERROR"
equ DDEITEM$ to "DDEITEM"
equ DDELINK$ to "DDELINK"
equ DDEMODE$ to "DDEMODE"
equ DDESERVICE$ to "DDESERVICE"
equ DDETOPIC$ to "DDETOPIC"
equ DEFAULT$ to "DEFAULT"
equ DEFPROP$ to "DEFPROP" ;* Default Property for database sensitive controls
equ DESTROY_FLAG$ to "DESTROY_FLAG"
equ DEVMODE$ to "DEVMODE"
equ DRAWTEXT$ to "DRAWTEXT"
equ DROPDOWN$ to "DROPDOWN"
equ DSOHANDLE$ to "DSOHANDLE"
equ DTHANDLE$ to "DTHANDLE"
equ DUMMYCAPTION$ to "DUMMYCAPTION"
equ ECHO$ to "ECHO"
equ ENABLED$ to "ENABLED"
equ EVENROWCOLOR$ to "EVENROWCOLOR"
equ EVENTQUALIFIER$ to "EVENTQUALIFIER"
equ EXITCODE$ to "EXITCODE"
equ FOCUS$ to "FOCUS"
equ FONT$ to "FONT"
equ FORECOLOR$ to "FORECOLOR"
equ GOTFOCUS_VALUE$ to "GOTFOCUS_VALUE"
equ HANDLE$ to "HANDLE"
equ HEADERHEIGHT$ to "HEADERHEIGHT"
equ HELPTEXT$ to "HELPTEXT"
equ HOLD_EVENTS$ to "HOLD_EVENTS" ;* for "SYSTEM" object
equ HPOSITION$ to "HPOSITION"
equ ICON$ to "ICON"
equ ID$ to "ID" ;* accessing @ID
equ IDLEPROC$ to "IDLEPROC" ;* for "SYSTEM" object
equ IMAGE$ to "IMAGE"
equ IMAGECLIP$ to "IMAGECLIP"
equ IMAGECOUNT$ to "IMAGECOUNT"
equ IMAGEINFO$ to "IMAGEINFO"
equ IMAGENUMBER$ to "IMAGENUMBER"
equ IMAGEOFFSET$ to "IMAGEOFFSET"
equ IMAGEORIGIN$ to "IMAGEORIGIN"
equ IMAGETRANSPARENT$ to "IMAGETRANSPARENT"
equ INVALUE$ to "INVALUE" ;* accessing internal value...
equ IOOPTIONS$ to "IOOPTIONS" ;* IO options to access LOCK MODE...
equ ITEMSTYLE$ to "ITEMSTYLE"
equ LABEL$ to "LABEL"
equ LIMIT$ to "LIMIT"
equ LIST$ to "LIST"
equ LIST_EX$ to "LIST_EX" ;* for hierarchical listboxes
equ LOCKMODE$ to "LOCKMODE" ;* accessing lock mode for a form
equ MDIACTIVE$ to "MDIACTIVE"
equ MDIFRAME$ to "MDIFRAME"
equ MISC$ to "MISC"
equ MODAL$ to "MODAL" ;* for "SYSTEM" object
equ MODIFIED$ to "MODIFIED"
equ MV$ to "MV"
equ NEXT$ to "NEXT"
equ NOTIFYPOS$ to "NOTIFYPOS"
equ ODDROWCOLOR$ to "ODDROWCOLOR"
equ ORIG_BKCOLOR$ to "ORIG_BACKCOLOR"
equ ORIG_ENABLED$ to "ORIG_ENABLED"
equ ORIG_FORECOLOR$ to "ORIG_FORECOLOR"
equ ORIG_HIGH$ to "ORIG_HIGH"
equ ORIG_LABEL$ to "ORIG_LABEL"
equ ORIG_LIST$ to "ORIG_LIST"
equ ORIG_LOGFONT$ to "ORIG_FONT"
equ ORIG_ROWVALUE$ to "ORIG_ROWVALUE"
equ ORIG_SIZE$ to "ORIG_SIZE"
equ ORIG_STRUCT$ to "ORIG_STRUCT"
equ ORIG_TEXT$ to "ORIG_TEXT"
equ ORIG_VALUE$ to "ORIG_VALUE"
equ ORIG_VISIBLE$ to "ORIG_VISIBLE"
equ ORIG_WIDE$ to "ORIG_WIDE"
equ ORIG_X$ to "ORIG_X"
equ ORIG_Y$ to "ORIG_Y"
equ PAGELIST$ to "PAGELIST"
equ PARENT$ to "PARENT"
equ PART$ to "PART" ;* if pos = 0, part = key part #
equ POPUP$ to "POPUP"
equ POPUP_LIMIT$ to "POPUP_LIMIT"
equ POS$ to "POS" ;* field position of the associated column in the table
equ POSITION$ to "POSITION"
equ PREVIOUS$ to "PREVIOUS"
equ PREVSELPOS$ to "PREVSELPOS"
equ QBFLIST$ to "QBFLIST" ;* QBF browse id list
equ QBFPOS$ to "QBFPOS" ;* QBF position within QBF list
equ QBFSTATUS$ to "QBFSTATUS" ;* QBF status (see QBFSTAT_ equates)
equ QUERYEND$ to "QUERYEND"
equ RECEIVER$ to "RECEIVER"
equ RECORD$ to "RECORD" ;* accessing @RECORD
equ REDRAW$ to "REDRAW"
equ REPOS_TYPE$ to "REPOS_TYPE"
equ REQUIRED$ to "REQUIRED"
equ RESIZECOL$ to "RESIZECOL"
equ ROWDATA$ to "ROWDATA"
equ ROWLIMIT$ to "ROWLIMIT"
equ ROWSHADE$ to "ROWSHADE"
equ RTFTEXT$ to "RTFTEXT"
equ SAVEWARN$ to "SAVEWARN" ;* accessing ControlSemantic@< 1, CS_GOTFOCUS_VALUE$>
equ SCREENSIZE$ to "SCREENSIZE"
equ SELECTION$ to "SELECTION"
equ SELPOS$ to "SELPOS"
equ SELPOS_EX$ to "SELPOS_EX" ;* for hierarchical listboxes
equ SEND_MESSAGE$ to "SEND_MESSAGE"
equ SERVERNAME$ to "SERVERNAME"
equ SIZE$ to "SIZE"
equ SORTEDCOL$ to "SORTEDCOL"
equ STATUSLINE$ to "STATUSLINE"
equ STYLE$ to "STYLE"
equ STYLE_EX$ to "STYLE_EX"
equ TABLE$ to "TABLE"
equ TABOUTEXCEED$ to "TABOUTEXCEED"
equ TABSTOPS$ to "TABSTOPS"
equ TEXT$ to "TEXT"
equ TEXTVAL$ to "TEXTVAL" ;* TEXT with conversion
equ THEMED$ to "THEMED"
equ TIMER$ to "TIMER"
equ TOPPOS$ to "TOPPOS"
equ TYPE$ to "TYPE"
equ VALID$ to "VALID"
equ VALUE$ to "VALUE"
equ VALUES$ to "VALUES"
equ VERSION$ to "VERSION" ;* for "SYSTEM" object
equ VISIBLE$ to "VISIBLE"
equ VPOSITION$ to "VPOSITION"
equ XPOS$ to "XPOS" ;* for accessing a column of an edittable
equ YPOS$ to "YPOS" ;* for accessing a row of an edittable
* QBFSTATUS equates
equ QBFSTAT_OFF$ to 0 ;* QBF inactive
equ QBFSTAT_INIT$ to 1 ;* QBF initialization (null browse list)
equ QBFSTAT_ACTIVE$ to 2 ;* active browse list
* LOTUSNOTES specific properties
* ... per database
equ NOTEPREFORMULA$ to "NOTEPREFORMULA"
equ NOTEPOSTFORMULA$ to "NOTEPOSTFORMULA"
equ NOTELIST$ to "NOTELIST"
equ NOTEPOS$ to "NOTEPOS"
equ NOTEDBLIST$ to "NOTEDBLIST"
* ... per control
equ NOTEDB$ to "NOTEDB"
equ NOTEFIELD$ to "NOTEFIELD"
* GET_CONTROL_TYPES equates
equ SYSCOM_CTRL_TYPE_LIST$ to 1 ;* first field of syscommon
equ SYSCOM_CTRL_DEFPROP$ to 2
equ SYSCOM_CTRL_TYPE_DEF$ to 3 ;* ind. this is base or non-base control
equ BASE_CTRL_TYPE$ to 0
equ NON_BASE_CTRL_TYPE$ to 1
equ CTRL_TYPE_SYSTEM$ to 0 ;* query base ctrl types
equ CTRL_TYPE_NON_SYSTEM$ to 1 ;* query non-system ctrl types ( e.g. add-on ctrls..)
equ CTRL_TYPE_ALL_TYPES$ to 2 ;* query all the ctrls
* GET_CONTROL_METAINFO equates
equ METAINFO_PROP_SUPPORTED$ to 0 ;* return properties supported
equ METAINFO_DEFPROP$ to 1 ;* return default properties
equ METAINFO_EVENT_SUPPORTED$ to 2 ;* events supported the the control
equ METAINFO_SET_DISCRETE$ to 0 ;* return info discrete
equ METAINFO_SET_JOIN$ to 1 ;* return intersection of sets
equ METAINFO_SET_UNION$ to 2 ;* return union of sets
* DEFPROP property for each control...
equ WINDOW_DEFPROP$ to TEXT$
equ EDITBOX_DEFPROP$ to TEXTVAL$
equ EDITFIELD_DEFPROP$ to TEXT$
equ EDITTABLE_DEFPROP$ to "" ;* defprop is based on aux position (see help)
equ CHECKBOX_DEFPROP$ to CHECK$
equ COMBOBOX_DEFPROP$ to TEXT$
equ LISTBOX_DEFPROP$ to TEXT$
equ PUSHBUTTON_DEFPROP$ to TEXT$
equ RADIOBUTTON_DEFPROP$ to VALUE$
equ RADIOGROUP_DEFPROP$ to VALUE$
equ HSCROLLBAR_DEFPROP$ to HPOSITION$
equ VSCROLLBAR_DEFPROP$ to VPOSITION$
equ ICON_DEFPROP$ to TEXT$
equ MENU_DEFPROP$ to CHECK$
equ BITMAP_DEFPROP$ to BITMAP$
equ GROUPBOX_DEFPROP$ to TEXT$
equ STATIC_DEFPROP$ to TEXT$
equ PUSHBMP_DEFPROP$ to BITMAP$
equ RADIOBMP_DEFPROP$ to CHECK$
equ CHECKBMP_DEFPROP$ to CHECK$
equ RTFBOX_DEFPROP$ to TEXT$
* mtr 9-20-04
equ HSPLITBAR_DEFPROP$ TO HPOSITION$
equ VSPLITBAR_DEFPROP$ to VPOSITION$
Equ TABCONTROL_DEFPROP$ TO VALUE$
equ RICHEDITBOX_DEFPROP$ to RTFTEXT$ ; // Mr C - 3rd Jan 06

10
SYSPROG/STPROCINS/CURSIO_CONSTANTS.txt Normal file
View File

@ -0,0 +1,10 @@
Compile Insert CURSIO_CONSTANTS
*** CURSOR I/O PROCESS CODES ***
* 09-01-2015 rjc OI10. Moved from Arev BP
EQUATE CIO_READ$ TO 1
EQUATE CIO_READO$ TO 2
EQUATE CIO_WRITE$ TO 3
EQUATE CIO_DELETE$ TO 4
EQUATE CIO_LOCK$ TO 5
EQUATE CIO_UNLOCK$ TO 6
* Source Date: 22:02:38 31 MAR 1989 Build ID: AREV*1.13.8 Level: 2.0

95
SYSPROG/STPROCINS/DATASET_EQUATES.txt Normal file
View File

@ -0,0 +1,95 @@
compile insert DataSet_Equates
*****************************************************************************
*
* This program is proprietary and is not to be used by or disclosed
* to others, nor is it to be copied without written permission from
* Revelation Technologies, Inc.
*
* Product : OI/WG
* Poject : OI/CS
* Release : 3.1
*
* Name : DataSet_Equates
* Description: Equates for the DataSet structure, DS_Child function and form
*
* History (Date, Initials, Notes)
* 02/15/96 cp Original programmer.
* 06/12/97 cp Updating to support new WorkSpace
*
*****************************************************************************
* datasource type specific dataset structure
equ DSPOS_COLNAMES$ to 6 ;* Name of columns
equ DSPOS_DATATYPES$ to 7 ;* Type, Scale, and precision
equ DSPOS_NULLS$ to 8 ;* Is column nullable
equ DSPOS_KEYS$ to 9 ;* Is column a key column
equ DSPOS_DESC$ to 10 ;* Description of each column
equ DSPOS_VALIDATION$ to 11 ;* Validation for columns
equ DSPOS_CONV$ to 12 ;* Conversion for columns
equ DSPOS_DISPLAY$ to 13 ;* Heading fo columns
equ DSPOS_SCRIPTS$ to 16
equ DSPOS_ARGNAMES$ to 17
equ DSPOS_ARGDFLTS$ to 18
equ DS_COLDEFCNT$ to 8
equ DS_SCRIPTCNT$ to 4
equ DS_ARGCNT$ to 2
equ DS_VERSION$ to 30
equ DS_NOSOURCE$ to "<NONE>"
equ DS_BASESRCTYPE$ to "BASE"
* other
equ DEF_ARGVAL$ to "%DEFAULT%" ;* used to distinguish between "" and default
equ MAX_SRC_TYPES$ to 5 ;* this is a big enough number for now
* type list
equ DATASET_TYPE_LIST$ to "BIT,UINT1,SINT1,UINT2,SINT2,UINT4,SINT4,DECIMAL,FLOAT,DOUBLE,CHAR,VARCHAR,LONGVARCHAR,BINARY,VARBINARY,LONGVARBINARY,DATE,TIME,DATETIME"
* precision limits
equ MIN_PRECISION$ to "0,0,0,0,0,0,0,1,0,0,1,1,1,1,1,1,0,5,16"
equ MAX_PRECISION$ to "0,0,0,0,0,0,0,128,0,0,254,254,4294967294,255,255,4294967295,0,13,24"
* scale limits
equ MIN_SCALE$ to "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
equ MAX_SCALE$ to "0,0,0,0,0,0,0,128,0,0,0,0,0,0,0,0,0,4,4"
* instruction parameter for DS_Child()
equ DSEVENT_CREATE$ to 1
equ DSEVENT_CLOSE$ to 2
equ DSEVENT_ACTIVATE$ to 3
equ DSEVENT_DEACTIVATE$ to 4
equ DSEVENT_PAGE$ to 5
equ DSEVENT_READ$ to 6
equ DSEVENT_WRITE$ to 7
equ DSEVENT_GETRECORD$ to 8
equ DSEVENT_SETRECORD$ to 9
equ DSEVENT_RESETRECORD$ to 10
equ DSEVENT_SETKEY$ to 11
equ DSEVENT_UNLOCKKEY$ to 12
equ DSEVENT_LOCKWINDOW$ to 13
equ DSEVENT_UNLOCKWINDOW$ to 14
equ DSEVENT_TESTRUN$ to 15
equ DSEVENT_HELP$ to 16
equ DSEVENT_ABOUT$ to 17
equ DSEVENT_SOURCECHANGED$ to 18
equ DSEVENT_SCRIPTCHANGED$ to 19
equ DSEVENT_TYPECHANGED$ to 20
equ DSEVENT_REPOSMODIFIED$ to 21
equ DSEVENT_UPDATEREPOS$ to 22
equ DSEVENT_SCRIPTLOSTFOCUS$ to 23
equ DSEVENT_USETABLE$ to 24
equ DSEVENT_DEFINECOLUMNS$ to 25
equ DSEVENT_DEFINESCRIPTS$ to 26
equ DSEVENT_COLSGOTFOCUS$ to 27
equ DSEVENT_COLSLOSTFOCUS$ to 28
equ DSEVENT_COLSOPTIONS$ to 29
equ DSEVENT_GETKEY$ to 30
equ DSEVENT_OMNIEVENT$ to 31
equ DSEVENT_DEFINESCRIPTSOK$ to 32

68
SYSPROG/STPROCINS/DB_MGMT_EQUATES.txt Normal file
View File

@ -0,0 +1,68 @@
Compile Insert DB_Mgmt_Equates
/*--------------------------------------------------------------------------
* EQUATES USED BY DATABASE MANAGEMENT SSPs
MM-DD-YY initials Modification
09-25-91 Pat first created
06-03-93 Pat fix lh_verify group file name...
04-28-09 BZS Updated
03-25-16 rjc Updated rtp49 attach modes
*---------------------------------------------------------------------------*/
/*
RTP49 Modes
BITAND(MODE,1) = 0 -> VOLUME MUST ALREADY EXIST
1 -> AUTO-GENERATE MEDIA MAP IF POSSIBLE
BITAND(MODE,2) = 0 -> AUTO-ATTACH THE VOLUME IF NOT ALREADY ATTACHED
1 -> DO NOT AUTO-ATTACH VOLUME
*/
EQU ATTACH_EXIST_VOL$ TO 0
equ auto_gen_auto_attach$ TO 1 ; * 03-25-16 rjc
equ auto_gen_not_auto_attach$ TO 3
equ NO_ATTACH_ALREADY_EXIST$ to 2
EQU GLOBAL_dbid$ TO "GLOBAL"
equ global$ TO "GLOBAL"
equ SYSPROG$ TO "SYSPROG"
equ account$ TO "ACCOUNT"
EQU REVMEDIA_TABLE$ TO "REVMEDIA"
EQU REVBOOT_VOL$ TO "REVBOOT"
equ volume_script$ to "VOLUME"
EQU DICT_PREFIX$ TO "DICT."
EQU DATA_PREFIX$ TO "DATA."
EQU SI_INDEX_PREFIX$ TO "!"
equ SI_MFS$ TO "SI.MFS"
EQU DICT_MFS$ TO "DICT.MFS"
EQU PROTECT_MFS$ TO "PROTECT.MFS"
EQU ENV_PREFIX$ TO "ENV_"
equ LH_BFS$ TO "RTP57"
EQU SYS_LHV_TAB$ to "SYSLHVERIFY"
EQU SYS_LHV_GRP$ to "SYSLHGROUP"
EQU USER_SEPARATOR$ TO "@"
EQU VOLUME_REC_FS$ TO 2
EQU SYS_USER_TOKEN$ TO "SYS"
** the following are used for FIX_LH
equ COMPRESS_FILE$ TO 1
equ FIX_TABLE$ TO 2
equ UPDATE_SIZELOCK$ TO 3
equ UPDATE_THRESHOLD$ TO 4
equ SET_SIZELOCK$ TO 5
Equ SET_SIZELOCK_UD$ To 6 ;* BZS 021517
equ OV_SUFFIX$ TO 'OV'
equ LK_SUFFIX$ TO 'LK'
equ FIXTEMP_LK$ TO 'FIXTEMP.LK'
equ FIXTEMP_OV$ TO 'FIXTEMP.OV'
equ DUMP_FIX_TEMP_FILE$ TO 'DUMP_FIX_TEMP'
equ DUMP_FIX_GARBAGE$ TO 'DUMP_FIX_GARBAGE'
equ DUMP_FIX_SEMAPHORE$ TO 'FIXING'
equ GROUP_NUMBER$ TO 'GROUP_NUMBER'
equ GROUP$ TO 'GROUP'
Equ DUMP_FIX_SAVE_FILE$ To 'DUMP_FIX_SAVE' ;* BZS 040309
Equ MAXIMUM_KEY_LENGTH$ To 552 ;* BZS 042809

174
SYSPROG/STPROCINS/DEBUGGER_FETCH_EQUATES.txt Normal file
View File

@ -0,0 +1,174 @@
compile insert debugger_fetch_equates
/*
Author : Meester C
Date : 15 October 2008
Purpose : Constants for use with the Debugger_Fetch()
stored procedure
Comments
========
Amended Date Reason
======= ==== ======
Mr C 24 Jun 21 Updated for v10
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _DEBUGGER_FETCH_EQUATES_
#define _DEBUGGER_FETCH_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ COMMON_SIZEOF$ to 256 ; * // Size of a blank common
* // block - 256 descriptors
* //
* // defined in rev_call.c
// Descriptor types
// typedef enum {
// E_LINK = 0, // indirect pointer, code assumes this is zero
// E_UNASSIGNED = 1,
// E_STRING = 2,
// E_DIM_ARRAY = 3, // array dope
// E_IDISPATCH = 4, // OLE automation object
// E_PTR = 5, // Generic pointer/handle
// E_NUMBER = 6, // >= E_NUMBER is a number
// E_MAPM = 6, // pointer to extend precision type
// E_NUMBER_64 = 7, // >= E_NUMBER_64 is a 64-bit int or double
// E_LONG = 7, // 64 bit int
// E_DOUBLE = 8 // 64 bit real
// } E_TYPE;
equ VAR_TYPE_LINK to 0
equ VAR_TYPE_UNASSIGNED$ to 1
equ VAR_TYPE_STRING$ to 2
equ VAR_TYPE_DIM_ARRAY$ to 3
equ VAR_TYPE_IDISPATCH$ to 4 ; * // OLE object
equ VAR_TYPE_PTR$ to 5 ; * // Pointer type
equ VAR_TYPE_MAPM$ to 6 ; * // MAPM (extended precision) type.
equ VAR_TYPE_LONG$ to 7 ; * // 64 bit int
equ VAR_TYPE_DOUBLE$ to 8 ; * // 64 bit real
equ VAR_TYPE_NUMBER$ to 6 ; // >= this is a number
equ VAR_TYPE_NUM64$ to 7 ; // >= this is a 64-bit number (int or double)
equ VAR_TYPE_DESC_LINK$ to "<link>"
equ VAR_TYPE_DESC_UNASSIGNED$ to "<unassigned>"
equ VAR_TYPE_DESC_STRING$ to "<string>"
equ VAR_TYPE_DESC_DIM_ARRAY$ to "<array>"
equ VAR_TYPE_DESC_IDISPATCH$ to "<idispatch>"
equ VAR_TYPE_DESC_LONG$ to "<integer>"
equ VAR_TYPE_DESC_DOUBLE$ to "<double>"
equ VAR_TYPE_DESC$ to VAR_TYPE_DESC_LINK$ : "," : |
VAR_TYPE_DESC_UNASSIGNED$ : "," : |
VAR_TYPE_DESC_STRING$ : "," : |
VAR_TYPE_DESC_DIM_ARRAY$ : "," : |
VAR_TYPE_DESC_IDISPATCH$ : "," : |
VAR_TYPE_DESC_LONG$ : "," : |
VAR_TYPE_DESC_DOUBLE$
///////////////////////////////////////////////////////////////////////////////
* // GetBreakFrame() equates - goes without saying if you change these
* // you're going to have to change the function itself in rev_call.c
* //
* // <1> Number of local variables in the break frame
* // <2> Number of labelled common areas in the break frame
* // <3> Number of variables in each labelled common area - there should
* // be one value here for each labelled common area
* // <4> "0" if no blank common area is associated with the break frame,
* // or "256" if there is a common area associated with the break
* // frame
declare function getBreakFrame
equ DBGF_BREAKFRAME_POS_LOCAL$ to 1
equ DBGF_BREAKFRAME_POS_LCOMM$ to 2
equ DBGF_BREAKFRAME_POS_LCOMM_VAR$ to 3
equ DBGF_BREAKFRAME_POS_BCOMM$ to 4
equ DBGF_BREAKFRAME_NULL_BCOMM$ to 0
equ DBGF_BREAKFRAME_DFLT_BCOMM$ to COMMON_SIZEOF$
///////////////////////////////////////////////////////////////////////////////
* // Equates for use with the getBreakVarType and getBreakVarValue
* // functions (from rev_call.c)
* //
* // When accessing variables in the BreakFrame we need to specify the area
* // where the variable is stored. Local and Common areas are
* // straightforward, but for Labelled Commons we need to pass the index
* // of the common area we are interested adding an offset of 1
declare function getBreakVarType, getBreakVarValue
equ DBGF_BREAKVAR_STORAGE_LOCAL$ to -1
equ DBGF_BREAKVAR_STORAGE_BCOMM$ to 1
equ DBGF_BREAKVAR_STORAGE_LCOMM_OFFSET$ to 1
///////////////////////////////////////////////////////////////////////////////
equ DBGF_VARSYMTABLE_POS_NAME$ to 1
equ DBGF_VARSYMTABLE_POS_TYPE$ to 2
equ DBGF_VARSYMTABLE_POS_INDEX$ to 3
equ DBGF_VARSYMTABLE_TYPE_LOCAL$ to -1
equ DBGF_VARSYMTABLE_TYPE_BCOMM$ to 1
equ DBGF_VARSYMTABLE_TYPE_LCOMM$ to 2
equ DBGF_VARSYMTABLE_TYPE_LCOMM_ID$ to 3
///////////////////////////////////////////////////////////////////////////////
* // LOCALLIST equates
equ DBGF_LOCAL_PREFIX$ to "_local_"
equ DBGF_LOCAL_POS_NAME$ to 1
equ DBGF_LOCAL_POS_TYPE$ to 2
equ DBGF_LOCAL_POS_DIM$ to 3
///////////////////////////////////////////////////////////////////////////////
* // LCOMMLIST equates
equ DBGF_LCOMMID_PREFIX$ to "_lcid_"
equ DBGF_LCOMMVAR_PREFIX$ to "_lcomm_"
equ DBGF_LCOMM_POS_COMMID$ to 1
equ DBGF_LCOMM_POS_NAME$ to 2
equ DBGF_LCOMM_POS_TYPE$ to 3
equ DBGF_LCOMM_POS_DIM$ to 4
///////////////////////////////////////////////////////////////////////////////
* // COMMLIST equates
equ DBGF_BCOMM_PREFIX$ to "_common_"
equ DBGF_BCOMM_POS_NAME$ to 1
equ DBGF_BCOMM_POS_TYPE$ to 2
equ DBGF_BCOMM_POS_DIM$ to 3
///////////////////////////////////////////////////////////////////////////////
equ DBGF_ETEXT_MISSING_VAR_IDX$ to "No variable index passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_VAR_IDX$ to "Invalid variable index '%P1%' passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_VAR_DIM1$ to "Invalid subscript primary index '%P2%' passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_VAR_DIM2$ to "Invalid subscript secondary index '%P3%' passed to the %S% %M% method"
equ DBGF_ETEXT_MISSING_LBL_IDX$ to "No common label index passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_LBL_IDX$ to "Invalid common label index '%P1%' passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_LBLVAR_IDX$ to "Invalid labelled common variable index '%P2%' passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_LBLVAR_DIM1$ to "Invalid subscript primary index '%P3%' passed to the %S% %M% method"
equ DBGF_ETEXT_INVALID_LBLVAR_DIM2$ to "Invalid subscript secondary index '%P4%' passed to the %S% %M% method"
equ DBGF_ETEXT_NOT_A_DIM_VAR$ to "Non-dimensioned array variable '%P1%' passed to the %S% %M% method"
equ DBGF_ETEXT_NOT_A_LBL_DIM_VAR$ to "Non-dimensioned labelled common array variable ['%P1%','%P2%'] passed to the %S% %M% method"
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

161
SYSPROG/STPROCINS/DICT.EQUATES.txt Normal file
View File

@ -0,0 +1,161 @@
compile insert DICT.EQUATES
* D I C T . E Q U A T E S
*
* Equates that define the structure of Advanced Revelation's Data Dictionary
*
*
EQUATE D.E.TYPE TO 1 ;* Type of current field.
;* 'F' = Data Field
;* 'S' = Symbolic (formula in D.E.FORMULA)
;* 'G' = Group (group data in D.E.DISPLAY)
EQUATE D.E.FIELD.NO TO 2 ;* The position of the data in the record
EQUATE D.E.DISPLAY TO 3 ;* The Column Heading used by RLIST and other tools
;* For type 'G' dictionary records, this field
;* contains the group data.
EQUATE D.E.SM TO 4 ;* Single or Multivalue flag "S"ingle "M"ulti
EQUATE D.E.PART TO 5 ;* Key part. For multi-part keys, this field
;* specifies the part number (1, 2, 3, etc.)
;* For single-part key fields, this field should be 0.
EQUATE D.E.INDEX.FLAG TO 6 ;* BTREE INDEX flag (boolean value).
EQUATE D.E.CONV TO 7 ;* Contains the output conversion for data
EQUATE D.E.FORMULA TO 8 ;* If the field type = "S" then this field will contain an rbasic formula
EQUATE D.E.JUST TO 9 ;* Justification for displaying and sorting data.
;* 'L' = Left
;* 'R' = Right
;* 'C' = Centered
;* 'T' = Text
;* Text justification means no justification.
EQUATE D.E.LENGTH TO 10 ;* Display length for this field. Note that this length
;* is not necessarily the length of the data itself,
;* especially in bonded files.
EQUATE D.E.PATTERN TO 11 ;* Input validation/conversion for this field
EQUATE D.E.GENERIC.TYPE TO 12 ;* The Arev Generic Data type associated with this field
EQUATE D.E.SOURCE TO 13 ;* This field is basically reserved for backwards compatibility
;* with REV/G. Don't use it.
EQUATE D.E.DESC TO 14 ;* Description of this field. Used for documentation.
;* Can be displayed as online help using an HD code.
EQUATE D.E.FOREIGN.TYPE TO 15 ;* The data type name in the foreign environment
EQUATE D.E.FOREIGN.NAME TO 16 ;* The field name in the foreign environment
EQUATE D.E.FOREIGN.MAP TO 17 ;* For bonded files, this field uniquely specifies
;* a data mapping (that is, the algorithm used to
;* transfer data between the Advanced Revelation data type
;* and the foreign data type).
EQUATE D.E.FOREIGN.ATTR TO 18 ;* This field contains any foreign field attributes
;* that a bonded dictionary field may have, separated
;* by value marks.
EQUATE D.E.PMD TO 19 ;* This field is still being designed.
EQUATE D.E.NULL.TRUNC TO 20 ;* This field allows the user to override the bond's
;* default handling of null values for this field.
;* If the bond cannot support null values, setting the first
;* value of this field to 'Y' allows nulls to be stored
;* without an error. A 'N' or null first value allows the
;* default behaviour: if the bond cannot store nulls in this
;* field and a null is written, an I/O error will result.
;* If the first value is 'Y', the second value can be
;* used to specify what value the bond should store in
;* the field when a null is written. The bond is not
;* required to support this latter ability.
EQUATE D.E.DEPENDENT TO 21 ;* Reserved for indexing.
EQUATE D.E.XREF TO 22 ;* If non-null, then there is a cross-reference index
;* on this field. In that case, the value in D.E.XREF
;* is the name of the symbolic field that calculates the
;* cross-reference index.
EQUATE D.E.RELATIONAL TO 23 ;* If non-null, then this field is used to update a relational
;* index in another file and contains the key to a record
;* in that other file.
EQUATE D.E.RELATED TO 24 ;* For relational indexes, this field is updated to contain the
;* keys to the related records in the other file.
EQUATE D.E.PROTECT TO 25 ;* 1 if this field is protected. This flag is set by
;* relational indexing process.
EQUATE D.E.LOWERCASE TO 26 ;* Controls how indexed fields are indexed:
;* 0 = convert to uppercase
;* 1 = maintain case supplied.
EQUATE D.E.COMPUTED TO 27 ;* Reserved for indexing.
EQUATE D.E.MASTER.FLAG TO 28 ;* For 'F'-type dictionary records, this flag
;* distinguishes synonym fields from the "real" field.
;* This flag is '0' for synonyms and '1' otherwise.
EQUATE D.E.DEFAULT TO 29 ;* SQL default value for insertions.
EQUATE D.E.REFERENCE TO 30 ;* SQL. Indicates this column is a foreign key to the listed table(s).
EQUATE D.E.NULL TO 31 ;* SQL.
;* 0 = column can store nulls.
;* 1 = column can't store nulls.
;* We're still figuring out whether this field and
;* D.E.NULL.TRUNC should be the same field.
EQUATE D.E.UNIQUE TO 32 ;* SQL. 0=column may contain duplicate values. 1=column must contain unique values.
EQUATE D.E.LENGTH.LIMIT TO 33 ;* SQL. Length (in chars) of data. Needs to be
;* integrated with bonding.
EQUATE D.E.IN.TRUNC TO 39 ;* The first value in this field is either null, 0, or 1.
;* 0 or null means the default handling of input truncation:
;* if transferring a field into AREV would result in any loss of
;* information, an I/O error is returned. 1 allows the
;* the bond to truncate the data without returning an error.
;* In this case, either one or two values can follow the 1.
;* For character-based fields, a single value specifies what the
;* bond should read in when all information would be lost
;* (e.g., the field consisted of 3 field marks). For numeric-
;* based fields, the second value is the replacement for
;* numeric underflow and the third value is the replacement for
;* overflow.
EQUATE D.E.OUT.TRUNC TO 40 ;* Same as D.E.IN.TRUNC, except for output.
EQUATE D.E.USER1 TO 41 ;* This field is reserved for the application.
EQUATE D.E.USER2 TO 42 ;* ""
EQUATE D.E.USER3 TO 43 ;* ""
EQUATE D.E.USER4 TO 44 ;* ""
EQUATE D.E.USER5 TO 45 ;* ""
EQUATE D.E.OBJECT TO 51 ;* This field contains binary data; object code for the current field
*
* Equates that define the structure of the special record "%FIELDS%" found in each Arev Dictionary
* All of these fields are associated multivalued fields.
*
EQUATE FIELDS.MAXFIELD$ TO 2 ;* The highest FMC number in the dictionary.
EQUATE FIELDS.NAME$ TO 3 ;* Contains field names.
EQUATE FIELDS.TYPE$ TO 4 ;* Contains D.E.TYPE values.
EQUATE FIELDS.FIELD.NO$ TO 5 ;* Contains D.E.FIELD.NO values.
EQUATE FIELDS.INDEX$ TO 6 ;* Contains D.E.INDEX.FLAG values.
EQUATE FIELDS.XREF$ TO 7 ;* Contains D.E.XREF values.
EQUATE FIELDS.PART$ TO 8 ;* Contains D.E.PART values.
EQUATE FIELDS.MVFLAG$ TO 9 ;* Contains D.E.SM values.
EQUATE FIELDS.JUST$ TO 10 ;* Contains D.E.JUST values.
EQUATE FIELDS.LENGTH$ TO 11 ;* Contains D.E.LENGTH values.
EQUATE FIELDS.CONV$ TO 12 ;* Contains D.E.CONV values.
EQUATE FIELDS.DEFAULT$ TO 13 ;* Contains D.E.DEFAULT values.
EQUATE FIELDS.MASTER.FLAG$ TO 14 ;* Contains D.E.MASTER.FLAG values.
* Source Date: 09:48:08 02 MAR 1993 Build ID: AREV*3.1.31 Level: 3.1

216
SYSPROG/STPROCINS/DICT_EQUATES.txt Normal file
View File

@ -0,0 +1,216 @@
compile insert DICT_EQUATES
/*
** Copyright (C) 1992-2016 Revelation Software Inc. All Rights Reserved **
Author : The wizards of old
Date : Once upon a time ...
Purpose : Equates that define the structure of Advanced Revelation's and
OpenEngine's Data Dictionary
Comments
========
Amended Date Reason
======= ==== ======
Mr C 14 Jun 18 Added DICT_FOREIGN_KEY_TABLE$
Mr C 16 Feb 16 Added a couple of delimiter notes
Mr C 24 Sep 15 Cleaned up, Added header guards, removed HR equates
mtr 05 Jan 11 Added DICT_BITMAP_IDX_FLAG$ for field 46
mtr 21 Feb 06 Added fields 36 and 37, And FIELDS For %fields%
mtr 19 Jan 06 Added field 35
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _DICT_EQUATES_
#define _DICT_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DICT_TYPE$ to 1 ;* Type of current field.
;* 'F' = Data Field
;* 'S' = Symbolic (formula in DICT_FORMULA)
;* 'G' = Group (group data in DICT_DISPLAY)
equ DICT_COLUMN_NO$ to 2 ;* The position of the data in the record
equ DICT_DISPLAY$ to 3 ;* The Column Heading used by RLIST and other tools
;* For type 'G' dictionary records, this field
;* contains the group data.
;* ( Lines are @vm delimited )
equ DICT_SM$ to 4 ;* Single or Multivalue flag "S"ingle "M"ulti
equ DICT_PART$ to 5 ;* Key part. For multi-part keys, this field
;* specifies the part number (1, 2, 3, etc.)
;* For single-part key fields, this field should be 0.
equ DICT_INDEX_FLAG$ to 6 ;* BTREE INDEX flag (boolean value).
equ DICT_CONV$ to 7 ;* Contains the output conversion for data
equ DICT_FORMULA$ to 8 ;* If the field type = "S" then this field will contain an rbasic formula
equ DICT_JUST$ to 9 ;* Justification for displaying and sorting data.
;* 'L' = Left
;* 'R' = Right
;* 'C' = Centered
;* 'T' = Text
;* Text justification means no justification.
equ DICT_LENGTH$ to 10 ;* Display length for this field. Note that this length
;* is not necessarily the length of the data itself,
;* especially in bonded files.
equ DICT_PATTERN$ to 11 ;* Input validation/conversion for this field
equ DICT_GENERIC_TYPE$ to 12 ;* The Arev Generic Data type associated with this field
equ DICT_SOURCE$ to 13 ;* This field is basically reserved for backwards compatibility
;* with REV/G. Don't use it.
equ DICT_LAST_UPDATE_BY$ to 13 ;* Well, I guess we are using it now then right? :)
equ DICT_DESC$ to 14 ;* Description of this field. Used for documentation.
;* Can be displayed as online help using an HD code.
;* ( Lines are @tm delimited )
equ DICT_FOREIGN_TYPE$ to 15 ;* The data type name in the foreign environment
equ DICT_FOREIGN_NAME$ to 16 ;* The field name in the foreign environment
equ DICT_FOREIGN_MAP$ to 17 ;* For bonded files, this field uniquely specifies
;* a data mapping (that is, the algorithm used to
;* transfer data between the Advanced Revelation data type
;* and the foreign data type).
equ DICT_FOREIGN_ATTR$ to 18 ;* This field contains any foreign field attributes
;* that a bonded dictionary field may have, separated
;* by value marks.
equ DICT_PMD$ to 19 ;* This field is still being designed. (Still?)
equ DICT_NULL_TRUNC$ to 20 ;* This field allows the user to override the bond's
;* default handling of null values for this field.
;* If the bond cannot support null values, setting the first
;* value of this field to 'Y' allows nulls to be stored
;* without an error. A 'N' or null first value allows the
;* default behaviour: if the bond cannot store nulls in this
;* field and a null is written, an I/O error will result.
;* If the first value is 'Y', the second value can be
;* used to specify what value the bond should store in
;* the field when a null is written. The bond is not
;* required to support this latter ability.
equ DICT_DEPENDENT$ to 21 ;* Reserved for indexing.
equ DICT_XREF$ to 22 ;* If non-null, then there is a cross-reference index
;* on this field. In that case, the value in DICT_XREF
;* is the name of the symbolic field that calculates the
;* cross-reference index.
equ DICT_RELATIONAL$ to 23 ;* If non-null, then this field is used to update a relational
;* index in another file and contains the key to a record
;* in that other file.
equ DICT_RELATED$ to 24 ;* For relational indexes, this field is updated to contain the
;* keys to the related records in the other file.
equ DICT_PROTECT$ to 25 ;* 1 if this field is protected. This flag is set by
;* relational indexing process.
equ DICT_LOWERCASE$ to 26 ;* Controls how indexed fields are indexed:
;* 0 = convert to uppercase
;* 1 = maintain case supplied.
equ DICT_COMPUTED$ to 27 ;* Reserved for indexing.
equ DICT_MASTER_FLAG$ to 28 ;* For 'F'-type dictionary records, this flag
;* distinguishes synonym fields from the "real" field.
;* This flag is '0' for synonyms and '1' otherwise.
equ DICT_DEFAULT$ to 29 ;* SQL default value for insertions.
equ DICT_REFERENCE$ to 30 ;* SQL. Indicates this column is a foreign key to the listed table(s).
equ DICT_NULL$ to 31 ;* SQL.
;* 0 = column can store nulls.
;* 1 = column can't store nulls.
;* We're still figuring out whether this field and
;* DICT_NULL.TRUNC should be the same field.
;*
;* (Well don't keep us in suspense - you've have 20 years or so... )
equ DICT_UNIQUE$ to 32 ;* SQL. 0=column may contain duplicate values. 1=column must contain unique values.
equ DICT_LENGTH_LIMIT$ to 33 ;* SQL. Length (in chars) of data. Needs to be
;* integrated with bonding.
equ DICT_PRODUCT$ to 34 ;* Product flag
;* 0 or null - both Advanced Revelation and OpenInsight
;* 1 Advanced Revelation only
;* 2 OpenInsight only
equ DICT_TIMEDATE$ to 35 ; *TimeDate stamp On dictionary Field - back For OI 8.0
equ DICT_MV_GROUPNAME$ to 36 ; *GroupName For AMV groups - back For OI 8.0
equ DICT_MV_GROUP_MASTER$ to 37 ; *GroupName For AMV groups - back For OI 8.0
equ DICT_IN_TRUNC$ to 39 ;* The first value in this field is either null, 0, or 1.
;* 0 or null means the default handling of input truncation:
;* if transferring a field into AREV would result in any loss of
;* information, an I/O error is returned. 1 allows the
;* the bond to truncate the data without returning an error.
;* In this case, either one or two values can follow the 1.
;* For character-based fields, a single value specifies what the
;* bond should read in when all information would be lost
;* (e.g., the field consisted of 3 field marks). For numeric-
;* based fields, the second value is the replacement for
;* numeric underflow and the third value is the replacement for
;* overflow.
equ DICT_OUT_TRUNC$ to 40 ;* Same as DICT_IN.TRUNC, except for output.
equ DICT_USER1$ to 41 ;* This field is reserved for the application.
equ DICT_USER2$ to 42 ;* ""
equ DICT_USER3$ to 43 ;* ""
equ DICT_USER4$ to 44 ;* ""
equ DICT_USER5$ to 45 ;* ""
equ DICT_BITMAP_IDX_FLAG$ to 46 ;* Bitmap Index Flag. MTR 1-5-2011
equ DICT_FOREIGN_KEY_TABLE$ to 47 ;* Flags the column as containing keys to a foreign table
;* (contains the foreign table name)
equ DICT_OBJECT$ to 51 ;* This field contains binary data; object code for the current Field
///////////////////////////////////////////////////////////////////////////////
* // Equates that define the structure of the special record "%FIELDS%"
* // found in each Arev Dictionary. All of these fields are associated
* // multivalued fields.
equ FIELDS_ID$ to "%FIELDS%"
equ FIELDS_VERSION$ to 1 ;* Dict.mfs associated version number
equ FIELDS_MAXFIELD$ to 2 ;* The highest FMC number in the dictionary.
equ FIELDS_NAME$ to 3 ;* Contains field names.
equ FIELDS_TYPE$ to 4 ;* Contains DICT_TYPE values.
equ FIELDS_FIELD_NO$ to 5 ;* Contains DICT_FIELD.NO values.
equ FIELDS_INDEX$ to 6 ;* Contains DICT_INDEX.FLAG values.
equ FIELDS_XREF$ to 7 ;* Contains DICT_XREF values.
equ FIELDS_PART$ to 8 ;* Contains DICT_PART values.
equ FIELDS_MVFLAG$ to 9 ;* Contains DICT_SM values.
equ FIELDS_JUST$ to 10 ;* Contains DICT_JUST values.
equ FIELDS_LENGTH$ to 11 ;* Contains DICT_LENGTH values.
equ FIELDS_CONV$ to 12 ;* Contains DICT_CONV values.
equ FIELDS_DEFAULT$ to 13 ;* Contains DICT_DEFAULT values.
equ FIELDS_MASTER_FLAG$ to 14 ;* Contains DICT_MASTER.FLAG values.
equ FIELDS_PRODUCT$ to 18 ;* Contains DICT_PRODUCT values
equ FIELDS_MV_GROUPNAME$ to 19 ;* GroupName For AMV groups - back For OI 8.0 * mtr 2-21-06
equ FIELDS_MV_GROUP_MASTER$ to 20 ;* GroupMaster For AMV groups - back For OI 8.0 * mtr 2-21-06
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

48
SYSPROG/STPROCINS/DICT_SYSREPOSOLECONTROLS_EQUATES.txt Normal file
View File

@ -0,0 +1,48 @@
compile insert dict_SYSREPOSOLECONTROLS_Equates
/*
** Copyright (C) 1992-2021 Revelation Software Inc. All Rights Reserved **
Author : Mr C
Date : June 2021
Purpose : Equates record for the SYSREPOSOLECONTROLS table
Comments
========
Amended Date Reason
======= ==== ======
Mr C 29 Jun 21 Added SYSREPOSOLECONTROLS$DEFVALUESUPPORT$
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _DICT_SYSREPOSOLECONTROLS_EQUATES_
#define _DICT_SYSREPOSOLECONTROLS_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
// Key Position Equates
equ SYSREPOSOLECONTROLS$APPID$ to 1
equ SYSREPOSOLECONTROLS$ENTITYID$ to 2
// Column Position Equates
equ SYSREPOSOLECONTROLS$CLSID$ to 1
equ SYSREPOSOLECONTROLS$DESCRIPTION$ to 2
equ SYSREPOSOLECONTROLS$PROGID$ to 3
equ SYSREPOSOLECONTROLS$DEFPROP_PROPERTY$ to 4
equ SYSREPOSOLECONTROLS$DEFPROP_HANDLER$ to 5
equ SYSREPOSOLECONTROLS$MULTICOLUMN$ to 6
equ SYSREPOSOLECONTROLS$DEFPOSPROP_PROPERTY$ to 7
equ SYSREPOSOLECONTROLS$DEFPOSPROP_HANDLER$ to 8
equ SYSREPOSOLECONTROLS$DBSUPPORT$ to 9
equ SYSREPOSOLECONTROLS$ICONVSUPPORT$ to 10
equ SYSREPOSOLECONTROLS$OCONVSUPPORT$ to 11
equ SYSREPOSOLECONTROLS$REQSUPPORT$ to 12
equ SYSREPOSOLECONTROLS$CLICK_EVENT$ to 13
equ SYSREPOSOLECONTROLS$POSCHANGED_EVENT$ to 14
equ SYSREPOSOLECONTROLS$DEFVALUESUPPORT$ to 15
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

2
SYSPROG/STPROCINS/DSBFS_CONNECTION_COMMON.txt Normal file
View File

@ -0,0 +1,2 @@
Compile insert DSBFS_Connection_Common
Common /DSBFS_Connection_com/ DSBFS_Init@,DSBFS_Connections@

180
SYSPROG/STPROCINS/DSBFS_EQUATES.txt Normal file
View File

@ -0,0 +1,180 @@
Compile insert DSBFS_EQUATES
*
* rjc 05-12-10 Added Catalog
* rjc 06-09-10 Added s2o_xx items
* rjc 08-02-10 Added scales, precisions
* rjc 08-26-10 Added identity key support
* -------------------------------------
Equ BFS$ To "DSBFS"
* Hash tables for caching properties
equ DSBFS_TABLES$ to "DSBFS_TABLES" ; * table specific properites, key is tablename
equ DSBFS_VOLUMES$ to "DSBFS_VOLUMES" ; * volume specific properites, key is volname
equ DSBFS_Connections$ To "DSBFS_CONNECTIONS" ; * ado connection object for a volume, key is volname
* Structure of handle info
EQU DSBFS_HANDLE_OINAME$ TO 1 ;* The foreign name of the file
EQU DSBFS_HANDLE_DSNAME$ TO 2 ;* dataset name
EQU DSBFS_HANDLE_VOLNAME$ TO 3 ;* volume name
* NOT USED*EQU DSBFS_HANDLE_DELIM$ TO "/" ;* A delimiter for our part of the handle
*EQU HANDLE_FILE_NAME$ TO 1 ;* The foreign name of the file
*EQU HANDLE_IC_OPEN_HANDLE$ TO 2 ;* Handle returned by an IC_OPEN call
*EQU HANDLE_FDICT_FLAG$ TO 3 ;* Flag indicating that U2 file's a dict
*EQU HANDLE_SESSION_ID$ TO 4 ;* The session id for this file
* Structure of cached info in table info
equ DSBFS_Key_Names$ to 1 ; * list of sql key columns
equ DSBFS_Key_Quotes$ to 2 ; * associated flags, true if keys need quotes in where clause
equ DSBFS_Data_Names$ to 3 ; * list of non-key sql columns
equ DSBFS_Data_Numbers$ to 4 ; * associated OI column number ( @record<xxx> ) for each name
equ DSBFS_Data_Quotes$ to 5 ; * associated flags, true if values need quotes in where clause
equ DSBFS_Sorted_Names$ to 6 ; * sql names in sorted order?
equ DSBFS_Key_OConvs$ to 7 ; * conversion patterns for key fields, associated with key_names
equ DSBFS_Key_Iconvs$ to 8 ; * conversion patterns for data fields, associated with data_names
equ DSBFS_cmdtype$ to 9 ; * EXEC or SELECT. Defaults to SELECT
equ DSBFS_Vol_Name$ to 10 ; * name of the volume that owns the table
equ DSBFS_DS_Name$ to 11 ; * name of the dataset that created the table
equ DSBFS_Key_AdoTypes$ to 12 ; * Ado type codes for keys, associated with key_names, pulled from GENERIC_DATA_TYPE$
equ DSBFS_Data_AdoTypes$ to 13 ; * Ado type codes for data columns, associated with data_names pulled from FOREIGN_DATA_TYPE$
Equ DSBFS_SQL_Join$ To 14 ; * the sql from clause, usually a table, but could be table, table inner join on ...
Equ dsbfs_s2o_datanames$ To 15 ; * non-key sql colnames in the statement
Equ dsbfs_s2o_fmcs$ To 16 ; * associated oi record position (fmc) for each non-key in the sql statement. Thus, s2o_fmcs<1,sql_pos> = fmc
Equ dsbfs_s2o_iconvs$ To 17 ; * associated oi Iconv to use with read_row, non-key columns only
Equ dsbfs_s2o_oconvs$ To 18 ; * oi Oconv to use with write row, non-key columns only.
Equ dsbfs_key_adocodes$ To 19 ; * adotypecode for making parameters in write_row
Equ dsbfs_s2o_adocodes$ To 20 ; * adotypecode for making parameters in write_row
Equ dsbfs_s2o_select_script$ To 21 ; * scripts for parameterised query
Equ dsbfs_s2o_insert_script$ To 22 ; *
Equ dsbfs_s2o_update_script$ To 23 ; *
Equ dsbfs_s2o_delete_script$ To 24 ; *
Equ dsbfs_key_scales$ To 25 ; * list of numeric scale for each key column
Equ dsbfs_key_precisions$ To 26 ; * list of numeric precision for each key
Equ dsbfs_data_scales$ To 27 ; * list of numeric scale for each column
Equ dsbfs_data_precisions$ To 28 ; * list of numeric precision for each column
Equ dsbfs_data_Attributes$ To 29 ; * recordset attributes ( bit array, parse with bitand, see microsoft ado equates FieldAttributeEnum Values )
Equ dsbfs_key_Attributes$ To 30 ; * recordset attributes ( bit array, parse with bitand, see microsoft ado equates FieldAttributeEnum Values )
Equ dsbfs_key_identityFlags$ To 31 ; * true if the column is an identity type
Equ dsbfs_data_readonlyFlags$ To 32 ; * true if the column is an readonly
; * note conv "$,<" are stripped out, dates get special treatment to work with datetime
** Volume Fields
Equ DSBFS_Volume$ to 1 ; * the literal "VOLUME"
Equ DSBFS_BfsType$ to 2 ; * the literal "DSBFS"
Equ DSBFS_ControlLoc$ to 3 ; * RTP49 uses this to create the volume ID. Make it the same as the id of the record
Equ DSBFS_LoginScr$ to 4 ; * Not used
Equ DSBFS_Shadow_loc$ to 4 ; * Location of the shadow dictionaries
Equ DSBFS_VolumeId$ to 5 ; * Name of the volume, same as the id of the record
Equ DSBFS_ConnectInfo$ to 6 ; * A sub-list of cionnection parameters
Equ DSBFS_DataSetList$ to 10 ; * list of datasets associated With this volume. Controls which tables get attached
Equ DSBFS_SqlTableList$ to 11 ; * associated group of tables used by the datasets
Equ DSBFS_OiTableList$ to 12 ; * associated group of OI tables bonded to the datasets
Equ DSBFS_RefreshTimeStamp$ to 13 ; * last time the list of tables was refreshed
Equ DSBFS_Quote_Char$ To 14 ; * character to use to quote literal strings in queries
Equ DSBFS_Quoted_Quote_Char$ To 15 ; * character to use to embed quotes in litertal strings
Equ DSBFS_Null_String$ To 16 ; * null string to use in queries
Equ DSBFS_Block_Max$ To 17 ; * max block size ( number of rows) for reading multiple records
Equ DSBFS_Force_Commit$ To 18 ; * true to force a commit after writes
Equ DSBFS_volOiDatatypes$ To 19 ; * list of oi data types, VARCHAR, INTEGER, etc. Used fro be mapped to ado data types
Equ DSBFS_volAdoDataTypes$ To 20 ; * associated list of ado data types for this volume. Used by refresh_shadow_dict to set FOREIGN_DATA_TYPE$
Equ DSBFS_Type_Quoted$ To 21 ; * associated flags - true if this data type needs to be quoted
Equ DSBFS_Enable_Locking$ To 22 ; * allow locking of tables in this volume - true if you want to use rtp57 locks. Note - these are OI logical locks, not visible to non-oi clients
Equ DSBFS_DbVendor$ To 23 ; * Brand name of the Server software, e.g. Oracle
Equ DSBFS_DbCatalog$ To 24 ; * Initial Catalog / database, e.g Pubs - used by dsbfs_schema
Equ DSBFS_EscapeDelimiters$ To 25 ; * True$ If the connection should Swap @vm With </vm>, etc. defaults To true$ * added 03-04-15 rjc
** Breakdown of the Control Information
Equ DSBFS_Servername$ to 1 ; * ipaddress or name of server - Not used
Equ DSBFS_LoginId$ to 2 ; * Username on SQL server, not needed for integrated security
Equ DSBFS_Password$ to 3 ; * Password on SQL server , not needed for integrated security
Equ DSBFS_CredentialsEnabled$ to 4 ; * true if we must pass credentials ( i.e. not using integreated authentication )
Equ DSBFS_ConnectionString$ to 5 ; * the ado connection string
Equ DSBFS_encryptor$ to 6 ; * the ado connection string
equ DSBFS_SYNCDICTFLAG$ to 6 ; * Unused?
equ DSBFS_AttachListOption$ to 8 ; * rjc 01-02-08 All or Specific Tables.
equ DSBFS_RefreshOption$ to 9 ; * rjc 01-02-08 Automatic (upon attach) or manual (upon request) resync of tables.
Equ DSBFS_Authentication$ to 10; * true if we need to supply credentials, false if using integrated Windows authentication
Equ DSBFS_Password_key$ to "RTI902K606C31E9T"
* Structure of the config record SYSENV, CFG_DSBFS
Equ cfg_vendors$ To 1 ; * vm delimited list of vendors * rjc 06-24-22
Equ cfg_schema_proc$ To 2 ; * Associated list of procedure names for Schema, leave blank to get default
Equ cfg_select_proc$ To 3 ; * Associated list of procedure names for DSBFS_SELECT, leave blank to get default
Equ cfg_IO_proc$ To 4 ; * Associated list of procedure names for DSBFS_IO, leave blank to get default
EQU LOCATION_PATH$ TO 1
EQU LOCATION_FS$ TO 2
EQU LOCATION_CONTROL$ TO 3
EQU SRV_DBNAME$ TO 1
EQU SRV_USER$ TO 2
EQU SRV_PASSWD$ TO 3
EQU VOL_PTR_TOKEN$ TO 1
EQU VOL_PTR_FS$ TO 2
EQU VOL_PTR_LOCATION$ TO 3
EQU VOL_PTR_CONTROL$ TO 4
/* bda 1/21/94 -------------------- */
EQU VOL_PTR_OVERRIDE_LOCATION$ TO 5
EQU VOL_PTR_SRVNAME$ TO 1
EQU VOL_PTR_DBNAME$ TO 2
* OMNISCRIPT calls - Some of the meta functions are implemented as omniscript calls
* start the numbering at 100 to skip over other RTP57 uses of omniscript
* copied in from mvfs, not all implmented
Equ dsbfs_OmniGetServerTables$ To 110 ; * List the tables on the server
Equ dsbfs_OmniGetServerColumns$ To 111 ; * List the columns for a table on the server
Equ dsbfs_OmniGetColumnProperties$ To 112 ; * Get properties of a column on the server
Equ dsbfs_OmniSetVolSync$ To 113 ; * Set the Volume level synchronization info, e.g write all changes, write new cols ,write-none
Equ dsbfs_OmniGetVolSync$ To 114 ; * Get the Volume level synchronization info
Equ dsbfs_OmniSetTableSync$ To 115 ; * Set the Table level synchronization info, e.g. specific columns, or literal-only
Equ dsbfs_OmniGetTableSync$ To 116 ; * Get the Volume level synchronization info
Equ dsbfs_OmniGetPlatform$ To 117 ; * get the platform For this volume
Equ dsbfs_OmniSetParam$ To 118 ; * add / update a username password pair in the session
Equ dsbfs_OmniWriteParam$ To 119 ; * add / update a username password pair in the "wallet" ( and the session)
Equ dsbfs_OmniLinkTable$ To 120 ; * Attach a table - creates the media pointers ; DSBFS(OMNI.SCRIPT$, BFS$, volname, ds_name, '', dsbfs_omniLinkTable$, table_isOk )
Equ dsbfs_OmniUnLinkTable$ To 121 ; * Detach a table - deletes the media pointers
Equ dsbfs_OmniMakeShadowColumns$ To 122 ; * Map columns for a table
Equ dsbfs_OmniGetVolumes$ To 123 ; * List the volumes defined for this bfs, optional filter on platform
Equ dsbfs_OmniExecute$ To 124 ; * Execute a TCL command
Equ dsbfs_OmniCallSub$ To 125 ; * Call a subrooutine
Equ dsbfs_OmniCompileBasic$ To 126 ; * Compile a subroutine ( h = volname, n = filename, f= omniscript r = rowId
Equ dsbfs_OmniCalculate$ To 127 ; * Like CalculateEx. Have the server calculate a column value.
Equ dsbfs_OmniIconv$ To 128 ; * Iconv at server
Equ dsbfs_OmniOconv$ To 129 ; * Oconv at server
Equ dsbfs_OmniGetParam$ To 130 ; * get a connection string parameter
Equ dsbfs_OmniReadUAllowed$ To 131 ; * Return true if ReadU / WriteRelease are supported
Equ dsbfs_OmniReadU$ To 132 ; * Native ReadU call
Equ dsbfs_OmniWriteRelease$ To 133 ; * Native Write Call, will release the lock
Equ dsbfs_OmniAddCredential$ To 134 ; * Add an oi To 1host user login
Equ dsbfs_OmniRemoveCredential$ To 135 ; * Remove an oi To host user login
Equ dsbfs_OmniTransactionBegin$ To 136 ; * Begin a transaction
Equ dsbfs_OmniTransactionCommit$ To 137 ; * Commit a transaction
Equ dsbfs_OmniTransactionRollBack$ To 138 ; * Roll back a transaction
Equ dsbfs_OmniSetUser$ To 139 ; * Activate the credentials for the curent user. Need to detach / attach if the credentials change
Equ dsbfs_OmnigetUser$ To 140 ; * Activate the credentials for the curent user. Need to detach / attach if the credentials change
Equ dsbfs_OmniTransactionStatus$ To 141 ; * Get the current transaction status
Equ dsbfs_OmniGetDatasections$ To 142 ; * Look up the names of multlevel data tables in the table
Equ dsbfs_OmniListVolumes$ To 143 ; * Return an array of defined volumes and their connection status
Equ dsbfs_OmniRelease$ To 144 ; * Release a READU lock
Equ dsbfs_OmniEnablePooling$ To 145 ; * Enable pooling Connections
Equ dsbfs_OmniDisablePooling$ To 146 ; * Disable pooling Connections
Equ dsbfs_OmniSetAdditionalProperty$ To 147 ; * pass-through a property setting. User is responsible for setting a valid property. ( e.g. Timeout)
Equ dsbfs_OmniGetAdditionalProperty$ To 148 ; * pass-through a property setting. User is responsible for setting a valid property. ( e.g. Timeout)
Equ dsbfs_OmniGetMediaHandle$ To 149 ; * return the media handle for a volumename, even if it is not attached yet
Equ dsbfs_OmniTranslateSelect$ To 150 ; * Given an OI select statement, return equivalent SQL from, with, by clauses

43
SYSPROG/STPROCINS/DSBFS_HELPER_EQUATES.txt Normal file
View File

@ -0,0 +1,43 @@
compile insert DSBFS_HELPER_EQUATES
/*
** Supporting equates For cbbfs_helper funiton
** 02-23-15 rjc move defaults To cbbfs_Equates, Add Lockmode_field, list_index, add_index, remove_Index, list_lock_methods commands
*/
* Supported fields
Equ CMD_PING$ To 0
Equ CMD_VOLUME_LIST$ To 1
Equ CMD_VOLUME_READ$ To 2
Equ CMD_VOLUME_ATTACH$ To 3
Equ CMD_VOLUME_DETACH$ To 4
Equ CMD_VOLUME_DELETE$ To 5
Equ CMD_VOLUME_SAVE$ To 6
Equ CMD_SERVER_TABLES$ To 7
Equ CMD_TABLE_LINK$ To 8
Equ CMD_TABLE_UNLINK$ To 9
Equ CMD_CREDENTIALS$ To 10
Equ CMD_VENDORLIST$ To 11
Equ CMD_USERNAMES$ To 12
Equ CMD_WRITECRED$ To 13
Equ CMD_REMOVECRED$ To 14
EQU CMD_VOLUME_ADMIN$ To 15
EQU CMD_STATUS_CONNECTION$ To 16
Equ CMD_CHECK$ To 17
Equ CMD_PREFIX$ To 18
* record layout
EQU VOLUMEID_FIELD$ To 1
EQU SHADOW_LOC_FIELD$ To 2
EQU VENDOR_FIELD$ To 3
Equ SCHEMA_FIELD$ To 4
equ CONNECTIONSTRING_FIELD$ To 5
EQU USER_FIELD$ To 6
EQU PWD_FIELD$ To 7
Equ OI_LOCKING_ENABLED$ To 8
Equ APPLICATION_FIELD$ To 9
Equ UNLINKED_TABLES_FIELD$ To 10
Equ LINKED_TABLES_FIELD$ To 11
Equ CREDENTIALS_ENABLED_FIELD$ To 12

4
SYSPROG/STPROCINS/DSBFS_LC.txt Normal file
View File

@ -0,0 +1,4 @@
Compile Insert DSBFS_LC
Common /DSBFS_LC/readlist_flag@, selected_ids@,selected_bys@,installed@,identity@@,volCache%, tableCache%, paramcache%, connCache%

194
SYSPROG/STPROCINS/DSBFS_SQL_KEYWORDS.txt Normal file
View File

@ -0,0 +1,194 @@
compile Insert dsbfs_sql_keywords
/*
<keywords>
ADD
EXCEPT
PERCENT
ALL
EXEC
PLAN
ALTER
EXECUTE
PRECISION
AND
EXISTS
PRIMARY
ANY
EXIT
PRINT
AS
FETCH
PROC
ASC
FILE
PROCEDURE
AUTHORIZATION
FILLFACTOR
PUBLIC
BACKUP
FOR
RAISERROR
BEGIN
FOREIGN
READ
BETWEEN
FREETEXT
READTEXT
BREAK
FREETEXTTABLE
RECONFIGURE
BROWSE
FROM
REFERENCES
BULK
FULL
REPLICATION
BY
FUNCTION
RESTORE
CASCADE
GOTO
RESTRICT
CASE
GRANT
RETURN
CHECK
GROUP
REVOKE
CHECKPOINT
HAVING
RIGHT
CLOSE
HOLDLOCK
ROLLBACK
CLUSTERED
IDENTITY
ROWCOUNT
COALESCE
IDENTITY_INSERT
ROWGUIDCOL
COLLATE
IDENTITYCOL
RULE
COLUMN
IF
SAVE
COMMIT
IN
SCHEMA
COMPUTE
INDEX
SELECT
CONSTRAINT
INNER
SESSION_USER
CONTAINS
INSERT
SET
CONTAINSTABLE
INTERSECT
SETUSER
CONTINUE
INTO
SHUTDOWN
CONVERT
IS
SOME
CREATE
JOIN
STATISTICS
CROSS
KEY
SYSTEM_USER
CURRENT
KILL
TABLE
CURRENT_DATE
LEFTTEXTSIZE
CURRENT_TIME
LIKE
THEN
CURRENT_TIMESTAMP
LINENO
TO
CURRENT_USER
LOADTOP
CURSOR
NATIONAL
TRAN
DATABASE
NOCHECK
TRANSACTION
DBCC
NONCLUSTERED
TRIGGER
DEALLOCATE
NOT
TRUNCATE
DECLARE
NULL
TSEQUAL
DEFAULT
NULLIF
UNION
DELETE
OF
UNIQUE
DENY
OFF
UPDATE
DESC
OFFSETS
UPDATETEXT
DISK
ON
USE
DISTINCT
OPEN
USER
DISTRIBUTED
OPENDATASOURCE
VALUES
DOUBLE
OPENQUERY
VARYING
DROP
OPENROWSET
VIEW
DUMMY
OPENXML
WAITFOR
DUMP
OPTION
WHEN
ELSE
OR
WHERE
END
ORDER
WHILE
ERRLVL
OUTER
WITH
ESCAPE
OVER
WRITETEXT
NOLOCK
SUBSTRING
LEN
LTRIM
RTRIM
ISNUMERIC
STR
REPLACE
UPPER
LOWER
COUNT
NOT
IN
NULL
AND
OR
IS
</keywords>
*/

16
SYSPROG/STPROCINS/DSBFS_TRACE_EQUATES.txt Normal file
View File

@ -0,0 +1,16 @@
compile Insert dsbfs_trace_equates
/*
** Support for the DSBFS_TRACE program
** 02-15-18 rjc recompiled
*/
Declare Function dsbfs_Trace
Declare Subroutine dsbfs_trace
Equ cmd_traceOn$ To 1
Equ cmd_traceOff$ To 2
Equ cmd_traceEvent$ To 3
Equ cmd_displayLog$ To 4
Equ cmd_GetLogFileName$ To 5
common /rti_dsbfs_trace_com/traceInit@, traceMode@, traceFilename@, traceFileOffset@

214
SYSPROG/STPROCINS/EDIT.KEYS.txt Normal file
View File

@ -0,0 +1,214 @@
compile insert EDIT.KEYS
*
* E D I T K E Y S
*
* Revision History:
* 02/19/88 men Added VIEWER$ and Key Acronyms
*
* @PRIORITY.INT Definitions
*
EQU GENERAL.HELP$ TO 1 ;* C-F1 General Help
EQU EXECUTE.TCL$ TO 2 ;* F5 TCL
EQU CAPTURE.KEY$ TO 3 ;* A-O Key capturing on/off
EQU CAPTURE.EDIT$ TO 4 ;* A-8 Captured keys on-the-fly edit
EQU PLAYBACK.KEY$ TO 5 ;* A-9 Key playback start
EQU PAUSE.INPUT$ TO 6 ;* C-\ Pause
EQU MACRO.MODE$ TO 7 ;* C-_ Key nmemonic macro mode on/off
EQU EDIT.MACRO$ TO 8 ;* A-M Edit key macro set
EQU MACROS.START$ TO 9 ;* A-1 Start of the macro keys
* Thru A-5
*
* @MOVE.KEYS Definitions
*
EQU ENTER$ TO 1 ;* CR Enter
EQU DOWN$ TO 2 ;* DOWN Move cursor down one line, maintaining current column
EQU UP$ TO 3 ;* UP Move cursor up one line, maintaining current column
EQU RIGHT$ TO 4 ;* RIGHT Move cursor one character (column) left
EQU LEFT$ TO 5 ;* LEFT Move cursor one character (column) left
EQU LAST.PAGE$ TO 6 ;* C-PGDN Move cursor to the first column, last line of the last page
EQU FIRST.PAGE$ TO 7 ;* C-PGUP Move cursor to the first column, first line of the first page
EQU PAGE.DOWN$ TO 8 ;* PDOWN Move cursor one page down, maintaining current column position
EQU PAGE.UP$ TO 9 ;* PUP Move cursor one page up, maintaining current column position
EQU TAB.RIGHT$ TO 10 ;* C-I Move cursor to next tab right
EQU TAB.LEFT$ TO 11 ;* S-TAB Move cursor to next tab left
EQU WORD.RIGHT$ TO 12 ;* C-RA Move cursor one word right
EQU WORD.LEFT$ TO 13 ;* C-LA Move cursor one word left
EQU END$ TO 14 ;* END Move cursor to end of current line
EQU HOME$ TO 15 ;* HOME Move cursor to beginning of current line
EQU END.LINE$ TO 16 ;* C-END Move cursor to the very end of current line
EQU START.LINE$ TO 17 ;* C-HOME Move cursor to the very beggining of current line
EQU TO.LINE$ TO 18 ;* C-G Go to line (prompt for line #)
EQU FIND.STR$ TO 19 ;* C-F Find string
EQU REPEAT.LAST$ TO 20 ;* C-A Repeat last find/replace again
EQU DEFINE.BLOCK$ TO 21 ;* C-B Start/Extend Block definition
EQU CLEAR.BLOCK$ TO 22 ;* C-U Kill any existing block definition
EQU CUT.BLOCK$ TO 23 ;* C-B Cut block to the buffer
EQU ZOOM$ TO 24 ;* F3 Expand current editing field to the expand window
EQU SUB.VALUES$ TO 25 ;* C-E Edit subvalue window
EQU AUTO.MODES$ TO 26 ;* C-W Toggle word wrap on/off
EQU SET.TABS$ TO 27 ;* C-T Set tab stops
EQU EDIT.TOGGLE$ TO 28 ;* F4 Turn on edit mode
*
* @EDIT.KEYS Definitions
*
EQU BACK$ TO 1 ;* C-H Delete character to the left of the cursor
EQU DEL$ TO 2 ;* DEL Delete character at current cursor position
EQU DEL.WORD$ TO 3 ;* C-Y Delete this word (or word right) (RESERVED)
EQU CLEAR.TO.END$ TO 4 ;* C-L Delete all characters from current position to end of current line
EQU CLEAR.TO.BEG$ TO 5 ;* C-K Delete all characters from beginning of current position to the left
EQU CLEAR.LINE$ TO 6 ;* C-X Kill all characters in line; lines below do not move up
EQU INS$ TO 7 ;* INS Insert/overwrite toggle
EQU PROG.KEY$ TO 8 ;* C-P Duplicate last character inserted (good for high ASCII characters)
EQU RESTART.EDIT$ TO 9 ;* C-Q Restart editing, undoing any changes (RESERVED)
EQU PASTE.BLOCK$ TO 10 ;* C-F4 Paste block from the buffer
EQU INS.LINE$ TO 11 ;* C-N Insert blank line at current cursor line
EQU DEL.LINE$ TO 12 ;* C-D Delete current line, moving lines below up
EQU BREAK.LINE$ TO 13 ;* C-C Cut line into two lines at current cursor position
EQU MERGE.LINE$ TO 14 ;* C-J Join current line with following line
EQU REPLACE.STR$ TO 15 ;* C-R Replace string
EQU SPECIAL.MODE$ TO 16 ;* C-S Toggle into Special Mode
EQU FIT.WINDOW$ TO 17 ;* C-Z Reformat text to fit the window (RESERVED)
*
* @INT.CONST Definitions
*
EQU QUIT$ TO 1 ;* ESC
EQU OPTIONS$ TO 2 ;* F2
EQU SOFTKEYS$ TO 3 ;* F6
EQU PAN$ TO 4 ;* F7
EQU REFRESH$ TO 5 ;* F8
EQU SAVE$ TO 6 ;* F9
EQU MENU$ TO 7 ;* F10
EQU DETAIL$ TO 8 ;* F1
EQU TABLE$ TO 9 ;* C-F5
EQU RELATIONS$ TO 10 ;* C-F6
EQU RESIZE$ TO 11 ;* C-F7
EQU MOVE$ TO 12 ;* C-F8
EQU BROWSE$ TO 13 ;* C-F10
EQU DEL.RECORD$ TO 14 ;* A-D
EQU NEXT.ID$ TO 15 ;* A-F
EQU PREV.ID$ TO 16 ;* A-B
EQU KEY.EDIT$ TO 17 ;* A-K
EQU DEBUG$ TO 18 ;* A-S
EQU DUP.PROMPT$ TO 19 ;* A-O
EQU BROWSE.EDIT$ TO 20 ;* A-I
EQU BROWSE.MODS$ TO 21 ;* A-U
EQU MIDDLE$ TO 22 ;* A-W
EQU TAB.FORWARD$ TO 23 ;* A-T
EQU TAB.BACKWARD$ TO 24 ;* A-Y
EQU ALL.PROMPTS$ TO 25 ;* A-A
EQU PRINT.BROWSE$ TO 26 ;* A-P
EQU TUTORIAL.KEY$ TO 27 ;* C-F2 Setup by MN to match WIN.INT
EQU ACTIVE.KEYS$ TO 28 ;* C-F9 Setup by MN "
EQU RECALC.ALL$ TO 29 ;* A-V Setup by MN "
EQU VIEWER$ TO 30 ;* Setup by MN "
EQU COPYREC$ TO 31 ;* A-C
*
* The original edit key names
*
* Cursor Movement Keys:
*
EQU HM TO @MOVE.KEYS<HOME$> ;* Home Move cursor to beginning of current line
EQU ND TO @MOVE.KEYS<END$> ;* End Move cursor to end of current line
EQU UP TO @MOVE.KEYS<UP$> ;* Up Move cursor up one line, maintaining current column
EQU DN TO @MOVE.KEYS<DOWN$> ;* Down Move cursor down one line, maintaining current column
EQU LT TO @MOVE.KEYS<LEFT$> ;* Left Move cursor one character (column) left
EQU RT TO @MOVE.KEYS<RIGHT$> ;* Right Move cursor one character (column) left
EQU PGUP TO @MOVE.KEYS<PAGE.UP$> ;* PgUp Move cursor one page up, maintaining current column position
* Full page if possible, else cursor at first line
EQU PGDN TO @MOVE.KEYS<PAGE.DOWN$> ;* PgDn Move cursor one page down, maintaining current column position
* Full page if possible, else cursor at last line
EQU TABRT TO @MOVE.KEYS<TAB.RIGHT$> ;* Tab Move cursor to next tab right
EQU TABLT TO @MOVE.KEYS<TAB.LEFT$> ;* Sh-Tab Move cursor to next tab left
EQU END.LINE TO @MOVE.KEYS<END.LINE$> ;* ^Home Move cursor to first column of current line
EQU START.LINE TO @MOVE.KEYS<START.LINE$> ;* ^End Move cursor to first column, last line of current.line
EQU CRT TO @MOVE.KEYS<WORD.RIGHT$> ;* ^Rt Move cursor one word right
EQU CLT TO @MOVE.KEYS<WORD.LEFT$> ;* ^Lt Move cursor one word left
EQU LAST.PAGE TO @MOVE.KEYS<LAST.PAGE$> ;* ^PgDn Move cursor to the first column, last line of the last page
EQU CPGDN TO @MOVE.KEYS<LAST.PAGE$> ;* ^PgDn Move cursor to the first column, last line of the last page
EQU FIRST.PAGE TO @MOVE.KEYS<FIRST.PAGE$> ;* ^PGUP Move cursor to the first column, first line of the first page
EQU CPGUP TO @MOVE.KEYS<FIRST.PAGE$> ;* ^PGUP Move cursor to the first column, first line of the first page
EQU TO.LINE TO @MOVE.KEYS<TO.LINE$> ;* ^G Go to line (prompt for line #)
*
* Deleting/Inserting Keys:
*
EQU BACK TO @EDIT.KEYS<BACK$> ;* Back Delete character to the left of the cursor
EQU INS TO @EDIT.KEYS<INS$> ;* Ins Insert/overwrite toggle
EQU INS.LINE TO @EDIT.KEYS<INS.LINE$> ;* ^N Insert blank line at current cursor line
EQU DEL TO @EDIT.KEYS<DEL$> ;* Del Delete character at current cursor position
EQU DEL.LINE TO @EDIT.KEYS<DEL.LINE$> ;* ^D Delete current line, moving lines below up
EQU DEL.WORD TO @EDIT.KEYS<DEL.WORD$> ;* ^Y Delete this word (or word right) (RESERVED)
EQU CLEAR.LINE TO @EDIT.KEYS<CLEAR.LINE$> ;* ^X Kill all characters in line; lines below do not move up
EQU CLEAR.TO.END TO @EDIT.KEYS<CLEAR.TO.END$> ;* ^L Delete all characters from current position to end of current line
EQU CLEAR.TO.BEG TO @EDIT.KEYS<CLEAR.TO.BEG$> ;* ^K Delete all characters from beginning of current position to the left
*
* Find/Replace Keys:
*
EQU FIND.STR TO @MOVE.KEYS<FIND.STR$> ;* ^F Find string
EQU REPLACE.STR TO @EDIT.KEYS<REPLACE.STR$> ;* ^R Replace string
EQU REPEAT.LAST TO @MOVE.KEYS<REPEAT.LAST$> ;* ^A Repeat last find/replace again
*
* Block Keys:
*
EQU DEFINE.BLOCK TO @MOVE.KEYS<DEFINE.BLOCK$> ;* ^B Start/End Block definition
EQU CLEAR.BLOCK TO @MOVE.KEYS<CLEAR.BLOCK$> ;* ^U Kill any existing block definition
EQU CUT.BLOCK TO @MOVE.KEYS<CUT.BLOCK$> ;* ^F3 Cut block to the buffer
EQU PASTE.BLOCK TO @EDIT.KEYS<PASTE.BLOCK$> ;* ^F4 Paste block from the buffer
*
* Special Keys:
*
EQU SPECIAL.MODE TO @EDIT.KEYS<SPECIAL.MODE$> ;* ^S Toggle into Special Mode
*
* Other Keys:
*
EQU PROG.KEY TO @EDIT.KEYS<PROG.KEY$> ;* ^P Duplicate last character inserted (good for high ASCII characters)
EQU MERGE.LINE TO @EDIT.KEYS<MERGE.LINE$> ;* ^J Join current line with following line
EQU BREAK.LINE TO @EDIT.KEYS<BREAK.LINE$> ;* ^C Cut line into two lines at current cursor position
EQU SET.TABS TO @MOVE.KEYS<SET.TABS$> ;* ^T Set tab stops
EQU AUTO.MODES TO @MOVE.KEYS<AUTO.MODES$> ;* ^W Toggle word wrap on/off
EQU FIT.WINDOW TO @EDIT.KEYS<FIT.WINDOW$> ;* ^Z Reformat text to fit the window (RESERVED)
EQU RESTART.EDIT TO @EDIT.KEYS<RESTART.EDIT$> ;* ^Q Restart editing, undoing any changes (RESERVED)
EQU SUB.VALUES TO @MOVE.KEYS<SUB.VALUES$> ;* ^E Edit subvalue window
EQU ZOOM.KEY TO @MOVE.KEYS<ZOOM$> ;* F3 Expand current editing field to the expand window
EQU EDIT.KEY TO @MOVE.KEYS<EDIT.TOGGLE$> ;* F4 Turn on edit mode
EQU ENTER TO @MOVE.KEYS<ENTER$> ;* CR Carriage Return
*
* Int Const's
*
EQU QUIT TO @INT.CONST<QUIT$> ;*
EQU OPTIONS.KEY TO @INT.CONST<OPTIONS$> ;*
EQU SOFTKEYS.KEY TO @INT.CONST<SOFTKEYS$> ;*
EQU PAN.KEY TO @INT.CONST<PAN$> ;*
EQU REFRESH.KEY TO @INT.CONST<REFRESH$> ;*
EQU SAVE.KEY TO @INT.CONST<SAVE$> ;*
EQU MENU.KEY TO @INT.CONST<MENU$> ;*
EQU DETAIL.KEY TO @INT.CONST<DETAIL$> ;*
EQU TABLE.KEY TO @INT.CONST<TABLE$> ;*
EQU RELATIONS.KEY TO @INT.CONST<RELATIONS$> ;*
EQU RESIZE.KEY TO @INT.CONST<RESIZE$> ;*
EQU MOVE.KEY TO @INT.CONST<MOVE$> ;*
EQU BROWSE.KEY TO @INT.CONST<BROWSE$> ;*
EQU DEL.REC TO @INT.CONST<DEL.RECORD$> ;*
EQU NEXT.FORWARD TO @INT.CONST<NEXT.ID$> ;*
EQU NEXT.BACKWARD TO @INT.CONST<PREV.ID$> ;*
EQU KEY.EDIT TO @INT.CONST<KEY.EDIT$> ;*
EQU DEBUG.KEY TO @INT.CONST<DEBUG$> ;*
EQU DUP.PROMPT TO @INT.CONST<DUP.PROMPT$> ;*
EQU BROWSE.EDIT TO @INT.CONST<BROWSE.EDIT$> ;*
EQU BROWSE.CHANGED TO @INT.CONST<BROWSE.MODS$> ;*
EQU MIDDLE.FIELD TO @INT.CONST<MIDDLE$> ;*
EQU PTAB.FORWARD TO @INT.CONST<TAB.FORWARD$> ;*
EQU PTAB.BACKWARD TO @INT.CONST<TAB.BACKWARD$> ;*
EQU ALL.PROMPTS TO @INT.CONST<ALL.PROMPTS$> ;*
EQU PRINT.BROWSE TO @INT.CONST<PRINT.BROWSE$> ;*
EQU VIEWER.KEY TO @INT.CONST<VIEWER$> ;*
EQU COPY.KEY$ TO @INT.CONST<COPYREC$> ;*
* Source Date: 13:11:08 28 JUL 1992 Build ID: AREV*2.2.58 Level: 2.2

30
SYSPROG/STPROCINS/EDIT.SHORT.txt Normal file
View File

@ -0,0 +1,30 @@
Compile Insert edit.short
* 12-08-15 rjc import from arev_bp
* 11/17/86 ERH - Changed to hex constants
EQU SVM TO \FC\
EQU TEXT.MARK TO \FB\
EQU DICT.HELP TO 14
EQU ESC TO \1B\
EQU CPGDN TO \0076\
EQU CPGUP TO \0084\
EQU CR TO \0D\
EQU UP TO \0048\
EQU DN TO \0050\
EQU LT TO \004B\
EQU RT TO \004D\
EQU PGUP TO \0049\
EQU PGDN TO \0051\
EQU DOWNKEYS TO \0050004D00760D\
EQU UPKEYS TO \0048004B0084\
EQU DEL.LINE TO \04\
EQU INS.LINE TO \0E\
EQU CRT TO \0074\
EQU CLT TO \0073\
EQU BELL TO \07\
* Source Date: 11:34:09 10 MAY 1994 Build ID: AREV_HR*3.1.40 Level: 3.13

63
SYSPROG/STPROCINS/EDITFIND_EQUATES.txt Normal file
View File

@ -0,0 +1,63 @@
compile insert EditFind_Equates
******************************************************************************
*
* Product : OpenInsight Works
*
* Name : EditFind_Equates
* Description: Instructions and constants for the EditFind function
*
* History :
* 02/23/96 cp Original programmer
* 10/15/97 cp Updated for 3.5
* 10/28/15 Mr C Updated for 10.0, added header guards, added GETFINDFLAGS
* 03/01/18 Mr C Added EFP_OPT_TITLE$
*
******************************************************************************
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _EDITFIND_EQUATES_
#define _EDITFIND_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
declare function editFind
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
* instructions
equ EFCMD_FIND$ to 1
equ EFCMD_CLOSEFIND$ to 2
equ EFCMD_FINDNEXT$ to 3
equ EFCMD_FINDPREV$ to 4
equ EFCMD_REPLACE$ to 5 ;* reserved
equ EFCMD_CLOSEREPLACE$ to 6 ;* reserved
equ EFCMD_ISFINDABLE$ to 7
equ EFCMD_ISFINDNEXTABLE$ to 8
equ EFCMD_ISREPLACEABLE$ to 9 ;* reserved
equ EFCMD_FINDCREATE$ to 10 ;* reserved
equ EFCMD_TEXTCHANGED$ to 11 ;* reserved
equ EFCMD_NEXTCLICKED$ to 12 ;* reserved
equ EFCMD_MARKALLCLICKED$ to 13 ;* reserved
equ EFCMD_FINDCLOSE$ to 14 ;* reserved
equ EFCMD_GETFINDFLAGS$ to 15
* options structure
equ EFP_OPT_MATCHCASE$ to 1
equ EFP_OPT_WHOLEWORD$ to 2
equ EFP_OPT_FORWARD$ to 3
equ EFP_OPT_TITLE$ to 4
* find flags structure
equ EFF_FINDABLE$ to 1
equ EFF_FINDNEXTABLE$ to 2
equ EFF_REPLACEABLE$ to 3
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

493
SYSPROG/STPROCINS/EDITTABLE_EQUATES.txt Normal file
View File

@ -0,0 +1,493 @@
compile insert EditTable_Equates
/*
Author Mr C
Date December 2001
Purpose Equates for the Edit Table control
Amended Date Reason
======= ==== ======
Mr C 09 Jun 10 Added DTPOS_ constants
Mr C 26 May 10 Added DT_DEFAULTCOLOR$
Mr C 12 Feb 09 Updated DTM_ messages for OI9.2
Mr C 19 Aug 09 Updated DTM_ messages for OI9.1
Mr C 26 Jun 09 Added DTCS_CHECKBOXCENTER$ for OI9.1
Mr C 18 Jul 08 Added DROPDOWNLIST and MULTILINE styles/messages
for OI 9.0 compatibility
Mr C 12 Mar 08 Added DTCS_SKIPPED$
Mr C 06 Aug 07 Added DTE_ error codes
Updated DTM_ messages to OI 8.0.x
Mr C Sep 2006 Added new DTCS column styles
Mr C Sep 2005 Added DTN_ notification codes
Added TABLEPOS_ notification codes
Mr C Feb 2003 Added Access Modes, and DTM_GETCELLEFTBOTTOM$
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _WINAPI_EDITTABLE_EQUATES_
#define _WINAPI_EDITTABLE_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
$insert Window_Message_Equates
///////////////////////////////////////////////////////////////////////////////
// Edit Table Styles //////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTS_EDIT$ to 0x0004
equ DTS_RESIZE$ to 0x0008
equ DTS_NONE$ to 0x0000
equ DTS_NUMBERS$ to 0x0010
equ DTS_LETTERS$ to 0x0020
equ DTS_OWNERDEF$ to 0x0030
equ DTS_HGRID$ to 0x0040
equ DTS_VGRID$ to 0x0080
equ DTS_ROWSELECT$ to 0x0100
equ DTS_MULTIROW$ to 0x0200
equ DTS_COLSELECT$ to 0x0400
equ DTS_MULTICOL$ to 0x0800
equ DTS_SMALLDATA$ to 0x0000
equ DTS_LARGEDATA$ to 0x1000
equ DTS_ROWBUTTONS$ to 0x2000
equ DTS_ROWNUMBERS$ to 0x4000
equ DTS_DROPDOWN$ to 0x8000
equ DTS_AUTODROPDN$ to 0x8002
equ DTS_VIRTUALMEM$ to 0x0001
///////////////////////////////////////////////////////////////////////////////
// Edit Table Column Styles ///////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTCS_LEFT$ to 0x00000000
equ DTCS_HEADLEFT$ to 0x00000000
equ DTCS_RESIZE$ to 0x00000001
equ DTCS_FIXED$ to 0x00000002
equ DTCS_EDIT$ to 0x00000004
equ DTCS_PROTECT$ to 0x00000008
equ DTCS_UPPERCASE$ to 0x00000010
equ DTCS_HIDDEN$ to 0x00000020
equ DTCS_CENTER$ to 0x00000040
equ DTCS_RIGHT$ to 0x00000080
equ DTCS_HEADCENTER$ to 0x00000100
equ DTCS_HEADRIGHT$ to 0x00000200
equ DTCS_VSCROLL$ to 0x00000400 ; * // only for DTCS_MULTILINE$
equ DTCS_HSCROLL$ to 0x00000800 ; * // only for DTCS_MULTILINE$
equ DTCS_SKIPPED$ to 0x00001000
equ DTCS_LOCKED$ to 0x00002000
equ DTCS_SORTASC$ to 0x00004000
equ DTCS_SORTDES$ to 0x00008000
equ DTCS_CHECKBOX$ to 0x00010000
equ DTCS_DROPDOWN$ to 0x00020000
equ DTCS_MULTILINEHEAD$ to 0x00040000
equ DTCS_CHECKBOXRIGHT$ to 0x00080000 ; * // needs DTCS_CHECKBOX$
equ DTCS_VALIGNCENTER$ to 0x00100000
equ DTCS_VALIGNBOTTOM$ to 0x00200000
equ DTCS_DROPDOWNEDIT$ to 0x00400000
equ DTCS_OPTIONSBUTTON$ to 0x00800000
equ DTCS_ENABLEDROPDOWNDRAG$ to 0x01000000
equ DTCS_MULTILINE$ to 0x02000000
equ DTCS_AUTOVSCROLL$ to 0x04000000 ; * // only for DTCS_MULTILINE$
equ DTCS_AUTOHSCROLL$ to 0x08000000 ; * // only for DTCS_MULTILINE$
equ DTCS_ENABLEDRAG$ to 0x10000000
equ DTCS_ENABLEDROP$ to 0x20000000
equ DTCS_CHECKBOXCENTER$ to 0x40000000 ; * // needs DTCS_CHECKBOX$ - no text!
equ DTCS_RESERVED$ to 0x80000000
///////////////////////////////////////////////////////////////////////////////
// Edit Table Messages ////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
* // WM_USER is redefined here so we don't have to worry about inserting it
* // from another record.
equ DT_WM_USER$ to 1024 ; * // Defined here for ease of use!
equ DTM_RESETALL$ to ( DT_WM_USER$ + 0 )
equ DTM_RESETDATA$ to ( DT_WM_USER$ + 1 )
equ DTM_GETWNDSTYLE$ to ( DT_WM_USER$ + 2 )
equ DTM_SETWNDSTYLE$ to ( DT_WM_USER$ + 3 )
equ DTM_GETCONFIGSIZE$ to ( DT_WM_USER$ + 4 )
equ DTM_GETCONFIG$ to ( DT_WM_USER$ + 5 )
equ DTM_SETCONFIG$ to ( DT_WM_USER$ + 6 )
equ DTM_GETCOLCOUNT$ to ( DT_WM_USER$ + 7 )
equ DTM_SETCOLCOUNT$ to ( DT_WM_USER$ + 8 )
equ DTM_GETCOLSTYLE$ to ( DT_WM_USER$ + 9 )
equ DTM_SETCOLSTYLE$ to ( DT_WM_USER$ + 10 )
equ DTM_GETCOLTYPE$ to ( DT_WM_USER$ + 11 )
equ DTM_SETCOLTYPE$ to ( DT_WM_USER$ + 12 )
equ DTM_GETCOLDATALEN$ to ( DT_WM_USER$ + 13 )
equ DTM_SETCOLDATALEN$ to ( DT_WM_USER$ + 14 )
equ DTM_GETCOLWIDTH$ to ( DT_WM_USER$ + 15 )
equ DTM_SETCOLWIDTH$ to ( DT_WM_USER$ + 16 )
equ DTM_GETCOLFORMAT$ to ( DT_WM_USER$ + 17 )
equ DTM_SETCOLFORMAT$ to ( DT_WM_USER$ + 18 )
equ DTM_GETCOLHEAD$ to ( DT_WM_USER$ + 19 )
equ DTM_SETCOLHEAD$ to ( DT_WM_USER$ + 20 )
equ DTM_GETCOLNAME$ to ( DT_WM_USER$ + 21 )
equ DTM_SETCOLNAME$ to ( DT_WM_USER$ + 22 )
equ DTM_GETCOLEXTRA1$ to ( DT_WM_USER$ + 23 )
equ DTM_SETCOLEXTRA1$ to ( DT_WM_USER$ + 24 )
equ DTM_GETCOLEXTRA2$ to ( DT_WM_USER$ + 25 )
equ DTM_SETCOLEXTRA2$ to ( DT_WM_USER$ + 26 )
equ DTM_GETCOLNUMBER$ to ( DT_WM_USER$ + 27 )
equ DTM_SHOWDROPDOWN$ to ( DT_WM_USER$ + 28 )
equ DTM_ISDROPDOWN$ to ( DT_WM_USER$ + 29 )
equ DTM_GETROWCOUNT$ to ( DT_WM_USER$ + 30 )
equ DTM_GETTOPINDEX$ to ( DT_WM_USER$ + 32 )
equ DTM_SETTOPINDEX$ to ( DT_WM_USER$ + 33 )
equ DTM_GETLEFTINDEX$ to ( DT_WM_USER$ + 34 )
equ DTM_SETLEFTINDEX$ to ( DT_WM_USER$ + 35 )
equ DTM_GETCURROW$ to ( DT_WM_USER$ + 36 )
equ DTM_GETCURCOL$ to ( DT_WM_USER$ + 37 )
equ DTM_SETCURCELL$ to ( DT_WM_USER$ + 38 )
equ DTM_GETACCESSROW$ to ( DT_WM_USER$ + 39 )
equ DTM_GETACCESSCOL$ to ( DT_WM_USER$ + 40 )
equ DTM_SETACCESSPOS$ to ( DT_WM_USER$ + 41 )
equ DTM_READROW$ to ( DT_WM_USER$ + 42 )
equ DTM_UPDATEROW$ to ( DT_WM_USER$ + 43 )
equ DTM_INSERTROW$ to ( DT_WM_USER$ + 44 )
equ DTM_DELETEROW$ to ( DT_WM_USER$ + 45 )
equ DTM_MOVEROWTO$ to ( DT_WM_USER$ + 46 )
equ DTM_REPLICATEROWTO$ to ( DT_WM_USER$ + 47 )
equ DTM_READCOL$ to ( DT_WM_USER$ + 48 )
equ DTM_UPDATECOL$ to ( DT_WM_USER$ + 49 )
equ DTM_INSERTCOL$ to ( DT_WM_USER$ + 90 )
equ DTM_DELETECOL$ to ( DT_WM_USER$ + 50 )
equ DTM_MOVECOLTO$ to ( DT_WM_USER$ + 51 )
equ DTM_REPLICATECOLTO$ to ( DT_WM_USER$ + 52 )
equ DTM_READCELL$ to ( DT_WM_USER$ + 53 )
equ DTM_UPDATECELL$ to ( DT_WM_USER$ + 54 )
equ DTM_READCELLRECT$ to ( DT_WM_USER$ + 55 )
equ DTM_GETSELMODE$ to ( DT_WM_USER$ + 56 )
equ DTM_GETROWSTATUS$ to ( DT_WM_USER$ + 58 )
equ DTM_GETCURROWSEL$ to ( DT_WM_USER$ + 91 )
equ DTM_SELROW$ to ( DT_WM_USER$ + 59 )
equ DTM_SELROWRANGE$ to ( DT_WM_USER$ + 60 )
equ DTM_SELALLROWS$ to ( DT_WM_USER$ + 61 )
equ DTM_GETROWSELCOUNT$ to ( DT_WM_USER$ + 62 )
equ DTM_GETROWSELLIST$ to ( DT_WM_USER$ + 63 )
equ DTM_GETROWSELFIRST$ to ( DT_WM_USER$ + 64 )
equ DTM_GETROWSELNEXT$ to ( DT_WM_USER$ + 65 )
equ DTM_GETCOLSTATUS$ to ( DT_WM_USER$ + 66 )
equ DTM_GETCURCOLSEL$ to ( DT_WM_USER$ + 92 )
equ DTM_SELCOL$ to ( DT_WM_USER$ + 67 )
equ DTM_SELCOLRANGE$ to ( DT_WM_USER$ + 68 )
equ DTM_SELALLCOLS$ to ( DT_WM_USER$ + 69 )
equ DTM_GETCOLSELCOUNT$ to ( DT_WM_USER$ + 70 )
equ DTM_GETCOLSELLIST$ to ( DT_WM_USER$ + 71 )
equ DTM_GETCOLSELFIRST$ to ( DT_WM_USER$ + 72 )
equ DTM_GETCOLSELNEXT$ to ( DT_WM_USER$ + 73 )
equ DTM_GETCHARSEL$ to ( DT_WM_USER$ + 74 )
equ DTM_SETCHARSEL$ to ( DT_WM_USER$ + 75 )
equ DTM_GETVISROWS$ to ( DT_WM_USER$ + 81 )
equ DTM_GETVISCOLS$ to ( DT_WM_USER$ + 82 )
equ DTM_GETNOTIFYROW$ to ( DT_WM_USER$ + 83 )
equ DTM_GETNOTIFYCOL$ to ( DT_WM_USER$ + 84 )
equ DTM_GETCLICKPOS$ to ( DT_WM_USER$ + 85 )
equ DTM_GETCOLCFGSIZE$ to ( DT_WM_USER$ + 87 )
equ DTM_GETCOLCFG$ to ( DT_WM_USER$ + 88 )
equ DTM_SETCOLCFG$ to ( DT_WM_USER$ + 89 )
equ DTM_GETEDITKEY$ to ( DT_WM_USER$ + 93 )
equ DTM_SETEDITKEY$ to ( DT_WM_USER$ + 94 )
equ DTM_EDITCURRCELL$ to ( DT_WM_USER$ + 95 )
equ DTM_GETDTMETRICS$ to ( DT_WM_USER$ + 96 )
equ DTM_SETDTCOLOR$ to ( DT_WM_USER$ + 97 )
equ DTM_SETROWCOLOR$ to ( DT_WM_USER$ + 98 )
equ DTM_SETCOLCOLOR$ to ( DT_WM_USER$ + 99 )
equ DTM_SETCELLCOLOR$ to ( DT_WM_USER$ + 100 )
equ DTM_RESETDTCOLOR$ to ( DT_WM_USER$ + 101 )
equ DTM_RESETALLCOLOR$ to ( DT_WM_USER$ + 102 )
equ DTM_RESETROWCOLOR$ to ( DT_WM_USER$ + 103 )
equ DTM_RESETCOLCOLOR$ to ( DT_WM_USER$ + 104 )
equ DTM_RESETCELLCOLOR$ to ( DT_WM_USER$ + 105 )
equ DTM_VM_INITIALIZE$ to ( DT_WM_USER$ + 106 )
equ DTM_VM_GETROWDATA$ to ( DT_WM_USER$ + 107 )
equ DTM_VM_GETFIRST$ to ( DT_WM_USER$ + 108 )
equ DTM_VM_GETLAST$ to ( DT_WM_USER$ + 109 )
equ DTM_VM_GETPREV$ to ( DT_WM_USER$ + 110 )
equ DTM_VM_GETNEXT$ to ( DT_WM_USER$ + 111 )
equ DTM_VM_GETPERCENT$ to ( DT_WM_USER$ + 112 )
equ DTM_SETSORTCOL$ to ( DT_WM_USER$ + 113 )
equ DTM_SETROWFONT$ to ( DT_WM_USER$ + 114 )
equ DTM_SETCOLFONT$ to ( DT_WM_USER$ + 115 )
equ DTM_SETCELLFONT$ to ( DT_WM_USER$ + 116 )
equ DTM_RESETALLFONT$ to ( DT_WM_USER$ + 117 )
equ DTM_RESETROWFONT$ to ( DT_WM_USER$ + 118 )
equ DTM_RESETCOLFONT$ to ( DT_WM_USER$ + 119 )
equ DTM_RESETCELLFONT$ to ( DT_WM_USER$ + 120 )
equ DTM_SETDTFONT$ to ( DT_WM_USER$ + 121 )
equ DTM_RESETDTFONT$ to ( DT_WM_USER$ + 122 )
equ DTM_GETSORTCOL$ to ( DT_WM_USER$ + 123 )
equ DTM_GETSORTDIR$ to ( DT_WM_USER$ + 124 )
equ DTM_SETCFENDEDIT$ to ( DT_WM_USER$ + 125 )
equ DTM_GETCFENDEDIT$ to ( DT_WM_USER$ + 126 )
equ DTM_GETFIXEDHT$ to ( DT_WM_USER$ + 127 )
equ DTM_SETFIXEDHT$ to ( DT_WM_USER$ + 128 )
equ DTM_GETVERTALIGN$ to ( DT_WM_USER$ + 129 )
equ DTM_SETVERTALIGN$ to ( DT_WM_USER$ + 130 )
equ DTM_GETKEY$ to ( DT_WM_USER$ + 131 )
equ DTM_SETKEY$ to ( DT_WM_USER$ + 132 )
equ DTM_GETCOLPIXELS$ to ( DT_WM_USER$ + 133 )
equ DTM_SETCOLPIXELS$ to ( DT_WM_USER$ + 134 )
equ DTM_GETCLIENTWIDTH$ to ( DT_WM_USER$ + 135 )
equ DTM_GETCELLLEFTBOTTOM$ to ( DT_WM_USER$ + 136 )
equ DTM_GETCELLBITMAP$ to ( DT_WM_USER$ + 137 )
equ DTM_SETCELLBITMAP$ to ( DT_WM_USER$ + 138 )
equ DTM_SETDTROWHEIGHT$ to ( DT_WM_USER$ + 139 )
equ DTM_RESETDTROWHEIGHT$ to ( DT_WM_USER$ + 140 )
equ DTM_SETROWHEIGHT$ to ( DT_WM_USER$ + 141 )
equ DTM_RESETROWHEIGHT$ to ( DT_WM_USER$ + 142 )
equ DTM_GETRESIZECOL$ to ( DT_WM_USER$ + 143 )
equ DTM_SETRESIZECOL$ to ( DT_WM_USER$ + 144 )
equ DTM_AUTORESIZE$ to ( DT_WM_USER$ + 145 )
equ DTM_SETLISTDATA$ to ( DT_WM_USER$ + 146 )
equ DTM_RESYNCSCROLLBARS$ to ( DT_WM_USER$ + 147 )
equ DTM_GETDTROWHEIGHT$ to ( DT_WM_USER$ + 148 )
equ DTM_GETROWHEIGHT$ to ( DT_WM_USER$ + 149 )
equ DTM_GETDTHDRHEIGHT$ to ( DT_WM_USER$ + 150 )
equ DTM_SETDTHDRHEIGHT$ to ( DT_WM_USER$ + 151 )
equ DTM_GETROWSHADE$ to ( DT_WM_USER$ + 152 )
equ DTM_SETROWSHADE$ to ( DT_WM_USER$ + 153 )
equ DTM_GETODDROWSHADECOLOR$ to ( DT_WM_USER$ + 154 )
equ DTM_SETODDROWSHADECOLOR$ to ( DT_WM_USER$ + 155 )
equ DTM_GETEVENROWSHADECOLOR$ to ( DT_WM_USER$ + 156 )
equ DTM_SETEVENROWSHADECOLOR$ to ( DT_WM_USER$ + 157 )
equ DTM_GETCURSORPOSCELL$ to ( DT_WM_USER$ + 158 )
equ DTM_SETCOLHDRCOLOR$ to ( DT_WM_USER$ + 159 )
equ DTM_RESETCOLHDRCOLOR$ to ( DT_WM_USER$ + 160 )
equ DTM_SETCOLHDRFONT$ to ( DT_WM_USER$ + 161 )
equ DTM_RESETCOLHDRFONT$ to ( DT_WM_USER$ + 162 )
equ DTM_SETROWBTNCOLOR$ to ( DT_WM_USER$ + 163 )
equ DTM_RESETROWBTNCOLOR$ to ( DT_WM_USER$ + 164 )
equ DTM_SETROWBTNFONT$ to ( DT_WM_USER$ + 165 )
equ DTM_RESETROWBTNFONT$ to ( DT_WM_USER$ + 166 )
equ DTM_GETLASTVISCOL$ to ( DT_WM_USER$ + 167 )
equ DTM_GETLASTVISROW$ to ( DT_WM_USER$ + 168 )
equ DTM_GETFIRSTSCROLLCOL$ to ( DT_WM_USER$ + 169 )
equ DTM_GETLASTSCROLLCOL$ to ( DT_WM_USER$ + 170 )
equ DTM_GETEDITHWND$ to ( DT_WM_USER$ + 171 )
equ DTM_GETVSCROLLHWND$ to ( DT_WM_USER$ + 172 )
equ DTM_GETHSCROLLHWND$ to ( DT_WM_USER$ + 173 )
equ DTM_GETCOMBOBOXHWND$ to ( DT_WM_USER$ + 174 )
equ DTM_GETCOLFORMATLEN$ to ( DT_WM_USER$ + 175 )
equ DTM_GETDRAGIMAGE$ to ( DT_WM_USER$ + 176 )
equ DTM_GETCLIENTRECT$ to ( DT_WM_USER$ + 177 )
equ DTM_GETCOLDROPFORMAT$ to ( DT_WM_USER$ + 178 )
equ DTM_GETCOLDROPFORMATLEN$ to ( DT_WM_USER$ + 179 )
equ DTM_SETCOLDROPFORMAT$ to ( DT_WM_USER$ + 180 )
equ DTM_GETROWSTYLE$ to ( DT_WM_USER$ + 181 )
equ DTM_SETROWSTYLE$ to ( DT_WM_USER$ + 182 )
equ DTM_GETCELLSTYLE$ to ( DT_WM_USER$ + 183 )
equ DTM_SETCELLSTYLE$ to ( DT_WM_USER$ + 184 )
equ DTM_CALCCELLSTYLE$ to ( DT_WM_USER$ + 185 )
equ DTM_GETROWDROPLIST$ to ( DT_WM_USER$ + 186 )
equ DTM_GETROWDROPLISTLEN$ to ( DT_WM_USER$ + 187 )
equ DTM_SETROWDROPLIST$ to ( DT_WM_USER$ + 188 )
equ DTM_GETCELLDROPLIST$ to ( DT_WM_USER$ + 189 )
equ DTM_GETCELLDROPLISTLEN$ to ( DT_WM_USER$ + 190 )
equ DTM_SETCELLDROPLIST$ to ( DT_WM_USER$ + 191 )
equ DTM_GETFOCUSCELLFONT to ( DT_WM_USER$ + 192 )
equ DTM_SETFOCUSCELLFONT to ( DT_WM_USER$ + 193 )
equ DTM_GETFOCUSCELLCOLOR to ( DT_WM_USER$ + 194 )
equ DTM_SETFOCUSCELLCOLOR to ( DT_WM_USER$ + 195 )
equ DTM_GETFOCUSRECTSTYLE to ( DT_WM_USER$ + 196 )
equ DTM_SETFOCUSRECTSTYLE to ( DT_WM_USER$ + 197 )
equ DTM_GETFOCUSRECTWEIGHT to ( DT_WM_USER$ + 198 )
equ DTM_SETFOCUSRECTWEIGHT to ( DT_WM_USER$ + 199 )
equ DTM_GETFOCUSRECTCOLOR to ( DT_WM_USER$ + 200 )
equ DTM_SETFOCUSRECTCOLOR to ( DT_WM_USER$ + 201 )
equ DTM_RESETFOCUSCELLFONT to ( DT_WM_USER$ + 202 )
equ DTM_RESETFOCUSCELLCOLOR to ( DT_WM_USER$ + 203 )
equ DTM_GETROWLABEL to ( DT_WM_USER$ + 204 )
equ DTM_SETROWLABEL to ( DT_WM_USER$ + 205 )
equ DTM_GETDTROWLABEL to ( DT_WM_USER$ + 206 )
equ DTM_SETDTROWLABEL to ( DT_WM_USER$ + 207 )
equ DTM_GETDTCURSOR to ( DT_WM_USER$ + 208 )
equ DTM_SETDTCURSOR to ( DT_WM_USER$ + 209 )
equ DTM_FIRSTMSG$ to ( DT_WM_USER$ + 0 )
equ DTM_LASTMSG$ to ( DT_WM_USER$ + 207 )
///////////////////////////////////////////////////////////////////////////////
// Edit Table Metrics//////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DT_ROWHEIGHT$ to 1
equ DT_ROWWIDTH$ to 2
equ DT_HEADINGHT$ to 3
equ DT_LABELWIDTH$ to 4
///////////////////////////////////////////////////////////////////////////////
// Edit Table Class Names /////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DT_EDITTBLCLASSNAME$ to "EditTbl"
equ DT_DATATBLCLASSNAME$ to "DataTbl"
equ DT_EDITCTRLCLASSNAME$ to "dtedit"
///////////////////////////////////////////////////////////////////////////////
// EditCurrCell parameter values //////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DT_BEGINEDIT$ to 1
equ DT_ENDEDIT$ to 2
equ DT_ABORTEDIT$ to 3
///////////////////////////////////////////////////////////////////////////////
// Edit Table Row/Column Access Modes /////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTA_ACCESS$ to 0x0000
equ DTA_CURRENT$ to 0x0001
equ DTA_SELFIRST$ to 0x0002
equ DTA_SELNEXT$ to 0x0003
equ DTA_AUTOINC$ to 0x0004
equ DTA_AUTODEC$ to 0x0008
equ DTA_COLMAJOR$ to 0x0010
///////////////////////////////////////////////////////////////////////////////
// SetAccessPos special locations /////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTPOS_LAST$ to -1 ; * // last row or column
equ DTPOS_AFTERLAST$ to -2 ; * // after the last (insert & move only)
equ DTPOS_INVALID$ to -3 ; * // invalid pos (ie read past last row)
///////////////////////////////////////////////////////////////////////////////
// Edit Table Notification Codes //////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTN_CREATE$ to 1
equ DTN_DESTROY$ to 2
equ DTN_ERRSPACE$ to 3
equ DTN_SETFOCUS$ to 4
equ DTN_KILLFOCUS$ to 5
equ DTN_HSCROLL$ to 6
equ DTN_VSCROLL$ to 7
equ DTN_CELLFULL$ to 8
equ DTN_SELCHANGE$ to 9
equ DTN_MODECHANGE$ to 10
equ DTN_DBLCLK$ to 11
equ DTN_CHANGE$ to 12
equ DTN_UPDATE$ to 13
equ DTN_DROPDOWN$ to 14
equ DTN_POSCHANGE$ to 15
equ DTN_BEGINEDIT$ to 16
equ DTN_ABORTEDIT$ to 17
equ DTN_CLICKED$ to 18
equ DTN_COLSIZE$ to 20
equ DTN_COLADDED$ to 21
equ DTN_COLDELETED$ to 22
equ DTN_COLMOVED$ to 23
equ DTN_COLNAMECHANGED$ to 24
equ DTN_GOTKEY$ to 25
equ DTN_NOTAVAILABLE$ to 99
///////////////////////////////////////////////////////////////////////////////
// Edit Table CLICKPOS Notification Codes /////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ TABLEPOS_NOWHERE$ to 0
equ TABLEPOS_ONHEADING$ to 1
equ TABLEPOS_ONGRIDLINE$ to 2
equ TABLEPOS_ONCELL$ to 3
equ TABLEPOS_ONLABEL$ to 4
///////////////////////////////////////////////////////////////////////////////
// Edit Table Error Codes /////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DTE_OKAY$ to 0 ; * // (DWORD)0 /* NO ERROR */
equ DTE_NOTALLOWED$ to -1 ; * // (DWORD)-1 /* operation not allowed */
equ DTE_MESSAGENUM$ to -2 ; * // (DWORD)-2 /* invalid message */
equ DTE_CELLADDR$ to -3 ; * // (DWORD)-3 /* invalid cell address */
equ DTE_COLNUM$ to -4 ; * // (DWORD)-4 /* invalid column number */
equ DTE_ROWNUM$ to -5 ; * // (DWORD)-5 /* invalid row number */
equ DTE_NUMCOLS$ to -6 ; * // (DWORD)-6 /* invalid number of columns */
equ DTE_NUMROWS$ to -7 ; * // (DWORD)-7 /* invalid number of rows */
equ DTE_COLWIDTH$ to -8 ; * // (DWORD)-8 /* invalid column width */
equ DTE_COLTYPE$ to -9 ; * // (DWORD)-9 /* invalid column data type */
equ DTE_FIXEDLENGTH$ to -10 ; * // (DWORD)-10 /* column data type has fixed length */
equ DTE_TRUNCATED$ to -11 ; * // (DWORD)-11 /* data buffer was truncated */
equ DTE_NULLPOINTER$ to -12 ; * // (DWORD)-12 /* null pointer passed to function*/
equ DTE_NULLVALUE$ to -13 ; * // (DWORD)-13 /* null parameter passed to function */
equ DTE_NOMEMORY$ to -21 ; * // (DWORD)-21 /* insufficient memory */
equ DTE_NOMEMLOCK$ to -22 ; * // (DWORD)-22 /* cant lock memory */
equ DTE_STRINGTABLE$ to -23 ; * // (DWORD)-23 /* fatal string table size error */
equ DTE_OVERFLOW$ to -24 ; * // (DWORD)-24 /* exceeded max allowable length */
equ DTE_NORESLOAD$ to -25 ; * // (DWORD)-25 /* cant load resource */
equ DTE_NORESLOCK$ to -26 ; * // (DWORD)-26 /* cant lock resource */
equ DTE_ROWNOTINVIEW$ to -27 ; * // (DWORD)-27 /* row not in view (VM Managed Only) */
equ DTE_ROWOUTOFRANGE$ to -28 ; * // (DWORD)-28 /* row out of range (VM Managed Only) */
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ DT_DEFAULTCOLOR$ to 6777217
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
/*
DTCOLORSTRUCT
=============
A structure for use with the DTM_ color messages.
typedef struct
{
COLORREF BkgrdColor; // bkgrd color
COLORREF TextColor; // text color
COLORREF SelBkgrdColor; // selected bkgrd color
COLORREF SelTextColor; // selected text color
} DTCOLORSTRUCT;
( COLORREF is defined in WinDef.H as a DWORD which is a 32-bit unsigned
integer )
This structure should be created and stored in SYSOBJ as:
STRUCT_DTCOLORSTRUCT
*/
equ DTCS_POS_BACKCOLOR$ to 1
equ DTCS_POS_FORECOLOR$ to 2
equ DTCS_POS_SELBACKCOLOR$ to 3
equ DTCS_POS_SELFORECOLOR$ to 4
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ ETM_MOUSEMSGOFFSET$ to (WM_USER$ + 2100)
equ ETM_LBUTTONDOWN$ to (ETM_MOUSEMSGOFFSET$ + WM_LBUTTONDOWN$ )
equ ETM_LBUTTONUP$ to (ETM_MOUSEMSGOFFSET$ + WM_LBUTTONUP$ )
equ ETM_LBUTTONDBLCLK$ to (ETM_MOUSEMSGOFFSET$ + WM_LBUTTONDBLCLK$ )
equ ETM_MBUTTONDOWN$ to (ETM_MOUSEMSGOFFSET$ + WM_MBUTTONDOWN$ )
equ ETM_MBUTTONUP$ to (ETM_MOUSEMSGOFFSET$ + WM_MBUTTONUP$ )
equ ETM_MBUTTONDBLCLK$ to (ETM_MOUSEMSGOFFSET$ + WM_MBUTTONDBLCLK$ )
equ ETM_RBUTTONDOWN$ to (ETM_MOUSEMSGOFFSET$ + WM_RBUTTONDOWN$ )
equ ETM_RBUTTONUP$ to (ETM_MOUSEMSGOFFSET$ + WM_RBUTTONUP$ )
equ ETM_RBUTTONDBLCLK$ to (ETM_MOUSEMSGOFFSET$ + WM_RBUTTONDBLCLK$ )
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

7
SYSPROG/STPROCINS/ENCRYPT.CONSTANTS.txt Normal file
View File

@ -0,0 +1,7 @@
compile Insert Encrypt.constants
EQU ENCRYPT.ON$ TO \80\
EQU DEMO.ENCRYPT$ TO \81\
EQU ENCRYPT.KEY$ TO \504A4D\
* 08-10-16 rjc copied from Arev bp
* Source Date: 16:38:27 05 FEB 1988 Build ID: AREV*1.0.1 Level: 2.0

196
SYSPROG/STPROCINS/ENVIRON.CONSTANTS.txt Normal file
View File

@ -0,0 +1,196 @@
compile insert ENVIRON.CONSTANTS
* Positional definitions into @ENVIRON.SET variable
* Revision History:
* 05-11-94 janem PR-10468
* 04/23/93 SLJ Added HR-specific positions 120 thru 130
* 10/30/91 RKH Removed E.TIMEDATE.FMT (=91) as consequence of bug 5441
* 03/12/90 bda Added E.SYS.DELIM.SUPPRESS - suppress entry of system delimiters chars in INPUT.CHAR
* 10/11/90 rkp added E.DET - name of display equivalence table
* 10/11/90 rkp added E.PRN.DRVS,E.PRN.LPTNO - printer driver support vars
* 09/21/90 bda Added E.LND.DEFAULT -language set default name
* 09/21/90 bda Added E.QUERY.CASE - query case sensitivity (true=case insensitive)
* 10/02/90 bda Added E.LND.LOAD - language set load list
* 10/02/90 bda Added E.TIMEDATE.FMT - TIMEDATE() format override
* 06/29/90 rkp - Added E.VIDTYPE for storing monitor type
* 06/21/90 rkp - Added E.MOUSE.ON & E.MOUSE.DEF
* 01/08/90 bda - Added E.NULL.DISPLAY.STRING for SQL display formatting.
* 09/18/89 RKP - Added E.MSTYLE for menu style
* E.PULLDOWN.NUMBERS for numbering options on pulldowns
* 09/14/89 PAT - Added E.NETCACHE.OPTION for using network cache options
* 08/16/89 RKP - Added E.INDEX.CODE, E.INDEX.CMD, E.POST.CHECK.CODE,
* E.POST.CHECK.CMD for background process hooks
* 08/10/89 RKP - Added E.SHADOWS.ON
* 07/31/89 hhw - Added E.EDIT.CASE
* 07-07-89 JPV - Added E.DEFAULT.DATA.VOL
* 06-08-89 JPV - Removing some of the variables I added.
* 05-17-89 JPV - Added E.DISABLE.LOCK.INT
* 03-09-89 JPV - Added Concurrency control variables
* 02-18-88 MEN - Added E.VIEW.MODE
* 01/19/88 MEN - Added E.QUERY.BOTTOM E.QUERY.CHAR, E.QUERY.SEL.CODE, E.QUERY.SEL.CMD
* 02/02/87 MEN - Removed some PAINT and color variables
* 01/02/87 MEN - Added E.LINE.WRAP, E.LINE.INDENT, E.LINE.INSERT
* 11/18/86 MEN - Changed E.APPL.MENU to E.INSERT.MODE and got rid of
* E.ALT.ENVIRON, E.BACK.ATR
* 10/15/86 MEN - Added E.TCL.OFF, E.MACROS.OFF, E.CAPTURE.OFF, E.BREAK.OFF
* E.SET.MACROS.OFF, E.SELECT.FLUSH.OFF, E.DOS.SORT.VOL
* 10-15-86 JAH - Added E.MENU
* 09/08/86 JAW - Added Backdrop attribute
* 08/22/86 NGM - Added @QUERY.DEPTH
* 08/21/86 NGM - Added @TYPEAHEAD
*
EQU E.INSERT.MODE TO 1 ;* 1=Put editor in insert mode.
EQU E.BACK.CHAR TO 2 ;* If present, print this as the background char.
EQU E.TCL.DEPTH TO 3 ;* Number of TCL stack items saved in memory
EQU E.TCL.SAVE TO 4 ;* If not null, the FILE where to save stack.
* The key will be 'COMMAND.STACK*':@USERNAME
EQU E.PORT TO 5 ;* Communications port information baud, etc.
EQU E.LOGON TO 6 ;* 'M' brings up Main Menu when LOGON, 'T' brings
* up TCL window, 'S' displays the SQL window
EQU E.BG.BACK.COLOR TO 7 ;* Only needed for Color sequences
EQU E.ROLLOUT TO 8 ;* If present, this is the DOS filename where
* memory is rolled out to. (Used by PCS command)
* (not used by OS/2)
EQU E.DEFAULT.STOPS TO 9 ;* MV list of words thrown out when indexing and
* Cross-reference
EQU DATA.TYPE.VERIFICATION TO 10 ;* Flag to require prompting of data types
EQU E.TAB.STOPS TO 11 ;* System Tab stops variable separated by @VM
EQU E.STATUS.ON TO 12 ;* 1 = If status lines are to be printed.
EQU E.STATUS.FORE.COLOR TO 13 ;* Color literal of status line.
EQU E.CRTHIGH TO 14 ;* Height of CRT
EQU E.CRTWIDE TO 15 ;* Width of CRT
EQU E.LPTRHIGH TO 16 ;* Height of PRINTER
EQU E.LPTRWIDE TO 17 ;* Width of PRINTER
EQU E.EDIT.CASE TO 18 ;* True for case-insensitive edit searches
EQU E.DISP.CHFILL TO 20 ;* Column Heading Fill Char to Display
EQU E.EDIT.ATR TO 21 ;* Edit attribute color when in PAINT.
EQU E.ROW.LIMIT TO 22 ;* Maximum number of rows in a PAINT window.
EQU E.VIRTUAL.LIMIT TO 23 ;* Virtual space limitation
EQU E.PRT.CHFILL TO 24 ;* Column Heading Fill Char to Printer
EQU E.DISP.CHUND TO 25 ;* Column Heading Underline Char to Display
EQU E.PRT.CHUND TO 26 ;* Column Heading Underline Char to Printer
EQU E.TYPEAHEAD TO 27 ;* Type ahead flag - 1 = allow type ahead
* 0 = type ahead disabled ("eat" extra chars)
EQU E.QUERY.DEPTH TO 28 ;* Number of queries that may be stored
EQU E.INDEX.TIME TO 29 ;* Seconds before call to background indexing
* process. A zero or null will not call
* processor. A one will tell the
* background process that the station is
* dedicated to index processing.
EQU E.BACKGRND.TIME TO 30 ;* Seconds between checks for index
* transactions when no transactions found.
EQU E.PLAYDELAY TO 31 ;* Hundreths of seconds between keystrokes
* during CAPTURE playback.
EQU E.BG.FORE.COLOR TO 32 ;* Color to use with E.BACK.CHAR above.
EQU E.DFLT.DICT TO 33
EQU E.BEEPS TO 34 ;* Beeping messages if non-NULL.
EQU E.DFLT.BIND TO 35 ;* Default Dictionary Binding mode for Paint
EQU E.MESSAGE.TIME TO 36 ;* Default message time when 'T' type is used.
EQU E.MENU TO 37 ;* Default system menu for use by windows that don't have custom menus
EQU E.TCL.ON TO 38 ;* 1 = TCL window turned on from INPUT.CHAR
EQU E.ENABLE.MACRO.EXEC TO 39 ;* 1 = MACROS playback enabled.
EQU E.CAPTURE.ON TO 40 ;* 1 = KEY CAPTURE process enabled.
EQU E.ENABLE.MACRO.BUILD TO 41 ;* 1 = MACRO building enabled.
EQU E.SELECT.FLUSH.ON TO 42 ;* 1 = Flush Index Transactions BEFORE select.
EQU E.DOS.SORT.VOL TO 43 ;* The DOS volume where the temporary sort
* files will be built. If not specified then
* it uses the default drive.
EQU E.EDIT.SNAPSHOTS TO 44 ;* 1 = EDIT will take snapshots while exiting each edit session
EQU E.LINE.WRAP TO 45 ;* 1 = EDIT will auto wrap lines
EQU E.LINE.INDENT TO 46 ;* 1 = EDIT will auto indent lines
EQU E.LINE.INSERT TO 47 ;* 1 = EDIT will auto insert lines
EQU E.DEFAULT.MACRO TO 48 ;* Name of the macro to be loaded at logon
EQU E.SYS.MENU.POPUP TO 49 ;* 1 = Displays system menus on menu <F2>
EQU E.STATUS.BACK.COLOR TO 50 ;* status line background color
EQU E.DEFAULT.DATA.VOL TO 51 ;* Default data volume where files are
* created and some TCL commands such as LISTDICT are used
*EQU E.XX TO 52 ;* reserved
EQU E.SUPPRESS.NONNUMERIC TO 53 ;* Suppress nonnumeric error messages
EQU E.SUPPRESS.SYSTEM.MSGS TO 54 ;* Suppress system error messages
EQU E.QUERY.BOTTOM TO 55 ;* 1 = Prompt for all QUERY mode info in border
EQU E.QUERY.CHAR TO 56 ;* If present, print this as the QUERY mask character
EQU E.QUERY.SEL.CODE TO 57 ;* The CATALYST code used to display the QUERY SELECT window.
EQU E.QUERY.SEL.CMD TO 58 ;* The command used to display the QUERY SELECT window.
EQU E.VIEW.MODE TO 59 ;* 1 = R/LIST in View window; '' = Non-windowed RLIST
EQU E.VIEW.RLIST.CODE TO 60 ;* The CATALYST code for displaying the default R/LIST builder in View
EQU E.VIEW.RLIST.CMD TO 61 ;* The command associated with E.VIEW.RLIST.CODE
EQU E.HELP.LEVEL TO 62 ;* Help Level @HELP.LEVEL
EQU E.DESTRUCT.EDIT TO 63 ;* If Yes then editor will erase line when toggling is originated by first typed char
EQU E.FKEY.FGROUND TO 64 ;* Help level 1 & 2 status line function key foreground
EQU E.FKEY.BGROUND TO 65 ;* Help level 1 & 2 status line function key background
* Concurrency Control variables
EQU E.TRANS.VOL TO 66 ;* Transaction volume name. Where the
* trans files and other lock files are
* stored.
EQU E.UNLOCK.ALL.COMMIT TO 67 ;* 1 = true - then UNLOCK ALL imposed at
* commit time. 0 = false - only logged
* locks are unlocked at commit time.
EQU E.DEADLOCK.CHECK TO 68 ;* Interval (in seconds) for checking
* deadlock after deadlock process has
* been started.
EQU E.LOCK.TIMEOUT TO 69 ;* Number of seconds before transaction
* times out in a wait situation
EQU E.CONSISTENCY.LEVEL TO 70 ;* Number (0-4) for locking consistency
EQU E.LOCKING.GOV TO 72 ;* Number of allowable locks from this
* workstation.
EQU E.AUTOTRANS TO 73 ;* Auto transaction start mode.
* (ON = 1 or OFF = 0)
EQU E.DISABLE.LOCK.INT TO 74 ;* If "Y" this will disable the [Esc] key
* interrupt for the user while waiting
* for a lock.
EQU E.DEADLOCK.POSTING TO 75 ;* Number of seconds before deadlock
* checking is begun and locks are posted.
EQU E.SHADOWS.ON TO 76 ;* If true, borders are displayed with
* shadows.
* Background process equates
EQU E.INDEX.CODE TO 77 ;* Catalyst code for replace background
* process
EQU E.INDEX.CMD TO 78 ;* Catalyst command for replace background
* process
EQU E.POST.CHECK.CODE TO 79 ;* Catalyst code for post index check
* process
EQU E.POST.CHECK.CMD TO 80 ;* Catalyst command for post index check
* process
EQU E.NETCACHE.OPTION TO 81 ;* For network cache option
EQU E.MSTYLE TO 82 ;* menu style for WINUS
EQU E.PULLDOWN.NUMBERS TO 83 ;* BOOLEAN, number options on pulldowns
EQU E.NULL.DISPLAY.STRING TO 84 ;* String to represent NULL values in SQL
* report (display only).
EQU E.MOUSE.ON TO 85 ;* BOOLEAN, mouse enable switch
EQU E.MOUSE.DEF TO 86 ;* Key to record in SYSTEM file containing
* mouse definition record
EQU E.VIDTYPE TO 87 ;* Stores video card type
EQU E.LND.DEFAULT TO 88 ;* Active language set default name
EQU E.LND.LOAD TO 89 ;* List of language sets to load into memory
EQU E.QUERY.CASE TO 90 ;* query case sensitivity (true=case insensitive)
EQU E.PRN.DRVS TO 92 ;* List of printer drivers selected
EQU E.PRN.LPTNO TO 93 ;* Associated list of devices for redirection
EQU E.DET TO 94 ;* Name of display equivalence table to use
EQU E.SYS.DELIM.SUPPRESS TO 95 ;* BOOLEAN, suppress input of system
;* delimiter characters ( >= CHAR(250)). True = suppress.
Equ E.User1 To 96 ;* Reserved for Users/Developers
Equ E.User2 To 97 ;* ""
Equ E.User3 To 98 ;* ""
Equ E.User4 To 99 ;* ""
Equ E.User5 To 100 ;* ""
*** equates 120-130 are for the HR product ***
equ e.pen.view.color to 120 ;* pending view color
equ e.custom.colors to 121 ;* suppress the the custom colors (1/0)
equ bchar$ to 122 ;* background character with all video
* attributes gets constructed in
* initialize
* these are set by initialize
equ sr.vendor$ to 123 ;* vendor name (e.g., cdc, isi, rti)
equ sr.changes$ to 124 ;* changes flag (1/0)
equ sr.product$ to 125 ;* name of the product
equ sr.dflt.ac$ to 126 ;* default area code
equ sr.dflt.dt$ to 127 ;* default date
equ sr.hr_paycheck$ to 128 ;* hr-paycheck type (e.g. cdc, rti, etc.)
equ sr.pit_on$ to 129 ;* point in time flag
equ sr.clean_station$ to 130 ;* cleaned-up stationid
* Source Date: 12:06:56 11 MAY 1994 Build ID: AREV*3.1.180 Level: 3.13

219
SYSPROG/STPROCINS/ENVIRON_CONSTANTS.txt Normal file
View File

@ -0,0 +1,219 @@
compile insert environ_constants
/*
Amended Date Reason
======= ==== ======
Mr C 24 Jan 06 Added ENV_UNIQUE_STATION_ID$
mtr 05-25-06 Added ENV_DFLT_RPT_SHADOW_TYPE$
bzs 06-02-06 Added ENV_ODBC_CAT_ALL_TABLES$
WER 07/06/06 Added ENV_EXCLUDE_FROM_REPORTS$
spf 10/19/06 Added Equ ENV_DM_SORT_BY_DBID$ - Sort tables within the Database Manager Add by Database ID
RO 11/16/06 Added Equ EQU ENV_RELATIONAL_UPD_0$ - Update Zero Records when relational indexes are updated
bzs 02/07/07 Added ENV_SAVE_CONVERTED$ and ENV_CREATE_AREVUSER$
bzs 07/23/08 Added ENV_DATE_FORMAT$
mtr 08/25/08 Added ENV_B_DFLT_WIN_BACKCOLOR$
Added ENV_WIN_BACKCOLOR_VALUES$
Mr C 10/20/08 Added ENV_DEBUGGER_INTERCEPT_PROC$
bzs 10/22/08 Changed ENV_DATE_FORMAT$ To ENV_LOCALE$
bzs 02/24/09 Added ENV_OSWRITE$
rjc 05/06/09 Added env_BTREE_FLUSH_ON$
djh 01/27/17 Comment out focuscell equates
Mr C 25 Apr 19 Corrected comments for ENV_LOCALE$
*/
*** Pointers into the environment constants variable for OpenEngine
EQU ENVIRON_PREFIX$ TO "ENV_" ;* Prefix in sysenv for environment records
EQU E.DEFAULT.DATA.VOL TO 1 ;* Default data volume where files are
* created and some TCL commands such as LISTDICT are used
EQU ENV_DEFAULT_DATA_VOL$ TO 1
EQU E.DOS.SORT.VOL TO 2 ;* The DOS volume where the temporary sort
* files will be built. If not specified then
* it uses the default drive.
EQU ENV_DOS_SORT_VOL$ TO 2
EQU E.TRANS.VOL TO 3 ;* Transaction volume name. Where the
* trans files and other lock files are
* stored.
EQU ENV_TRANS_VOL$ TO 3
EQU E.DEFAULT.STOPS TO 4 ;* MV list of words thrown out when indexing and
* Cross-reference
EQU ENV_DEFAULT_STOPS$ TO 4
EQU E.INDEX.TIME TO 5 ;* Seconds before call to background indexing
* process. A zero or null will not call
* processor. A one will tell the
* background process that the station is
* dedicated to index processing.
EQU ENV_INDEX_TIME$ TO 5
EQU E.SELECT.FLUSH.ON TO 6 ;* 1 = Flush Index Transactions BEFORE select.
EQU ENV_SELECT_FLUSH_ON$ TO 6
EQU E.UNLOCK.ALL.COMMIT TO 7 ;* 1 = true - then UNLOCK ALL imposed at
* commit time. 0 = false - only logged
* locks are unlocked at commit time.
EQU ENV_UNLOCK_ALL_COMMIT$ TO 7
EQU E.DEADLOCK.CHECK TO 8 ;* Interval (in seconds) for checking
* deadlock after deadlock process has
* been started.
EQU ENV_DEADLOCK_CHECK$ TO 8
EQU E.LOCK.TIMEOUT TO 9 ;* Number of seconds before transaction
* times out in a wait situation
EQU ENV_LOCK_TIMEOUT$ TO 9
EQU E.CONSISTENCY.LEVEL TO 10 ;* Number (0-4) for locking consistency
EQU ENV_CONSISTENCY_LEVEL$ TO 10
EQU E.LOCKING.GOV TO 11 ;* Number of allowable locks from this
* workstation.
EQU ENV_LOCKING_GOV$ TO 11
EQU E.AUTOTRANS TO 12 ;* Auto transaction start mode.
* (ON = 1 or OFF = 0) for a lock.
EQU ENV_AUTOTRANS$ TO 12
EQU E.DEADLOCK.POSTING TO 13 ;* Number of seconds before deadlock
* checking is begun and locks are posted.
EQU ENV_DEADLOCK_POSTING$ TO 13
EQU E.NETCACHE.OPTION TO 14 ;* For network cache option
EQU ENV_NETCACHE_OPTION$ TO 14
EQU E.LND.DEFAULT TO 15 ;* Active language set default name
EQU ENV_LND_DEFAULT$ TO 15
EQU E.LND.LOAD TO 16 ;* List of language sets to load into memory
EQU ENV_LND_LOAD$ TO 16
EQU E.QUERY.CASE TO 17 ;* query case sensitivity (true=case insensitive)
EQU ENV_QUERY_CASE$ TO 17
EQU E.TIMEDATE.FMT TO 18 ;* TIMEDATE() override output format for
;* system processes and for TIMEDATE( ) function.
EQU ENV_TIMEDATE_FMT$ TO 18
EQU E.SUPPRESS.NONNUMERIC TO 19 ;* Suppress nonnumeric error messages
EQU ENV_SUPPRESS_NONNUMERIC$ TO 19
EQU E.LPTRHIGH TO 20 ;* Height of PRINTER
EQU ENV_LPTRHIGH$ TO 20
EQU E.LPTRWIDE TO 21 ;* Width of PRINTER
EQU ENV_LPTRWIDE$ TO 21
EQU E.NULL.DISPLAY.STRING TO 22 ;* String to represent NULL values in SQL
* report (display only).
EQU ENV_NULL_DISPLAY_STRING$ TO 22
EQU ENV_DEBUGGER_ENABLED$ TO 23 ;* 1 - Debugger Enabled 0 - Debugger Disabled, 2- Debugger Intercepted To Debugger_Replacement
EQU ENV_DEFAULT_FOLDER$ TO 24 ;* Default folder for stored procedures.
EQU ENV_DEFAULT_IOCONV$ TO 25 ;* 0 - No conversion 1 - do convert and validate - with protect.mfs
EQU ENV_COMMIT_VOL$ TO 26 ;* Commit volume
EQU ENV_COMMIT_PROTECT$ TO 27 ;* 1 - Commit protected 0 - commit unprotected.
EQU ENV_VICTIM_SELECT$ TO 28 ;* (NUMERIC) deadlock resolution victim selection mode.
EQU ENV_IMPLICIT_LOCK_TYPE$ TO 29 ;* 0 - Table lock, 1 - Record lock
EQU ENV_COORDINATED_LOCK$ TO 30 ;* 1 - Table/record locks coordinated.
EQU ENV_ENTITY_LOG_CNT$ TO 31 ;* no. of logs each entity keeps
EQU ENV_STARTUP_PROC$ TO 32 ;* Startup procedure called by INITIALIZE when starting
;* an application (boot or change application time)
;* Prototype:
;* subroutine ...(FirstInitFlag, StationId)
;* where
;* FirstInitFlag -- TRUE$ for initial engine startup
;* StationId -- set this parameter to modify @station
EQU ENV_SHUTDOWN_PROC$ TO 33 ;* Shutdown procedure... Called by REVSHUTDOWNPROC when closing
;* Prototype:
;* subroutine ...(FirstInitFlag, StationId)
;* where
;* FirstInitFlag -- TRUE$ for initial engine startup
;* StationId -- set this parameter to modify @station
EQU ENV_CONCURRENCY_SCHEME$ TO 34 ;* used for SQL bond optimization
EQU ENV_FILTER_TABLES_PROC$ TO 35 ;* custom security filter (primarily for ReportDesigner):
;* Prototype: function ... (AllTableList)
;* Returns: @fm delimited list of allowed tables
EQU ENV_FILTER_COLUMNS_PROC$ TO 36 ;* custom security filter (primarily for ReportDesigner):
;* Prototype: function ... (TableName, AllColumnList)
;* Returns: @fm delimited list of allowed columns
EQU ENV_DATASOURCE_TYPE$ TO 37 ;* DataSource type (primarily used by XOInstance, DSInstance)
EQU ENV_XO_DEFAULTS$ TO 38 ;* DataSet/Connection Object defaults
EQU ENV_AREV_COMPAT_RTP9$ TO 39 ;* 1=Arev compatibility mode for RTP9 (Warning! Breaks Rev_SQL)
;* 0=OpenInsight compatibility mode for RTP9 (default)
EQU ENV_UNIQUE_STATION_ID$ TO 40 ;* 1=Append ProcessID to 'normal' @station
EQU ENV_DFLT_RPT_SHADOW_TYPE$ TO 41 ;* Html Or rtf
EQU ENV_ODBC_CAT_ALL_TABLES$ TO 42 ;* Override flag - display _all_ attached tables regardless of SQLTables qualifier
EQU ENV_EXCLUDE_FROM_REPORTS$ To 43 ;* Exclude these tables from list of available tables for Report Builder reports
EQU ENV_DFLT_OIPI_UOM$ TO 44 ;* Standard Or Metric
Equ ENV_DM_SORT_BY_DBID$ To 45 ; * Sort tables within the Database Manager Add by Database ID
EQU ENV_RELATIONAL_UPD_0$ To 46 ;* Update Zero Records when relational indexes are updated
equ ENV_SAVE_CONVERTED$ TO 47 ;* 0 = Do not preserve precompiled source
;* 1 = Save converted precompiled source in SYSLISTS (DEFAULT)
equ ENV_CREATE_AREVUSER$ TO 48 ;* 0 = Creation of OI user does not create AREV32 user (DEFAULT)
;* 1 = Creation of OI user creates AREV32 user
equ ENV_OIPI_SAVE_PATH$ TO 49 ;* Default Path for OIPI files (PDF,RTF,Etc)
equ ENV_EXCLUDE_FIELDS$ TO 50 ;* Fields to be excluded from reports in report builder
* bzs 102208 Equ ENV_DATE_FORMAT$ To 51 ;* 0=US/1=European/-1=Determine from Locale
Equ ENV_LOCALE$ To 51 ;* 0=None/1=LND/2=Determine from Windows Locale ;* bzs 102208
* mtr 8-25-08
Equ ENV_B_DFLT_WIN_BACKCOLOR$ To 52 ;* Boolean: Yes means show a default background color for all windows
Equ ENV_WIN_BACKCOLOR_VALUES$ to 53 ;* From color and to color, @Vm delimited
equ ENV_DEBUGGER_INTERCEPT_PROC$ to 54 ; * // Name of an SSP to use for debugger intercepts.
; * // Defaults to "debugger_replacement"
Equ ENV_LANG_SET$ To 55 ;* The language set used by the system. It should be one of the lnd_ records in the sysenv table.
Equ ENV_OSWRITE$ To 56 ;* BZS 022409 Flag to use new style in oswrite (always convert value to string)
* 01/27/17 djh - Remove focuscell equates, not deleting so we can see what used to be in these fields
* mtr 3-13-09 glad I'm not triskadeccaphobic
/*Equ ENV_B_USE_FOCUSCELL$ To 57; * MTR Use the FocusCell settings
Equ env_FOCUSCELL_FONT$ To 58; * mtr font and related data to use in the edittable cell that has focus
Equ env_FOCUSCELL_FGCOLOR$ To 59; * foreground color for the edittable cell that has does not focus
Equ env_FOCUSCELL_BGCOLOR$ To 60; * background color for the edittable cell that has does not focus
Equ env_FOCUSCELL_SELECT_FGCOLOR$ To 61; * foreground color for the edittable cell that has focus
Equ env_FOCUSCELL_SELECT_BGCOLOR$ To 62; * background color for the edittable cell that has focus
Equ env_FOCUSCELL_RECTSTYLE$ To 63; * rectangle style for the edittable cell that has focus; 0=dotted, 1=solid
Equ env_FOCUSCELL_RECTWEIGHT$ to 64; * rectangle weight for the edittable cell that has focus; 0=light, 1=medium, 2=thick
Equ env_FOCUSCELL_RECTCOLOR$ To 65; * color of the rectangle*/
* rjc 5-06-09 Hexakosioihexekontahexaphobia is a Revelation problem
Equ env_BTREE_FLUSH_ON$ To 66; * true if btree.extract should flush indexes before query
* mtr 7-29-10
*Equ env_source_code_management$ To 67; * true means we will use the source code management routines
* WER 10/27/14
Equ env_git_enabled$ To 67; * true means we will use the Git system
Equ ENV_MSG_STYLESHEET$ To 68 ;* STYLESHEET To BE USED For ALL MESSAGES

99
SYSPROG/STPROCINS/EVENT_SETUP.txt Normal file
View File

@ -0,0 +1,99 @@
Compile insert Event_Setup
/***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from SRP Computer Solutions, Inc.
Name : Event_Setup
Description : Declarations and equates used by the form event commuters.
Notes : Event_Setup also populates several variables that will often be useful within event handler code.
History : (Date, Initials, Notes)
08/13/10 dmb Original programmer.
***********************************************************************************************************************/
Declare function Get_Property, Set_Property, Get_Current_Event, Get_Window_ID, Get_Record
// Return values to indicate how the event flow should continue.
Equ EVENT_STOP$ to 0 ; // Event flow should stop
Equ EVENT_CONTINUE$ to 1 ; // Event flow should continue until a later process changes this value
Equ EVENT_CONTINUE_NO_PROMOTED$ to 2 ; // Event flow should by-pass the promoted (generic) logic but allow the system event handler to execute
Equ EVENT_CONTINUE_NO_SYSTEM$ to 3 ; // Event flow should execute the promoted (generic) logic but stop the system event handler from executing
Equ EVENT_SYSTEM_ONLY$ to 4 ; // Event flow should execute the system event handler only (normal option for third-party windows running in FrameWorks)
// Make sure any event parameters which have not been assigned are nulled.
If Assigned(CtrlEntId) else CtrlEntId = ''
If Assigned(Event) else Event = ''
If Assigned(Param1) else Param1 = ''
If Assigned(Param2) else Param2 = ''
If Assigned(Param3) else Param3 = ''
If Assigned(Param4) else Param4 = ''
If Assigned(Param5) else Param5 = ''
If Assigned(Param6) else Param6 = ''
If Assigned(Param7) else Param7 = ''
If Assigned(Param8) else Param8 = ''
If Assigned(Param9) else Param9 = ''
If Assigned(Param10) else Param10 = ''
If Assigned(Param11) else Param11 = ''
If Assigned(Param12) else Param12 = ''
If Assigned(Param13) else Param13 = ''
If Assigned(Param14) else Param14 = ''
If Assigned(Param15) else Param15 = ''
// Get the design time name of the window in case this is a multi-instance window.
Window = @Window[1, 'F*']
MDIFrame = Get_Property(@Window, 'MDIFRAME')
Parent = Get_Property(@Window, 'PARENT')
If MDIFrame EQ '' then MDIFrame = Parent ; // Dialog boxes won't set the MDIFRAME property so use the PARENT property.
// Always get the CtrlClassID since we are not passing it through the event parameters.
CtrlClassId = Get_Property(CtrlEntId, 'TYPE')
// Get the name of the control on the window based on the CtrlClassId.
Begin Case
Case CtrlClassId EQ 'WINDOW'
Control = Window
Case CtrlClassId EQ 'RADIOBUTTON'
Control = Field(CtrlEntId, '.', 2, 2)
Case CtrlClassId EQ 'MENU'
Control = CtrlEntId[-1, 'B.']
Case 1
Control = Field(CtrlEntId, '.', 2, 1)
End Case
// If this is an OLE control, get the ProgID.
ProgID = ''
If CtrlClassId EQ 'OLECONTROL' then ProgID = Get_Property(CtrlEntId, 'ORIG_TEXT')
// Get the Event Type so generic event functionality can be executed properly.
EventType = Get_Current_Event()
// Combine the event type and control into an event action.
If EventType EQ 'OLE' then
// Because the Promoted_Events function transfers parameters, this will only appear correctly in a commuter module.
EventAction = Event : '.' : Control
end else
EventAction = EventType : '.' : Control
end
// Get the current window's key ID. Strip off the @SVM if this window is ignoring self-locks.
KeyID = Get_Property(@Window, 'ID')[1, 'F' : @SVM]
// If KeyID is null then check to see if the key controls are populated. If so, then this is probably a locked record.
// ID properties are null with locked records.
If KeyID EQ '' then
KeyID = Get_Window_ID(@Window)
end
// Get the current window's record.
Record = Get_Property(@Window, 'ATRECORD')
// If the window uses QuickEvents to call the commuter module, check for @EVENT in the event parameter. This is here for
// backwards compatability. OpenInsight 7.1 and higher automatically swaps @EVENT with the actual event. Prior versions
// of OpenInsight will just pass the literal through. Therefore, this will swap out @EVENT with the actual event.
If Event EQ '@EVENT' then Swap '@EVENT' with EventType in Event

107
SYSPROG/STPROCINS/EVERRORS.txt Normal file
View File

@ -0,0 +1,107 @@
compile insert EVERRORS
*----------------------------------------------------------------------------
*
*
* OpenInsight Event Error codes for Set_EventStatus and Get_EventStatus
*
* December 14, 1993
*
*
* EventErrors format:
* <ErrorList> = <error1> : @fm : <error2> : @fm : ...
* <error> = <code> : @vm : <arg1> : @vm : <arg2> : @vm : ...
*
*----------------------------------------------------------------------------
/*
Comments
========
EV_RETVAL$ is a bit of a hack. Basically we tend to use some events as
though they were methods, and there's nothing we can really do about that
now, but the problem with that is there isn't any way to return a value
from Send_Event to the calling routine.
So... what we've done is defined EV999 as a code you can use to denote
that the values following it are just data and are _NOT_ an error. As
you're limited to an @vm-delimited array you should really be passing
back lots of complex data. Internally @vm's are stored as @tm's on the
event stack when pushed there via Set_EventStatus so you should really
avoid returning anything containing system delimiters.
What we really need is Get/Set_Property and Exec_Method to work against
a registered type or instance specific "commuter" module, and then we
can really implement custom properties and methods, but that's a story
for another day methinks...
Amended Date Reason
====== ==== ======
Mr C 01 Feb 21 Added EV_RESETSKERR$
Mr C 14 Sep 16 Added EV_PROPVALERR$
Mr C 29 Dec 14 Added EV_ERRVAL$
Mr C 27 Dec 14 Added EV_DSNTESTRUNERROR$
Mr C 19 Sep 14 Added EV_FDSBUILDERROR$
Mr C 04 Sep 14 Added EV_FDSPARSEERROR$
Added EV_RETVAL$
Mr C 25 Feb 14 Added EV_DSNCREATERROR$
Added EV_TPLCREATERROR$
Added EV_INVALIDDSNPROP$
Mr C 12 Nov 13 Added EV_NULLWINNAME$
Mr C 29 Jul 13 Added EV_NULLPROCNAME$
Mr C 21 Feb 06 Added EV_WINMSGVAL$ for returning a value to PS
during WINMSG processing. Note this uses the same
field in the event stack as event status error codes
so PS will not get a return value if Set_EventStatus
is used to return an error.
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _EVERRORS_
#define _EVERRORS_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ EV_CODE$ to 1
equ EV_ARGS$ to 2
equ EV_PREFIX$ to "EV"
equ EV_UNKNOWNERR$ to "EV100" ; * // Unknown Event Handler error
equ EV_REQUIREERR$ to "EV101" ; * // Required Error
equ EV_VALIDERR$ to "EV102" ; * // Validation Error
equ EV_FORMREADERR$ to "EV103" ; * // Form Read Error
equ EV_FORMREADSUBERR$ to "EV104" ; * // Form Read Sub Error
equ EV_NULLKEYERR$ to "EV105" ; * // Null Key Error
equ EV_NOLOCKERR$ to "EV106" ; * // Locking Error
equ EV_USERCANCEL$ to "EV107" ; * // User Cancel
equ EV_NULLPROCNAME$ to "EV108" ; * // Null procedure name
equ EV_INVALIDPROCNAME$ to "EV109" ; * // %1% is not a valid stored procedure name
equ EV_PARAMNOTALLOWED$ to "EV110" ; * // The %1% stored procedure does not accept parameters
equ EV_NULLWINNAME$ to "EV111" ; * // Null window name
equ EV_DSNCREATERROR$ to "EV112" ; * // DSN (IDE Designer) Create Error [%1%]
equ EV_TPLCREATERROR$ to "EV113" ; * // TPL (IDE ToolPanel) Create Error [%1%]
equ EV_INVALIDDSNPROP$ to "EV114" ; * // DSN (IDE Designer) PROPCHANGED validation error
equ EV_FDSPARSEERROR$ to "EV115" ; * // FDS (IDE FormDes) Parser Error [%1%]
equ EV_FDSBUILDERROR$ to "EV116" ; * // FDS (IDE FormDes) Builder Error [%1%]
equ EV_DSNWRITEERROR$ to "EV117" ; * // DSN (IDE Designer) Write error [%1%]
equ EV_DSNTESTRUNERROR$ to "EV118" ; * // DSN (IDE Designer) Test-Run error [%1%]
equ EV_PROPVALERR$ to "EV119" ; * // Invalid Property Value [%1%]
equ EV_QBFPARSEERR$ to "EV130" ; * // QBF Parser Error [%1%]
equ EV_QBFINITOFF$ to "EV132" ; * // Query By Form is not active
equ EV_QBFACTIVATELIST$ to "EV133" ; * // QBF saved list activation error [%1%]
equ EV_QBFINVALIDINDEX$ to "EV134" ; * // "%1%" is not a valid position in the QBF result list
equ EV_QBFINVALIDID$ to "EV135" ; * // "%1%" is not a valid ID in the QBF result list
equ EV_RESETSKERR$ to "EV136" ; * // Error resetting sequential key counter [%1%]
equ EV_WINMSGVAL$ to "EV200" ; * Return WINMSG value to PS
equ EV_ERRVAL$ to "EV998" ; * Returned error data to the calling proc (usually contains SSP error details)
equ EV_RETVAL$ to "EV999" ; * Return data to the calling proc - NOT an error!!!
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

53
SYSPROG/STPROCINS/FFS_EQUATES.txt Normal file
View File

@ -0,0 +1,53 @@
compile insert FFS_EQUATES
/*
Copyright (c) 1992-2012 Revelation Software. All rights reserved.
* This program is proprietary and is not to be used by or disclosed
* to others, nor is it to be copied without written permission from
* Revelation Technologies, Inc.
Author ???
Date ???
Purpose Equates for use with the Fast Filing System (aka RTP65)
Comments
========
Amended Date Reason
======= ==== ======
Mr C 15 Oct 12 Moved from REV_BP
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _FFS_EQUATES_
#define _FFS_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
EQU FFS_NO_ERR$ TO 0
EQU FFS_TABLE_EXIST_ERR$ TO 1
EQU FFS_TABLE_NOT_EXIST_ERR$ TO 2
EQU FFS_TABLE_ALREADY_OPEN_ERR$ TO 3
EQU FFS_REC_DNE_ERR$ TO 4
EQU FFS_UNKNOWN_CODE$ TO 5
EQU CREATE$ TO 0
EQU OPEN$ TO 1
EQU CLOSE$ TO 2
EQU CLEAR$ TO 3
EQU READ$ TO 4
EQU WRITE$ TO 5
EQU DELETE$ TO 6
EQU NEXT_METHOD$ TO 1
EQU ARG_CNT$ TO 2
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

56
SYSPROG/STPROCINS/FILE.SYSTEM.EQUATES.txt Normal file
View File

@ -0,0 +1,56 @@
compile insert FILE.SYSTEM.EQUATES
* Advanced Revelation filing system action codes.
EQU READ.RECORD TO 1
EQU READO.RECORD TO 2
EQU WRITE.RECORD TO 3
EQU DELETE.RECORD TO 4
EQU LOCK.RECORD TO 5
EQU UNLOCK.RECORD TO 6
EQU SELECT TO 7
EQU READNEXT TO 8
EQU CLEARSELECT TO 9
EQU CLEARFILE TO 10
EQU OPEN.FILE TO 11
EQU CREATE.FILE TO 12
EQU RENAME.FILE TO 13
EQU MOVE.FILE TO 14
EQU DELETE.FILE TO 15
EQU OPEN.MEDIA TO 16
EQU CREATE.MEDIA TO 17
EQU READ.MEDIA TO 18
EQU WRITE.MEDIA TO 19
EQU UNLOCK.ALL TO 20
EQU FLUSH TO 21
EQU INSTALL TO 22
*EQU RESERVED TO 23
*EQU RESERVED TO 24
*EQU RESERVED TO 25
EQU OMNI.SCRIPT TO 26
* Following OMNI.SCRIPT sub-codes are passed in the FMC
EQU OMNIBUS_LIST$ TO 'GROUP_NUMBER'
EQU OMNIBUS_CALL$ TO 0 ;* Required
EQU SMART_TEST$ TO 1 ;* Required - returns 0 in FLAG if
* bond is NOT smart. Otherwise returns
* an intelligence factor in FLAG.
EQU SCRIPT_CALL$ TO 2 ;* Intelligent database language script
* for smart bonds only
EQU SCRIPT_OK_CALL$ TO 3 ;* For smart bonds only. If true then
* asynchronous processesing is used.
EQU CLOSE.MEDIA TO 27
EQU RECORD.COUNT TO 28
EQU REMAKE.FILE TO 29
EQU CREATE.INDEX TO 30
EQU DELETE.INDEX TO 31
EQU UPDATE.INDEX TO 32
EQU SELECT.INDEX TO 33
EQU READNEXT.INDEX TO 34
* Source Date: 16:41:43 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0

3
SYSPROG/STPROCINS/FILE.SYSTEM.ONGOSUB.txt Normal file
View File

@ -0,0 +1,3 @@
compile insert FILE.SYSTEM.ONGOSUB
ON CODE GOSUB READ.RECORD,READO.RECORD,WRITE.RECORD,DELETE.RECORD,LOCK.RECORD,UNLOCK.RECORD,SELECT,READNEXT,CLEARSELECT,CLEARFILE,OPEN.FILE,CREATE.FILE,RENAME.FILE,MOVE.FILE,DELETE.FILE,OPEN.MEDIA,CREATE.MEDIA,READ.MEDIA,WRITE.MEDIA,UNLOCK.ALL,FLUSH,INSTALL,RESERVED,RESERVED,RESERVED,OMNI.SCRIPT,CLOSE.MEDIA,RECORD.COUNT, REMAKE.FILE,CREATE.INDEX,DELETE.INDEX,UPDATE.INDEX,SELECT.INDEX,READNEXT.INDEX
* Source Date: 16:41:43 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0

10
SYSPROG/STPROCINS/FILE.VOLUMES.EQUATES.txt Normal file
View File

@ -0,0 +1,10 @@
Compile Insert FILE.VOLUMES.EQUATES
*
* This is the equate record for the VOLUMES file.
EQU F.V.MEDIA.NAME$ TO 1
EQU F.V.DATA.LOCATION$ TO 2
EQU F.V.FILE.LIST$ TO 3
EQU F.V.VOLUME.FS$ TO 4
EQU F.V.MAP.HANDLE$ TO 5
* Source Date: 12:25:33 12 OCT 1989 Build ID: AREV*1.13.126 Level: 2.0

13
SYSPROG/STPROCINS/FILE_FILES_EQUATES.txt Normal file
View File

@ -0,0 +1,13 @@
Compile Insert File_Files_Equates
*
*
* This is the equate record for the FILES file.
EQU F.F.VOLUME.NAME$ TO 1
EQU F.F.REAL.NAME$ TO 2
EQU F.F.ACCOUNT.NAME$ TO 3
EQU F.F.FILING.SYSTEM$ TO 4
EQU F.F.FILE.HANDLE$ TO 5

59
SYSPROG/STPROCINS/FONT_EQUATES.txt Normal file
View File

@ -0,0 +1,59 @@
compile insert font_Equates
/*
Author Mr C
Date August 2002
Purpose General FONT equates
Comments
========
Amended Date Reason
======= ==== ======
*/
* // FONT property structure position equates
equ FONT_POS_FACENAME$ to 1
equ FONT_POS_HEIGHT$ to 2
equ FONT_POS_WEIGHT$ to 3
equ FONT_POS_ITALIC$ to 4
equ FONT_POS_UNDERLINE$ to 5
equ FONT_POS_WIDTH$ to 6
equ FONT_POS_CHARSET$ to 7
equ FONT_POS_PITCHANDFAMILY$ to 8
equ FONT_POS_STRIKEOUT$ to 9
equ FONT_POS_OUTPRECISION$ to 10
equ FONT_POS_CLIPPRECISION$ to 11
equ FONT_POS_QUALITY$ to 12
* // CHARSET equates
equ ANSI_CHARSET$ to 0
equ DEFAULT_CHARSET$ to 1
equ SYMBOL_CHARSET$ to 2
* // LOGFONT struct equates ( for use with STRUCT_LOGFONT )
equ LOGFONT_POS_HEIGHT$ to 1
equ LOGFONT_POS_WIDTH$ to 2
equ LOGFONT_POS_ESCAPEMENT$ to 3
equ LOGFONT_POS_ORIENTATION$ to 4
equ LOGFONT_POS_WEIGHT$ to 5
equ LOGFONT_POS_ITALIC$ to 6
equ LOGFONT_POS_UNDERLINE$ to 7
equ LOGFONT_POS_STRIKEOUT$ to 8
equ LOGFONT_POS_CHARSET$ to 9
equ LOGFONT_POS_OUTPRECISION$ to 10
equ LOGFONT_POS_CLIPPRECISION$ to 11
equ LOGFONT_POS_QUALITY$ to 12
equ LOGFONT_POS_PITCHANDFAMILY$ to 13
equ LOGFONT_POS_FACENAME$ to 14
* // FONT stock objects ...
equ OEM_FIXED_FONT$ to 10
equ ANSI_FIXED_FONT$ to 11
equ ANSI_VAR_FONT$ to 12
equ SYSTEM_FONT$ to 13
equ DEVICE_DEFAULT_FONT$ to 14
equ DEFAULT_PALETTE$ to 15
equ SYSTEM_FIXED_FONT$ to 0x10
equ DEFAULT_GUI_FONT$ to 17

15
SYSPROG/STPROCINS/FONT_PARM.txt Normal file
View File

@ -0,0 +1,15 @@
compile insert FONT_PARM
* FONT PARMS
EQU F_NAME$ TO 1
EQU F_POINTSIZE$ TO 2
EQU F_JUST$ TO 3
EQU F_BOLD$ TO 4
EQU F_ITALICS$ TO 5
EQU F_UNDERLINE$ TO 6
EQU F_STRIKETHRU$ TO 7
EQU F_FORECOLOR$ TO 8
EQU F_ESCAPEMENT$ TO 9

150
SYSPROG/STPROCINS/FOREIGN.SUBS.EQUATES.txt Normal file
View File

@ -0,0 +1,150 @@
COmpile Insert Foreign.Subs.Equates
*>>
* FOREIGN.SUBS.EQUATES - equates for the subroutine handler supplied with
* bond.
*
* Each environmental bond may supply a subroutine handler as part of its
* bonding kit. This subroutine has a name of the form XXXX.SUBS, where
* 'XXXX' is the name of the bond (e.g. DBASE, ASCII, etc.).
*<<
!
!
*
* FOREIGN.SUBS command codes
*
* The first argument to the subroutine handler is a code which specifies
* the function to be performed:
*
EQU FBS.TYPE.EXPAND$ TO 1
*>>
* FBS.TYPE.EXPAND$ - bond-specific fill-out of dictionary record.
*
* Syntax:
* $INSERT FOREIGN.SUBS.EQUATES
* CALL ____.SUBS(FBS.TYPE.EXPAND$, TYPE.ARGS, MAP.RECORD, FILE.ATTR
* DICT.RECORD, STATUS)
*
* Where:
* TYPE.ARGS -
* contains the fieldmark-separated argument values for the core
* generic type. Note that, for derived types, this may be different
* than the argument list which appears in the 'D.E.GENERIC.TYPE'
* field of 'DICT.RECORD'.
* MAP.RECORD -
* is the record from the type-mapping table which corresponds to the
* type mapping the user has (implicitly or explicitly) selected.
* FILE.ATTR -
* contains the bond-specific file attributes as returned by the
* associated bond-specific collector window. Each attribute value
* is separated by a fieldmark. The first field is reserved for
* specifying the "file type". If this argument is NULL, the default
* file attributes are to be assumed.
* DICT.RECORD -
* contains the dictionary record to be filled out. This may already
* have been partially filled out by the user and/or the generic type
* expansion routines.
* STATUS -
*
* Description:
* FBS.TYPE.EXPAND$ may be called by BOND.SUBS when it is using a type
* specification to fill out a dictionary record. The bond designer specifies
* which mappings require bond-specific manipulation of the dictionary record
* by setting a flag (BSTM.CALL.EDIT$) in the corresponding record in the
* type mappings file.
*<<
EQU FBS.MAP.FILENAME$ TO 2
*>>
* FBS.MAP.FILENAME$ - Map filename into acceptable foreign filename.
*
* Syntax:
* $INSERT FOREIGN.SUBS.EQUATES
* CALL ____.SUBS(FBS.MAP.FILENAME$, NAME.IN, NAME.OUT, STATUS)
*
* Where:
* NAME.IN -
* Contains a filename to be validated for the foreign
* environment.
* NAME.OUT -
* Will contain a translated version of the input filename
* which would be acceptable to the foreign environment. If
* the input filename did not require any translation, then
* NAME.OUT will be set to NAME.IN.
* STATUS -
* '' - The input filename is acceptable to
* the foreign environment as is.
* FS_INVALID_FILENAME_ERR$
* - The input file name cannot be directly
* represented in the foreign environment.
* Description:
* FBS.MAP.FILENAME$ can be used to map an Advanced Revelation
* filename into a foreign filename. It can also be used to
* determine the validity of a foreign filename. If the given
* filename is legal in the foreign environment, then it is
* returned and STATUS will be NULL. If not, the bond will return
* (in NAME.OUT) a similar filename which is legal and will set the
* status to FS_INVALID_FILENAME_ERR$
*<<
EQU FBS.MAP.FIELDNAME$ TO 3
*>>
* FBS.MAP.FIELDNAME$ - Map fieldname into acceptable foreign fieldname.
*
* Syntax:
* $INSERT FOREIGN.SUBS.EQUATES
* CALL ____.SUBS(FBS.MAP.FIELDNAME$, NAME.IN, NAME.OUT, STATUS)
*
* Where:
* NAME.IN -
* Contains a fieldname to be validated for the foreign
* environment.
* NAME.OUT -
* Will contain a translated version of the input fieldname
* which would be acceptable to the foreign environment. If
* the input fieldname did not require any translation, then
* NAME.OUT will be set to NAME.IN.
* STATUS -
* '' - The input fieldname is acceptable to
* the foreign environment as is.
* FS_INVALID_FIELDNAME_ERR$
* - The input file name cannot be directly
* represented in the foreign environment.
* Description:
* FBS.MAP.FIELDNAME$ can be used to map an Advanced Revelation
* fieldname into a foreign fieldname. It can also be used to
* determine the validity of a foreign fieldname. If the given
* fieldname is legal in the foreign environment, then it is
* returned and STATUS will be NULL. If not, the bond will return
* (in NAME.OUT) a similar fieldname which is legal and will set the
* status to FS_INVALID_FIELDNAME_ERR$
*<<
EQU FBS.SELECT.DERIVED$ TO 4
*>>
* FBS.SELECT.DERIVED$ - Select which type this one is derived from.
*
* Syntax:
* $INSERT FOREIGN.SUBS.EQUATES
* CALL ____.SUBS(FBS.SELECT.DERIVED$, TYPE.NAME, TYPE.ARGS,
* SELECTED.TYPE, STATUS)
*
* Where:
* TYPE.NAME -
* is an input variable containing the name of a data type in
* TYPE_TABLE.
* TYPE.ARGS -
* is an input variable containing the arguments to the data type
* specified in TYPE.NAME. These arguments will be separated by
* field marks.
* SELECTED.TYPE -
* is an output variable containing a data type specification,
* including parameters, if any.
* STATUS -
* is either NULL if no error was encountered
* Description:
* FBS.SELECT.DERIVED$ is used to dynamically decide what data type
* a particular type is derived from. When the "Derived From" field of
* a TYPE_TABLE record contains the word "DYNAMIC", BOND.SUBS will call
* FOREIGN.SUBS with this function code in order to obtain a dynamically-
* generated value for the "Derived From" field. This value may contain
* insertable parameters (e.g. "%1%").
*
*<<
* Source Date: 15:47:15 09 JAN 1991 Build ID: AREV*2.1.26 Level: 2.1

126
SYSPROG/STPROCINS/FSERRORS_0.txt Normal file
View File

@ -0,0 +1,126 @@
compile insert FSERRORS_0
*----------------------------------------------------------------------------
* Block 0 - 99
*
* Advanced Revelation System Logical Error codes
*
* June 2, 1989
* ALL ERRORS IN THIS EQUATE ARE LOGICAL LEVEL (STATUS = 0)
* ;* Description / Parameters
*----------------------------------------------------------------------------
EQUATE FS_DATA_DOMAIN_ERR$ TO 10
* Domain validation error of data / KEY
* FSDETAIL$ structure -
* allows for SQL - multiple tables
* <error-detail> := <table-error-detail> { @vm <table-error-detail> }
* <table-error-detail> := [ <table-number> ] @svm <record-id> @svm
* <record-error-detail>
*
* <record-error-detail>:= <column-error-detail> { @svm <column-error-detail> }
* <column-error-detail> := [ <column-name> ] @stm [ <column-number> ] @tm
* <error-code> { @tm <error-code> }
*
* General Rules:
* 1. Either column name or column number or both must be
* present in <column-error-detail>. Column name is preferred.
* 2. If the error report is for a single table then <table-number> may be
* Null.
* 3. For special case detail code 30 (too many fields), column name is null
*
* Notes:
* For a single table error report:
* CODE<1, 1, 1> = "" ;* NO TABLE NUMBER REQUIRED (VALUE OF 1 ACCEPTABLE)
* CODE<1, 1, 2> = RECID
* ERRS = FIELD(CODE, @SVM, 3, 32768)
* * where each err is the field name and/or number and a list of errcodes
* * delimited by text marks.
*
* Error codes for column (field) error detail.
EQUATE FSDOMAIN_NULL$ TO 1 ;* attempt to write null to non-null column
EQUATE FSDOMAIN_INPAT_DATA$ TO 2 ;* data doesn't conform to input pattern
EQUATE FSDOMAIN_INPAT_PATRN$ TO 3 ;* invalid input pattern
EQUATE FSDOMAIN_INPAT_PATRN2$ TO 4 ;* more invalid input patterns
EQUATE FSDOMAIN_ICONV_DATA$ TO 5 ;* invalid data for iconv pattern.
EQUATE FSDOMAIN_ICONV_PATRN$ TO 6 ;* invalid iconv pattern
EQUATE FSDOMAIN_OCONV_DATA$ TO 7 ;* invalid data for oconv pattern
EQUATE FSDOMAIN_OCONV_PATRN$ TO 8 ;* invalid oconv pattern
EQUATE FSDOMAIN_OCONV_PATRN2$ TO 9
EQUATE FSDOMAIN_UNIQUE$ TO 10 ;* attempt to write duplicate data into unique non-key column
EQUATE FSDOMAIN_TEST_NAME$ TO 11 ;* system error -
EQUATE FSDOMAIN_CHAR_TRUNC$ TO 20 ;* character string too long for fixed length field - data truncated.
EQUATE FSDOMAIN_TRAIL_BLANK_LOSS$ TO 21 ;* trailing blanks would be lost.
EQUATE FSDOMAIN_ILLEGAL_CHARS$ TO 22 ;* illegal characters cannot be stored in this field.
EQUATE FSDOMAIN_NUM_TOO_LARGE$ TO 23 ;* number is too large to be stored
EQUATE FSDOMAIN_NUM_TOO_SMALL$ TO 24 ;* number is too small (negative) to be stored
EQUATE FSDOMAIN_NUM_TOO_PRECISE$ TO 25 ;* number is too precise (decimal part) to be stored.
EQUATE FSDOMAIN_TOOMANY_FLDS$ TO 30 ;* too many fields in record written
*............................................................................
EQUATE FS_BAD_CONVERSION_NAME$ TO 11 ; * Protect.mfs (Column name in valid or does not require conversion / Label
EQUATE FS_REDUCTION_FAIL$ TO 12 ; * Protect.mfs (Record did not pass Reduction criteria) / KEY
EQUATE FS_IMPLICIT_LOCK_FAIL$ TO 13 ; * Protect.mfs could not aquire lock. / KEY
EQUATE FS_ACCESS_DENIED$ TO 14 ; * Logical access denied (usually due to lock activity)
*----------------------------------------------------------------------------
* Meta-data logical I/O errors:
*
EQUATE FS_DICT_REDEFINE_ERR$ TO 50
* The dictionary may not be modified (master fields) - Write (update or
* insert) or Delete operations are not valid while a file is not in
* DEFINING state. This is intended for bonds which have rigid file structures
* Parameters: Dictionary record KEY.
*
EQUATE FS_DICT_DOMAIN_ERR$ TO 51
* Used for errors encounterd in explicit or implicit writes to dictionary.
* FSMSG parameter Dict record key.
* FSDETAIL structure:
* <errlist> = <erritem> { svm <erritem> }
* <erritem> = <errcode> [ tm <errdetail> ]
EQUATE FSDICT_MULTIKEY_ERR$ TO 1 ;* detail: none
* multi-part key not allowed
EQUATE FSDICT_KEYTYPE_ERR$ TO 2 ;* detail: foreign type
* data type not legal for key field
EQUATE FSDICT_MULTIVALUES_ERR$ TO 3 ;* detail: none
* multi-valued fields not supported.
EQUATE FSDICT_DATA_TYPE_ERR$ TO 4 ;* detail: data type
* illegal data type for this field in foreign environment
EQUATE FSDICT_FOREIGN_NAME_ERR$ TO 5 ;* detail: foreign name
* Specified foreign field name not legal in foreign environment
EQUATE FSDICT_ATTRIBUTE_ERR$ TO 6 ;* detail: attribute value
* The specified attribute value is illegal in the foreign environment
*
*----------------------------------------------------------------------------
* These errors may be returned on attempt to create data file or
* on OPEN when synchronizing dict with foreign file structure
EQUATE FS_FOREIGN_FILENAME_ERR$ TO 52
* Invalid Foreign File name fsmsg: file name, foreign name
EQUATE FS_TOOMANY_FIELDS_ERR$ TO 53
* max field count exceeded fsmsg: max supported, requested
EQUATE FS_COL_CONTINUITY_ERR$ TO 54
* field positions not contiguous (gaps) fsmsg: missing field position(s)
EQUATE FS_NO_MASTERFIELDS_ERR$ TO 55
* no Master fields defined
EQUATE FS_NO_DICTFILE_ERR$ TO 56
* Dictionary file does not exist
EQUATE FS_DUP_COLNAME_ERR$ TO 57
* Duplicate foreign field name detected fsmsg: colname, foreign name
EQU FS_NAMECHANGED$ TO 60 ;* Dict.mfs changed the name for
* backward compatibility reasons.
* Source Date: 16:41:44 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0

97
SYSPROG/STPROCINS/FSERRORS_100.txt Normal file
View File

@ -0,0 +1,97 @@
compile insert fserrors_100
*----------------------------------------------------------------------------
* Block 100
*
* Advanced Revelation System BFS error codes.
*
* June 1, 1989 Begun
* July 11, 1989 Pat added error code 107 & 124
* July 19, 1989 Pat added error code 109, 134 & 160
* July 28, 1989 Pat added error code 150, 151 & 152
* Aug. 2, 1989 Pat added error code 171, 172, 173, 174 ,175 & 176.
* Apr 9, 1990 MKI Added error codes 180 - 184
* Oct 15, 1990 JED Added error codes 190 - 196
* Oct 22, 1990 MKI Added error codes 185 - 189
* Mar 09, 1998 cp Added error code 112 (from Swap_Database)
* STATUS ; params
EQUATE FS_REC_DNE$ TO 100 ;* 0 record does not exist on read or delete ;
EQUATE FS_WRITE_FILE_DNE$ TO 101 ;* 2 Write error: file does not exist / bad DOS name.
EQUATE FS_WRITE_READONLY$ TO 102 ;* 0 Write error: attempt to write to read-only file / access to file denied by DOS.
EQUATE FS_WRITE_VOL_FULL$ TO 103 ;* 1 Write error: disk volume full.
EQUATE FS_WRITE_ERR$ TO 104 ;* 2 Write error: nature unknown.
EQUATE FS_READ_FILE_DNE$ TO 105 ;* 1 Read error: file does not exist / bad DOS name.
EQUATE FS_READ_DENIED$ TO 106 ;* 1 Read error: OS denied access to file.
EQUATE FS_READ_ERR$ TO 107 ;* 2 Read error: nature unknown.
EQUATE FS_INVALID_MAP_QUALIFIER$ TO 109 ;* 1 Invalid map qualifier ; map_qualifier
EQUATE FS_INVALID_MAP_HANDLE$ TO 110 ;* 1 Invalid map handle ; map_handle
EQUATE FS_READNEXT_DONE$ TO 111 ;* 0 Normal condition of termination of readnext. ; no paramters
EQUATE FS_SYS_CANNOT_INSTALL$ TO 112
EQUATE FS_INSTALL_LH_ERR$ TO 113 ;* 2 Install error,used in RTP59
EQUATE FS_INSTALL_MEM_RES_ERR$ TO 114 ;* 2 Used in RTP50
EQUATE FS_INSTALL_VOLUME_ERR$ TO 115 ;* 2 Used in RTP50
EQUATE FS_INSTALL_FILES_ERR$ TO 116 ;* 2 Used in RTP50
EQUATE FS_GFE_RETRY_ERR$ TO 124 ;* 2 Group format (lhread.c) error retry again to read next group but failed
EQUATE FS_GFE_REC_TRUNC$ TO 125 ;* 2 Group format error record truncated across frame boundaries.
EQUATE FS_GFE_LINK_ERR$ TO 126 ;* 2 Group format error wrong ov frame linked to group.
EQUATE FS_GFE_REC_TERM_ERR$ TO 127 ;* 2 Group format error no @fm term. record (possibly record length corrupted)
EQUATE FS_LHE_LNP_ERR$ TO 128 ;* 2 Linear Hash error (LNP incorrect due to modulo corruption)
EQUATE FS_LHE_GROUP_ERR$ TO 129 ;* 2 Linear Hash error (Group calculation error - CHECK_HASH)
EQUATE FS_NOT_IMPL$ TO 130 ;* 1 BFS code not implemented ; code ; BFS name
EQUATE FS_UNDEFINED_ERROR$ TO 133 ;* 2 Undefined OS error ; error code:@FM:filename:@VM:status()
EQUATE FS_OMNI_BFS$ TO 134 ;* 0 for basic query (un)intelligent BFS, used when FMC is 1, for conform to 2.0 error handling.
EQUATE FS_SERVER_ERR$ TO 135 ;* 0 Basic Server Bond ; Server name, Server error #, Script sent, other info ...
EQUATE FS_TOOMANY_FIELDS$ TO 140 ;* 0 Unable to create file %1% ; too many fields
EQUATE FS_MISSING_FIELD$ TO 141 ;* 0 Field no. %2% is missing from the dictionary of file %1%
EQUATE FS_ILLEGAL_DATA$ TO 142 ;* 0 Illegal data writing record %2% on file %1%
EQUATE FS_MISSING_DICT$ TO 143 ;* 0 The dictionary is missing for file %1%
EQUATE FS_MISSING_RECORD$ TO 144 ;* 0 Record %2% is missing from file %1%
EQUATE FS_FILE_NOT_EXIST$ TO 145 ;* 0 File %1% doesn't exist
EQUATE FS_FILE_ALREADY_EXISTS$ TO 146 ;* 0 File %1% already exists
EQUATE FS_ILLEGAL_FILE_ATTRIBUTES$ TO 147 ;* 0 Illegal file attribute - unable to create file %1%
EQUATE FS_ILLEGAL_KEY$ TO 148 ;* 0 %2% is an illegal key for file %1%
EQUATE FS_FILE_DELETE_PROTECTED$ TO 149 ;* 1 File %1% is delete-protected
EQUATE FS_DOS_REC_TOO_LONG$ TO 150 ;* 1 %1% is too long to manipulate - used in OSREAD/WRITE.
EQUATE FS_ROS_REC_TOO_LONG$ TO 151 ;* 1 %1% is too long to manipulate - used in OSREAD/WRITE.
EQUATE FS_CONTROL_REC_TOO_LONG$ TO 152 ;* 1 %1% is too long maintain, usually used by %RECORDS%, %FIELD%.
EQUATE FS_LH_MEM_ERR$ TO 160 ;* 2 Failed to allocate enough string space, string space format error.
EQUATE FS_LH_LOCK_TAB_OVERFLOW$ TO 161 ;* LH lock table overflow, rev_stop will be called.
EQUATE FS_WRITE_DENIED_LICENSING$ TO 162 ;* wRITE DENIED due to licensing restrictions
* The following are for the INSTALL call to the underlying engine. They
* are mainly used in netid()* for each different fsnet module. Note that one
* can still continue session but no locking will be provided.
* Pat Aug. 2, 89
EQUATE FS_INSTALL_DOS_WRONG_VER$ TO 171 ;* 0 wrong DOS version (3.1 and above) to support network version AREV.
EQUATE FS_INSTALL_OPEN_LOCKFILE_FAILED$ TO 172 ;* 0 can not open REVBOOT for doing byte range locking x3dc0.
EQUATE FS_INSTALL_GET_MACHINE_NAME_FAILED$ TO 173 ;* 0 can't get name in int21 call x5e00 .
EQUATE FS_INSTALL_DRV_LOCAL_NO_CONFIG$ TO 174 ;* 0 used in byte range & banyan network, either no driver configured (BYN) int 60 x0A or drive is local x4409.
EQUATE FS_INSTALL_BYN_INT_TABLE_ENTRY_NULL$ TO 175 ;* 0 interrupt vector table is not loaded with addr available for banyan shell call.
EQUATE FS_INSTALL_NOVELL_LOG_STATION_NULL$ TO 176;* 0 return 0 means network is not active.
* FS180 through FS184 are generated in the OS/2 network drivers.
EQUATE FS_INSTALL_NOVELL_NO_NET$ TO 180 ;* 0 not logged in or server inactive
EQUATE FS_INSTALL_NOVELL_NO_NET_NO_LOCKING$ TO 181 ;* 0 same as 180 plus no local locking
EQUATE FS_INSTALL_LANMAN_NO_LOCKING$ TO 182 ;* 0 no locking
EQUATE FS_INSTALL_LANMAN_NO_NET$ TO 183 ;* 0 no computername or no network
EQUATE FS_INSTALL_LANMAN_NO_NET_NO_LOCKING$ TO 184 ;* 182 and 183 combined
* FS185 through FS188 are initialization errors for multitasking network drivers
EQUATE FS_INSTALL_LOCAL_ONLY_ERR$ TO 185 ;* Will only work locally
EQUATE FS_INSTALL_NO_LOCKFILE$ TO 186 ;* Lockfile not found
EQUATE FS_INSTALL_NO_STN_ID$ TO 187 ;* Station ID not found
EQUATE FS_INSTALL_NO_SHARE_EXE$ TO 188 ;* Share.exe not loaded
EQUATE FS_INSTALL_LOCALLOCKS_NOT_SUPPORTED$ TO 189 ;* local locking not supported
EQUATE FS_INSTALL_BANYAN_NO_INT$ TO 190 ;* The Banyan VINES Service Interrupt was not found
EQUATE FS_INSTALL_BANYAN_NO_TSR$ TO 191 ;* The "BANCOM" TSR was not found
EQUATE FS_INSTALL_BANYAN_NO_STREETTALK$ TO 192 ;* The user's VINES StreetTalk name was not found
EQUATE FS_INSTALL_BANYAN_SOCK_ERR$ TO 193 ;* An error was encountered while opening the VINES Communications Socket
EQUATE FS_INSTALL_BANYAN_INIT_ERR$ TO 194 ;* An error was encountered while initializing the network driver
EQUATE FS_INSTALL_BANYAN_NO_SERVICES$ TO 195 ;* No lock services are connected
EQUATE FS_INSTALL_BANYAN_CONN_ERR$ TO 196 ;* An error was encountered while connecting the lock service for drive %1%

68
SYSPROG/STPROCINS/FSERRORS_200.txt Normal file
View File

@ -0,0 +1,68 @@
compile insert FSERRORS_200
* compile insert FSERRORS_200
* Had to rem out the above line to prevent compile errors, RLP 6-7-94.
*----------------------------------------------------------------------------
* Block 200 - 299
*
* Advanced Revelation System GENERIC and MFS error codes
*
* STATUS DESCRIPTION ; MSG PARAMETERS
*----------------------------------------------------------------------------
EQUATE FS_FILE_OPEN_ERR$ TO 200 ;* 1 Generic R/BASIC OPEN fail in MFS, or BFS or support module ; FILE NAME
EQUATE FS_ITEM_READ_ERR$ TO 201 ;* 1 Generic read fail of non-relational data item (control record etc.) ; FILE_NAME, RECORD ID
EQUATE FS_NO_ERROR_CODE$ TO 202 ;* No error code returned in @file.error; PARAMLINE1, PARAMLINE2 ;*
EQUATE FS_INDEX_OPEN_ERR$ TO 210 ;* 1 Cannot open !file (index file) associated with data file. ; Data File Name
EQUATE FS_INDEX_CORRUPT_ERR$ TO 211 ;* 2 Index is corrupted ; Filename, Indexname
EQUATE FS_INDEX_COMPILE_ERR$ TO 212 ;* 1 Index transaction code compilation error ; DATA FILE NAME
EQUATE FS_BTREE_READ_ERR$ TO 213 ;* 2 trouble reading leaf node from btree %1% handle, %2% leaf node name.
EQUATE FS_RELATIONAL_CORRUPT_ERR$ TO 214 ;* 2 !file corrupted - reinstall relationals ; Filename
EQUATE FS_QUICK_RHTDEX_CORR_ERR$ TO 215 ;* 0 %RECORDS% corrupted, will ask to do select/readnext to re-create it. %1% filename.
EQUATE FS_TRANS_ATTACH_ERR$ TO 216 ;* 0 BFS cannot be attached during a transaction
EQUATE FS_TRANS_DETACH_ERR$ TO 217 ;* 0 BFS cannot be detach during a transaction
EQUATE FS_INDEX_SELECT_ERR$ TO 218 ;* 1 Invalid index select - field not indexed or not capable.
EQUATE FS_INDEX_NOT_CREATED_ERR$ TO 219 ;* index not created, field, file name
EQUATE FS_REL_NEED_REBUILD_ERR$ TO 220 ;* relational index needs rebuilt; field_name.
EQUATE FS_INVALID_REL_SORT_METHOD$ TO 221 ;* 0 not BOT, TOP, AL .... method in relational index; field, sort method.
EQUATE FS_LOW_MEM_ERR$ TO 250 ;* 0 memory shortage to compile ; Req. mem size, available mem size
EQUATE FS_META_COMPILE_ERR$ TO 251 ;* 1 Problems compiling meta code ; Source code name, Code location
EQUATE FS_BASIC_COMPILE_ERR$ TO 252 ;* 1 Problems compiling R/BASIC code ; Source Code, Code Location
EQUATE FS_CALCULATEX_ERR$ TO 253 ;* 1 Failed to evaluate dictionary field ; Dictionary field
EQUATE FS_FILENAME_ERR$ TO 254 ;* 1 Error formulating the filename given the handle ; File handle
EQUATE FS_CREATE_FILE_ERR$ TO 255 ;* 1 Problems trying to create a file; Filename
EQUATE FS_RENAME_TRANS_ERR$ TO 256 ;* 0 Renaming a file isn't allowed when transaction control is ON. ;
EQUATE FS_CREATE_TRANS_LOG_ERR$ TO 257;* Creation of transaction log file failed; FILENAME
EQUATE FS_RENAME_INDEX_ERR$ TO 258 ;* 0 Rename only DATA portion of an indexed file; FILE.NAME.
EQUATE FS_RENAME_REL_ERR$ TO 259 ;* 0 Rename indexed failed bec related file is not attached for updating FILE.NAME:@vm:RELATED.FILE.
EQUATE FS_LOCK_LIMIT_ERR$ TO 260 ;* 2 Lock limit exceeded ; Lock limit
EQUATE FS_LOCK_SYNC_ERR$ TO 261 ;* 2 LOCK_INFO@ variable out of synch with SYS.LOCKS variable ; Lock filename, Lock record (if record lock)
EQUATE FS_LOCK_TIMEOUT_ERR$ TO 262 ;* 2 Timer ran out while waiting for a lock ; Lock Timer (in seconds)
EQUATE FS_LOCK_INT_ERR$ TO 263 ;* 2 User interrupted wait for lock; Lock filename, Lock record (if record lock)
EQUATE FS_DEADLOCK_ERR$ TO 264 ;* 2 General deadlock error ; Operation or procedure
EQUATE FS_VICTIM_ERR$ TO 265 ;* 2 Selected as a victim ;
EQUATE FS_RENAME_REL_ACCT_ERR$ TO 266 ;* 0 rename index file to different acct with relational index on it, FILE.NAME.
EQUATE FS_FIL_CPY_NO_D$ TO 267 ;* 0 file has rel index but doing copy without D opt; FILENAME
EQUATE FS_DELAY_UNLOCK$ TO 268 ;* 0 Delay UNLOCK. Used only w/PROTECT.MFS & RTP37 modules
EQUATE FS_FLD_DNE_ERR$ TO 270 ;* 0 The field specified Does Not Exist - SELECT.INDEX ; FIELD.NAME
EQUATE FS_FLD_NOT_INDEXED_ERR$ TO 271 ;* 0 The field specified is not indexed - SELECT.INDEX ; FIELD.NAME
EQUATE FS_INVALID_FILENAME_ERR$ TO 272 ;* 0 The filename %1% specified is invalid in the foreign env.
EQUATE FS_INVALID_FIELDNAME_ERR$ TO 273 ;* 0 The fieldname %1% specified is invalid in the foreign env.
EQUATE FS_FOREIGN_SYNC_ERROR$ TO 274 ;* 1 Unable to open %1% - dictionary is out of sync with %2
EQUATE FS_REC_WRITE_PROTECT_ERR$ TO 275 ;* 0 Can't be modified, FILENAME:@VM:FIELDNAME
EQUATE FS_BAD_MFS_LIST$ TO 276 ;* 2 BFS list is not complete, code:@FM:bfs.
EQUATE FS_INVALID_RN_DIRECTION$ TO 277 ;* 1 %1 is an invalid direction code in SI.MFS readnext call
EQUATE FS_INVALID_RN_POINTER$ TO 278 ;* 1 no arg - readnext pointer is invalid.
EQUATE FS_REC_DELETE_PROTECT_ERR$ TO 279 ;* 0 Can't be deleted, FILENAME:@VM:FIELDNAME
EQUATE FS_C_DATA_SEG_READ_ERR$ TO 280 ;* 'C' subroutine Data segment not found in file %1%, record %2%.
EQUATE FS_C_ENVIRONMENT_ERR$ TO 281 ;* Undefined 'C' environment error. Possibly not enough memory
EQUATE FS_LANG_MISMATCH$ TO 290 ;* %1% lang used, %2% curr system setup; for quick/rightdex lang mismatch
EQUATE FS_LIST_OVERFLOW_ERR$ TO 291 ;* list over 64K in btree.sub. operations or RELATER routines
EQUATE FS_INVALID_BFS_TYPE_ERR$ TO 292 ;* wrong type for lhverify; bfs type
EQUATE FS_WRONG_PRODUCT$ TO 293 ;* Can't compile %1% in current product.
EQUATE FS_ERROR_LENGTH_ERR$ TO 294 ;* Error detail approaching 64k, process aborted.
* Source Date: 15:13:50 07 JUN 1994 Build ID: OI*3.0.11 Level: 3.0

51
SYSPROG/STPROCINS/FSERRORS_300.txt Normal file
View File

@ -0,0 +1,51 @@
compile insert FSERRORS_300
*----------------------------------------------------------------------------
* Block 300 - 399
*
* Advanced Revelation System BOND.SUBS error codes.
*
* June 2, 1989
*
* Beneath the equates for each error code are comments which document
* the values that will appear in the second field of the error status
* variable.
*----------------------------------------------------------------------------
EQU FS_BS_CANT_OPEN$ TO 300 ;* 0 Can't open file ; name of file
EQU FS_BS_NTYPE$ TO 301 ;* 0 No such generic type defined ; the type name
EQU FS_BS_NCOMMA$ TO 302 ;* 0 Missing comma in type specification. ; text of type specification
EQU FS_BS_NQUOTE$ TO 303 ;* 0 Unbalanced quotation marks ; text of type specification , # of argument at fault
EQU FS_BS_NMAP$ TO 304 ;* 0 The specified bond did not supply a mapping for the specified generic type ; Bond name , Type name
EQU FS_BS_NFIELD.ATTR$ TO 305 ;* 0 The specified bond did not supply a collector window for foreign field attributes ; Bond name
EQU FS_BS_NFILE.ATTR$ TO 306 ;* 0 The specified bond did not supply a collector window for foreign file attributes ; Bond name
EQU FS_BS_BAD_ARG$ TO 307 ;* 0 Invalid argument(s) to BOND.SUBS.
EQU FS_BS_NTYPE_ARG$ TO 308 ;* 0 The type specification did not supply a required argument or supplied an invalid value for it ; type specification , arg# , mnemonic name for arg
EQU FS_BS_TYPE_REQUIRED$ TO 309 ;* 0 This BFS requires datatypes on dictionary records ; BFS name
EQU FS_BS_NVOL.ATTR$ TO 310 ;* 0 The specified bond did not supply a collector window for foreign file attributes ; Bond name
EQU FS_BS_NBOND.DERIVED$ TO 311 ;* 0 The specified bond does not contain code to dynamically derive this type. ; BFS name, data type
EQU FS_BS_NBOND.MAPPING$ TO 312 ;* 0 The specified bond does not contain code to dynamically select a mapping for this data type. ; BFS name, data type
EQU FS_BS_NSYNONYM$ TO 313 ;* 0 The synonym specified by this data type does not exist in TYPE_TABLE. ; data type, synonym
EQU FS_BS_NDERIVED$ TO 314 ;* 0 The type this data type is derived from does not exist in TYPE_TABLE. ; data type, derived type.
EQU FS_BS_WRONGMAP$ TO 315 ;* 0 The specified mapping name is not a mapping for this generic type. ; Bond name, type name, mapping name
EQU FS_BS_DECIMAL_PREC$ to 316 ;* 0 Decimal precision must be >= decimal scale.
* 03-25-10 rjc DSBFS errors
Equ FS_DSBFS_LOGICAL$ To 330 ; * Ado returned errors after executing a cmd statement. ; list of errors
* 09-06-11 bzs Encrypted Volume errors
Equ FS_XBFS_NO_VOLUME$ to 350 ;* Cannot read volume information from media record
Equ FS_XBFS_VOLUME_ERR$ to 351 ;* Invalid/Missing volume information
Equ FS_XBFS_VOLUME_EXISTS$ to 352 ;* Volume %1% already exists
Equ FS_XBFS_NO_MHANDLE$ TO 353 ;* Missing/invalid media handle
Equ FS_XBFS_CACHE_ERR$ TO 354 ;* Cache failure
Equ FS_XBFS_PERMS_ERR$ TO 355 ;* Insufficient permissions for requested action
Equ FS_EBFS_SERVER_ERR$ TO 360 ;* The Encryption Server returned the following errors: %1%
Equ FS_EBFS_MISSING_PARAMS_ENCRYPT$ To 361 ;* Encryption parameters not specified for table %1%.
Equ FS_EBFS_MISSING_PARAMS_PASS$ To 362 ;* Invalid/missing passphrase information for volume.
Equ FS_EBFS_MISSING_PARAMS_GROUPS$ To 363 ;* Encryption group parameter not specified for table.
Equ FS_EBFS_ENCRYPT_FAILURE_CHECK$ To 364 ;* Encryption check value failure: %1%
Equ FS_EBFS_ENCRYPT_FAILURE_TABLE$ To 365 ;* Unable to encrypt table %1%: %2%.
* Source Date: 16:41:46 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0

112
SYSPROG/STPROCINS/FSERRORS_400.txt Normal file
View File

@ -0,0 +1,112 @@
compile insert FSERRORS_400
*----------------------------------------------------------------------------
* Block 400 - 499
*
* Advanced Revelation System and RTP error codes return as @FILE.ERRORS
*
* June 23, 1989
* Updated 31 October, 2002. Happy Halloween!
*
*
* Amended Date Reason
* ======= ==== ======
* Mr C 18 Sep 16 Suffixed LH_INVALID_FILE_VARIABLE with a "$"
*
*
* STATUS DESCRIPTION ; MSG PARAMETERS
*----------------------------------------------------------------------------
EQU FS_SYS_INVALID_HANDLE$ TO 400 ;* 1 - Generic not valid or not open file handle ; ???
EQU FS_SYS_NOT_ATTACHED$ TO 401 ;* 1 - Generic File is not attached ; FILENAME
EQU FS_SYS_LISTS_REC_DNE$ TO 402 ;* 1 - List in LISTS file does not exist ; Record key
EQU FS_SYS_FILE_VOL_SYNC$ TO 403 ;* 1 - A file is attached but the volume isn't ; Procedure name
EQU FS_SYS_SAME_VOL_ID$ TO 404 ;* 1 - Cannot attach volume, same volume ID ; Attempted volume, Volume already attached, Volume ID
EQU FS_SYS_REQUIRED_VOL_ERR$ TO 405 ;* 0 - Volume is required and cannot be attached ; Volume name
EQU FS_SYS_INVALID_LOCKTYPE$ TO 410 ;* 2 - lock type not valid ; null
EQU FS_SYS_LOCKFILE_NF$ TO 411 ;* 1 - File specified not found in list of locked files.
EQU FS_SYS_LOCKREC_NF$ TO 412 ;* 1 - record specified not found in list of locked records
EQU FS_SYS_LOCKSEMA_NF$ TO 413 ;* 1 - semaphore not found in list of locked semaphores.
EQU FS_SYS_OWN_LOCK_ERR$ TO 414 ;* 1 - Unsuccessful lock - station's own lock ; No parameters.
EQU FS_SYS_LOCK_ERR$ TO 415 ;* 0 - Unsuccessful lock - other station's lock ; No parameters.
EQU FS_SYS_INVALID_RN_DIR$ TO 420 ;* 1 - Readnext Direction Out of Range ; Direction Parameter
EQU FS_SYS_USER_ABORT$ TO 421 ;* 1 - User terminated action <ESC> ; No parameters.
EQU FS_SYS_DICT_MISMATCH$ TO 430 ;* 1 - Dictionary handle mismatch in SELECT ; Dict handle name TO not displayed).
EQU FS_SYS_NO_CURSORS$ TO 431 ;* 1 - Ran out of cursor handles ; No parameters.
EQU FS_SYS_LIST_ACTIVE_ERR$ TO 432 ;* 1 - Invalid LIST.ACTIVE value ; No parameters.
EQU FS_SYS_INVALID_FIELD$ TO 434 ;* 1 - Invalid field type in sort list ; Attempted field type.
EQU FS_SYS_CLEAR_CURS_ERR$ TO 435 ;* 1 - Cannot clear designated cursor ; No parameters.
EQU FS_SYS_BAD_CURSOR_VAL$ TO 436 ;* 1 - Invalid cursor value ; No parameters.
EQU FS_SYS_SORT_FIELD_ERR$ TO 437 ;* 1 - Invalid field names in sort expression ; List of invalid field names
EQU FS_SYS_MULTI_HANDLES_ERR$ TO 438 ;* 1 - Multiple handles in a SELECT ; Handle list (not displayed)
EQU FS_SYS_COL_QUAL_ERR$ TO 439 ;* 1 - Column qualifier error ; No Parameters.
EQU FS_SYS_SORT_MERGE_ERR$ TO 440 ;* 1 - Error merging a sort file ; No Parameters.
EQU FS_SYS_SORT_EXTRACT_ERR$ TO 441 ;* 1 - Error extracting a sort file ; No Parameters.
EQU FS_SYS_SORT_INIT_ERR$ TO 442 ;* 1 - Error initializing sort file ; No Parameters.
EQU FS_SYS_SORT_WRITE_ERR$ TO 443 ;* 1 - Error writing to sort file ; No Parameters.
EQU FS_SYS_SORT_ERR_OVER$ TO 444 ;* 1 - List of logical errors in sort > 32K in length - abort.
EQU FS_IDX_SETS_ERROR$ TO 445 ;* 1 - Error codes returned from IDX_SETS
EQU FS_IDX_SETS_OUT_OF_MEM$ TO 446 ;* 1 - Out of memory error
EQU FS_IDX_SETS_FILE_IO$ TO 447 ;* 1 - Usually out of disk or bad sort path
EQU FS_IDX_SETS_FATAL_ERR$ TO 448 ;* 1 - Fatal internal idx_sets error
EQU FS_IDX_SETS_OUT_OF_HAND$ TO 449;* 1 - Out of Resources (handles/cursors).
*---
* MTR 10-31-02
* Used by network products. Included for documentation purposes only.
*---
equ LH_CLIENT_INIT_PROTOCAL_ERR$ TO 450
equ LH_CLIENT_OPEN_PROTOCAL_ERR$ TO 451
equ LH_CLIENT_NO_NEAREST_SERVER$ TO 452
equ LH_CLIENT_NO_TSR$ TO 453
equ LH_CLIENT_INIT_ALLOCATION_ERR$ TO 454
equ LH_CLIENT_GET_CANOCICAL_PATH_ERR$ TO 455
equ LH_CLIENT_LOCAL_FILE_ERR$ TO 456
equ LH_CLIENT_FILE_NAME_FORMAT_ERR$ TO 457
equ LH_CLIENT_ALLOCATION_ERR$ TO 458
equ LH_CLIENT_INVALID_FILE_HANDLE$ TO 459
equ LH_CLIENT_INVALID_SERVER_HANDLE$ TO 460
equ LH_CLIENT_GET_LOCAL_TARGET_ERR$ TO 461
equ LH_CLIENT_NO_SERVER$ TO 462
equ LH_CLIENT_TSR_TABLE_FULL$ TO 463
equ LH_CLIENT_SEND_PACKET_ERR$ TO 464
equ LH_CLIENT_RECEIVE_PACKET_ERR$ TO 465
equ LH_CLIENT_NO_SERVER_RESPONSE$ TO 466
equ LH_CLIENT_SERVER_TABLE_FULL$ TO 467
equ LH_CLIENT_FILE_TABLE_FULL$ TO 468
equ LH_DUPLICATE_SERVER_SERIAL_NUMBER$ TO 469
equ LH_SERVER_ALLOCATION_ERR$ TO 470
equ LH_SERVER_PACKET_SIZE_ERR$ TO 471
equ LH_SERVER_SET_CONNECTION_ERR$ TO 472
equ LH_SERVER_SET_TASK_ERR$ TO 473
equ LH_SERVER_NEXT_PACKET_ERR$ TO 474
// 477, 478 and 479 are used internally by AREV and OI network drivers.
equ LH_NOT_INITIALIZED$ TO 480
equ LH_FILE_OPEN_ERR$ TO 481
equ LH_TEMP_ALLOCATION_ERR$ TO 482
equ LH_FILE_CLOSE_ERR$ TO 483
equ LH_VERSION1_ERR$ TO 484
equ LH_INVALID_FILE_HANDLE$ TO 485
equ LH_INVALID_FILE_VARIABLE$ TO 486
equ LH_CONNECTION_SYNC_ERR$ TO 487
equ LH_TASK_SYNC_ERR$ TO 488
equ LH_LOCK_ALLOCATION_ERR$ TO 489
equ LH_FILE_HANDLE_TABLE_FULL$ TO 490
equ LH_FILE_VARIABLE_TABLE_FULL$ TO 491
equ LH_VERSION_SYNCRONIZATION_ERR$ TO 492
equ LH_GFE_READ_FRAME_TYPE_ERR$ TO 493
equ LH_GFE_WRITE_FRAME_TYPE_ERR$ TO 494
equ LH_GFE_RECORD_IN_GROUP_ERR$ TO 495
equ LH_RECORD_SIZE_ERR$ TO 496
equ LH_ID_GROUP_SIZE_ERR$ TO 497
EQU FS_EXTENDED_ERR$ TO 499 ;* 1 - Extended bfs error ; detail msg
* Source Date: 10:46:34 06 DEC 1993 Build ID: OI*2.01.8 Level: 2.01

61
SYSPROG/STPROCINS/FSERRORS_HDR.txt Normal file
View File

@ -0,0 +1,61 @@
compile insert FSERRORS_HDR
*----------------------------------------------------------------------------
* Advanced Revelation 2.0 Filing System Error reporting protocol
* June 1, 1989
* Begun: Brad Anderson
*
* 05/16/91 - JMC Added special user abort mode ([Esc] press). This
* is a setting for the STATUS() variable, not a message number
* Error conditions are to be returned by BFSs and MFSs in the @FILE.ERROR
* variable. Each error code has an associated severity level.
* If an error condition is encountered, the filing system code should set
* 1. @FILE.ERROR to the associated code and fill in the message and detail
* as appropriate
* 2. Set STATUS() to the associated severity level
* 3. Set the FLAG (7th argument) to FALSE$ to indicate an operational failure.
*
* If FLAG is set to false, then the operation is defined to have failed.
* It is important for the application to know that a WRITE or DELETE was
* in fact not performed. Setting FLAG to FALSE is not an appropriate protocol
* for communicating any non-failure (informational) condition from the
* filing system.
*
* "Core" error codes are blocked in groups of 100 and are integer codes.
* Block 0 - 99 is allocated for logical error reporting.
* Block 100 - 199 is allocated for Revelation system BFS error codes.
* Block 200 - 299 is allocated for Revelation system MFS error codes.
* Block 300 - 399 is allocated for BOND.SUBS errors
* Blcok 400 - 499 is allocated for System, RTP, and R/BASIC cursor errors
*
* Some codes are intrinsically specific to the function of a particular
* BFS or MFS. Others may be and should be generally applied to a variety
* of filing systems. For example, code 100 is the standard status return in
* case of an attempt to read or delete a record which does not exist.
*
* Block BS - Bond-subs - is allocated for codes associated with the BOND.SUBS
* routine.
*
* Every error code should have an associated message in the MESSAGES file.
* The ID of the message should be error code preceeded by "FS".
* For example, code 105 would have an associated message "FS105"
* If any parameters are to be passed to this message they should appear in
* the FSMSG field of @FILE.ERROR. This field may be multivalued.
*---- FILING SYSTEM SEVERITY LEVEL CODES --------
* Value of STATUS() on return from Filing System.
*
Equate Fs_Informational$ To -2 ;* @File.Error contain FYI info.
EQUATE FS_USER_ABORT$ TO -1 ;* The user pressed [Esc], SPECIAL!
EQUATE FSLOGICAL$ TO 0 ;* Data does not meet logical constraints
EQUATE FSPHYSICAL$ TO 1 ;* Structural or operational error (retryable)
EQUATE FSFATAL$ TO 2 ;* Structural or operational error (fatal)
*---- FILE.ERROR FIELD STRUCTURE -------
EQUATE FSCODE$ TO 1 ; * error or status code identifier
EQUATE FSMSG$ TO 2 ; * error message data
EQUATE FSDETAIL$ TO 3 ; * file system dependent detail data
EQUATE FS_PREFIX$ TO 'FS' ; * used by OE for set_status Pat Oct/04/91
* Source Date: 16:41:47 12 JAN 1993 Build ID: OI*1.0.10 Level: 2.0

54
SYSPROG/STPROCINS/GASGAUGE_EQUATES.txt Normal file
View File

@ -0,0 +1,54 @@
compile insert gasgauge_equates
*****************************************************************************
*
* Product : OI/WG
* Poject : OI/RDK
* Release : 3.0
*
* Name : gasgauge_equates
* Description: Instructions and structure for GasGauge function
*
* History (Date, Initials, Notes)
* 11/14/95 vg Original programmer
* 10/09/96 bb Added labeled common to handle advanced dialog box
*
*****************************************************************************
* Function Declares
declare function RDK_GasGauge ;* Flag = RDK_GasGauge(Instruction, Arg [, ArgList])
* positions into structure to pass to GG_EXECUTE$
EQU GGPOS_TITLE$ TO 1 ;* window title
EQU GGPOS_GBLABEL$ TO 2 ;* group box label
EQU GGPOS_SECTIONCNT$ TO 3 ;* number of sections to progress through
EQU GGPOS_LABELLIST$ TO 4 ;* @vm delimited list of labels for each section (last is propagated)
EQU GGPOS_SECTIONLIST$ TO 5 ;* @vm delimited list of section names
EQU GGPOS_ALLOWSTOP$ TO 6 ;* boolean val specifying whether process can be halted
EQU GGPOS_CALLBACKFUNC$ TO 7 ;* function to call to do processing ( argument can be passed in ArgList )
* instructions
EQU GG_EXECUTE$ TO 1 ;* start Gas Gauge
EQU GG_GET$ TO 2 ;* get saved structure (Not implemented yet)
EQU GG_SAVE$ TO 3 ;* save structure (Not implemented yet)
EQU GG_SETPERCENT$ TO 4 ;* set bar and text to a percentage done state
EQU GG_SETLABEL$ TO 5 ;* set label (can be used when changing section)
EQU GG_SETMESSAGE$ TO 6 ;* set message text
EQU GG_SETSECTION$ TO 7 ;* Checks current section as done and marks next section as current one
EQU GG_SETFORECOLOR$ TO 8 ;* change from the default blue
EQU GG_SETBKCOLOR$ TO 9 ;* change from the default white
EQU GG_ISSTOPPED$ TO 10 ;* Returns true if stop or cancel have been pressed
* 11-14 are reserved for future use
* following equates are used by system
EQU GG_CREATE$ TO 15
EQU GG_CLOSE$ TO 16
EQU GG_START$ TO 17
* this is used for inter - procedureal variable storage
EQU AUX_LAYOUT$ TO "%%AUXIL_DIALOG_SETTINGS%%"
* declare labeled common
Common //AUX_LAYOUT$// AuxPage@, AdvncSttns@, ErrDescr@

21
SYSPROG/STPROCINS/GEC_COMMON.txt Normal file
View File

@ -0,0 +1,21 @@
compile insert GEC_COMMON
COMMON /GEC_COMMON/ SCREEN_TABLE@, PRINTER_TABLE@, PRINTER_INFO@
/*
SCREEN_TABLE@ contains the display equivalence table.
It is loaded by DEVICE_CONTROL from the DISPLAY_CONFIG
file, using the key indicated in @ENVIRON.SET<E.DET>
PRINTER_TABLE@ is the printer driver table, used to convert
generic escape codes into device specific instructions.
It is loaded by DEVICE_CONTROL from the PRINTER_CONFIG
file, using the key indicated in
@ENVIRON.SET<E.PRN.DRVS,PRINTER_INFO<1>>
PRINTER_INFO@ contains the following information:
field 1 - contains an integer indicating the
currently active printer.
field 2 - used to track open/closed status of
print job
*/
* Source Date: 09:26:07 14 NOV 1990 Build ID: AREV*2.0.110 Level: 2.1

178
SYSPROG/STPROCINS/GEC_CONSTANTS.txt Normal file
View File

@ -0,0 +1,178 @@
compile insert GEC_CONSTANTS
EQU NORMAL$ TO -11
EQU REVERSE$ TO -12
EQU HIGHLIGHT$ TO -13
EQU BLINK$ TO -14
EQU RBLINK$ TO -15
EQU ULINE$ TO -16
EQU BULINE$ TO -17
EQU DBLUE$ TO -18
EQU LBLUE$ TO -19
EQU DCYAN$ TO -20
EQU LCYAN$ TO -21
EQU DGRN$ TO -22
EQU LGRN$ TO -23
EQU DYEL$ TO -24
EQU LYEL$ TO -25
EQU DRED$ TO -26
EQU LRED$ TO -27
EQU DMAG$ TO -28
EQU LMAG$ TO -29
EQU DGREY$ TO -30
EQU LGREY$ TO -31
EQU BLACK$ TO -32
EQU WHITE$ TO -33
EQU WOB$ TO -34
EQU YOB$ TO -35
EQU WOR$ TO -36
EQU WOY$ TO -37
EQU YOR$ TO -38
EQU BOG$ TO -39
EQU DBOG$ TO -40
EQU ROG$ TO -41
EQU WOBLK$ TO -42
EQU GOBLK$ TO -43
EQU YOBLK$ TO -44
EQU BOLDON$ TO -50
EQU BOLDOFF$ TO -51
EQU ITALON$ TO -52
EQU ITALOFF$ TO -53
EQU ULINEON$ TO -54
EQU ULINEOFF$ TO -55
EQU SUBSON$ TO -56
EQU SUBSOFF$ TO -57
EQU SUPSON$ TO -58
EQU SUPSOFF$ TO -59
EQU ENHON$ TO -60
EQU ENHOFF$ TO -61
EQU WIDEON$ TO -62
EQU WIDEOFF$ TO -63
EQU PRNINIT$ TO -70
EQU PRELUDE$ TO -71
EQU ENDOFJOB$ TO -72
EQU DRIVERON$ TO -80
EQU DRIVEROFF$ TO -81
EQU VIDDRVOFF$ TO -82
EQU PRNDRVOFF$ TO -83
EQU DRIVERINIT$ TO -84
EQU FLUSHDRVINFO$ TO -85
EQU BEGINFONT1$ TO -90
EQU ENDFONT1$ TO -91
EQU BEGINFONT2$ TO -92
EQU ENDFONT2$ TO -93
EQU BEGINFONT3$ TO -94
EQU ENDFONT3$ TO -95
EQU BEGINFONT4$ TO -96
EQU ENDFONT4$ TO -97
EQU BEGINFONT5$ TO -98
EQU ENDFONT5$ TO -99
EQU BEGINFONT6$ TO -100
EQU ENDFONT6$ TO -101
EQU BEGINFONT7$ TO -102
EQU ENDFONT7$ TO -103
EQU BEGINFONT8$ TO -104
EQU ENDFONT8$ TO -105
EQU BEGINFONT9$ TO -106
EQU ENDFONT9$ TO -107
EQU BEGINFONT10$ TO -108
EQU ENDFONT10$ TO -109
EQU BEGINFONT11$ TO -110
EQU ENDFONT11$ TO -111
EQU BEGINFONT12$ TO -112
EQU ENDFONT12$ TO -113
EQU BEGINFONT13$ TO -114
EQU ENDFONT13$ TO -115
EQU BEGINFONT14$ TO -116
EQU ENDFONT14$ TO -117
EQU BEGINFONT15$ TO -118
EQU ENDFONT15$ TO -119
EQU BEGINFONT16$ TO -120
EQU ENDFONT16$ TO -121
* driver functions, defined by third byte of generic escape sequence
EQU SETCOLOR$ TO \35\
EQU SETSTYLE$ TO \32\
EQU RESETSTYLE$ TO \22\
EQU PRNCTRL$ TO \10\
EQU DRVCTRL$ TO \34\
EQU BEGINFONT$ TO \31\
EQU ENDFONT$ TO \21\
* The first field in the printer definition record in the PRINTER_CONFIG file
* is an mv field that is loaded with page width/height information. This
* information is loaded into @LPTRWIDE/HIGH if present.
EQU PRINTER_XY$ TO 1
EQU PX_VAL$ TO 2
EQU PY_VAL$ TO 1
* These equates define the field layout of the screen_table and printer_table
* information that is stored in labeled common variables.
* The printer definition record is "shifted up" by
* PRINTER_TABLE_OFFSET$ after the PRINTER_XY$ field information is extracted.
*
* this is the format as it is loaded into memory by DRIVER_CONTROL.
* To access fields in the PRINTER_CONFIG records, simply add
* PRINTER_TABLE_OFFSET$ to the field equate
* example: colors = @record<setcolor_field$+printer_table+offset>
EQU PRINTER_TABLE_OFFSET$ TO 1
EQU SETCOLOR_FIELD$ TO 1
EQU SETSTYLE_FIELD$ TO 2
EQU RESETSTYLE_FIELD$ TO 3
EQU PRNCTRL_FIELD$ TO 4
EQU BEGINFONT_FIELD$ TO 5
EQU ENDFONT_FIELD$ TO 6
EQU FONTNAME_FIELD$ TO 7
*-->11/01/90 rkp changed userrem_field$ from 8 to 9 to allow
* charwidthtable_field$ to occupy 8.
* also added PSHELL_CODES_FIELD$ and PSHELL_CMDS_FIELD$,
* PSHELL_BEGIN$ and PSHELL_END$ equates.
*
EQU CHARWIDTHTABLE_FIELD$ TO 8
EQU USERREM_FIELD$ TO 9
EQU PSHELL_CODES_FIELD$ TO 10
EQU PSHELL_CMDS_FIELD$ TO 11
*--> 12/13/91 SLJ - add for end-of-job form feed feature
EQU FORCE_FEED_FIELD$ TO 12
* 04/13/07 BZS
EQU ORIENTATION$ TO 13
* 11/13/07 BZS
EQU OIPI_FONT_REG$ TO 14
EQU OIPI_FONT_SIZE_REG$ TO 15
EQU OIPI_FONT_BOLD$ TO 16
EQU OIPI_FONT_SIZE_BOLD$ TO 17
* The following two equates are indexes into values for the
* PSHELL_CODES_FIELD$ and PSHELL_CMDS_FIELD$ fields
EQU PSHELL_BEGIN$ TO 1
EQU PSHELL_END$ TO 2
*-->11/01/90 rkp
* the following equate is used to associate classes of esc codes with
* an index to the field inwhich they are stored.
EQU DRVINDEX$ TO \353222103121000000\
* These equates are used for referencing fields in the GEC_COMMON variable
* printer_info@
EQU PINFO_PNO$ TO 1
EQU PINFO_PSTAT$ TO 2
EQU PS_SPECIAL$ TO 3
* These equates are used for building popups
EQU STYLE_LITERAL$ TO "Bold,Italic,Underline,Subscript,Superscript,Enhanced,Wide"
* Equate for error messages
EQU NOFONT_MSG$ TO "B820"
EQU NOPRNDEF$ TO "B821"
EQU PRNINITERR$ TO "B822"
EQU BADCOLOR$ TO "B823"
EQU OPENPRINTPROC$ TO "B825"
* Source Date: 13:53:13 03 MAY 1992 Build ID: AREV*2.2.5 Level: 2.2

67
SYSPROG/STPROCINS/GETENTITY_EQUATES.txt Normal file
View File

@ -0,0 +1,67 @@
compile insert GetEntity_Equates
******************************************************************************
*
* This program is proprietary and is not to be used by or disclosed
* to others, nor is it to be copied without written permission from
* Revelation Technologies, Inc.
*
* Product : OpenInsight for Workgroups
* Client : Revelation Software
* Version : 3.1
*
* History : (date, initials, notes)
* 01/12/96 cp Re-doing
* 01/02/07 spf Add GE_OPT_HEADTEXT$ and GE_OPT_SUBHEADTEXT$
******************************************************************************
declare function GetEntity
declare subroutine GetEntity
* Item = GetEntity(Mode, TypeDesc, bFilter, Display, ItemLabel, ListLabel, DefaultSelection, DefaultType, Options)
*
* Parameters:
*
* Mode - specifies the mode of entry
* GE_MODE_OPEN$
* GE_MODE_SAVE$
*
* TypeDesc - @fm-delim'd array of human-readable selection criteria (filters), ie: "Messages"
*
* bFilter - @fm-delim'd array of bool (corresponding to TypeDesc), TRUE$ signifies that
* Display<i> contains a "TYPE*CLASS" repository filter, FALSE$ signifies that
* Display<i> contains an @vm-delim'd list of items to display
*
* Display - @fm-delim'd array of display information (corresponding to TypeDesc), each either
* a "TYPE*CLASS" repository filter or an @vm-delim'd list of items (see bFilter)
*
* ItemLabel - (optional) @fm-delim'd array of labels that replace "Entity Name:" (for filters)
* or "Item Name" (for lists)
*
* ListLabel - (optional) @fm-delim'd array of labels that replace "List Entities of Type:" (for
* filters) or "List Items of Type:" (for lists)
*
* DefaultItem - (optional) default item name, defaults to NULL
*
* DefaultType - (optional) index into TypeDesc, defaults to 1
*
* Options - (optional) additional options
* GE_OPT_TITLE$ - text string to replace window default title ("Open" and "Save As")
* GE_OPT_HIDE_CHK$ - TRUE$ hides the "Show Inherited" checkbox
*
* Return value:
*
* Item - index:@fm:name, where the index specifies the filter/list number (position within
* TypeDesc) and the name is either a fully qualified entity id (if bFilter<index> is
* TRUE$) or the item selected from the list
* entry modes
equ GE_MODE_OPEN$ to 0
equ GE_MODE_SAVE$ to 1
* additional options
equ GE_OPT_TITLE$ to 1
equ GE_OPT_HIDE_CHK$ to 2
Equ GE_OPT_HEADTEXT$ To 3
Equ GE_OPT_SUBHEADTEXT$ To 4

50
SYSPROG/STPROCINS/GET_LH_INFO_EQUATES.txt Normal file
View File

@ -0,0 +1,50 @@
compile insert get_LH_Info_Equates
/*
** Copyright (C) 1992-12015 Revelation Software Inc. All Rights Reserved **
This program is proprietary and is not to be used by or disclosed
to others, nor is it to be copied without written permission from
Revelation Technologies, Inc.
Author : Wile C Coyote (Hackius Geniusus)
Date : Sept 2015
Purpose : Equates for use Get_LH_Info function
Comments
========
Amended Date Reason
======= ==== ======
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _GET_LH_INFO_EQUATES_
#define _GET_LH_INFO_EQUATES_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
declare function get_LH_Info
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
* // Get_LH_Info return value positional equates
equ GLHI_MODULO$ to 1
equ GLHI_FRAME_SIZE$ to 2
equ GLHI_PRIMARY_FRAME$ to 3
equ GLHI_ROWCOUNT$ to 4
equ GLHI_SIZELOCK$ to 5
equ GLHI_THRESHOLD$ to 6
equ GLHI_OSFILE$ to 7
equ GHLI_FILEVERSION$ to 8
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

19
SYSPROG/STPROCINS/GLOBAL_COMMON.txt Normal file
View File

@ -0,0 +1,19 @@
compile Insert global_Common
*
* GLOBAL_COMMON Insert File
*
* Labeled common variable which holds global environment parameters.
*
* created 6/7/89 jpv
COMMON /%GLOBAL.ENV%/ GLOBAL.ENV@
EQU E.COMMIT.VOLUME$ TO 1 ;* Contains global commit volume
EQU E.COMMIT.PROT$ TO 2 ;* 1 = Yes, 0 = No
EQU E.VICTIM.SELECTION$ TO 3 ;* For deadlock situations.
EQU E.IMPLICIT.LOCKING$ TO 4 ;* 1 = Record locking, 0 = File locking
EQU E.COORD.LOCKING$ TO 5 ;* Automatic coordinated locking (on/off)
EQU SYSTEM_RECORD$ TO "%GLOBAL_ENVIRONMENT%" ;* Record name in SYSTEM file where global constants are kept
* Source Date: 17:07:55 30 JUN 1992 Build ID: AREV*2.2.38 Level: 2.2

18
SYSPROG/STPROCINS/IDXSVR_EQUATES.txt Normal file
View File

@ -0,0 +1,18 @@
compile Insert idxsvr_equates
EQU MSG_IDX_ENGINE$ to 1126 ;* the message for the engine... (WM_USER + 0x66)
;* (used to be 401 for the old engine)
EQU INDEX_SERVER_INFO$ to 1 ;* the wParam for turning on/off the index server
EQU SERVER_OFF$ to 0
EQU SERVER_ON$ to 1
EQU SERVER_ON_UPDATE$ to 2
EQU SERVER_FLUSH_INDEX_BEGIN$ to 3
EQU SERVER_FLUSH_INDEX_END$ to 4
EQU IDXSVR_FLAG$ TO 1
EQU IDXSVR_TOTAL_FILES$ TO 2
EQU IDXSVR_CURR_FILE$ TO 3
EQU IDXSVR_CURR_FIELD$ TO 4
EQU IDXSVR_PROGRESS$ TO 5
* RJC 02-21-15 COPY FROM REV_BP
* Source Date: 10:36:35 22 AUG 1996 Build ID: OI*3.1.64 Level: 3.1

147
SYSPROG/STPROCINS/IDX_SETS.EQU.txt Normal file
View File

@ -0,0 +1,147 @@
Compile Insert IDX_SETS.EQU
!
* $INSERT record for R/BASIC callers of the IDX_SETS function
*
*
* IDX_SETS is a function that performs union, intersection and difference
* of delimited sets of row data. The function has 9 calling modes that
* allow it to create, add data to, intersect, union, differnce, extract
* data from, and clear sets. The parameters for each calling mode are
* specific to the calling mode, but basically the use of IDX_SETS is:
*
* return_parm = IDX_SETS(mode, parm_1,...parm_n)
!
* MrC 06-20-16 Added header guards
* rjc 05-21-09 Copied to SYSPROCS
!
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ifndef _IDX_SETS_EQU_
#define _IDX_SETS_EQU_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
!
* Calling modes
!
EQU INIT_SET$ TO 1 ;* Initializes a set returning a
* set_handle (a positive integer) or
* an error code (a negative integer).
* Parameters are: the data, the
* "specification", and the map
EQU ADD_TO_SET$ TO 2 ;* Adds data to an existing set. Returns
* 0 on successful completion or an
* an error code (a negative integer).
* Parameters are: the data, and the
* handle of the set to add to
EQU UNION_SETS$ TO 3 ;* Performs the union of two sets
* returning a set_handle (a positive
* integer) or an error code (a
* negative integer).
* Parameters are: the 1st handle, the
* 2nd handle, and the union spec
EQU INTERSECT_SETS$ TO 4 ;* Performs the intersection of two
* sets returning a set_handle (a
* positive integer) or an error code
* (a negative integer).
* Parameters are: the 1st handle, the
* 2nd handle, and the intersect spec
EQU DIFFERENCE_SETS$ TO 5 ;* Performs the difference of two
* sets returning a set_handle (a
* positive integer) or an error code
* (a negative integer).
* Parameters are: the 1st handle, the
* 2nd handle, and the intersect spec
EQU RESET_EXTRACT$ TO 6 ;* Sets the extract parameters (restart
* the extract or set for desc. extract)
* Parameters are: the handle, and
* a reset specification
EQU EXTRACT_FROM_SET$ TO 7 ;* Extracts row data from a set. Returns
* 1 if more data exists in the set, 0
* if all data has been extracted, or
* an error code (a negative integer).
* Parameter is: the handle. A 3rd
* variable is passed, it is filled
* with data by Set_Lib on "no error".
EQU SET_INFO$ TO 8 ;* Reports data about a set.
* Parameter is: the handle. Set_Lib
* returns the count of all rows in the
* 3rd variable, the count of index
* rows in the 4th variable and the
* MODEFLAGS variable from the handle
* in the 5th variable.
EQU CLEAR_SET$ TO 9 ;* Clears a set_handle from the library's
* storage. Returns 0 always.
!
* Error codes
!
EQU ERR_BAD_MODE$ TO -1 ;* Returned if calling mode is not a
* positive integer >= 1 and <= 9.
EQU ERR_OUT_OF_HANDLES$ TO -2 ;* IDX_SETS supports up to 7 active sets.
* This error is returned when modes
* 1, 3, or 4 cannot create a necessary
* set. Clear and recall.
EQU ERR_BAD_MAP$ TO -3 ;* Returned by mode 1 when the map to a
* set is bad.
EQU ERR_BAD_SET_STR$ TO -4 ;* Returned by modes 1 and 2 when the
* set data passed is corrupt (missing
* a trailing record mark).
EQU ERR_FILE_IO$ TO -5 ;* Returned by modes 1, 2, 3, 4, and 5
* if an error occurs in support file
* I/O. There is nothing you can do
* at this point but blow away the set
* and start again. The most common
* sources for this error are: 1) the
* user's sort path has become corrupt;
* and 2) the user is out of disk space.
EQU ERR_OUT_OF_MEM$ TO -6 ;* Returned by modes 1, 3, 4 or 5 when
* not enough memory for operation.
EQU ERR_BAD_HANDLE$ TO -7 ;* Returned by modes 2, 3, 4, 5 when a
* handle parameter is no good.
EQU ERR_BAD_SRC_HANDLE$ TO -8 ;* Returned by modes 2, 3, 4, 5 when a
* source handle parameter is no good.
EQU ERR_BAD_TGT_HANDLE$ TO -9 ;* Returned by modes 2, 3, 4, 5 when a
* target handle parameter is no good.
EQU ERR_NULL_SET$ TO -20 ;* Currently not returned by Set_Lib but
* used by "wrap around" R/Basic code to
* indicate that the set is NULL (no rows
* match requested criteria).
EQU IS_MORE_ROWS$ TO 1 ;* Returned by extract when more rows
* exist in the set than can be returned
* by the current call to IDX_SETS.
EQU IS_NO_MORE_ROWS$ TO 0 ;* Returned by extract when all rows
* have been returned from the set.
EQU IS_ERR_NONE$ TO 0
!
* Intialization specification equates
!
EQU IS_NULL_SPEC$ TO 0 ;* No user specification
EQU IS_SORTED$ TO 2 ;* User set string is already sorted
EQU IS_UNIQUE$ TO 4 ;* All set items in the user string are
* unique
!
* Extraction specification equates
!
EQU IS_DESC_EXT$ TO 1
EQU IS_RESET_EXT$ TO 2
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#endif
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

4
SYSPROG/STPROCINS/IMPORT.ASCII.COMMON.txt Normal file
View File

@ -0,0 +1,4 @@
compile insert import.ascii.common
common /VARIABLE/ DOS_FILE_HANDLE, REV_FILE_HANDLE, WORK_REC, SAVE_ID, SAVE_DICT, skip_fields, dosrec, dos_filename, filelist, dosblock, trailer, dos_file_pointer, dosrec_len, dos_file, temp, slock, filesizes, process(24), fields_to_read, block_pointer, ascii_bytes_read, rec_read, index_info, field_cnt, begintime

90
SYSPROG/STPROCINS/IMPORTEQUATES.txt Normal file
View File

@ -0,0 +1,90 @@
compile insert IMPORTEQUATES
EQU COMMA$ TO \2C\
EQU SPACE$ TO \20\
EQU VERIFY$ TO -1
EQU SINGLE_QUOTE$ TO \27\
EQU DOUBLE_QUOTE$ TO \22\
*EQU ESC$ TO @INT.CONST<1>
EQU SINGLE$ TO 2
EQU MULTI$ TO 3
EQU PUSH$ TO 4
EQU POP$ TO 5
EQU MAXLEN$ TO 65530 ;* Approx 64K
EQU REBUILD$ TO 2 ;* INDEX_TOGGLE rebuild flag
EQU FIXED_LEN_FIELD_POS$ TO 4
*
* Import Field Array parameters.
*
EQU FMC$ TO 1
EQU MV$ TO 2
EQU APPEND$ TO 3
EQU FIELD_START_BYTE$ TO 4
EQU FIELD_LEN$ TO 5
EQU SKIP_IF_DATA$ TO 6
/* Literal resources equates */
EQU RES_UNTITLED$ TO 5
EQU RES_CAPTION$ TO 6
EQU RES_FILTERS$ TO 7
EQU RES_TYPETEXT$ TO 8
EQU RES_DELIMREQ$ TO 9
EQU RES_FILETYPEREQ$ TO 10
EQU RES_NOOPTIONS$ TO 11
EQU RES_COLREQ$ TO 12
EQU RES_ERRORWRI$ TO 13
EQU RES_ERROROPN$ TO 14
EQU RES_QUITOK$ TO 15
EQU RES_ERRORREAD$ TO 16
EQU RES_PROCESSREQ$ TO 17
EQU RES_FILEREQ$ TO 18
EQU RES_TABLEREQ$ TO 19
EQU RES_TOTALROWREQ$ TO 20
EQU RES_PROCESSDNE$ TO 21
EQU RES_NORECDELIM$ TO 22
EQU RES_TABLEEXISTS$ TO 23
EQU RES_TABLENOTAVAIL$ TO 24
EQU RES_NOFILES$ TO 25
EQU RES_PRESIZEOK$ TO 26
EQU RES_OPNDOSFILE$ TO 27
EQU RES_STARTBYTEREQ$ TO 28
EQU RES_PROCFILES$ TO 29
EQU RES_IMPORTLASTDONE$ TO 30
EQU RES_CANCELIMPORT$ TO 31
EQU RES_PROCESSCANCEL$ TO 32
EQU RES_IMPORTCOMPLETE$ TO 33
EQU RES_INVALIDDATA$ TO 34
/*--------------------------------------------------------------------------
dictionary field equates for file IMPORT.EXPORT
--------------------------------------------------------------------------*/
EQU DOS_FILENAME$ TO 1
EQU REV_FILENAME$ TO 2
EQU FIELD_DELIMITER$ TO 3
EQU RECORD_DELIMITER$ TO 4
EQU EOF_DELIMITER$ TO 5
EQU IMPORT_REC_LENGTH$ TO 6
EQU FIELD_NAMES$ TO 7
EQU START_BYTE$ TO 8
EQU FIELD_LENGTH$ TO 9
EQU CONVERSION$ TO 10
EQU CLEARFILE_FLAG$ TO 11
EQU RECORDS_IN_FILE$ TO 12
EQU OBSERVE_QUOTES$ TO 13
EQU PRESIZE_FLAG$ TO 14
EQU MERGE_FLAG$ TO 15
EQU MAKEDICT_FLAG$ TO 16
EQU SUPPRESS_FLAG$ TO 17
EQU ACTUAL_FLAG$ TO 18
EQU HEADER_FLAG$ TO 19
EQU TEXT_MARKER_FLAG$ TO 20
EQU MAKEFILE_FLAG$ TO 21
EQU INDEXING_FLAG$ TO 22
EQU BATCH_FLAG$ TO 23
EQU PROCESS_TYPE$ TO 24
EQU LOCK_FLAG$ TO 25
* Source Date: 10:56:09 18 OCT 1995 Build ID: OI*3.0.150 Level: 2.8

16
SYSPROG/STPROCINS/INDEXING.CONSTANTS.txt Normal file
View File

@ -0,0 +1,16 @@
compile Insert indexing.constants
*12-=0=15 rjc Import from Arev_bp
EQUATE IXFLD.XREF.ON$ TO 60
EQUATE IXFLD.XREF.DELIM$ TO 61
EQUATE IXFLD.XREF.STOP.LIST$ TO 62
EQUATE IXFLD.XREF.STOP.MODE$ TO 63
*
EQUATE IXFLD.REL.ON$ TO 64
EQUATE IXFLD.REL.FIELD$ TO 65
EQUATE IXFLD.REL.SORT.MODE$ TO 66
EQUATE IXFLD.COMP.ON$ TO 67
EQUATE IXFLD.FILE$ TO 68
EQUATE IXFLD.FIELD$ TO 69
equate IXFLD.SPINDEX.ON$ to 70
* Source Date: 12:39:16 10 MAY 1994 Build ID: AREV_HR*3.1.41 Level: 3.13

77
SYSPROG/STPROCINS/INET_EQUATES.txt Normal file
View File

@ -0,0 +1,77 @@
compile insert Inet_Equates
* CGI enviromental variables (see source\oinsight\c\oicgi\request.h)
equ QUERY_STRING$ to 1
equ PATH_INFO$ to 2
equ CONTENT_TYPE$ to 3
equ CONTENT_LENGTH$ to 4
equ GATEWAY_INTERFACE$ to 5
equ HTTPS$ to 6
equ HTTP_ACCEPT$ to 7
equ HTTP_COOKIE$ to 8
equ HTTP_FROM$ to 9
equ HTTP_REFERER$ to 10
equ HTTP_USER_AGENT$ to 11
equ PATH_TRANSLATED$ to 12
equ REMOTE_ADDR$ to 13
equ REMOTE_HOST$ to 14
equ REMOTE_IDENT$ to 15
equ REMOTE_USER$ to 16
equ REQUEST_METHOD$ to 17
equ SCRIPT_NAME$ to 18
equ SERVER_NAME$ to 19
equ SERVER_PORT$ to 20
equ SERVER_PROTOCOL$ to 21
equ SERVER_SOFTWARE$ to 22
equ SERVER_URL$ to 23
equ NOURLDECODE$ to 24 ; * // Mr C, Added 7th November 2003
equ RESPONSE_IS_BINARY$ to 25 ; * // Mr C, Added 15th March 2006
Equ REGISTRY_SETTINGS$ To 26 ;* bzs 031706
* BZS 031813 Added for OECGI4+
Equ OECGI_VERSION$ To 27
Equ GET_STRING$ To 28
Equ POST_STRING$ To 29
Equ ADDITIONAL_VALUES_STRING$ TO 30
* BZS 042419 Added for encryption
Equ ENCODING_STRING$ To 31
* Gateway Services Monitor window name
equ GS_MONITOR$ to 'INET_GATEWAY'
* OMNIEVENT calls
equ INCOMING$ to 'INCOMING' ;* Param1 = request
equ OUTCOMING$ to 'OUTCOMING' ;* Param1 = response
equ INPROGRESS$ to 'INPROGRESS' ;* Param1 = time left before timeout (in secs)
* persistent configuration information
equ CFG_TABLE$ to "SYSENV"
equ CFG_KEY$ to "CFG_INET"
* fields in CFG_INET
equ CFG_CALLBACK$ to 1
equ CFG_ERRTEXT$ to 2
Equ CFG_DEFAULTS$ To 3 ;* bzs 061209
Equ CFG_QUERYPARAM_FLAG$ To 4 ;* BZS 060311
Equ CFG_INET_WHITELIST$ To 5 ;* bzs 061711
Equ CFG_TYPE_COMPRESSION$ To 6 ;* bzs 042419
Equ CFG_TYPE_COMPRESSION_DEFAULT$ To "deflate":@VM:"gzip" ;* bzs 042419 what we support, in the preferred order
Equ CFG_MIN_COMPRESSION$ To 7 ;* bzs 042419
Equ CFG_MIN_COMPRESSION_DEFAULT$ To 1000 ;* bzs 042419
* values in CFG_INET<CFG_CALLBACK$>
equ CFG_FN_SECURITY$ to 1 ;* a la INET_SECURITY
equ CFG_FN_FINALIZE$ to 2 ;* a la INET_FINALIZE
equ CFG_FN_ABORTED$ to 3 ;* errtext=() - called when an inet procedure has crashed and the gateway recovers
equ CFG_FN_WHITELIST$ to 4 ;* a la INET_WHITELIST
Equ CFG_FN_HANDLER$ To 5 ;* bzs 031517 RESTful processing routine, if applicable
* values in CFG_INET<CFG_ERRTEXT$> (multiple lines @tm-delim'd)
equ CFG_ERR_NORESULT$ to 1
* bzs 061209 values in CFG_INET<CFG_DEFAULTS$>
Equ CFG_DEF_CGI$ To 1 ; * a la ".CGI"
Equ CFG_DEF_PAGE$ To 2 ; * a la "/login"

33
SYSPROG/STPROCINS/INET_HEADERS.txt Normal file
View File

@ -0,0 +1,33 @@
compile insert INET_HEADERS
COMMON /INET_HEADERS/ Inet_Header_Names%, Inet_Header_Values%
Equ Inet_Header_Content_type$ To "Content-Type"
Equ Inet_Header_Cookie$ To "Set-Cookie"
Equ Inet_Header_Location$ To "Location"
Equ Inet_Header_Server$ To "Server"
Equ Inet_Header_Date$ To "Date"
Equ Inet_Header_Pragma$ To "Pragma"
Equ Inet_Header_Cache_Control$ To "Cache-Control"
Equ Inet_Header_Expires$ To "Expires"
Equ Inet_Header_Status$ To "Status"
Equ Inet_Header_Content_Encoding$ To "Content-Encoding"
Equ inet_default_content_type$ To "text/html; charset=utf-8"
Equ inet_default_server$ To "OpenInsight"
Equ inet_default_status$ To "200"
Equ inet_content_type_html$ To "text/html"
Equ inet_content_type_xml$ To "text/xml"
Equ inet_content_type_json$ To "application/json"
Equ inet_content_type_plain$ To "text/plain"
Equ inet_content_type_csv$ To "text/csv"
Equ inet_content_type_zip$ To "application/x-zip"
Equ inet_content_type_pdf$ To "application/pdf"
Equ inet_content_type_gif$ To "image/gif"
Equ inet_content_type_binary$ To "application/octet-stream"
Equ inet_content_encoding_none$ to "identity"
Equ inet_content_encoding_gzip$ To "gzip"
Equ inet_content_encoding_deflate$ To "deflate"
Declare Subroutine inetAPI_setContentType, inetAPI_setCookie, inetAPI_setRedirect, inetAPI_setStatus, inetAPI_setNoCache

62
SYSPROG/STPROCINS/IX_MGMT_EQUATES.txt Normal file
View File

@ -0,0 +1,62 @@
compile Insert ix_mgmt_equates
/*-----------------------------------------------------------------------------
* EQUATES USED BY INDEX MANAGEMENT SSPs
MM-DD-YY initials Modification
09-25-91 Pat first created
12-14-09 mtr bitmap indexing
02-22-15 rjc Created
05-07-21 rjc Index rebuild / rebalance flags.
*----------------------------------------------------------------------------*/
* ----- generic index type constants
equ btree_index$ to "1"
equ crossref_index$ to "2"
equ relational_index$ to "3"
equ computed_index$ to "4"
* mtr 12-14-09
equ bitmap_index$ to "5"
equ symbolic_field$ to "S"
equ mv_field$ to "M"
equ create_index_now$ to "1"
equ create_index_later$ to "0"
equ index_on$ to "1"
*---- Crossref index constant
equ xref_stop_default_mode$ to "1"
equ xref_stop_default_plus_mode$ to "2"
equ xref_stop_user_defined_mode$ to "3"
equ xref_go_list_mode$ to "4"
equ xref_append$ to "_XREF"
equ default_delimiter$ to "SPACE"
*---- Relational index constant
equ relational_sort_top_mode$ to "1"
equ relational_sort_bot_mode$ to "2"
equ relational_sort_al_mode$ to "3"
equ relational_sort_ar_mode$ to "4"
equ relational_sort_dl_mode$ to "5"
equ relational_sort_dr_mode$ to "6"
equ top_mode_script$ to "TOP"
equ bot_mode_script$ to "BOT"
equ al_mode_script$ to "AL"
equ ar_mode_script$ to "AR"
equ dl_mode_script$ to "DL"
equ dr_mode_script$ to "DR"
*---- Add rebuild / rebalance flags for UPDATE_INDEX
Equ rebuild_flag_update$ To 0
Equ rebuild_flag_rebuild$ To 1
Equ rebuild_flag_rebalance_onupdates$ To 2
Equ rebuild_flag_rebalance_always$ To 3
Equ remake_index_Control$ To 4
Equ recompile_index_calc$ To 5

47
SYSPROG/STPROCINS/IX_SELECT_CONSTANTS.txt Normal file
View File

@ -0,0 +1,47 @@
Compile Insert ix_select_constants
* Index predicate constants
* for index reduction logic.
EQU OP.ALL$ TO 1
EQU OP.DESC$ TO 2
EQU OP.EQ$ TO 3
EQU OP.NE$ TO 4
EQU OP.LT$ TO 5
EQU OP.LE$ TO 6
EQU OP.GT$ TO 7
EQU OP.GE$ TO 8
EQU OP.START$ TO 9
EQU OP.NOT.START$ TO 10
EQU OP.END$ TO 11
EQU OP.NOT.END$ TO 12
EQU OP.CONTAIN$ TO 13
EQU OP.NOT.CONTAIN$ TO 14
EQU OP.FROM.TO$ TO 15
EQU OP.NOT.FROM.TO$ TO 16
EQU OP.MATCH$ TO 17
EQU OP.NOT.MATCH$ TO 18
EQU OP.LIKE$ TO 19
EQU OP.NOT.LIKE$ TO 20
EQU OP.NULL$ TO 21
EQU OP.NOT.NULL$ TO 22
EQUATE IX_REDUCE$ TO 1 ;* SELECT TEST RETURN - REDUCTION FLAG
EQUATE IX_SORT$ TO 2 ;* SELECT TEST RETURN - SORT FLAG
EQUATE IX_FULLMAP$ TO 6 ;* SELECT TEST RETURN - FULL MAP POSSIBLE BY BFS
* PAT: adding all the constants used in the SI_REDUCTION
* field constant used for the FMC in SI_REDUCTION
EQU IND.VAL1$ TO 1
EQU IND.VAL2$ TO 2
EQU IND.OCONV$ TO 3
EQU IND.CASE$ TO 4
EQU KEY.POS$ TO 5
EQU LIST.POS$ TO 6
EQU IND.FIX$ TO 7
EQU IND.MODE$ TO 8
EQU FLD.JUST$ TO 9 ;* field is 'AR' or 'AL' justified Pat 10/5/90
EQU BLK.SEARCH$ TO 10 ;* this is only used for type 1# mentioned in SI.MFS Pat 12/10/90
EQU FIRST.TIME$ TO 11
Equ BITMAP.FLAG$ TO 22 ; * rjc 02-16-10 set by SELECT.INDEX if Bitmap index

49
SYSPROG/STPROCINS/LABELLED.COMMONS.txt Normal file
View File

@ -0,0 +1,49 @@
Compile Insert labelled.commons
* 08-10-16 rjc Copeid from Arev BP
!
COMMON /KEY/ KEYS , EXEC.POINTER ,OLD.POINTER , PASSING ,TRANSFER.TO, LINKED.GROUPS, EXEC.GROUP, PUPD, PRIMARY, MODE.FLAG, WINDOW.ON, TRANSFER.POP
!
* KEYS array Equates
EQU K.VIDS$ TO 1 ;* Voc Id
EQU K.SCANS$ TO 2 ;* Function Key's Scan Codes
EQU K.KEYS$ TO 3 ;* Function Key's Name
EQU K.TEMPLATES$ TO 4 ;* Name of the Record in the associated K.STORAGE$ File.
EQU K.TITLES$ TO 5 ;* Title for the Template
EQU K.FILES$ TO 6 ;* Name of the File the Template Accesses
EQU K.PT.FILES$ TO 7 ;* Names of the files to pass the keys to
EQU K.STORAGE$ TO 8 ;* Name of the file where the template is stored.
* PRIMARY array Equates
EQU P.FILES$ TO 1 ;* Files with Primary Data Entry Screens
EQU P.VIDS$ TO 2 ;* Voc Ids of the Primary Screens by file
EQU P.ACT.MSGS$ TO 3 ;* Action Messages
EQU P.ALT.MSGS$ TO 4 ;* Alternative Messages
EQU P.CORREX$ TO 5 ;* List Of screens with Correction Mode - No longer Used
* LINKED.GROUPS array Equates
EQU LG.NAMES TO 1 ;* Names of the Link Groups
EQU LG.VIDS TO 2 ;* Lists of Voc Ids in Each Group in Order of Execution
*
EQU KEY.IX$ TO '@KEYS@'
EQU KEY.US$ TO "@KEYS.":@USERNAME:"@"
EQU PRI.IX$ TO '@PRIMARY@'
EQU LNK.IX$ TO '@LINK.GROUPS@'
EQU LNK.US$ TO '@LINK.GROUPS.':@USERNAME:'@'
* EXEC.POINTER - Pointer to the position in the KEYS array for Executing Template
* OLD.POINTER - Pointer to the previos Template when transfering Betwwen Templates
* PASSING - Variable contains the key from the last screen
* TRANSFER.TO - If has a value when Program Terminates, the Value will get
* Executed - Actual Transfer Mechanism
* EXEC.GROUP - Link Group currently Active
* PUPD - if True - Permanent Update Mode is ON
* MODE.FLAG - if True - Corections Mode is ON
* WINDOW.ON - flag for MMI.MFS to indicate the call comes from a WINDOW
* TRANSFER.POP - A list constructed and cached in TRANSFER of the valid keys
* Source Date : 09:08:02 13 DEC 1989 - User : PJM - Product : HR-1
* Copy Date : 09:17:11 04 APR 1990 - User : AG - Product : HR-1
* Copy Date : 16:03:30 06 MAY 1992 - User : AG - Product : - V6.00
* Originally BP LABELLED.COMMONS -- Moved by V5.5 upgrade 20:48:12 18 NOV 1992

4
SYSPROG/STPROCINS/LCMENUS.txt Normal file
View File

@ -0,0 +1,4 @@
compile Insert LCMENUS
COMMON /LCMENUS/ MENU.PTR, PREV.POS
* rjc 08-10-16 copied from Arev bp
* Source Date: 10:24:10 03 FEB 1988 Build ID: 1.0 Level: 2.0

71
SYSPROG/STPROCINS/LCPOSITIONS.txt Normal file
View File

@ -0,0 +1,71 @@
compile insert LCPOSITIONS
*
* WINDOW prompt structure
* Each prompt will conform to the following structure
*
*
* prompt position required description
* ------ -------- -------- -------------------------------------
EQU PNO TO 1 ;* Yes Relative position number.
EQU DICT TO 2 ;* No Dictionary field representing prompt.
EQU TYPE TO 3 ;* Yes Type of prompt (F=data field, S=symbolic, N=filename, D=dict filename).
EQU FNO TO 4 ;* Yes Dictionary field number (0=key).
EQU D TO 5 ;* No Display label/literal.
EQU DA TO 6 ;* No Display label's video attribute (color). If null, WINDOW will use current system attribute
;* setting for application window (AW) labels.
EQU DX TO 7 ;* Yes Display label x/column location relative to the upper left corner of window.
EQU DY TO 8 ;* Yes Display label y/row location relative to upper left corner of window.
EQU VA TO 9 ;* No Prompt value's video attribute (color). If null, WINDOW will use current system attribute
;* setting for application window (AW) prompts.
EQU VX TO 10 ;* Yes Prompt value x/column location relative to upper left window corner.
EQU VY TO 11 ;* Yes Prompt value y/row location relative to upper left window corner.
EQU VINP TO 12 ;* No Prompt value input validation.
EQU VOTP TO 13 ;* No Prompt value output format for display.
EQU VJST TO 14 ;* No Prompt value justification for display (if null then just = 'L')
EQU VLEN TO 15 ;* No Prompt value display length/width.
EQU VDEPTH TO 16 ;* No Prompt value display depth for multi-value and text fields with depth.
;* (0=single value, 1=single line mult-value, 2+=multi-line multi-value).
EQU DFLT TO 17 ;* No Prompt value default fill-in value if user has a null entry.
EQU ET TO 18 ;* No Prompt value Entry type. (R=required, P=protected, F=fill, etc.)
EQU JOIN.FILE TO 19 ;* No Secondary file source for this prompt/field
EQU JOIN.KEY TO 20 ;* No Key used to access JOIN.FILE
EQU JOIN.FIELD TO 21 ;* No Field number to retrieve/update in joined record of JOIN.FILE
EQU LOCASE TO 22 ;* No Permit lower case characters (default = false).
EQU MASK TO 23 ;* No Editing mask.
EQU PRE.CODE TO 24 ;* No Process to occur prior to user data entry into current prompt.
EQU PRE.COMMAND TO 25 ;* No
EQU POST.CODE TO 26 ;* No Process to occur after the user has entered data into the current prompt.
EQU POST.COMMAND TO 27 ;* No
EQU OPTIONS.CODE TO 28 ;* No Options key code type.
EQU OPTIONS.COMMAND TO 29 ;* No Options key command to perform when Options key is pressed.
EQU DEP.MAX TO 30 ;* No Maximum depth for associated multi-value prompt sets.
EQU JOIN.DEPENDENTS TO 31 ;* No A list of prompts that are dependent on this JOIN key.
EQU PROMPT.TAB TO 32 ;* No Tab stop for moving more quickly between prompts.
EQU HELP.CODE TO 33 ;* No Detail help for this prompt. Can take the form of code-vm-command or
;* a generated number for use with the help file.
EQU SLMV TO 34 ;* No Permit a single line multivalue
EQU AMV.GROUP TO 35 ;* No Associated multi-value group flag
EQU INVALID.CODE TO 36 ;* No Process to occur when data entered is invalid.
EQU INVALID.COMMAND TO 37 ;* No
EQU CHAR.CNT TO 38 ;* No Number of characters entered at a field. Zero
;* or '' allow 64k to be entered
EQU SCRIBE.CODE TO 39 ;* No Process to occur instead of Scribe.
EQU SCRIBE.COMMAND TO 40 ;* No
EQU TX TO 41 ;* No X/column during Table mode
EQU TLEN TO 42 ;* No Length of prompt during Table mode
EQU HELP.COMMAND TO 43 ;* No Help catalyst commands where PROMPT.HELP is the catalyst code.
EQU JOIN.DELETE TO 44 ;* No Delete joined record from JOIN.FILE if primary record is deleted (yes/no)
EQU JOIN.CHANGE TO 45 ;* No If JOIN.KEY is changed, delete previous JOIN.KEY from JOIN.FILE (yes/no)
EQU THEAD TO 46 ;* No Table column heading (overrides prompt label)
EQU PREG1 TO 47 ;* No Prompt register1
EQU PREG2 TO 48 ;* No Prompt register2
EQU PREG3 TO 49 ;* No Prompt register3
EQU PREG4 TO 50 ;* No Prompt register4
EQU PREG5 TO 51 ;* No Prompt register5
EQU HOMEXY TO 52 ;* No Virtual page mark
EQU HIDDEN.LABEL TO 53 ;* No Hidden label when only prompt entry is needed (no prompt label shown)
EQU GENERIC.TYPE TO 54 ;* No Generic Field Data Type (2.0+)
Equ TBFlag To 55 ;* Flag for table browser
Equ MDatafile.NO To 56 ;* Multiple table supporting value
* Source Date: 07:58:41 05 APR 1993 Build ID: AREV*3.1.46 Level: 3.1

33
SYSPROG/STPROCINS/LH_STATISTICS_EQUATES.txt Normal file
View File

@ -0,0 +1,33 @@
compile insert LH_STATISTICS_EQUATES
/*----------------------------------------
Author : Table Create Insert Routine
Written : 24/02/2015
Description : Insert for Table LH_STATISTICS
----------------------------------------*/
Equ LH_STATISTICS_ACCOUNT$ To 0
Equ LH_STATISTICS_LOCATION$ To 0
Equ LH_STATISTICS_TABLE$ To 0
Equ LH_STATISTICS_TIMESTAMP$ To 1
Equ LH_STATISTICS_MODULO$ To 2
Equ LH_STATISTICS_FRAMESIZE$ To 3
Equ LH_STATISTICS_PCTFULL$ To 4
Equ LH_STATISTICS_SIZELOCK$ To 5
Equ LH_STATISTICS_THRESHOLD$ To 6
Equ LH_STATISTICS_OSNAME$ To 7
Equ LH_STATISTICS_SAMPLE_SIZE$ To 8
Equ LH_STATISTICS_LK_SIZE$ To 9
Equ LH_STATISTICS_OV_SIZE$ To 10
Equ LH_STATISTICS_TOTAL_SIZE$ To 11
Equ LH_STATISTICS_RATIO$ To 12
Equ LH_STATISTICS_RECCOUNT$ To 13
Equ LH_STATISTICS_AVG_SIZE$ To 14
Equ LH_STATISTICS_MAX_BIN$ To 15
Equ LH_STATISTICS_MEAN_BIN_COUNT$ To 16
Equ LH_STATISTICS_MIN_BIN_COUNT$ To 17
Equ LH_STATISTICS_MAX_BIN_COUNT$ To 18
Equ LH_STATISTICS_MEDIAN_BIN_COUNT$ To 19
Equ LH_STATISTICS_BIN_COUNT_SIGMA$ To 20
Equ LH_STATISTICS_BIN_COUNTS$ To 21
Equ LH_STATISTICS_ATTACHED_BY_APPLICATION$ To 22

21
SYSPROG/STPROCINS/LH_VERIFY_ERRORS.txt Normal file
View File

@ -0,0 +1,21 @@
Compile Insert LH_Verify_Errors
LH_Errors = ''
LH_Errors<1,1> = "Table could not be read."
Lh_errors<1,2> = "Framesize %1%; should be between 256 and 10000 bytes."
LH_Errors<1,3> = "Primary frame header type %1% is incorrect."
LH_errors<1,4> = "Table size %1%, framesize %3%, modulo %2%; table size/framesize <> modulo."
Lh_Errors<1,5> = "Overflow frame header type %1% is incorrect."
LH_errors<1,6> = "L, N and P hash computation error."
LH_errors<1,7> = "Row is in the wrong group."
LH_errors<1,8> = "Offset %4%, frame %3%, in %2% table; row terminator (char(255)) is missing."
LH_errors<1,9> = "Group %2% in overflow frame header (frame %1%) is not consistent with the current group."
LH_errors<1,10> = "Overflow frame %2%, boundary %1%; forward pointer points to a nonexistent position in the overflow file."
LH_errors<1,11> = "Overflow frame %1%, which holds the free frame list, is missing."
LH_Errors<1,12> = "Free frame list in frame %1% is not sorted."
LH_Errors<1,13> = "Offset %3%, frame %2% in %1% table; byte after end-of-group mark (EOG--CHAR(80)) is not null."
LH_errors<1,14> = "Frame %2% in %1% Table; forward/skip forward pointer(s) in the last frame of this group is not null."
LH_errors<1,17> = "Record Key exceeds maximum length"
* the above is used for LH_VERIFY utility, should be very descriptive (took from arev systext record)

29
SYSPROG/STPROCINS/LND_EQUATES.txt Normal file
View File

@ -0,0 +1,29 @@
compile insert LND_EQUATES
* Structure of LND records (by field)
EQU LND_NAME$ TO 1 ;* Descriptive name
EQU LND_SHORT_MONTHS$ TO 2 ;* @VM delimited month abbreviations (12)
EQU LND_FULL_MONTHS$ TO 3 ;* @VM delimited full month names (12)
EQU LND_AM$ TO 4 ;* Ante meridiem designator
EQU LND_PM$ TO 5 ;* Post meridiem designator
EQU LND_DBCR$ TO 6 ;* @VM delimited Debit-Credit designators
EQU LND_UC$ TO 7 ;* Upper Case character set
EQU LND_LC$ TO 8 ;* Lower Case character set
EQU LND_CONV$ TO 9 ;* @VM delimited I/OCONV conversions
* Structure of LND_CONV$ (by value)
EQU LND_CONV_B$ TO 1 ;* Boolean conversion default
EQU LND_CONV_D$ TO 2 ;* Date conversion default
EQU LND_CONV_MT$ TO 3 ;* Time conversion default
EQU LND_CONV_DT$ TO 4 ;* DateTime conversion default
EQU LND_CONV_MO$ TO 5 ;* Money conversion default (in MD/MC format)
EQU LND_CONV_MS$ TO 6 ;* Masked Scientific conversion default
* bzs 102208
EQU LND_CONV_D_SHORT$ TO 7 ;* Short date output code
EQU LND_CONV_MD_DECIMAL$ TO 8 ;* Character to use as decimal point
EQU LND_CONV_MD_1000$ TO 9 ;* Character to use as thousands delimiter
EQU LND_CONV_MD_CURRENCY$ TO 10 ;* Character to use for currency
* Structure of LND_DBCR$ (by value)
EQU LND_DBCR_DB$ TO 2 ;* Debit designator
EQU LND_DBCR_CR$ TO 3 ;* Credit designator
* Source Date: 17:44:54 09 JUL 1992 Build ID: AREV*2.2.48 Level: 2.2

29
SYSPROG/STPROCINS/LOGICAL.txt Normal file
View File

@ -0,0 +1,29 @@
compile insert Logical
/*
** Copyright (C) 2012 Revelation Software Inc. All Rights Reserved **
Amended Date Reason
======= ==== ======
Mr C 18 Sept 12 Added header guards so this insert can be nested.
*/
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#IFNDEF _LOGICAL_
#DEFINE _LOGICAL_
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
equ OTHERWISE$ to 1
equ TRUE$ to 1
equ FALSE$ to 0
equ YES$ to 1
equ NO$ to 0
Equ NULL$ to ""
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////
#ENDIF
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////

57
SYSPROG/STPROCINS/LOGON32_EQUATES.txt Normal file
View File

@ -0,0 +1,57 @@
Compile insert Logon32_Equates
/***********************************************************************************************************************
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
permission from SRP Computer Solutions, Inc.
Name : Logon32_Equates
Description : Used with the LogonUser Windows API function.
Notes : The LogonUser function has been prototyped as SRP_LogonUser. See DLL_ADVAPI32_SRP.
History : (Date, Initials, Notes)
01/25/13 dmb Original programmer. - [FRWOI-6]
***********************************************************************************************************************/
// This logon type is intended for users who will be interactively using the computer, such as a user being logged on
// by a terminal server, remote shell, or similar process.
// This logon type has the additional expense of caching logon information for disconnected operations;
// therefore, it is inappropriate for some client/server applications,
// such as a mail server.
Equ LOGON32_LOGON_INTERACTIVE$ to 2
// This logon type is intended for high performance servers to authenticate plaintext passwords.
// The LogonUser function does not cache credentials for this logon type.
Equ LOGON32_LOGON_NETWORK$ to 3
// This logon type is intended for batch servers, where processes may be executing on behalf of a user without
// their direct intervention. This type is also for higher performance servers that process many plaintext
// authentication attempts at a time, such as mail or Web servers.
// The LogonUser function does not cache credentials for this logon type.
Equ LOGON32_LOGON_BATCH$ to 4
// Indicates a service-type logon. The account provided must have the service privilege enabled.
Equ LOGON32_LOGON_SERVICE$ to 5
// This logon type is for GINA DLLs that log on users who will be interactively using the computer.
// This logon type can generate a unique audit record that shows when the workstation was unlocked.
Equ LOGON32_LOGON_UNLOCK$ to 7
// This logon type preserves the name and password in the authentication package, which allows the server to make
// connections to other network servers while impersonating the client. A server can accept plaintext credentials
// from a client, call LogonUser, verify that the user can access the system across the network, and still
// communicate with other servers.
// NOTE: Windows NT: This value is not supported.
Equ LOGON32_LOGON_NETWORK_CLEARTEXT$ to 8
// This logon type allows the caller to clone its current token and specify new credentials for outbound connections.
// The new logon session has the same local identifier but uses different credentials for other network connections.
// NOTE: This logon type is supported only by the LOGON32_PROVIDER_WINNT50 logon provider.
// NOTE: Windows NT: This value is not supported.
Equ LOGON32_LOGON_NEW_CREDENTIALS$ to 9
// Use the standard logon provider for the system.
// The default security provider is negotiate, unless you pass NULL for the domain name and the user name
// is not in UPN format. In this case, the default provider is NTLM.
// NOTE: Windows 2000/NT: The default security provider is NTLM.
Equ LOGON32_PROVIDER_DEFAULT$ to 0
Equ LOGON32_PROVIDER_WINNT35$ to 1
Equ LOGON32_PROVIDER_WINNT40$ to 2
Equ LOGON32_PROVIDER_WINNT50$ to 3

6
SYSPROG/STPROCINS/LSL_COMMON.txt Normal file
View File

@ -0,0 +1,6 @@
compile insert lsl_common
common /%LSLCommon%/ Misc@, SecTables@, SecRights@
* @fm equates for Misc@
equ CenterWindow$ to 1 ;* used in create event of each window to center the window
equ RecipeKey$ to 2 ;* used to return the recipe key to the specification

50
SYSPROG/STPROCINS/MAPI_EQUATES.txt Normal file
View File

@ -0,0 +1,50 @@
compile insert MAPI_EQUATES
EQU MAPI_LOGON_UI$ to 1 ;* Display logon dialog
EQU MAPI_NEW_SESSION$ to 2 ;* Do not use default session
EQU MAPI_DIALOG$ to 8 ;* Display a send note dialog
EQU MAPI_UNREAD_ONLY$ to 32 ;* Only unread messages
EQU MAPI_ENVELOPE_ONLY$ to 64 ;* Only header information
EQU MAPI_PEEK$ to 128 ;* Do not mark as read
EQU MAPI_GUARANTEE_FIFO$ to 256 ;* Retain date order
EQU MAPI_BODY_AS_FILE$ to 512 ;* Attach body as file
EQU MAPI_AB_NOMODIFY$ to 1024 ;* Do not update address book
EQU MAPI_SUPPRESS_ATTACH$ to 2048 ;* Do not return files
EQU MAPI_FORCE_DOWNLOAD$ to 4096 ;* Download new mail
EQU MAPI_UNREAD$ to 1 ;* Message has not been read
EQU MAPI_RECEIPT_REQUESTED$ to 2 ;* Notify when message has been received
EQU MAPI_SENT$ to 4 ;* Message has been sent
* Maximum length of message id
EQU MAX_ID$ TO 64
* Maximum length of message parts returned
EQU MAX_SUBJECT$ TO 256
EQU MAX_FROM$ TO 256
EQU MAX_TO$ TO 1024
EQU MAX_CC$ TO 1024
EQU MAX_BCC$ TO 1024
EQU MAX_DATE$ TO 32
EQU MAX_TEXT$ TO 32767
EQU MAX_CLASS$ TO 256
EQU MAX_FLAGS$ TO 16
EQU MAX_FILES$ TO 1024
EQU MAX_PATHS$ TO 4096
EQU MAX_POSITIONS$ TO 1024
* Position in structure of message parts returned
EQU POS_SUBJECT$ TO 1
EQU POS_FROM$ TO 2
EQU POS_TO$ TO 3
EQU POS_CC$ TO 4
EQU POS_BCC$ TO 5
EQU POS_DATE$ TO 6
EQU POS_TEXT$ TO 7
EQU POS_TYPE$ TO 8
EQU POS_CLASS$ TO 8
EQU POS_FLAGS$ TO 9
EQU POS_FILES$ TO 10
EQU POS_PATHS$ TO 11
EQU POS_POSITIONS$ TO 12
* Source Date: 17:49:07 31 JAN 1996 Build ID: OINOTES*3.1.40 Level: 3.1

97
SYSPROG/STPROCINS/MEDIA.MAP.EQUATES.txt Normal file
View File

@ -0,0 +1,97 @@
Compile Insert Media.Map.Equates
* This record defines the layout of media map records for Advanced
* Revelation 2.0.
*
* The first two fields were already defined in Advanced Revelation
* before version 2.0
*
* MM.FILE.NAME$ - The name of the foreign file.
EQU MM.FILE.NAME$ TO 1
* MM.MFS.LIST$ - the Modifying File Systems list for this file.
EQU MM.MFS.LIST$ TO 2
!
* The following 10 fields are reserved for future definition of items
* that are required for both DICT. and DATA. media map records.
*
EQU MM.RESERVED.1$ TO 3
EQU MM.RESERVED.2$ TO 4
EQU MM.RESERVED.3$ TO 5
EQU MM.RESERVED.4$ TO 6
EQU MM.RESERVED.5$ TO 7
EQU MM.RESERVED.6$ TO 8
EQU MM.RESERVED.7$ TO 9
EQU MM.RESERVED.8$ TO 10
EQU MM.RESERVED.9$ TO 11
EQU MM.RESERVED.10$ TO 12
!
*
* All fields defined below this point are defined only for DICT. media
* map records. These positions are available to be defined by individual
* bonds for DATA. media map records.
*
* MM.DATA.NAME$ - The fully qualified name of the foreign data file,
* suitable for error messages.
EQU MM.DATA.NAME$ TO 13
* MM.FOREIGN.PASSWORD$ - The password for the foreign file, if the foreign
* environment supports foreign passwords and if the bond
* allows them to be resident. The password should not be
* stored as clear text.
EQU MM.FOREIGN.PASSWORD$ TO 14
* MM.FLAGS$ - a set of valuemark-delimited flags.
EQU MM.FLAGS$ TO 15
* MM.FLAG.DELFILE$ - if non-zero and non-null, this flag causes the bond
* fail any attempt to delete the data portion of the file.
EQU MM.FLAG.DELFILE$ TO 1
* MM.FLAG.IMPDICT$ - non-zero if this dictionary was created implicitly
* by the bond AND has never been written to.
EQU MM.FLAG.IMPDICT$ TO 2
* MM.TIME.STAMPS$ - a valuemark-delimited set of time stamps (DATE() + TIME()/86400).
EQU MM.TIME.STAMPS$ TO 16
* MM.TIME.CREATE$ - time that the dictionary portion of the file was
* created.
EQU MM.TIME.CREATE$ TO 1
* MM.FILE.STATE$ - specifies the current state of the file.
EQU MM.FILE.STATE$ TO 17
EQU MM.STATE.DEFINED$ TO 0
EQU MM.STATE.DEFINING$ TO 1
EQU MM.STATE.REDEFINING$ TO 2
EQU MM.FOREIGN.ATTR$ TO 18
!
*
* The following fields are reserved for future definition of file attributes
*
EQU MM.RESERVED.11$ TO 19
EQU MM.RESERVED.12$ TO 20
EQU MM.RESERVED.13$ TO 21
EQU MM.RESERVED.14$ TO 22
EQU MM.RESERVED.15$ TO 23
EQU MM.RESERVED.16$ TO 24
EQU MM.RESERVED.17$ TO 25
EQU MM.RESERVED.18$ TO 26
EQU MM.RESERVED.19$ TO 27
EQU MM.RESERVED.20$ TO 29
* The remaining fields can be defined by each bond in any way it
* sees fit.
* Source Date: 09:47:30 24 OCT 1990 Build ID: AREV*2.0.98 Level: 2.1

97
SYSPROG/STPROCINS/MEDIA_MAP_EQUATES.txt Normal file
View File

@ -0,0 +1,97 @@
Compile Insert Media_Map_Equates
* This record defines the layout of media map records for Advanced
* Revelation 2.0.
*
* The first two fields were already defined in Advanced Revelation
* before version 2.0
*
* MM.FILE.NAME$ - The name of the foreign file.
EQU MM.FILE.NAME$ TO 1
* MM.MFS.LIST$ - the Modifying File Systems list for this file.
EQU MM.MFS.LIST$ TO 2
!
* The following 10 fields are reserved for future definition of items
* that are required for both DICT. and DATA. media map records.
*
EQU MM.RESERVED.1$ TO 3
EQU MM.RESERVED.2$ TO 4
EQU MM.RESERVED.3$ TO 5
EQU MM.RESERVED.4$ TO 6
EQU MM.RESERVED.5$ TO 7
EQU MM.RESERVED.6$ TO 8
EQU MM.RESERVED.7$ TO 9
EQU MM.RESERVED.8$ TO 10
EQU MM.RESERVED.9$ TO 11
EQU MM.RESERVED.10$ TO 12
!
*
* All fields defined below this point are defined only for DICT. media
* map records. These positions are available to be defined by individual
* bonds for DATA. media map records.
*
* MM.DATA.NAME$ - The fully qualified name of the foreign data file,
* suitable for error messages.
EQU MM.DATA.NAME$ TO 13
* MM.FOREIGN.PASSWORD$ - The password for the foreign file, if the foreign
* environment supports foreign passwords and if the bond
* allows them to be resident. The password should not be
* stored as clear text.
EQU MM.FOREIGN.PASSWORD$ TO 14
* MM.FLAGS$ - a set of valuemark-delimited flags.
EQU MM.FLAGS$ TO 15
* MM.FLAG.DELFILE$ - if non-zero and non-null, this flag causes the bond
* fail any attempt to delete the data portion of the file.
EQU MM.FLAG.DELFILE$ TO 1
* MM.FLAG.IMPDICT$ - non-zero if this dictionary was created implicitly
* by the bond AND has never been written to.
EQU MM.FLAG.IMPDICT$ TO 2
* MM.TIME.STAMPS$ - a valuemark-delimited set of time stamps (DATE() + TIME()/86400).
EQU MM.TIME.STAMPS$ TO 16
* MM.TIME.CREATE$ - time that the dictionary portion of the file was
* created.
EQU MM.TIME.CREATE$ TO 1
* MM.FILE.STATE$ - specifies the current state of the file.
EQU MM.FILE.STATE$ TO 17
EQU MM.STATE.DEFINED$ TO 0
EQU MM.STATE.DEFINING$ TO 1
EQU MM.STATE.REDEFINING$ TO 2
EQU MM.FOREIGN.ATTR$ TO 18
!
*
* The following fields are reserved for future definition of file attributes
*
EQU MM.RESERVED.11$ TO 19
EQU MM.RESERVED.12$ TO 20
EQU MM.RESERVED.13$ TO 21
EQU MM.RESERVED.14$ TO 22
EQU MM.RESERVED.15$ TO 23
EQU MM.RESERVED.16$ TO 24
EQU MM.RESERVED.17$ TO 25
EQU MM.RESERVED.18$ TO 26
EQU MM.RESERVED.19$ TO 27
EQU MM.RESERVED.20$ TO 29
* The remaining fields can be defined by each bond in any way it
* sees fit.
* Source Date: 09:47:30 24 OCT 1990 Build ID: AREV*2.0.98 Level: 2.1

11
SYSPROG/STPROCINS/MEMCACHED_MFS_EQUATES.txt Normal file
View File

@ -0,0 +1,11 @@
compile insert memcached_mfs_Equates
Equ MCD_MFS_TABLES$ To "MCD_MFS_TABLES"
*
* Table specific definitions
*
Equ MCD_TABLE_CONNECTION$ To 1 ;
Equ MCD_TABLE_PREFIX$ To 2 ;
Equ MCD_TABLE_NOSTORE$ To 3 ; * True if the MFS should not store info. Implements a pure in_memory

35
SYSPROG/STPROCINS/MESSAGE_BOX_EQUATES.txt Normal file
View File

@ -0,0 +1,35 @@
compile insert MESSAGE_BOX_EQUATES
* button arrangement
equ MSG_BTN_OK$ to 0
equ MSG_BTN_OKCAN$ to 1
equ MSG_BTN_ABORT$ to 2
equ MSG_BTN_YESNOCAN$ to 3
equ MSG_BTN_YESNO$ to 4
equ MSG_BTN_RETRYCAN$ to 5
* default button
equ MSG_DEFAULT1$ to 0
equ MSG_DEFAULT2$ to 256
equ MSG_DEFAULT3$ to 512
* message icon
equ MSG_ICON_NONE$ to 0
equ MSG_ICON_STOP$ to 16
equ MSG_ICON_QUESTION$ to 32
equ MSG_ICON_EXCLAM$ to 48
equ MSG_ICON_INFO$ to 64
* return values
equ MSG_RET_OK$ to 1
equ MSG_RET_CAN$ to 2
equ MSG_RET_ABORT$ to 3
equ MSG_RET_RETRY$ to 4
equ MSG_RET_IGNORE$ to 5
equ MSG_RET_YES$ to 6
equ MSG_RET_NO$ to 7
* new line (carriage return/line feed)
equ MSG_NL$ to \0D0A\
* Source Date: 18:30:59 26 APR 1995 Build ID: OINOTES*2.5.45 Level: 2.5

265
SYSPROG/STPROCINS/MICROSOFT_ADO_EQUATES.txt Normal file
View File

@ -0,0 +1,265 @@
Compile Insert Microsoft_Ado_Equates
//--------------------------------------------------------------------
// Microsoft ADO
//
// (c) 1996 Microsoft Corporation. All Rights Reserved.
//
//
//
// ADO equates include file for VBScript
//
//--------------------------------------------------------------------
//---- CursorTypeEnum Values ----
equ adOpenForwardOnly to 0
equ adOpenKeyset to 1
equ adOpenDynamic to 2
equ adOpenStatic to 3
//---- CursorOptionEnum Values ----
equ adHoldRecords to 0x00000100
equ adMovePrevious to 0x00000200
equ adAddNew to 0x01000400
equ adDelete to 0x01000800
equ adUpdate to 0x01008000
equ adBookmark to 0x00002000
equ adApproxPosition to 0x00004000
equ adUpdateBatch to 0x00010000
equ adResync to 0x00020000
equ adNotify to 0x00040000
//---- LockTypeEnum Values ----
equ adLockReadOnly to 1
equ adLockPessimistic to 2
equ adLockOptimistic to 3
equ adLockBatchOptimistic to 4
//---- ExecuteOptionEnum Values ----
equ adRunAsync to 0x00000010
//---- ObjectStateEnum Values ----
equ adStateClosed to 0x00000000
equ adStateOpen to 0x00000001
equ adStateConnecting to 0x00000002
equ adStateExecuting to 0x00000004
//---- CursorLocationEnum Values ----
equ adUseServer to 2
equ adUseClient to 3
//---- DataTypeEnum Values ----
equ adEmpty to 0
equ adTinyInt to 16
equ adSmallInt to 2
equ adInteger to 3
equ adBigInt to 20
equ adUnsignedTinyInt to 17
equ adUnsignedSmallInt to 18
equ adUnsignedInt to 19
equ adUnsignedBigInt to 21
equ adSingle to 4
equ adDouble to 5
equ adCurrency to 6
equ adDecimal to 14
equ adNumeric to 131
equ adBoolean to 11
equ adError to 10
equ adUserDefined to 132
equ adVariant to 12
equ adIDispatch to 9
equ adIUnknown to 13
equ adGUID to 72
equ adDate to 7
equ adDBDate to 133
equ adDBTime to 134
equ adDBTimeStamp to 135
equ adBSTR to 8
equ adChar to 129
equ adVarChar to 200
equ adLongVarChar to 201
equ adWChar to 130
equ adVarWChar to 202
equ adLongVarWChar to 203
equ adBinary to 128
equ adVarBinary to 204
equ adLongVarBinary to 205
//---- FieldAttributeEnum Values ----
equ adFldMayDefer to 0x00000002
equ adFldUpdatable to 0x00000004
equ adFldUnknownUpdatable to 0x00000008
equ adFldFixed to 0x00000010
equ adFldIsNullable to 0x00000020
equ adFldMayBeNull to 0x00000040
equ adFldLong to 0x00000080
equ adFldRowID to 0x00000100
equ adFldRowVersion to 0x00000200
equ adFldCacheDeferred to 0x00001000
//---- EditModeEnum Values ----
equ adEditNone to 0x0000
equ adEditInProgress to 0x0001
equ adEditAdd to 0x0002
equ adEditDelete to 0x0004
//---- RecordStatusEnum Values ----
equ adRecOK to 0x0000000
equ adRecNew to 0x0000001
equ adRecModified to 0x0000002
equ adRecDeleted to 0x0000004
equ adRecUnmodified to 0x0000008
equ adRecInvalid to 0x0000010
equ adRecMultipleChanges to 0x0000040
equ adRecPendingChanges to 0x0000080
equ adRecCanceled to 0x0000100
equ adRecCantRelease to 0x0000400
equ adRecConcurrencyViolation to 0x0000800
equ adRecIntegrityViolation to 0x0001000
equ adRecMaxChangesExceeded to 0x0002000
equ adRecObjectOpen to 0x0004000
equ adRecOutOfMemory to 0x0008000
equ adRecPermissionDenied to 0x0010000
equ adRecSchemaViolation to 0x0020000
equ adRecDBDeleted to 0x0040000
//---- GetRowsOptionEnum Values ----
equ adGetRowsRest to -1
//---- PositionEnum Values ----
equ adPosUnknown to -1
equ adPosBOF to -2
equ adPosEOF to -3
//---- enum Values ----
equ adBookmarkCurrent to 0
equ adBookmarkFirst to 1
equ adBookmarkLast to 2
//---- MarshalOptionsEnum Values ----
equ adMarshalAll to 0
equ adMarshalModifiedOnly to 1
//---- AffectEnum Values ----
equ adAffectCurrent to 1
equ adAffectGroup to 2
equ adAffectAll to 3
//---- FilterGroupEnum Values ----
equ adFilterNone to 0
equ adFilterPendingRecords to 1
equ adFilterAffectedRecords to 2
equ adFilterFetchedRecords to 3
equ adFilterPredicate to 4
//---- SearchDirection Values ----
equ adSearchForward to 1
equ adSearchBackward to -1
//---- ConnectPromptEnum Values ----
equ adPromptAlways to 1
equ adPromptComplete to 2
equ adPromptCompleteRequired to 3
equ adPromptNever to 4
//---- ConnectModeEnum Values ----
equ adModeUnknown to 0
equ adModeRead to 1
equ adModeWrite to 2
equ adModeReadWrite to 3
equ adModeShareDenyRead to 4
equ adModeShareDenyWrite to 8
equ adModeShareExclusive to 0xc
equ adModeShareDenyNone to 0x10
//---- IsolationLevelEnum Values ----
equ adXactUnspecified to 0xffffffff
equ adXactChaos to 0x00000010
equ adXactReadUncommitted to 0x00000100
equ adXactBrowse to 0x00000100
equ adXactCursorStability to 0x00001000
equ adXactReadCommitted to 0x00001000
equ adXactRepeatableRead to 0x00010000
equ adXactSerializable to 0x00100000
equ adXactIsolated to 0x00100000
//---- XactAttributeEnum Values ----
equ adXactCommitRetaining to 0x00020000
equ adXactAbortRetaining to 0x00040000
//---- PropertyAttributesEnum Values ----
equ adPropNotSupported to 0x0000
equ adPropRequired to 0x0001
equ adPropOptional to 0x0002
equ adPropRead to 0x0200
equ adPropWrite to 0x0400
//---- ErrorValueEnum Values ----
equ adErrInvalidArgument to 0xbb9
equ adErrNoCurrentRecord to 0xbcd
equ adErrIllegalOperation to 0xc93
equ adErrInTransaction to 0xcae
equ adErrFeatureNotAvailable to 0xcb3
equ adErrItemNotFound to 0xcc1
equ adErrObjectInCollection to 0xd27
equ adErrObjectNotSet to 0xd5c
equ adErrDataConversion to 0xd5d
equ adErrObjectClosed to 0xe78
equ adErrObjectOpen to 0xe79
equ adErrProviderNotFound to 0xe7a
equ adErrBoundToCommand to 0xe7b
equ adErrInvalidParamInfo to 0xe7c
equ adErrInvalidConnection to 0xe7d
equ adErrStillExecuting to 0xe7f
equ adErrStillConnecting to 0xe81
//---- ParameterAttributesEnum Values ----
equ adParamSigned to 0x0010
equ adParamNullable to 0x0040
equ adParamLong to 0x0080
//---- ParameterDirectionEnum Values ----
equ adParamUnknown to 0x0000
equ adParamInput to 0x0001
equ adParamOutput to 0x0002
equ adParamInputOutput to 0x0003
equ adParamReturnValue to 0x0004
//---- CommandTypeEnum Values ----
equ adCmdUnknown to 0x0008
equ adCmdText to 0x0001
equ adCmdTable to 0x0002
equ adCmdStoredProc to 0x0004
//---- SchemaEnum Values ----
equ adSchemaProviderSpecific to -1
equ adSchemaAsserts to 0
equ adSchemaCatalogs to 1
equ adSchemaCharacterSets to 2
equ adSchemaCollations to 3
equ adSchemaColumns to 4
equ adSchemaCheckequraints to 5
equ adSchemaequraintColumnUsage to 6
equ adSchemaequraintTableUsage to 7
equ adSchemaKeyColumnUsage to 8
equ adSchemaReferentialContraints to 9
equ adSchemaTableequraints to 10
equ adSchemaColumnsDomainUsage to 11
equ adSchemaIndexes to 12
equ adSchemaColumnPrivileges to 13
equ adSchemaTablePrivileges to 14
equ adSchemaUsagePrivileges to 15
equ adSchemaProcedures to 16
equ adSchemaSchemata to 17
equ adSchemaSQLLanguages to 18
equ adSchemaStatistics to 19
equ adSchemaTables to 20
equ adSchemaTranslations to 21
equ adSchemaProviderTypes to 22
equ adSchemaViews to 23
equ adSchemaViewColumnUsage to 24
equ adSchemaViewTableUsage to 25
equ adSchemaProcedureParameters to 26
equ adSchemaForeignKeys to 27
equ adSchemaPrimaryKeys to 28
equ adSchemaProcedureColumns to 29

42
SYSPROG/STPROCINS/MOUSE_CONSTANTS.txt Normal file
View File

@ -0,0 +1,42 @@
compile Insert mouse_constants
*
* MOUSE_CONSTANTS -
* EQUates for use with MOUSE_SUBS interface to mouse driver.
* 08-10-16 rjc Copied from Arev bp
EQU RESET$ TO 0
EQU SHOW$ TO 1
EQU HIDE$ TO 2
EQU GETXY$ TO 3
EQU SETXY$ TO 4
EQU PRESS$ TO 5
EQU RELEASE$ TO 6
EQU HLIMIT$ TO 7
EQU VLIMIT$ TO 8
EQU GTYPE$ TO 9
EQU TTYPE$ TO 10
EQU MCOUNT$ TO 11
EQU INTHAND$ TO 12
EQU LPON$ TO 13
EQU LPOFF$ TO 14
EQU PIXRAT$ TO 15
EQU PEXCL$ TO 16
EQU SETDST$ TO 19
EQU SWAPIR$ TO 20
EQU BSIZE$ TO 21
EQU SSTATE$ TO 22
EQU GSTATE$ TO 23
EQU IAHAND$ TO 24
EQU AAHAND$ TO 25
EQU SETSEN$ TO 26
EQU GETSEN$ TO 27
EQU IRATE$ TO 28
EQU SETPAGE$ TO 29
EQU GETPAGE$ TO 30
EQU DVRDIS$ TO 31
EQU DVREN$ TO 32
EQU DVRRES$ TO 33
EQU SETLAN$ TO 34
EQU GETLAN$ TO 35
EQU DVRVER$ TO 36
* Source Date: 09:48:09 02 MAR 1993 Build ID: AREV*3.1.31 Level: 3.1

291
SYSPROG/STPROCINS/MSG_EQUATES.txt Normal file
View File

@ -0,0 +1,291 @@
compile insert Msg_Equates
******************************************************************************
*
* Product : OpenInsight for Workgroups
* Version : 10
*
* History : (date, initials, notes)
* 12/15/95 apk Original programmer.
* 02/26/96 cp Changed OK return value to "" from 0 (backwards compat.)
* 03/28/96 cp Added MHELP$, MREQRESP$, and MBEEP$ fields
* Commented message structure and instructions
* 06/24/97 cp Added G (gauge) type, removed unused equates
* 02/23/15 djh Added gas gauge fields
* 04/13/15 djh Add new password peek and valid chars
* 05/29/15 djh Add Animation field
* 06/08/15 djh Add Pop-up Toast field
* 06/26/15 djh Add Frame option
* 07/06/15 djh Add Main Title text
* 08/20/15 djh Add EDITMASK fields
* 08/28/15 djh Add some documentation on the new fields
* 10/15/15 djh Add fields for styleSheets
******************************************************************************
declare subroutine Msg ;* Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
declare function Msg ;* Ans = Msg(Parent, MsgDef [, MsgKey, Instruction, Params])
* message structure field definitions
equ MTEXT$ to 1 ;* the text to display in the message, multiple lines delimited by @tm, cr/lf, or "|"
equ MTYPE$ to 2 ;* the message type, defaults to "BO" (see below)
equ MMODAL$ to 3 ;* modality of message, defaults to "A" (see below)
equ MICON$ to 4 ;* icon to display (see below)
equ MDEFBTN$ to 5 ;* default button (1 for first, 2 for second, etc.)
equ MCOL$ to 6 ;* message h-pos in pixels, or -2 (center screen, the default), -1 (center parent)
equ MROW$ to 7 ;* message v-pos in pixels
equ MJUST$ to 8 ;* justification: T (text, the default), L (left), R (right), C (center)
equ MBKCOLOR$ to 9 ;* background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MFGCOLOR$ To 10 ;* foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR") - DO NOT USE - Use the color from the font structure
equ MTEXTWIDTH$ to 11 ;* the message width (or the response field width for response messages)
equ MCAPTION$ to 12 ;* the message title
equ MVALID$ to 13 ;* for response messages, this is the validation pattern (ie. (MD0) for integer)
equ MDEFINPUT$ to 14 ;* for reponse messages, this is the default response
equ MMASKINPUT$ to 15 ;* boolean, true for password (masked) input, false (default) for readable input
equ MBITMAP$ to 16 ;* name of a bitmap registered in repository (as it appears in the outliner)
equ MCLIPBMP$ to 17 ;* boolean, true to clip bitmaps, false to resize (see IMAGECLIP property)
equ MFONT$ to 18 ;* font structure for the text of the message
equ MLITERAL$ to 19 ;* boolean, defaults to false, true specifies that default value is a function (see below)
equ MHELP$ to 20 ;* help button, Type:@vm:Specifier:@vm:Text (see below), defaults to null (no help)
equ MREQRESP$ to 21 ;* boolean, for type "R" messages, false allows nulls (default) while true doesn't
equ MBEEP$ to 22 ;* integer, specifies beep (see MessageBeep in the Windows API)
equ MEXTENT$ to 23 ;* integer, specifies extent of the gauge (number of items to process for type="G")
Equ MGBORDER$ To 24 ;* boolean, adds border around gauge
Equ MGSMOOTH$ To 25 ;* boolean, set to true to see a smooth gauge and false to see the segmented gauge
Equ MGPERCOMPLETE$ To 26 ;* boolean, set to true to see the percent complete in the gauge
Equ MGSYNCTASK$ To 27 ;* boolean, set to true to mirror the state of the gauge on the taskbar
Equ MGVERTICAL$ To 28 ;* boolean, set to true to see a vertical gauge
Equ MGINCREMENT$ To 29 ;* integer, set the number to increment the gauge by
Equ MGTRANSLUCENT$ To 30 ;* integer, set the transparency of the gauge with 0 being fully apaque and 100 being fully transparent
Equ MGNORMALSTATE$ To 31 ;* gauge normal state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGERRORSTATE$ To 32 ;* gauge error state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGPAUSEDSTATE$ To 33 ;* gauge paused state color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MGMARQUEE$ To 34 ;* integer, time in milliseconds between marquee animation
Equ MGSTARTVALUE$ To 35 ;* integer, set the start value for the gauge, must be between the range values
Equ MGRANGESTART$ To 36 ;* integet, set the lower limit of the gauge
Equ MGRANGEEND$ To 37 ;* integer, set the upper limit of the gauge
Equ MGDECREMENT$ To 38 ;* boolean, set to true to decrement the gauge
Equ MPWDPEEK$ To 39 ;* integer, time in milliseconds to display the entered character before masking
Equ MVALIDCHARS$ To 40 ;* for response messages, these are the characters that are valid
Equ MANIMATE$ To 41 ;* animation file name to use with the gauge (see list below for options)
Equ MPOPUP$ To 42 ;* boolean, for timed messages set to true to see a popup "toast" message in the lower right hand corner of the screen
Equ MFRAME$ To 43 ;* integer, set type of frame (see list below for options)
Equ MHTML$ To 44 ;* boolean, set to true for HTML text rendering
Equ MMAINFGCOLOR$ To 45 ;* main text foreground color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MMAINBKCOLOR$ To 46 ;* main text background color (RGB value, @vm-delimited), see Utility("CHOOSECOLOR")
Equ MMAINTEXT$ To 47 ;* main text to appear above the regular text
Equ MMASKFORMAT$ To 48 ;* edit mask format to be used on response line
Equ MMASKTYPE$ To 49 ;* edit mask character type required for each character of the edit mask format (see list below for options)
Equ MSTYLESHEET$ To 50 ;* name of window (style sheet) to use
Equ MOVERRIDEGSS$ To 51 ;* boolean, override global style sheet
Equ MWIDTH$ To 52 ;* integer, set width of message
Equ MHEIGHT$ To 53 ;* integer, set height of message
Equ MCURSOR$ To 54 ;*
Equ MPANBKCOLOR$ To 55 ;*
Equ MWINBKCOLOR$ To 56 ;*
Equ MBTNFGCOLOR$ To 57 ;*
Equ MBTNBKCOLOR$ To 58 ;*
Equ MRSPFGCOLOR$ To 59 ;*
Equ MRSPBKCOLOR$ To 60 ;*
equ MNUMFIELDS$ to 60
* MTYPE$ details:
*
* there are six base types, B (buttons), R (response), U (up), and D (down),
* T (timed), and G (gauge)
*
* the button type has several pre-defined button sets which are localized
* using entries from the SYSTEM_RESOURCES record in the SYSENV table; for
* non-standard labels, the buttons can be specified in a comma-delimited
* list, like "B&One,&Two,&Three" (where the & specifies the accelerator)
*
* B Type Description
* ------ --------------------
* BO OK
* BOC OK/Cancel
* BNY Yes/No
* BNYC Yes/No/Cancel
* BRC Retry/Cancel
* BAR Abort/Retry
* BARI Abort/Retry/Ignore
* B{list} User-defined buttons
*
* the response type displays an edit field and OK and Cancel buttons;
* the optional sub-types are C (upper-case only) and E (escape or
* cancel button returns escape character instead of default response);
* for example, the following types are valid: "R", "RC", "RE", "RCE"
*
* for B and R types, the type can be preceded with an N to specify that
* the default value for the message is to be returned without the message
* being displayed; this is one way to change messages from interactive
* to non-interactive for batch processes; for example, instead of "BARI",
* pass "NBARI" (meaning don't display the abort/retry/ignore message)
*
* to display a message while processing, use the "U" type:
*
* Def = ""
* Def<MTEXT$> = "Processing..."
* Def<MTYPE$> = "U"
* MsgUp = Msg(@window, Def) ;* display the processing message
* ...
* Msg(@window, MsgUp) ;* take down the processing message
*
* to display a message for a specific length of time, use the "T" type:
*
* Def = ""
* Def<MTEXT$> = "Waiting..."
* Def<MTYPE$> = "T2" ;* 2-second message
* Msg(@window, Def)
*
* the optional sub-type for T type is A (asynchronous), which displays
* the message and returns (allowing processing to continue) and takes
* the message down after the specified period of time; since this relies
* on a timer event, your event code must either complete within the
* specified period of time or you must regularly use Yield() to allow
* the processing of posted events (like the timer):
*
* Def = ""
* Def<MTYPE$> = "TA5" ;* 5-second splash-screen
* Msg(@window, Def, "SPLASHSCREEN")
* loop
* Done = AppLogonProcessing()
* Yield()
* until Done
* repeat
*
* to display a gauge (percent bar), use the "G" type; sub-types are C (show
* cancel button) and Y (yield on each cycle):
*
* Def = ""
* Def<MCAPTION$> = "Processing Orders..."
* Def<MTYPE$ > = "GC"
* Def<MEXTENT$ > = OrderCnt
* MsgUp = Msg(@window, Def)
* for Order = 1 to OrderCnt
* gosub ProcessOrder
* * update the gauge and check if cancel was pressed
* while Msg(@window, MsgUp, Order, MSGINSTUPDATE$)
* next Order
* Msg(@window, MsgUp) ;* take down the gauge
* MMODAL$ detail:
*
* Code Modality Description
* ----------- ----------- -----------------------------
* W Window only the parent is disabled
* A (default) Application all OI windows are disabled
* S System all applications are disabled
* MICON$ detail:
*
* Code Icon
* ---- ---------------
* null None
* * Asterisk (Info)
* ? Question
* ! Exclaim (Warning)
* H Halt (Stop sign)
* B User-specified bitmap (specified in MBITMAP$ field)
* MLITERAL$ details (applies only to response type messages):
*
* if MLITERAL$ is true, the Msg() function assumes that the default value is
* the name of a function which returns the default value for the message;
* for example, if you wrote a function called CURRENTUSER which returned
* the user name of the current user, you could specify CURRENTUSER as the
* default value (MDEFINPUT$) and set MLITERAL$ to true, so that the current
* user name would be the default value for the message; parameters are
* passed to the specified function depending on the number of parameters
* that are supported by the function:
*
* # Params Values Passed
* --------- --------------
* 0 None
* 1 MsgKey
* 2 or more MsgKey, MsgDef
* MHELP$ details:
*
* Type Description Specifier
* ---- ------------- -----------------
* Q QuickHelp (AppNote) Name of AppNote
* M Message Name of Message
* H WinHelp HelpFile,HelpID
* S Stored Procedure ProcName[,Param1]
*
* Note: Specify the AppNote, Message, HelpFile, or ProcName as it appears
* in the repository outliner. For example, the OINSIGHT.HLP file is
* registered as OINSIGHT, so specify the HelpFile as "OINSIGHT" (look
* in the outline under "General", "Windows Components", "Help Files")
*
* Text defaults to "&Help" or a localized equivalent
* Replaceable message parameters:
*
* Msg(@window, "Hello, %1%, how are you %2%?", "", "", @username: @fm: "today")
* MANIMATE$ details:
*
* Value Description
* -------------------- ----------------
* FileCopyXP.avi File Copy
* FileMoveXP.avi File Move
* FileDeleteXP.avi File Delete
* FileDestroyXP.avi File Destroy
* FilePropertiesXP.avi File Properties
* EmptyRecyclerXP.avi Empty Trash
* MFRAME$ details:
*
* Value
* ----------------
* None
* Fixed
* Sizeable
* Dialog
* Fixed Tool
* Sizeable Tool
* MMASKTYPE$ details:
*
* Value Description
* -------------------- ----------------
* D A digit
* d A digit or a space
* C An alpha character
* c An alpha character or space
* A An alphanumeric character
* a An alphanumeric character or space
* X A hexadecimal character
* x A hexadecimal character or space
* * Any printable character
* + A "+" character, a "-" character, or space
* Msg() function instruction values
equ MSGINSTSTART$ to 1 ;* (default instruction)
equ MSGINSTREAD$ to 2 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTREAD$)
equ MSGINSTWRITE$ to 3 ;* bErr = Msg("", MsgDef, MsgID, MSGINSTWRITE$)
equ MSGINSTLOCK$ to 4 ;* bErr = Msg("", "", MsgID, MSGINSTLOCK$)
equ MSGINSTUNLOCK$ to 5 ;* bErr = Msg("", "", MsgID, MSGINSTUNLOCK$)
equ MSGINSTBUTTON$ to 6 ;* reserved
equ MSGINSTCREATE$ to 7 ;* reserved
equ MSGINSTRESPCHG$ to 8 ;* reserved
equ MSGINSTCLOSE$ to 9 ;* reserved
equ MSGINSTTIMER$ to 10 ;* reserved
equ MSGINSTHELP$ to 11 ;* reserved
equ MSGINSTUPDATE$ to 12 ;* (see above)
* Msg() function return values from MSGINSTSTART$
equ RET_OK$ to ""
equ RET_CANCEL$ to \1B\ ;* escape character
equ RET_YES$ to 1
equ RET_NO$ to 0
equ RET_ABORT$ to 1
equ RET_RETRY$ to 2
equ RET_IGNORE$ to 3
* misc strings
equ MSGTYPE$ to "MSG"
equ MSGCLASS$ to ""

Some files were not shown because too many files have changed in this diff Show More