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'