81 lines
2.1 KiB
Plaintext
81 lines
2.1 KiB
Plaintext
compile insert rw_equates
|
|
* JBK.RTI.01/25/96 Added equates for Lotus Notes Folders
|
|
* JBK/RTI/03/14/95 Added RWD_DT_RICHTEXT$ for Rich Text Fields
|
|
* declarations
|
|
|
|
DECLARE FUNCTION GET_REPOS_ENTITIES, REPOSITORY, GET.RECCOUNT
|
|
DECLARE FUNCTION REPOS_RESOLVE_ENTITY, ENTID, REQUEST_INFO
|
|
DECLARE FUNCTION OPENNOTE, CLOSENOTE, GETNOTEFIELD, RUNNOTESMACRO
|
|
|
|
* equates for different data sources
|
|
|
|
EQU RD_LH$ TO 1
|
|
EQU RD_NOTES$ TO 2
|
|
|
|
* equates for reporter supporting procedures
|
|
|
|
EQU RW_PREFIX$ TO 'RW' :@STATION: '_'
|
|
EQU RW_MAXCURSOR$ TO 8
|
|
EQU RW_GETLIST$ TO 'GETLIST'
|
|
EQU RW_ATSTATION$ TO '@STATION' ;* This token is replaced by @station
|
|
|
|
* LotusNotes specific equates
|
|
|
|
EQU RW_NOTESDELIM$ TO '#'
|
|
EQU RW_GETFIELDS_ALL$ TO 0
|
|
EQU RW_GETFIELDS_BY_FORM$ TO 1
|
|
EQU RW_GETFIELDS_BY_VIEW$ TO 2
|
|
EQU RW_GETFIELDS_BY_FOLDER$ TO 3
|
|
|
|
* equates for GetBlock processor
|
|
|
|
EQU FRMDATA_ONLY$ TO 1
|
|
EQU RAWDATA_ONLY$ TO 2
|
|
|
|
*COMMON /_RW_COM_/ lastKey@ ;* for now it's in @RECUR1
|
|
EQU lastKey@ TO @RECUR1
|
|
|
|
* Column Decriptor structure
|
|
|
|
EQU RWD_POS$ TO 1
|
|
EQU RWD_NAME$ TO 2
|
|
EQU RWD_DATATYPE$ TO 3
|
|
EQU RWD_DT_SDWORD$ TO 3
|
|
EQU RWD_DT_SDOUBLE$ TO 7
|
|
EQU RWD_DT_LPSTR$ TO 10
|
|
EQU RWD_DT_BOOLEAN$ TO 11
|
|
EQU RWD_DT_DATE$ TO 12
|
|
EQU RWD_DT_TIME$ TO 14
|
|
EQU RWD_DT_RICHTEXT$ TO 16
|
|
EQU RWD_FIELDTYPE$ TO 4
|
|
EQU RWD_LEN$ TO 5
|
|
EQU RWD_JUST$ TO 6
|
|
EQU RWD_CONV$ TO 7
|
|
EQU RWD_MV$ TO 8
|
|
EQU RWD_INDEXED$ TO 9
|
|
|
|
* repository types / classes
|
|
|
|
EQU RTYPE_DBTABLE$ TO 'DBTABLE'
|
|
EQU RTYPE_DBSOURCE$ TO 'DATASOURCE'
|
|
EQU RCLASS_NOTESDB$ TO 'NOTESDB'
|
|
|
|
EQU RTYPE_DBCOMPONENT$ TO 'DBCOMPONENT'
|
|
EQU RCLASS_NOTESVIEW$ TO 'NOTESVIEW'
|
|
EQU RCLASS_NOTESFORM$ TO 'NOTESFORM'
|
|
EQU RCLASS_NOTESFOLD$ TO 'NOTESFOLD'
|
|
|
|
|
|
EQU RTYPE_NOTESDB$ TO "DATASOURCE"
|
|
EQU RTYPE_NOTESVIEW$ TO "DBCOMPONENT"
|
|
EQU RTYPE_NOTESFORM$ TO "DBCOMPONENT"
|
|
EQU RTYPE_NOTESFOLD$ TO "DBCOMPONENT"
|
|
|
|
* rich text stuff
|
|
|
|
EQU RW_RTF_STARTTEXT$ TO '{\rtf1\ansi \deff0\deflang1024'
|
|
EQU RW_RTF_ENDTEXT$ TO '\par}'
|
|
EQU RW_RTF_FONTS$ TO '$Fonts':@fm:'RichText'
|
|
EQU RW_RTF_COLORS$ TO '$Colors':@fm:'RichText'
|
|
|