Infineon\StieberD 7762b129af pre cutover push
2024-09-04 20:33:41 -07:00

110 lines
5.9 KiB
Plaintext

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 Dec 23 Added EV_QEHANDLED$
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_QEHANDLED$ to "EV300" ; // Handled in QE (Not an error)
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
///////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////