CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar 06&.&.& utils.sbk svMsgWC addSysBooks to handle enterBook after setupErrorFlags enterBook before to handle addSysBooks itemInList after Eelse manageException addSysBooks ,%H.% to get ItemInList Eelse manageException replaceAll ItemInList Eargrx Eelse to get replaceAll manageException EnoFnd replaceAll svBreak svMsg to handle setupErrorFlags Eelse manageException setupErrorFlags ,%H.% 1, #> Eargrx buildMessage svMsgWC svError svErrorName wMeffectiveErrorFlags EcfObj manageDialog get my p vBreak fBreakFlag vOldSuspend svMsgWC Eundef vHSpec vMsgStrg EcfObj vArgList vMsgTpl svError vEFlags Eelse fExcptName vExpArgsNum vStmt svErrorName fMsgFlag Eargrx fObjID to handle manageException Eelse manageException Eundef charTotal manageException EwrgEFlag fBreakFlag svBreak to get effectiveErrorFlags Eelse svMsg svBreak 0 or 1 manageException svMsg null or 0 or 1 EwrgVal fMsgFlag effectiveErrorFlags Eargrx svMsgWC Eelse manageException to get buildMessage buildMessage 1, #> 1, #> 1, #> to handle manageDialog Where: Eelse vHNname vBreak System action: manageException vHSpec manageDialog Eargrx lhname Eelse manageException EnoFnd to get charTotal charTotal to get pathFromBook pathFromBook vBreak vError fTopic fAppl vErrorNumber fBreak Eelse vStmt vHSpec fRetry application topic Eelse manageException to get DDEFunction Failed DDEFunction -- Copyright 1995,1996 FernUniversit t - Gesamthochschule Hagen 4svMsgWC ,vBreak,vHSpec ; = " addSysBooks ,"utils.sbk" setupErrorFlags 5fLoc ZvOKSysBooks,vMode b--(1)-- p>= 2 manageException y,Eelse,1, b--(1)-- itemInList( b--(2)-- <> 0 b--(2)-- b--(3)-- b--(3)-- b--(4)-- b--(5)-- "," & b--(5)-- b--(4)-- ItemInList fItem,fList ZvLimit,vItem,vList vlimit ANSIToChar(1) replaceAll(",", t & "," & b--(1)-- b--(1)-- b--(2)-- b--(2)-- fSearchStrg,fReplacer,fSourceStrg ZvFindNum,vReplNum,v1stChar,vRes,vStart,vEnd b--(1)-- p<> 3 y,Eargrx, fsearchStrg y,EnoFnd,vhSpec, b--(2)-- = 1 = -1 <> 1 <> -1 b--(2)-- b--(3)-- b--(3)-- b--(1)-- ,svBreak b--(1)-- b--(1)-- b--(2)-- b--(2)-- fMsgFlag,fBreakFlag,fObjID,fExcptName 8 ,svErrorName, H OldSuspend,vArgList,vStmt,vMsgTpl,vExpArgsNum,vEFlags,vMsgStrg vOldSuspend op" & b--(1)-- y,Eundef, b--(1)-- charTotal( b--(2)-- b--(2)-- effectiveErrorFlags( b--(3)-- = 1 y,EcfObj, = 0 b--(3)-- buildMessage( b--(4)-- = 1 -- a message be issued manageDialog p-1), b--(4)-- b--(5)-- y-- conventional error treatment {oriented B provided vstmt " && && " " && b--(5)-- b--(6)-- = 1 -- a >requested b--(6)-- CopySVMsg,vCopySVBreak,vEMsgFlag,vEBreakFlag vCopySVMsg b--(1)-- = 0 <> 0 <> 1 y,EwrgEFlag, ","0 b--(1)-- b--(2)-- = 0 <> 0 <> 1 ","0 b--(2)-- b--(3)-- = 0 <> 0 <> 1 y,EwrgVal, b--(3)-- b--(4)-- = 0 <> 0 <> 1 b--(3)-- & "," & fTpl,fFills ndIDX vHndIDX b--(1)-- p<> 2 b--(1)-- fOccObj,fOccHSpec, ,f1stParm, ,fTreatObj b--(1)-- ) <> 3 y,Edlg, ),vHNname, ) = 3 b--(1)-- vreq "Why:" & CRLF & "Where:" & b--(2)-- V"System action:" & b--(2)-- Count,vLength, vCount b--(1)-- lhname, b--(1)-- pathFromBook fBookName O = "\" DDEFunction ,fCom,fStr,fAppl,fTopic,fRetry ,vErrorNumber i && b--(1)-- && " " && --(1)-- b--(2)-- && " M" && --(2)-- sysErrorNumber = "OK" b--(3)-- = "OK" <> "OK" "Failed" --(3)-- b--(4)-- & ":" && --(4)-- b--(5)-- --(5)-- pEnoDoc pEnoDLL pEwrgEFlag There is no object to send exception message ' ' to.,,'EnoEObj' in ' ' in ' pEnoEObj There is no exception message for object ' '.,,'EnoEMsg' in ' ' in ' pEnoEMsg Linking DLL ' ' failed with sysErrorNumber: ' ' and sysError: ' '.,,'EnoDLL' in ' ' in ' in ' ' in ' in pEcfObjHnd ' is no exception template.,,'EnoExcpt' in ' ' in ' in ' in in ' ' in pEcfObj Function ' ' or exception ' ' was unknown.,,'EnoDoc' in pEwrgVal pEbutState pEret pEprop pEelse Begin value not specified for page ' '.,,'EbeginOrder' in ject was ignored.,'EcfObj' in ' ' in ' in Attempt to retrieve the handle of the memory block pointed to by failed.,,'EnoHndMem' in pEnoProp Invalid value ' ' for ' is/are expected.,,'EwrgVal' in ' ' in pEstrgMax pEdlg A search string cannot be empty.,,'EnoFnd' in ' ' in pEnoFnd ' is no exception template.,,'EnoExcpt' in ' ' in A pointer to items of type ' ' coud not be created.,,'EnoPtr' in pEnoPtr Exception ' ' is undefined.,,'Eundef' in ' ' in Begin value not specified for page ' '.,,'EbeginOrder' in pEbeginOrd .,'EcfObj' in ' ' in pEnoExcpt Exception ' ' is undefined.,,'Eundef' in ' ' in pEundef pEargrx pEargm Invalid value ' ' for ' is/are expected., has been set to ' '.,'EwrgEFlag' in ' ' in ' in .,,'Eret' in ' ' in prevOrder pEnoMem There is no object to send exception message ' ' to.,,'EnoEObj' in ' ' in ' ed.,'EcfObj' in ' ' in ' in A break has been requested with an error treating object defined.,The object was ignored.,'EcfObj' in ' ' in Property ' ' has not been returned by the dialog.,,'Eret' in ' ' in ' in g' in ' ' in The window handled by has no class name.,,'EnoClass' in ject was ignored.,'EcfObj' in ' ' in There is no exception message for object ' '.,,'EnoEMsg' in ' ' in ' as ignored.,'EcfObj' in ' ' in ' in Page ' ' not found in DBASE-File ' '.,,'EpageOrder' in pEpageOrder ed.,'EcfObj' in ' ' in ' in Handler called with argument(s); are expected.,,'Eargrx' in ' ' in ' in in ' ' in pEnoHndMem The window handled by has no class name.,,'EnoClass' in pEnoClass ' is no user-defined property.,,'EnoProp' in ' ' in '.,'EwrgEFlag' in ' ' in A break was requested with an error treating object or handler defined.,The object or handler was ignored.,'EcfObjHnd' in ' ' in Attempt to unlock the memory block handled by failed.,,'EnoULock' in pEnoULock ' in l in ' ' in Function ' ' or exception ' ' was unknown.,,'EnoDoc' in ' is no exception template.,,'EnoExcpt' in ' ' in ' in Invalid value ' ' for ' is/are expected.,,'EwrgVal' in ' ' in in ' ' in ' in Exception ' ' is undefined.,,'Eundef' in ' ' in x' in ' ' in ' in in ' ' in String ' ' is too long; only up to characters are allowed.,,'EstrgMax' in ' ' in g' in ' ' in Attempt to free memory block handled by failed.,,'EnoFreeMem' in pEnoFreeMem ' is no exception template.,,'EnoExcpt' in ' ' in pEbeginOrder Invalid value ' ' for ' is/are expected.,,'EwrgVal' in ' ' in ' is no user-defined property.,,'EnoProp' in ' ' in '.,'EwrgEFlag' in ' ' in ' in ' in Errormessage ' ' has components; reason and location and system action are expected.,,'Edlg' in ' ' in UserProperty ' ' of already exists.,,'EProp' in ' ' in rgMax' in ' ' in g' in ' ' in ' in ' in bytes of memory for items of type ' ' could not be allocated.,,'EnoMem' in ' is no user-defined property.,,'EnoProp' in ' ' in '.,'EwrgEFlag' in ' ' in ' in A break has been requested with an error treating object defined.,The object was ignored.,'EcfObj' in ' ' in A search string cannot be empty.,,'EnoFnd' in ' ' in ' in ' in in ' ' in ' in Enabled: ' '; Pressed: ' ' is not a valid state for button ' '.,,'EbutState' in ' ' in ' in Val' in ' ' in in ' ' in Handler called with argument(s); or more arguments are expected.,,'Eargm' in ' ' in in ' ' in Unexpected else in conditions clause.,,'Eelse' in condition in ' ' in ' in in ' ' in