|
|
|
|
type
RelationLockType = (NoLockRelation,
ReadLockRelation,
WriteLockRelation,
ExclusiveReadLockRelation,
ExclusiveWriteLockRelation);
RecordLockType = (NoLockRecord,
ReadLockRecord,
WriteLockRecord);
const
ShortLock = 1;
MediumLock = 5;
LongLock = 15;
InfiniteLock = 0;
ShortPreempt = 60;
MediumPreempt = 300;
LongPreempt = 1800;
InfinitePreempt = 32767;
procedure SetMultUserStatus
(const MultUserEnabled : boolean); stdcall;
exports SetMultUserStatus name 'MultUser_SetMultUserStatus';
//*
// SetMultUserStatus - Set use of Multi-User checking on or off.
//
//
// This turns on or off the use of multi-user calls when accessing
// the data. If MultUserStatus is False then calls will be made
// use the Sage package. If MultUserStatus is True then calls will
// be made using the MultSage package.
//
// CALLING SEQUENCE -
//
// SetMultUserStatus (MultUserStatus)
//
// ENTRY -
//
// MultUserStatus : boolean
// True - Use Mult-User calls to access data.
// False - Use single-user calls to access data.
//
procedure GetMultUserStatus
(var MultUserEnabled : boolean); stdcall;
exports GetMultUserStatus name 'MultUser_GetMultUserStatus';
//*
// GetMultUserStatus - Get status of Multi-User checking.
//
//
// This procedure checks the current status of multi-user calls and
// returns a boolean flag indicating if it is current on or off.
//
// CALLING SEQUENCE -
//
// GetMultUserStatus (MultUserEnabled)
//
// EXIT -
//
// MultUserEnabled : boolean
// True - Mult-User calls will be used to access data.
// False - Single-user calls will be used to access data.
//
procedure OpenSystem
(const DataBase : array of char;
const Forms : cardinal;
const Screens : cardinal;
const BufSize : cardinal); overload; stdcall;
exports MultUser.OpenSystem (const DataBase : array of char;
const Forms : cardinal;
const Screens : cardinal;
const BufSize : cardinal) name 'MultUser_OpenSystem';
//*
// OpenSystem - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// OpenSystem (DataBase, Forms, Screens, BufSize)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure OpenSystem
(const DataBase : string;
const Forms : cardinal;
const Screens : cardinal;
const BufSize : cardinal); overload; stdcall;
exports MultUser.OpenSystem (const DataBase : string;
const Forms : cardinal;
const Screens : cardinal;
const BufSize : cardinal) name 'MultUser_STROpenSystem';
//*
// STROpenSystem - See documentation of OpenSystem.
//
procedure OpenRelation
(const Relation : array of char;
const Modify : boolean); overload; stdcall;
exports MultUser.OpenRelation (const Relation : array of char;
const Modify : boolean) name 'MultUser_OpenRelation';
//*
// OpenRelation - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// OpenRelation (Relation, Modify)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure OpenRelation
(const Relation : string;
const Modify : boolean); overload; stdcall;
exports MultUser.OpenRelation (const Relation : string;
const Modify : boolean) name 'MultUser_STROpenRelation';
//*
// STROpenRelation - See documentation of OpenRelation.
//
procedure CloseRelation
(const Relation : array of char); overload; stdcall;
exports MultUser.CloseRelation (const Relation : array of char) name 'MultUser_CloseRelation';
//*
// CloseRelation - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// CloseRelation (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure CloseRelation
(const Relation : string); overload; stdcall;
exports MultUser.CloseRelation (const Relation : string) name 'MultUser_STRCloseRelation';
//*
// STRCloseRelation - See documentation of CloseRelation.
//
procedure LockRelation
(const Relation : array of char;
const Lock : RelationLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean;
var Locked : boolean); overload; stdcall;
exports LockRelation (const Relation : array of char;
const Lock : RelationLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean;
var Locked : boolean) name 'MultUser_LockRelation';
//*
// LockRelation - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// LockRelation (Relation, Lock, LockTime, PreemptTime, Abortable,
// ShowMessages, Locked)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure LockRelation
(const Relation : string;
const Lock : RelationLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean;
var Locked : boolean); overload; stdcall;
exports LockRelation (const Relation : string;
const Lock : RelationLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean;
var Locked : boolean) name 'MultUser_STRLockRelation';
//*
// STRLockRelation - See documentation of LockRelation.
//
procedure ReadRecord
(const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecord (const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_ReadRecord';
//*
// ReadRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// ReadRecord (Relation, Field, Operation, Lock, LockTime, PreemptTime,
// Abortable, ShowMessages)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure ReadRecord
(const Relation : string;
const Field : string;
const Operation : Sage.SageOperations;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecord (const Relation : string;
const Field : string;
const Operation : Sage.SageOperations;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_STRReadRecord';
//*
// STRReadRecord - See documentation of ReadRecord.
//
procedure ReadRecordA
(const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations;
const Str : array of char;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordA (const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations;
const Str : array of char;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_ReadRecordA';
//*
// ReadRecordA - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// ReadRecordA (Relation, Field, Operation, Str, Lock, LockTime,
// PreemptTime, Abortable, ShowMessages)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure ReadRecordA
(const Relation : string;
const Field : string;
const Operation : Sage.SageOperations;
const Str : string;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordA (const Relation : string;
const Field : string;
const Operation : Sage.SageOperations;
const Str : string;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_STRReadRecordA';
//*
// STRReadRecordA - See documentation of ReadRecordA.
//
procedure ReadRecordN
(const Relation : array of char;
const Field : array of char;
const Number : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordN (const Relation : array of char;
const Field : array of char;
const Number : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_ReadRecordN';
//*
// ReadRecordN - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// ReadRecordN (Relation, Field, Operation, Number, Lock, LockTime,
// PreemptTime, Abortable, ShowMessages)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure ReadRecordN
(const Relation : string;
const Field : string;
const Number : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordN (const Relation : string;
const Field : string;
const Number : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_STRReadRecordN';
//*
// STRReadRecordN - See documentation of ReadRecordN.
//
procedure ReadRecordP
(const Relation : array of char;
const Field : array of char;
const Position : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordP (const Relation : array of char;
const Field : array of char;
const Position : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_ReadRecordP';
//*
// ReadRecordP - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// ReadRecordP (Relation, Field, Operation, Position, Lock, LockTime,
// PreemptTime, Abortable, ShowMessages)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure ReadRecordP
(const Relation : string;
const Field : string;
const Position : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean); overload; stdcall;
exports MultUser.ReadRecordP (const Relation : string;
const Field : string;
const Position : ModSys.INT32;
const Lock : RecordLockType;
const lockTime : ModSys.INT16;
const PreemptTime : ModSys.INT16;
const Abortable : boolean;
const ShowMessages : boolean) name 'MultUser_STRReadRecordP';
//*
// STRReadRecordP - See documentation of ReadRecordP.
//
procedure FindRecord
(const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations); overload; stdcall;
exports MultUser.FindRecord (const Relation : array of char;
const Field : array of char;
const Operation : Sage.SageOperations) name 'MultUser_FindRecord';
//*
// FindRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// FindRecord (Relation, Field, Operation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure FindRecord
(const Relation : string;
const Field : string;
const Operation : Sage.SageOperations); overload; stdcall;
exports MultUser.FindRecord (const Relation : string;
const Field : string;
const Operation : Sage.SageOperations) name 'MultUser_STRFindRecord';
//*
// STRFindRecord - See documentation of FindRecord.
//
procedure GetKeyPosition
(const Relation : array of char;
const Field : array of char;
var Position : ModSys.INT32); overload; stdcall;
exports MultUser.GetKeyPosition (const Relation : array of char;
const Field : array of char;
var Position : ModSys.INT32) name 'MultUser_GetKeyPosition';
//*
// GetKeyPosition - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// GetKeyPosition (Relation, Field, Position)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure GetKeyPosition
(const Relation : string;
const Field : string;
var Position : ModSys.INT32); overload; stdcall;
exports MultUser.GetKeyPosition (const Relation : string;
const Field : string;
var Position : ModSys.INT32) name 'MultUser_STRGetKeyPosition';
//*
// STRGetKeyPosition - See documentation of GetKeyPosition.
//
procedure GetBlockSize
(const Relation : array of char;
const Field : array of char;
var blockSize : ModSys.INT32); overload; stdcall;
exports MultUser.GetBlockSize (const Relation : array of char;
const Field : array of char;
var blockSize : ModSys.INT32) name 'MultUser_GetBlockSize';
//*
// GetBlockSize - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// GetBlockSize (Relation, Field, blockSize)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure GetBlockSize
(const Relation : string;
const Field : string;
var blockSize : ModSys.INT32); overload; stdcall;
exports MultUser.GetBlockSize (const Relation : string;
const Field : string;
var blockSize : ModSys.INT32) name 'MultUser_STRGetBlockSize';
//*
// STRGetBlockSize - See documentation of GetBlockSize.
//
procedure GetBlock
(const Relation : array of char;
const Field : array of char;
const BuffAddr : pointer;
var numBytes : cardinal;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.GetBlock (const Relation : array of char;
const Field : array of char;
const BuffAddr : pointer;
var numBytes : cardinal;
var firstByte : ModSys.INT32) name 'MultUser_GetBlock';
//*
// GetBlock - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// GetBlock (Relation, Field, BuffAddr, numBytes, firstByte)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure GetBlock
(const Relation : string;
const Field : string;
const BuffAddr : pointer;
var numBytes : cardinal;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.GetBlock (const Relation : string;
const Field : string;
const BuffAddr : pointer;
var numBytes : cardinal;
var firstByte : ModSys.INT32) name 'MultUser_STRGetBlock';
//*
// STRGetBlock - See documentation of GetBlock.
//
procedure PutBlock
(const Relation : array of char;
const Field : array of char;
const BuffAddr : pointer;
const numBytes : cardinal;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.PutBlock (const Relation : array of char;
const Field : array of char;
const BuffAddr : pointer;
const numBytes : cardinal;
var firstByte : ModSys.INT32) name 'MultUser_PutBlock';
//*
// PutBlock - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// PutBlock (Relation, Field, BuffAddr, numBytes, firstByte)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure PutBlock
(const Relation : string;
const Field : string;
const BuffAddr : pointer;
const numBytes : cardinal;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.PutBlock (const Relation : string;
const Field : string;
const BuffAddr : pointer;
const numBytes : cardinal;
var firstByte : ModSys.INT32) name 'MultUser_STRPutBlock';
//*
// STRPutBlock - See documentation of PutBlock.
//
procedure TruncateBlock
(const Relation : array of char;
const Field : array of char;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.TruncateBlock (const Relation : array of char;
const Field : array of char;
var firstByte : ModSys.INT32) name 'MultUser_TruncateBlock';
//*
// TruncateBlock - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// TruncateBlock (Relation, Field, firstByte)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure TruncateBlock
(const Relation : string;
const Field : string;
var firstByte : ModSys.INT32); overload; stdcall;
exports MultUser.TruncateBlock (const Relation : string;
const Field : string;
var firstByte : ModSys.INT32) name 'MultUser_STRTruncateBlock';
//*
// STRTruncateBlock - See documentation of TruncateBlock.
//
procedure DeleteRecord
(const Relation : array of char); overload; stdcall;
exports MultUser.DeleteRecord (const Relation : array of char) name 'MultUser_DeleteRecord';
//*
// DeleteRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// DeleteRecord (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure DeleteRecord
(const Relation : string); overload; stdcall;
exports MultUser.DeleteRecord (const Relation : string) name 'MultUser_STRDeleteRecord';
//*
// STRDeleteRecord - See documentation of DeleteRecord.
//
procedure WriteRecord
(const Relation : array of char); overload; stdcall;
exports MultUser.WriteRecord (const Relation : array of char) name 'MultUser_WriteRecord';
//*
// WriteRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// WriteRecord (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure WriteRecord
(const Relation : string); overload; stdcall;
exports MultUser.WriteRecord (const Relation : string) name 'MultUser_STRWriteRecord';
//*
// STRWriteRecord - See documentation of WriteRecord.
//
procedure ReWriteRecord
(const Relation : array of char); overload; stdcall;
exports MultUser.ReWriteRecord (const Relation : array of char) name 'MultUser_ReWriteRecord';
//*
// ReWriteRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// ReWriteRecord (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure ReWriteRecord
(const Relation : string); overload; stdcall;
exports MultUser.ReWriteRecord (const Relation : string) name 'MultUser_STRReWriteRecord';
//*
// STRReWriteRecord - See documentation of ReWriteRecord.
//
procedure DeleteRelation
(const Relation : array of char); overload; stdcall;
exports MultUser.DeleteRelation (const Relation : array of char) name 'MultUser_DeleteRelation';
//*
// DeleteRelation - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// DeleteRelation (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure DeleteRelation
(const Relation : string); overload; stdcall;
exports MultUser.DeleteRelation (const Relation : string) name 'MultUser_STRDeleteRelation';
//*
// STRDeleteRelation - See documentation of DeleteRelation.
//
procedure CloseAllSystems; stdcall; exports CloseAllSystems name 'MultUser_CloseAllSystems'; //* // CloseAllSystems - See equivalent calls in Sage and MultSage packages. // // // This procedure performs the same functionality as the equivalent // call in the Sage and MultSage packages. In the case of multi-user // access this routine does added checking of the error coming // back from the call and pops up error messages to the user. // // CALLING SEQUENCE - // // CloseAllSystems // // ENTRY - // // See equivalent calls in the packages : // Sage and MultSage. // // EXIT - // // See equivalent calls in the packages : // Sage and MultSage. //
procedure CloseSystem; stdcall; exports CloseSystem name 'MultUser_CloseSystem'; //* // CloseSystem - See equivalent calls in Sage and MultSage packages. // // // This procedure performs the same functionality as the equivalent // call in the Sage and MultSage packages. In the case of multi-user // access this routine does added checking of the error coming // back from the call and pops up error messages to the user. // // CALLING SEQUENCE - // // CloseSystem // // ENTRY - // // See equivalent calls in the packages : // Sage and MultSage. // // EXIT - // // See equivalent calls in the packages : // Sage and MultSage. //
function TotalRecords
(const Relation : array of char) : ModSys.INT32; overload; stdcall;
exports MultUser.TotalRecords (const Relation : array of char) name 'MultUser_TotalRecords';
//*
// TotalRecords - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// TotRec := TotalRecords (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
function TotalRecords
(const Relation : string) : ModSys.INT32; overload; stdcall;
exports MultUser.TotalRecords (const Relation : string) name 'MultUser_STRTotalRecords';
//*
// STRTotalRecords - See documentation of TotalRecords.
//
procedure UnlockRecord
(const Relation : array of char); overload; stdcall;
exports UnlockRecord (const Relation : array of char) name 'MultUser_UnlockRecord';
//*
// UnlockRecord - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// UnlockRecord (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure UnlockRecord
(const Relation : string); overload; stdcall;
exports UnlockRecord (const Relation : string) name 'MultUser_STRUnlockRecord';
//*
// STRUnlockRecord - See documentation of UnlockRecord.
//
procedure UnlockRelation
(const Relation : array of char;
const Lock : RelationLockType;
const ShowMessages : boolean); overload; stdcall;
exports UnlockRelation (const Relation : array of char;
const Lock : RelationLockType;
const ShowMessages : boolean) name 'MultUser_UnlockRelation';
//*
// UnlockRelation - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// UnlockRelation (Relation, Lock, ShowMessages)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure UnlockRelation
(const Relation : string;
const Lock : RelationLockType;
const ShowMessages : boolean); overload; stdcall;
exports UnlockRelation (const Relation : string;
const Lock : RelationLockType;
const ShowMessages : boolean) name 'MultUser_STRUnlockRelation';
//*
// STRUnlockRelation - See documentation of UnlockRelation.
//
function RelationIsOpen
(const Relation : array of char) : boolean; overload; stdcall;
exports MultUser.RelationIsOpen (const Relation : array of char) name 'MultUser_RelationIsOpen';
//*
// RelationIsOpen - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// RelOpen := RelationIsOpen (Relation)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
function RelationIsOpen
(const Relation : string) : boolean; overload; stdcall;
exports MultUser.RelationIsOpen (const Relation : string) name 'MultUser_STRRelationIsOpen';
//*
// STRRelationIsOpen - See documentation of RelationIsOpen.
//
procedure GenerateUniqueKey
(const Relation : array of char;
const Field : array of char;
var keyNum : ModSys.INT32); overload; stdcall;
exports MultUser.GenerateUniqueKey (const Relation : array of char;
const Field : array of char;
var keyNum : ModSys.INT32) name 'MultUser_GenerateUniqueKey';
//*
// GenerateUniqueKey - See equivalent calls in Sage and MultSage packages.
//
//
// This procedure performs the same functionality as the equivalent
// call in the Sage and MultSage packages. In the case of multi-user
// access this routine does added checking of the error coming
// back from the call and pops up error messages to the user.
//
// CALLING SEQUENCE -
//
// GenerateUniqueKey (Relation, Field, KeyNum)
//
// ENTRY -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
// EXIT -
//
// See equivalent calls in the packages :
// Sage and MultSage.
//
procedure GenerateUniqueKey
(const Relation : string;
const Field : string;
var keyNum : ModSys.INT32); overload; stdcall;
exports MultUser.GenerateUniqueKey (const Relation : string;
const Field : string;
var keyNum : ModSys.INT32) name 'MultUser_STRGenerateUniqueKey';
//*
// STRGenerateUniqueKey - See documentation of GenerateUniqueKey.
//
Send mail to
warren.merrill@inl.gov
with questions or comments about this web site.
Copyright © 1989-2006 Battelle Energy Alliance