From c56819b5dab21fc5c2ccf3315b96a41fa3a1f594 Mon Sep 17 00:00:00 2001 From: Jelle Hulter Date: Thu, 6 Oct 2022 02:15:25 +0200 Subject: [PATCH] Fixed OpenEdgeABL String literals (#652) When OpenEdge ABL runs on Windows, the tilde is used as an escape character instead of a backslash as in most common programming languages. On UNIX platforms, the backslash is also an escape character. But because we cannot know the running platform, it seems better to only use the tilde as a backslash character. (source: https://knowledgebase.progress.com/articles/Article/P27229) --- lexers/openedgeabl.go | 4 +- lexers/testdata/openedgeabl.expected | 20070 +++++++++++-------------- 2 files changed, 8674 insertions(+), 11400 deletions(-) diff --git a/lexers/openedgeabl.go b/lexers/openedgeabl.go index ea1963146..30473b8c8 100644 --- a/lexers/openedgeabl.go +++ b/lexers/openedgeabl.go @@ -23,8 +23,8 @@ var OpenEdgeABL = Register(MustNewLexer( {`(?i)(DEFINE|DEF|DEFI|DEFIN)\b`, KeywordDeclaration, nil}, {`(?i)(^|(?<=[^\w\-]))(CHARACTER|CHAR|CHARA|CHARAC|CHARACT|CHARACTE|COM-HANDLE|DATE|DATETIME|DATETIME-TZ|DECIMAL|DEC|DECI|DECIM|DECIMA|HANDLE|INT64|INTEGER|INT|INTE|INTEG|INTEGE|LOGICAL|LONGCHAR|MEMPTR|RAW|RECID|ROWID)\s*($|(?=[^\w\-]))`, KeywordType, nil}, {Words(`(?i)(^|(?<=[^\w\-]))`, `\s*($|(?=[^\w\-]))`, `ABS`, `ABSO`, `ABSOL`, `ABSOLU`, `ABSOLUT`, `ABSOLUTE`, `ABSTRACT`, `ACCELERATOR`, `ACCUM`, `ACCUMU`, `ACCUMUL`, `ACCUMULA`, `ACCUMULAT`, `ACCUMULATE`, `ACTIVE-FORM`, `ACTIVE-WINDOW`, `ADD`, `ADD-BUFFER`, `ADD-CALC-COLUMN`, `ADD-COLUMNS-FROM`, `ADD-EVENTS-PROCEDURE`, `ADD-FIELDS-FROM`, `ADD-FIRST`, `ADD-INDEX-FIELD`, `ADD-LAST`, `ADD-LIKE-COLUMN`, `ADD-LIKE-FIELD`, `ADD-LIKE-INDEX`, `ADD-NEW-FIELD`, `ADD-NEW-INDEX`, `ADD-SCHEMA-LOCATION`, `ADD-SUPER-PROCEDURE`, `ADM-DATA`, `ADVISE`, `ALERT-BOX`, `ALIAS`, `ALL`, `ALLOW-COLUMN-SEARCHING`, `ALLOW-REPLICATION`, `ALTER`, `ALWAYS-ON-TOP`, `AMBIG`, `AMBIGU`, `AMBIGUO`, `AMBIGUOU`, `AMBIGUOUS`, `ANALYZ`, `ANALYZE`, `AND`, `ANSI-ONLY`, `ANY`, `ANYWHERE`, `APPEND`, `APPL-ALERT`, `APPL-ALERT-`, `APPL-ALERT-B`, `APPL-ALERT-BO`, `APPL-ALERT-BOX`, `APPL-ALERT-BOXE`, `APPL-ALERT-BOXES`, `APPL-CONTEXT-ID`, `APPLICATION`, `APPLY`, `APPSERVER-INFO`, `APPSERVER-PASSWORD`, `APPSERVER-USERID`, `ARRAY-MESSAGE`, `AS`, `ASC`, `ASCE`, `ASCEN`, `ASCEND`, `ASCENDI`, `ASCENDIN`, `ASCENDING`, `ASK-OVERWRITE`, `ASSEMBLY`, `ASSIGN`, `ASYNC-REQUEST-COUNT`, `ASYNC-REQUEST-HANDLE`, `ASYNCHRONOUS`, `AT`, `ATTACHED-PAIRLIST`, `ATTR`, `ATTR-SPACE`, `ATTRI`, `ATTRIB`, `ATTRIBU`, `ATTRIBUT`, `AUDIT-CONTROL`, `AUDIT-ENABLED`, `AUDIT-EVENT-CONTEXT`, `AUDIT-POLICY`, `AUTHENTICATION-FAILED`, `AUTHORIZATION`, `AUTO-COMP`, `AUTO-COMPL`, `AUTO-COMPLE`, `AUTO-COMPLET`, `AUTO-COMPLETI`, `AUTO-COMPLETIO`, `AUTO-COMPLETION`, `AUTO-END-KEY`, `AUTO-ENDKEY`, `AUTO-GO`, `AUTO-IND`, `AUTO-INDE`, `AUTO-INDEN`, `AUTO-INDENT`, `AUTO-RESIZE`, `AUTO-RET`, `AUTO-RETU`, `AUTO-RETUR`, `AUTO-RETURN`, `AUTO-SYNCHRONIZE`, `AUTO-Z`, `AUTO-ZA`, `AUTO-ZAP`, `AUTOMATIC`, `AVAIL`, `AVAILA`, `AVAILAB`, `AVAILABL`, `AVAILABLE`, `AVAILABLE-FORMATS`, `AVE`, `AVER`, `AVERA`, `AVERAG`, `AVERAGE`, `AVG`, `BACK`, `BACKG`, `BACKGR`, `BACKGRO`, `BACKGROU`, `BACKGROUN`, `BACKGROUND`, `BACKWARD`, `BACKWARDS`, `BASE64-DECODE`, `BASE64-ENCODE`, `BASE-ADE`, `BASE-KEY`, `BATCH`, `BATCH-`, `BATCH-M`, `BATCH-MO`, `BATCH-MOD`, `BATCH-MODE`, `BATCH-SIZE`, `BEFORE-H`, `BEFORE-HI`, `BEFORE-HID`, `BEFORE-HIDE`, `BEGIN-EVENT-GROUP`, `BEGINS`, `BELL`, `BETWEEN`, `BGC`, `BGCO`, `BGCOL`, `BGCOLO`, `BGCOLOR`, `BIG-ENDIAN`, `BINARY`, `BIND`, `BIND-WHERE`, `BLANK`, `BLOCK-ITERATION-DISPLAY`, `BLOCK-LEVEL`, `BORDER-B`, `BORDER-BO`, `BORDER-BOT`, `BORDER-BOTT`, `BORDER-BOTTO`, `BORDER-BOTTOM-CHARS`, `BORDER-BOTTOM-P`, `BORDER-BOTTOM-PI`, `BORDER-BOTTOM-PIX`, `BORDER-BOTTOM-PIXE`, `BORDER-BOTTOM-PIXEL`, `BORDER-BOTTOM-PIXELS`, `BORDER-L`, `BORDER-LE`, `BORDER-LEF`, `BORDER-LEFT`, `BORDER-LEFT-`, `BORDER-LEFT-C`, `BORDER-LEFT-CH`, `BORDER-LEFT-CHA`, `BORDER-LEFT-CHAR`, `BORDER-LEFT-CHARS`, `BORDER-LEFT-P`, `BORDER-LEFT-PI`, `BORDER-LEFT-PIX`, `BORDER-LEFT-PIXE`, `BORDER-LEFT-PIXEL`, `BORDER-LEFT-PIXELS`, `BORDER-R`, `BORDER-RI`, `BORDER-RIG`, `BORDER-RIGH`, `BORDER-RIGHT`, `BORDER-RIGHT-`, `BORDER-RIGHT-C`, `BORDER-RIGHT-CH`, `BORDER-RIGHT-CHA`, `BORDER-RIGHT-CHAR`, `BORDER-RIGHT-CHARS`, `BORDER-RIGHT-P`, `BORDER-RIGHT-PI`, `BORDER-RIGHT-PIX`, `BORDER-RIGHT-PIXE`, `BORDER-RIGHT-PIXEL`, `BORDER-RIGHT-PIXELS`, `BORDER-T`, `BORDER-TO`, `BORDER-TOP`, `BORDER-TOP-`, `BORDER-TOP-C`, `BORDER-TOP-CH`, `BORDER-TOP-CHA`, `BORDER-TOP-CHAR`, `BORDER-TOP-CHARS`, `BORDER-TOP-P`, `BORDER-TOP-PI`, `BORDER-TOP-PIX`, `BORDER-TOP-PIXE`, `BORDER-TOP-PIXEL`, `BORDER-TOP-PIXELS`, `BOX`, `BOX-SELECT`, `BOX-SELECTA`, `BOX-SELECTAB`, `BOX-SELECTABL`, `BOX-SELECTABLE`, `BREAK`, `BROWSE`, `BUFFER`, `BUFFER-CHARS`, `BUFFER-COMPARE`, `BUFFER-COPY`, `BUFFER-CREATE`, `BUFFER-DELETE`, `BUFFER-FIELD`, `BUFFER-HANDLE`, `BUFFER-LINES`, `BUFFER-NAME`, `BUFFER-PARTITION-ID`, `BUFFER-RELEASE`, `BUFFER-VALUE`, `BUTTON`, `BUTTONS`, `BY`, `BY-POINTER`, `BY-VARIANT-POINTER`, `CACHE`, `CACHE-SIZE`, `CALL`, `CALL-NAME`, `CALL-TYPE`, `CAN-CREATE`, `CAN-DELETE`, `CAN-DO`, `CAN-DO-DOMAIN-SUPPORT`, `CAN-FIND`, `CAN-QUERY`, `CAN-READ`, `CAN-SET`, `CAN-WRITE`, `CANCEL-BREAK`, `CANCEL-BUTTON`, `CAPS`, `CAREFUL-PAINT`, `CASE`, `CASE-SEN`, `CASE-SENS`, `CASE-SENSI`, `CASE-SENSIT`, `CASE-SENSITI`, `CASE-SENSITIV`, `CASE-SENSITIVE`, `CAST`, `CATCH`, `CDECL`, `CENTER`, `CENTERE`, `CENTERED`, `CHAINED`, `CHARACTER`, `CHARACTER_LENGTH`, `CHARSET`, `CHECK`, `CHECKED`, `CHOOSE`, `CHR`, `CLASS`, `CLASS-TYPE`, `CLEAR`, `CLEAR-APPL-CONTEXT`, `CLEAR-LOG`, `CLEAR-SELECT`, `CLEAR-SELECTI`, `CLEAR-SELECTIO`, `CLEAR-SELECTION`, `CLEAR-SORT-ARROW`, `CLEAR-SORT-ARROWS`, `CLIENT-CONNECTION-ID`, `CLIENT-PRINCIPAL`, `CLIENT-TTY`, `CLIENT-TYPE`, `CLIENT-WORKSTATION`, `CLIPBOARD`, `CLOSE`, `CLOSE-LOG`, `CODE`, `CODEBASE-LOCATOR`, `CODEPAGE`, `CODEPAGE-CONVERT`, `COL`, `COL-OF`, `COLLATE`, `COLON`, `COLON-ALIGN`, `COLON-ALIGNE`, `COLON-ALIGNED`, `COLOR`, `COLOR-TABLE`, `COLU`, `COLUM`, `COLUMN`, `COLUMN-BGCOLOR`, `COLUMN-DCOLOR`, `COLUMN-FGCOLOR`, `COLUMN-FONT`, `COLUMN-LAB`, `COLUMN-LABE`, `COLUMN-LABEL`, `COLUMN-MOVABLE`, `COLUMN-OF`, `COLUMN-PFCOLOR`, `COLUMN-READ-ONLY`, `COLUMN-RESIZABLE`, `COLUMN-SCROLLING`, `COLUMNS`, `COM-HANDLE`, `COM-SELF`, `COMBO-BOX`, `COMMAND`, `COMPARES`, `COMPILE`, `COMPILER`, `COMPLETE`, `CONFIG-NAME`, `CONNECT`, `CONNECTED`, `CONSTRUCTOR`, `CONTAINS`, `CONTENTS`, `CONTEXT`, `CONTEXT-HELP`, `CONTEXT-HELP-FILE`, `CONTEXT-HELP-ID`, `CONTEXT-POPUP`, `CONTROL`, `CONTROL-BOX`, `CONTROL-FRAME`, `CONVERT`, `CONVERT-3D-COLORS`, `CONVERT-TO-OFFS`, `CONVERT-TO-OFFSE`, `CONVERT-TO-OFFSET`, `COPY-DATASET`, `COPY-LOB`, `COPY-SAX-ATTRIBUTES`, `COPY-TEMP-TABLE`, `COUNT`, `COUNT-OF`, `CPCASE`, `CPCOLL`, `CPINTERNAL`, `CPLOG`, `CPPRINT`, `CPRCODEIN`, `CPRCODEOUT`, `CPSTREAM`, `CPTERM`, `CRC-VALUE`, `CREATE`, `CREATE-LIKE`, `CREATE-LIKE-SEQUENTIAL`, `CREATE-NODE-NAMESPACE`, `CREATE-RESULT-LIST-ENTRY`, `CREATE-TEST-FILE`, `CURRENT`, `CURRENT-CHANGED`, `CURRENT-COLUMN`, `CURRENT-ENV`, `CURRENT-ENVI`, `CURRENT-ENVIR`, `CURRENT-ENVIRO`, `CURRENT-ENVIRON`, `CURRENT-ENVIRONM`, `CURRENT-ENVIRONME`, `CURRENT-ENVIRONMEN`, `CURRENT-ENVIRONMENT`, `CURRENT-ITERATION`, `CURRENT-LANG`, `CURRENT-LANGU`, `CURRENT-LANGUA`, `CURRENT-LANGUAG`, `CURRENT-LANGUAGE`, `CURRENT-QUERY`, `CURRENT-REQUEST-INFO`, `CURRENT-RESPONSE-INFO`, `CURRENT-RESULT-ROW`, `CURRENT-ROW-MODIFIED`, `CURRENT-VALUE`, `CURRENT-WINDOW`, `CURRENT_DATE`, `CURS`, `CURSO`, `CURSOR`, `CURSOR-CHAR`, `CURSOR-LINE`, `CURSOR-OFFSET`, `DATA-BIND`, `DATA-ENTRY-RET`, `DATA-ENTRY-RETU`, `DATA-ENTRY-RETUR`, `DATA-ENTRY-RETURN`, `DATA-REL`, `DATA-RELA`, `DATA-RELAT`, `DATA-RELATI`, `DATA-RELATIO`, `DATA-RELATION`, `DATA-SOURCE`, `DATA-SOURCE-COMPLETE-MAP`, `DATA-SOURCE-MODIFIED`, `DATA-SOURCE-ROWID`, `DATA-T`, `DATA-TY`, `DATA-TYP`, `DATA-TYPE`, `DATABASE`, `DATASERVERS`, `DATASET`, `DATASET-HANDLE`, `DATE`, `DATE-F`, `DATE-FO`, `DATE-FOR`, `DATE-FORM`, `DATE-FORMA`, `DATE-FORMAT`, `DAY`, `DB-CONTEXT`, `DB-REFERENCES`, `DBCODEPAGE`, `DBCOLLATION`, `DBNAME`, `DBPARAM`, `DBREST`, `DBRESTR`, `DBRESTRI`, `DBRESTRIC`, `DBRESTRICT`, `DBRESTRICTI`, `DBRESTRICTIO`, `DBRESTRICTION`, `DBRESTRICTIONS`, `DBTASKID`, `DBTYPE`, `DBVERS`, `DBVERSI`, `DBVERSIO`, `DBVERSION`, `DCOLOR`, `DDE`, `DDE-ERROR`, `DDE-I`, `DDE-ID`, `DDE-ITEM`, `DDE-NAME`, `DDE-TOPIC`, `DEBLANK`, `DEBU`, `DEBUG`, `DEBUG-ALERT`, `DEBUG-LIST`, `DEBUGGER`, `DECIMAL`, `DECIMALS`, `DECLARE`, `DECLARE-NAMESPACE`, `DECRYPT`, `DEFAULT`, `DEFAULT-B`, `DEFAULT-BU`, `DEFAULT-BUFFER-HANDLE`, `DEFAULT-BUT`, `DEFAULT-BUTT`, `DEFAULT-BUTTO`, `DEFAULT-BUTTON`, `DEFAULT-COMMIT`, `DEFAULT-EX`, `DEFAULT-EXT`, `DEFAULT-EXTE`, `DEFAULT-EXTEN`, `DEFAULT-EXTENS`, `DEFAULT-EXTENSI`, `DEFAULT-EXTENSIO`, `DEFAULT-EXTENSION`, `DEFAULT-NOXL`, `DEFAULT-NOXLA`, `DEFAULT-NOXLAT`, `DEFAULT-NOXLATE`, `DEFAULT-VALUE`, `DEFAULT-WINDOW`, `DEFINE`, `DEFINE-USER-EVENT-MANAGER`, `DEFINED`, `DEL`, `DELE`, `DELEGATE`, `DELET`, `DELETE PROCEDURE`, `DELETE`, `DELETE-CHAR`, `DELETE-CHARA`, `DELETE-CHARAC`, `DELETE-CHARACT`, `DELETE-CHARACTE`, `DELETE-CHARACTER`, `DELETE-CURRENT-ROW`, `DELETE-LINE`, `DELETE-RESULT-LIST-ENTRY`, `DELETE-SELECTED-ROW`, `DELETE-SELECTED-ROWS`, `DELIMITER`, `DESC`, `DESCE`, `DESCEN`, `DESCEND`, `DESCENDI`, `DESCENDIN`, `DESCENDING`, `DESELECT-FOCUSED-ROW`, `DESELECT-ROWS`, `DESELECT-SELECTED-ROW`, `DESELECTION`, `DESTRUCTOR`, `DIALOG-BOX`, `DICT`, `DICTI`, `DICTIO`, `DICTION`, `DICTIONA`, `DICTIONAR`, `DICTIONARY`, `DIR`, `DISABLE`, `DISABLE-AUTO-ZAP`, `DISABLE-DUMP-TRIGGERS`, `DISABLE-LOAD-TRIGGERS`, `DISABLED`, `DISCON`, `DISCONN`, `DISCONNE`, `DISCONNEC`, `DISCONNECT`, `DISP`, `DISPL`, `DISPLA`, `DISPLAY`, `DISPLAY-MESSAGE`, `DISPLAY-T`, `DISPLAY-TY`, `DISPLAY-TYP`, `DISPLAY-TYPE`, `DISTINCT`, `DO`, `DOMAIN-DESCRIPTION`, `DOMAIN-NAME`, `DOMAIN-TYPE`, `DOS`, `DOUBLE`, `DOWN`, `DRAG-ENABLED`, `DROP`, `DROP-DOWN`, `DROP-DOWN-LIST`, `DROP-FILE-NOTIFY`, `DROP-TARGET`, `DS-CLOSE-CURSOR`, `DSLOG-MANAGER`, `DUMP`, `DYNAMIC`, `DYNAMIC-ENUM`, `DYNAMIC-FUNCTION`, `DYNAMIC-INVOKE`, `EACH`, `ECHO`, `EDGE`, `EDGE-`, `EDGE-C`, `EDGE-CH`, `EDGE-CHA`, `EDGE-CHAR`, `EDGE-CHARS`, `EDGE-P`, `EDGE-PI`, `EDGE-PIX`, `EDGE-PIXE`, `EDGE-PIXEL`, `EDGE-PIXELS`, `EDIT-CAN-PASTE`, `EDIT-CAN-UNDO`, `EDIT-CLEAR`, `EDIT-COPY`, `EDIT-CUT`, `EDIT-PASTE`, `EDIT-UNDO`, `EDITING`, `EDITOR`, `ELSE`, `EMPTY`, `EMPTY-TEMP-TABLE`, `ENABLE`, `ENABLED-FIELDS`, `ENCODE`, `ENCRYPT`, `ENCRYPT-AUDIT-MAC-KEY`, `ENCRYPTION-SALT`, `END`, `END-DOCUMENT`, `END-ELEMENT`, `END-EVENT-GROUP`, `END-FILE-DROP`, `END-KEY`, `END-MOVE`, `END-RESIZE`, `END-ROW-RESIZE`, `END-USER-PROMPT`, `ENDKEY`, `ENTERED`, `ENTITY-EXPANSION-LIMIT`, `ENTRY`, `ENUM`, `EQ`, `ERROR`, `ERROR-COL`, `ERROR-COLU`, `ERROR-COLUM`, `ERROR-COLUMN`, `ERROR-ROW`, `ERROR-STACK-TRACE`, `ERROR-STAT`, `ERROR-STATU`, `ERROR-STATUS`, `ESCAPE`, `ETIME`, `EVENT`, `EVENT-GROUP-ID`, `EVENT-PROCEDURE`, `EVENT-PROCEDURE-CONTEXT`, `EVENT-T`, `EVENT-TY`, `EVENT-TYP`, `EVENT-TYPE`, `EVENTS`, `EXCEPT`, `EXCLUSIVE`, `EXCLUSIVE-`, `EXCLUSIVE-ID`, `EXCLUSIVE-L`, `EXCLUSIVE-LO`, `EXCLUSIVE-LOC`, `EXCLUSIVE-LOCK`, `EXCLUSIVE-WEB-USER`, `EXECUTE`, `EXISTS`, `EXP`, `EXPAND`, `EXPANDABLE`, `EXPLICIT`, `EXPORT`, `EXPORT-PRINCIPAL`, `EXTENDED`, `EXTENT`, `EXTERNAL`, `FALSE`, `FETCH`, `FETCH-SELECTED-ROW`, `FGC`, `FGCO`, `FGCOL`, `FGCOLO`, `FGCOLOR`, `FIELD`, `FIELDS`, `FILE`, `FILE-CREATE-DATE`, `FILE-CREATE-TIME`, `FILE-INFO`, `FILE-INFOR`, `FILE-INFORM`, `FILE-INFORMA`, `FILE-INFORMAT`, `FILE-INFORMATI`, `FILE-INFORMATIO`, `FILE-INFORMATION`, `FILE-MOD-DATE`, `FILE-MOD-TIME`, `FILE-NAME`, `FILE-OFF`, `FILE-OFFS`, `FILE-OFFSE`, `FILE-OFFSET`, `FILE-SIZE`, `FILE-TYPE`, `FILENAME`, `FILL`, `FILL-IN`, `FILLED`, `FILTERS`, `FINAL`, `FINALLY`, `FIND`, `FIND-BY-ROWID`, `FIND-CASE-SENSITIVE`, `FIND-CURRENT`, `FIND-FIRST`, `FIND-GLOBAL`, `FIND-LAST`, `FIND-NEXT-OCCURRENCE`, `FIND-PREV-OCCURRENCE`, `FIND-SELECT`, `FIND-UNIQUE`, `FIND-WRAP-AROUND`, `FINDER`, `FIRST`, `FIRST-ASYNCH-REQUEST`, `FIRST-CHILD`, `FIRST-COLUMN`, `FIRST-FORM`, `FIRST-OBJECT`, `FIRST-OF`, `FIRST-PROC`, `FIRST-PROCE`, `FIRST-PROCED`, `FIRST-PROCEDU`, `FIRST-PROCEDUR`, `FIRST-PROCEDURE`, `FIRST-SERVER`, `FIRST-TAB-I`, `FIRST-TAB-IT`, `FIRST-TAB-ITE`, `FIRST-TAB-ITEM`, `FIT-LAST-COLUMN`, `FIXED-ONLY`, `FLAT-BUTTON`, `FLOAT`, `FOCUS`, `FOCUSED-ROW`, `FOCUSED-ROW-SELECTED`, `FONT`, `FONT-TABLE`, `FOR`, `FORCE-FILE`, `FORE`, `FOREG`, `FOREGR`, `FOREGRO`, `FOREGROU`, `FOREGROUN`, `FOREGROUND`, `FORM INPUT`, `FORM`, `FORM-LONG-INPUT`, `FORMA`, `FORMAT`, `FORMATTE`, `FORMATTED`, `FORWARD`, `FORWARDS`, `FRAGMEN`, `FRAGMENT`, `FRAM`, `FRAME`, `FRAME-COL`, `FRAME-DB`, `FRAME-DOWN`, `FRAME-FIELD`, `FRAME-FILE`, `FRAME-INDE`, `FRAME-INDEX`, `FRAME-LINE`, `FRAME-NAME`, `FRAME-ROW`, `FRAME-SPA`, `FRAME-SPAC`, `FRAME-SPACI`, `FRAME-SPACIN`, `FRAME-SPACING`, `FRAME-VAL`, `FRAME-VALU`, `FRAME-VALUE`, `FRAME-X`, `FRAME-Y`, `FREQUENCY`, `FROM`, `FROM-C`, `FROM-CH`, `FROM-CHA`, `FROM-CHAR`, `FROM-CHARS`, `FROM-CUR`, `FROM-CURR`, `FROM-CURRE`, `FROM-CURREN`, `FROM-CURRENT`, `FROM-P`, `FROM-PI`, `FROM-PIX`, `FROM-PIXE`, `FROM-PIXEL`, `FROM-PIXELS`, `FULL-HEIGHT`, `FULL-HEIGHT-`, `FULL-HEIGHT-C`, `FULL-HEIGHT-CH`, `FULL-HEIGHT-CHA`, `FULL-HEIGHT-CHAR`, `FULL-HEIGHT-CHARS`, `FULL-HEIGHT-P`, `FULL-HEIGHT-PI`, `FULL-HEIGHT-PIX`, `FULL-HEIGHT-PIXE`, `FULL-HEIGHT-PIXEL`, `FULL-HEIGHT-PIXELS`, `FULL-PATHN`, `FULL-PATHNA`, `FULL-PATHNAM`, `FULL-PATHNAME`, `FULL-WIDTH`, `FULL-WIDTH-`, `FULL-WIDTH-C`, `FULL-WIDTH-CH`, `FULL-WIDTH-CHA`, `FULL-WIDTH-CHAR`, `FULL-WIDTH-CHARS`, `FULL-WIDTH-P`, `FULL-WIDTH-PI`, `FULL-WIDTH-PIX`, `FULL-WIDTH-PIXE`, `FULL-WIDTH-PIXEL`, `FULL-WIDTH-PIXELS`, `FUNCTION`, `FUNCTION-CALL-TYPE`, `GATEWAY`, `GATEWAYS`, `GE`, `GENERATE-MD5`, `GENERATE-PBE-KEY`, `GENERATE-PBE-SALT`, `GENERATE-RANDOM-KEY`, `GENERATE-UUID`, `GET`, `GET-ATTR-CALL-TYPE`, `GET-ATTRIBUTE-NODE`, `GET-BINARY-DATA`, `GET-BLUE`, `GET-BLUE-`, `GET-BLUE-V`, `GET-BLUE-VA`, `GET-BLUE-VAL`, `GET-BLUE-VALU`, `GET-BLUE-VALUE`, `GET-BROWSE-COLUMN`, `GET-BUFFER-HANDLE`, `GET-BYTE`, `GET-CALLBACK-PROC-CONTEXT`, `GET-CALLBACK-PROC-NAME`, `GET-CGI-LIST`, `GET-CGI-LONG-VALUE`, `GET-CGI-VALUE`, `GET-CLASS`, `GET-CODEPAGES`, `GET-COLLATIONS`, `GET-CONFIG-VALUE`, `GET-CURRENT`, `GET-DOUBLE`, `GET-DROPPED-FILE`, `GET-DYNAMIC`, `GET-ERROR-COLUMN`, `GET-ERROR-ROW`, `GET-FILE`, `GET-FILE-NAME`, `GET-FILE-OFFSE`, `GET-FILE-OFFSET`, `GET-FIRST`, `GET-FLOAT`, `GET-GREEN`, `GET-GREEN-`, `GET-GREEN-V`, `GET-GREEN-VA`, `GET-GREEN-VAL`, `GET-GREEN-VALU`, `GET-GREEN-VALUE`, `GET-INDEX-BY-NAMESPACE-NAME`, `GET-INDEX-BY-QNAME`, `GET-INT64`, `GET-ITERATION`, `GET-KEY-VAL`, `GET-KEY-VALU`, `GET-KEY-VALUE`, `GET-LAST`, `GET-LOCALNAME-BY-INDEX`, `GET-LONG`, `GET-MESSAGE`, `GET-NEXT`, `GET-NUMBER`, `GET-POINTER-VALUE`, `GET-PREV`, `GET-PRINTERS`, `GET-PROPERTY`, `GET-QNAME-BY-INDEX`, `GET-RED`, `GET-RED-`, `GET-RED-V`, `GET-RED-VA`, `GET-RED-VAL`, `GET-RED-VALU`, `GET-RED-VALUE`, `GET-REPOSITIONED-ROW`, `GET-RGB-VALUE`, `GET-SELECTED`, `GET-SELECTED-`, `GET-SELECTED-W`, `GET-SELECTED-WI`, `GET-SELECTED-WID`, `GET-SELECTED-WIDG`, `GET-SELECTED-WIDGE`, `GET-SELECTED-WIDGET`, `GET-SHORT`, `GET-SIGNATURE`, `GET-SIZE`, `GET-STRING`, `GET-TAB-ITEM`, `GET-TEXT-HEIGHT`, `GET-TEXT-HEIGHT-`, `GET-TEXT-HEIGHT-C`, `GET-TEXT-HEIGHT-CH`, `GET-TEXT-HEIGHT-CHA`, `GET-TEXT-HEIGHT-CHAR`, `GET-TEXT-HEIGHT-CHARS`, `GET-TEXT-HEIGHT-P`, `GET-TEXT-HEIGHT-PI`, `GET-TEXT-HEIGHT-PIX`, `GET-TEXT-HEIGHT-PIXE`, `GET-TEXT-HEIGHT-PIXEL`, `GET-TEXT-HEIGHT-PIXELS`, `GET-TEXT-WIDTH`, `GET-TEXT-WIDTH-`, `GET-TEXT-WIDTH-C`, `GET-TEXT-WIDTH-CH`, `GET-TEXT-WIDTH-CHA`, `GET-TEXT-WIDTH-CHAR`, `GET-TEXT-WIDTH-CHARS`, `GET-TEXT-WIDTH-P`, `GET-TEXT-WIDTH-PI`, `GET-TEXT-WIDTH-PIX`, `GET-TEXT-WIDTH-PIXE`, `GET-TEXT-WIDTH-PIXEL`, `GET-TEXT-WIDTH-PIXELS`, `GET-TYPE-BY-INDEX`, `GET-TYPE-BY-NAMESPACE-NAME`, `GET-TYPE-BY-QNAME`, `GET-UNSIGNED-LONG`, `GET-UNSIGNED-SHORT`, `GET-URI-BY-INDEX`, `GET-VALUE-BY-INDEX`, `GET-VALUE-BY-NAMESPACE-NAME`, `GET-VALUE-BY-QNAME`, `GET-WAIT-STATE`, `GETBYTE`, `GLOBAL`, `GO-ON`, `GO-PEND`, `GO-PENDI`, `GO-PENDIN`, `GO-PENDING`, `GRANT`, `GRAPHIC-E`, `GRAPHIC-ED`, `GRAPHIC-EDG`, `GRAPHIC-EDGE`, `GRID-FACTOR-H`, `GRID-FACTOR-HO`, `GRID-FACTOR-HOR`, `GRID-FACTOR-HORI`, `GRID-FACTOR-HORIZ`, `GRID-FACTOR-HORIZO`, `GRID-FACTOR-HORIZON`, `GRID-FACTOR-HORIZONT`, `GRID-FACTOR-HORIZONTA`, `GRID-FACTOR-HORIZONTAL`, `GRID-FACTOR-V`, `GRID-FACTOR-VE`, `GRID-FACTOR-VER`, `GRID-FACTOR-VERT`, `GRID-FACTOR-VERTI`, `GRID-FACTOR-VERTIC`, `GRID-FACTOR-VERTICA`, `GRID-FACTOR-VERTICAL`, `GRID-SNAP`, `GRID-UNIT-HEIGHT`, `GRID-UNIT-HEIGHT-`, `GRID-UNIT-HEIGHT-C`, `GRID-UNIT-HEIGHT-CH`, `GRID-UNIT-HEIGHT-CHA`, `GRID-UNIT-HEIGHT-CHARS`, `GRID-UNIT-HEIGHT-P`, `GRID-UNIT-HEIGHT-PI`, `GRID-UNIT-HEIGHT-PIX`, `GRID-UNIT-HEIGHT-PIXE`, `GRID-UNIT-HEIGHT-PIXEL`, `GRID-UNIT-HEIGHT-PIXELS`, `GRID-UNIT-WIDTH`, `GRID-UNIT-WIDTH-`, `GRID-UNIT-WIDTH-C`, `GRID-UNIT-WIDTH-CH`, `GRID-UNIT-WIDTH-CHA`, `GRID-UNIT-WIDTH-CHAR`, `GRID-UNIT-WIDTH-CHARS`, `GRID-UNIT-WIDTH-P`, `GRID-UNIT-WIDTH-PI`, `GRID-UNIT-WIDTH-PIX`, `GRID-UNIT-WIDTH-PIXE`, `GRID-UNIT-WIDTH-PIXEL`, `GRID-UNIT-WIDTH-PIXELS`, `GRID-VISIBLE`, `GROUP`, `GT`, `GUID`, `HANDLE`, `HANDLER`, `HAS-RECORDS`, `HAVING`, `HEADER`, `HEIGHT`, `HEIGHT-`, `HEIGHT-C`, `HEIGHT-CH`, `HEIGHT-CHA`, `HEIGHT-CHAR`, `HEIGHT-CHARS`, `HEIGHT-P`, `HEIGHT-PI`, `HEIGHT-PIX`, `HEIGHT-PIXE`, `HEIGHT-PIXEL`, `HEIGHT-PIXELS`, `HELP`, `HEX-DECODE`, `HEX-ENCODE`, `HIDDEN`, `HIDE`, `HORI`, `HORIZ`, `HORIZO`, `HORIZON`, `HORIZONT`, `HORIZONTA`, `HORIZONTAL`, `HOST-BYTE-ORDER`, `HTML-CHARSET`, `HTML-END-OF-LINE`, `HTML-END-OF-PAGE`, `HTML-FRAME-BEGIN`, `HTML-FRAME-END`, `HTML-HEADER-BEGIN`, `HTML-HEADER-END`, `HTML-TITLE-BEGIN`, `HTML-TITLE-END`, `HWND`, `ICON`, `IF`, `IMAGE`, `IMAGE-DOWN`, `IMAGE-INSENSITIVE`, `IMAGE-SIZE`, `IMAGE-SIZE-C`, `IMAGE-SIZE-CH`, `IMAGE-SIZE-CHA`, `IMAGE-SIZE-CHAR`, `IMAGE-SIZE-CHARS`, `IMAGE-SIZE-P`, `IMAGE-SIZE-PI`, `IMAGE-SIZE-PIX`, `IMAGE-SIZE-PIXE`, `IMAGE-SIZE-PIXEL`, `IMAGE-SIZE-PIXELS`, `IMAGE-UP`, `IMMEDIATE-DISPLAY`, `IMPLEMENTS`, `IMPORT`, `IMPORT-PRINCIPAL`, `IN`, `IN-HANDLE`, `INCREMENT-EXCLUSIVE-ID`, `INDEX`, `INDEX-HINT`, `INDEX-INFORMATION`, `INDEXED-REPOSITION`, `INDICATOR`, `INFO`, `INFOR`, `INFORM`, `INFORMA`, `INFORMAT`, `INFORMATI`, `INFORMATIO`, `INFORMATION`, `INHERIT-BGC`, `INHERIT-BGCO`, `INHERIT-BGCOL`, `INHERIT-BGCOLO`, `INHERIT-BGCOLOR`, `INHERIT-FGC`, `INHERIT-FGCO`, `INHERIT-FGCOL`, `INHERIT-FGCOLO`, `INHERIT-FGCOLOR`, `INHERITS`, `INIT`, `INITI`, `INITIA`, `INITIAL`, `INITIAL-DIR`, `INITIAL-FILTER`, `INITIALIZE-DOCUMENT-TYPE`, `INITIATE`, `INNER-CHARS`, `INNER-LINES`, `INPUT`, `INPUT-O`, `INPUT-OU`, `INPUT-OUT`, `INPUT-OUTP`, `INPUT-OUTPU`, `INPUT-OUTPUT`, `INPUT-VALUE`, `INSERT`, `INSERT-ATTRIBUTE`, `INSERT-B`, `INSERT-BA`, `INSERT-BAC`, `INSERT-BACK`, `INSERT-BACKT`, `INSERT-BACKTA`, `INSERT-BACKTAB`, `INSERT-FILE`, `INSERT-ROW`, `INSERT-STRING`, `INSERT-T`, `INSERT-TA`, `INSERT-TAB`, `INT64`, `INT`, `INTEGER`, `INTERFACE`, `INTERNAL-ENTRIES`, `INTO`, `INVOKE`, `IS`, `IS-ATTR`, `IS-ATTR-`, `IS-ATTR-S`, `IS-ATTR-SP`, `IS-ATTR-SPA`, `IS-ATTR-SPAC`, `IS-ATTR-SPACE`, `IS-CLASS`, `IS-JSON`, `IS-LEAD-BYTE`, `IS-OPEN`, `IS-PARAMETER-SET`, `IS-PARTITIONED`, `IS-ROW-SELECTED`, `IS-SELECTED`, `IS-XML`, `ITEM`, `ITEMS-PER-ROW`, `JOIN`, `JOIN-BY-SQLDB`, `KBLABEL`, `KEEP-CONNECTION-OPEN`, `KEEP-FRAME-Z`, `KEEP-FRAME-Z-`, `KEEP-FRAME-Z-O`, `KEEP-FRAME-Z-OR`, `KEEP-FRAME-Z-ORD`, `KEEP-FRAME-Z-ORDE`, `KEEP-FRAME-Z-ORDER`, `KEEP-MESSAGES`, `KEEP-SECURITY-CACHE`, `KEEP-TAB-ORDER`, `KEY`, `KEY-CODE`, `KEY-FUNC`, `KEY-FUNCT`, `KEY-FUNCTI`, `KEY-FUNCTIO`, `KEY-FUNCTION`, `KEY-LABEL`, `KEYCODE`, `KEYFUNC`, `KEYFUNCT`, `KEYFUNCTI`, `KEYFUNCTIO`, `KEYFUNCTION`, `KEYLABEL`, `KEYS`, `KEYWORD`, `KEYWORD-ALL`, `LABEL`, `LABEL-BGC`, `LABEL-BGCO`, `LABEL-BGCOL`, `LABEL-BGCOLO`, `LABEL-BGCOLOR`, `LABEL-DC`, `LABEL-DCO`, `LABEL-DCOL`, `LABEL-DCOLO`, `LABEL-DCOLOR`, `LABEL-FGC`, `LABEL-FGCO`, `LABEL-FGCOL`, `LABEL-FGCOLO`, `LABEL-FGCOLOR`, `LABEL-FONT`, `LABEL-PFC`, `LABEL-PFCO`, `LABEL-PFCOL`, `LABEL-PFCOLO`, `LABEL-PFCOLOR`, `LABELS`, `LABELS-HAVE-COLONS`, `LANDSCAPE`, `LANGUAGE`, `LANGUAGES`, `LARGE`, `LARGE-TO-SMALL`, `LAST`, `LAST-ASYNCH-REQUEST`, `LAST-BATCH`, `LAST-CHILD`, `LAST-EVEN`, `LAST-EVENT`, `LAST-FORM`, `LAST-KEY`, `LAST-OBJECT`, `LAST-OF`, `LAST-PROCE`, `LAST-PROCED`, `LAST-PROCEDU`, `LAST-PROCEDUR`, `LAST-PROCEDURE`, `LAST-SERVER`, `LAST-TAB-I`, `LAST-TAB-IT`, `LAST-TAB-ITE`, `LAST-TAB-ITEM`, `LASTKEY`, `LC`, `LDBNAME`, `LE`, `LEAVE`, `LEFT-ALIGN`, `LEFT-ALIGNE`, `LEFT-ALIGNED`, `LEFT-TRIM`, `LENGTH`, `LIBRARY`, `LIKE`, `LIKE-SEQUENTIAL`, `LINE`, `LINE-COUNT`, `LINE-COUNTE`, `LINE-COUNTER`, `LIST-EVENTS`, `LIST-ITEM-PAIRS`, `LIST-ITEMS`, `LIST-PROPERTY-NAMES`, `LIST-QUERY-ATTRS`, `LIST-SET-ATTRS`, `LIST-WIDGETS`, `LISTI`, `LISTIN`, `LISTING`, `LITERAL-QUESTION`, `LITTLE-ENDIAN`, `LOAD`, `LOAD-DOMAINS`, `LOAD-ICON`, `LOAD-IMAGE`, `LOAD-IMAGE-DOWN`, `LOAD-IMAGE-INSENSITIVE`, `LOAD-IMAGE-UP`, `LOAD-MOUSE-P`, `LOAD-MOUSE-PO`, `LOAD-MOUSE-POI`, `LOAD-MOUSE-POIN`, `LOAD-MOUSE-POINT`, `LOAD-MOUSE-POINTE`, `LOAD-MOUSE-POINTER`, `LOAD-PICTURE`, `LOAD-SMALL-ICON`, `LOCAL-NAME`, `LOCAL-VERSION-INFO`, `LOCATOR-COLUMN-NUMBER`, `LOCATOR-LINE-NUMBER`, `LOCATOR-PUBLIC-ID`, `LOCATOR-SYSTEM-ID`, `LOCATOR-TYPE`, `LOCK-REGISTRATION`, `LOCKED`, `LOG`, `LOG-AUDIT-EVENT`, `LOG-MANAGER`, `LOGICAL`, `LOGIN-EXPIRATION-TIMESTAMP`, `LOGIN-HOST`, `LOGIN-STATE`, `LOGOUT`, `LONGCHAR`, `LOOKAHEAD`, `LOOKUP`, `LT`, `MACHINE-CLASS`, `MANDATORY`, `MANUAL-HIGHLIGHT`, `MAP`, `MARGIN-EXTRA`, `MARGIN-HEIGHT`, `MARGIN-HEIGHT-`, `MARGIN-HEIGHT-C`, `MARGIN-HEIGHT-CH`, `MARGIN-HEIGHT-CHA`, `MARGIN-HEIGHT-CHAR`, `MARGIN-HEIGHT-CHARS`, `MARGIN-HEIGHT-P`, `MARGIN-HEIGHT-PI`, `MARGIN-HEIGHT-PIX`, `MARGIN-HEIGHT-PIXE`, `MARGIN-HEIGHT-PIXEL`, `MARGIN-HEIGHT-PIXELS`, `MARGIN-WIDTH`, `MARGIN-WIDTH-`, `MARGIN-WIDTH-C`, `MARGIN-WIDTH-CH`, `MARGIN-WIDTH-CHA`, `MARGIN-WIDTH-CHAR`, `MARGIN-WIDTH-CHARS`, `MARGIN-WIDTH-P`, `MARGIN-WIDTH-PI`, `MARGIN-WIDTH-PIX`, `MARGIN-WIDTH-PIXE`, `MARGIN-WIDTH-PIXEL`, `MARGIN-WIDTH-PIXELS`, `MARK-NEW`, `MARK-ROW-STATE`, `MATCHES`, `MAX`, `MAX-BUTTON`, `MAX-CHARS`, `MAX-DATA-GUESS`, `MAX-HEIGHT`, `MAX-HEIGHT-C`, `MAX-HEIGHT-CH`, `MAX-HEIGHT-CHA`, `MAX-HEIGHT-CHAR`, `MAX-HEIGHT-CHARS`, `MAX-HEIGHT-P`, `MAX-HEIGHT-PI`, `MAX-HEIGHT-PIX`, `MAX-HEIGHT-PIXE`, `MAX-HEIGHT-PIXEL`, `MAX-HEIGHT-PIXELS`, `MAX-ROWS`, `MAX-SIZE`, `MAX-VAL`, `MAX-VALU`, `MAX-VALUE`, `MAX-WIDTH`, `MAX-WIDTH-`, `MAX-WIDTH-C`, `MAX-WIDTH-CH`, `MAX-WIDTH-CHA`, `MAX-WIDTH-CHAR`, `MAX-WIDTH-CHARS`, `MAX-WIDTH-P`, `MAX-WIDTH-PI`, `MAX-WIDTH-PIX`, `MAX-WIDTH-PIXE`, `MAX-WIDTH-PIXEL`, `MAX-WIDTH-PIXELS`, `MAXI`, `MAXIM`, `MAXIMIZE`, `MAXIMU`, `MAXIMUM`, `MAXIMUM-LEVEL`, `MD5-DIGEST`, `MEMBER`, `MEMPTR-TO-NODE-VALUE`, `MENU`, `MENU-BAR`, `MENU-ITEM`, `MENU-K`, `MENU-KE`, `MENU-KEY`, `MENU-M`, `MENU-MO`, `MENU-MOU`, `MENU-MOUS`, `MENU-MOUSE`, `MENUBAR`, `MERGE-BY-FIELD`, `MESSAGE`, `MESSAGE-AREA`, `MESSAGE-AREA-FONT`, `MESSAGE-LINES`, `METHOD`, `MIN`, `MIN-BUTTON`, `MIN-COLUMN-WIDTH-C`, `MIN-COLUMN-WIDTH-CH`, `MIN-COLUMN-WIDTH-CHA`, `MIN-COLUMN-WIDTH-CHAR`, `MIN-COLUMN-WIDTH-CHARS`, `MIN-COLUMN-WIDTH-P`, `MIN-COLUMN-WIDTH-PI`, `MIN-COLUMN-WIDTH-PIX`, `MIN-COLUMN-WIDTH-PIXE`, `MIN-COLUMN-WIDTH-PIXEL`, `MIN-COLUMN-WIDTH-PIXELS`, `MIN-HEIGHT`, `MIN-HEIGHT-`, `MIN-HEIGHT-C`, `MIN-HEIGHT-CH`, `MIN-HEIGHT-CHA`, `MIN-HEIGHT-CHAR`, `MIN-HEIGHT-CHARS`, `MIN-HEIGHT-P`, `MIN-HEIGHT-PI`, `MIN-HEIGHT-PIX`, `MIN-HEIGHT-PIXE`, `MIN-HEIGHT-PIXEL`, `MIN-HEIGHT-PIXELS`, `MIN-SIZE`, `MIN-VAL`, `MIN-VALU`, `MIN-VALUE`, `MIN-WIDTH`, `MIN-WIDTH-`, `MIN-WIDTH-C`, `MIN-WIDTH-CH`, `MIN-WIDTH-CHA`, `MIN-WIDTH-CHAR`, `MIN-WIDTH-CHARS`, `MIN-WIDTH-P`, `MIN-WIDTH-PI`, `MIN-WIDTH-PIX`, `MIN-WIDTH-PIXE`, `MIN-WIDTH-PIXEL`, `MIN-WIDTH-PIXELS`, `MINI`, `MINIM`, `MINIMU`, `MINIMUM`, `MOD`, `MODIFIED`, `MODU`, `MODUL`, `MODULO`, `MONTH`, `MOUSE`, `MOUSE-P`, `MOUSE-PO`, `MOUSE-POI`, `MOUSE-POIN`, `MOUSE-POINT`, `MOUSE-POINTE`, `MOUSE-POINTER`, `MOVABLE`, `MOVE-AFTER`, `MOVE-AFTER-`, `MOVE-AFTER-T`, `MOVE-AFTER-TA`, `MOVE-AFTER-TAB`, `MOVE-AFTER-TAB-`, `MOVE-AFTER-TAB-I`, `MOVE-AFTER-TAB-IT`, `MOVE-AFTER-TAB-ITE`, `MOVE-AFTER-TAB-ITEM`, `MOVE-BEFOR`, `MOVE-BEFORE`, `MOVE-BEFORE-`, `MOVE-BEFORE-T`, `MOVE-BEFORE-TA`, `MOVE-BEFORE-TAB`, `MOVE-BEFORE-TAB-`, `MOVE-BEFORE-TAB-I`, `MOVE-BEFORE-TAB-IT`, `MOVE-BEFORE-TAB-ITE`, `MOVE-BEFORE-TAB-ITEM`, `MOVE-COL`, `MOVE-COLU`, `MOVE-COLUM`, `MOVE-COLUMN`, `MOVE-TO-B`, `MOVE-TO-BO`, `MOVE-TO-BOT`, `MOVE-TO-BOTT`, `MOVE-TO-BOTTO`, `MOVE-TO-BOTTOM`, `MOVE-TO-EOF`, `MOVE-TO-T`, `MOVE-TO-TO`, `MOVE-TO-TOP`, `MPE`, `MTIME`, `MULTI-COMPILE`, `MULTIPLE`, `MULTIPLE-KEY`, `MULTITASKING-INTERVAL`, `MUST-EXIST`, `NAME`, `NAMESPACE-PREFIX`, `NAMESPACE-URI`, `NATIVE`, `NE`, `NEEDS-APPSERVER-PROMPT`, `NEEDS-PROMPT`, `NEW`, `NEW-INSTANCE`, `NEW-ROW`, `NEXT`, `NEXT-COLUMN`, `NEXT-PROMPT`, `NEXT-ROWID`, `NEXT-SIBLING`, `NEXT-TAB-I`, `NEXT-TAB-IT`, `NEXT-TAB-ITE`, `NEXT-TAB-ITEM`, `NEXT-VALUE`, `NO`, `NO-APPLY`, `NO-ARRAY-MESSAGE`, `NO-ASSIGN`, `NO-ATTR`, `NO-ATTR-`, `NO-ATTR-L`, `NO-ATTR-LI`, `NO-ATTR-LIS`, `NO-ATTR-LIST`, `NO-ATTR-S`, `NO-ATTR-SP`, `NO-ATTR-SPA`, `NO-ATTR-SPAC`, `NO-ATTR-SPACE`, `NO-AUTO-VALIDATE`, `NO-BIND-WHERE`, `NO-BOX`, `NO-CONSOLE`, `NO-CONVERT`, `NO-CONVERT-3D-COLORS`, `NO-CURRENT-VALUE`, `NO-DEBUG`, `NO-DRAG`, `NO-ECHO`, `NO-EMPTY-SPACE`, `NO-ERROR`, `NO-F`, `NO-FI`, `NO-FIL`, `NO-FILL`, `NO-FOCUS`, `NO-HELP`, `NO-HIDE`, `NO-INDEX-HINT`, `NO-INHERIT-BGC`, `NO-INHERIT-BGCO`, `NO-INHERIT-BGCOLOR`, `NO-INHERIT-FGC`, `NO-INHERIT-FGCO`, `NO-INHERIT-FGCOL`, `NO-INHERIT-FGCOLO`, `NO-INHERIT-FGCOLOR`, `NO-JOIN-BY-SQLDB`, `NO-LABE`, `NO-LABELS`, `NO-LOBS`, `NO-LOCK`, `NO-LOOKAHEAD`, `NO-MAP`, `NO-MES`, `NO-MESS`, `NO-MESSA`, `NO-MESSAG`, `NO-MESSAGE`, `NO-PAUSE`, `NO-PREFE`, `NO-PREFET`, `NO-PREFETC`, `NO-PREFETCH`, `NO-ROW-MARKERS`, `NO-SCROLLBAR-VERTICAL`, `NO-SEPARATE-CONNECTION`, `NO-SEPARATORS`, `NO-TAB-STOP`, `NO-UND`, `NO-UNDE`, `NO-UNDER`, `NO-UNDERL`, `NO-UNDERLI`, `NO-UNDERLIN`, `NO-UNDERLINE`, `NO-UNDO`, `NO-VAL`, `NO-VALI`, `NO-VALID`, `NO-VALIDA`, `NO-VALIDAT`, `NO-VALIDATE`, `NO-WAIT`, `NO-WORD-WRAP`, `NODE-VALUE-TO-MEMPTR`, `NONAMESPACE-SCHEMA-LOCATION`, `NONE`, `NORMALIZE`, `NOT`, `NOT-ACTIVE`, `NOW`, `NULL`, `NUM-ALI`, `NUM-ALIA`, `NUM-ALIAS`, `NUM-ALIASE`, `NUM-ALIASES`, `NUM-BUFFERS`, `NUM-BUT`, `NUM-BUTT`, `NUM-BUTTO`, `NUM-BUTTON`, `NUM-BUTTONS`, `NUM-COL`, `NUM-COLU`, `NUM-COLUM`, `NUM-COLUMN`, `NUM-COLUMNS`, `NUM-COPIES`, `NUM-DBS`, `NUM-DROPPED-FILES`, `NUM-ENTRIES`, `NUM-FIELDS`, `NUM-FORMATS`, `NUM-ITEMS`, `NUM-ITERATIONS`, `NUM-LINES`, `NUM-LOCKED-COL`, `NUM-LOCKED-COLU`, `NUM-LOCKED-COLUM`, `NUM-LOCKED-COLUMN`, `NUM-LOCKED-COLUMNS`, `NUM-MESSAGES`, `NUM-PARAMETERS`, `NUM-REFERENCES`, `NUM-REPLACED`, `NUM-RESULTS`, `NUM-SELECTED`, `NUM-SELECTED-`, `NUM-SELECTED-ROWS`, `NUM-SELECTED-W`, `NUM-SELECTED-WI`, `NUM-SELECTED-WID`, `NUM-SELECTED-WIDG`, `NUM-SELECTED-WIDGE`, `NUM-SELECTED-WIDGET`, `NUM-SELECTED-WIDGETS`, `NUM-TABS`, `NUM-TO-RETAIN`, `NUM-VISIBLE-COLUMNS`, `NUMERIC`, `NUMERIC-F`, `NUMERIC-FO`, `NUMERIC-FOR`, `NUMERIC-FORM`, `NUMERIC-FORMA`, `NUMERIC-FORMAT`, `OCTET-LENGTH`, `OF`, `OFF`, `OK`, `OK-CANCEL`, `OLD`, `ON`, `ON-FRAME`, `ON-FRAME-`, `ON-FRAME-B`, `ON-FRAME-BO`, `ON-FRAME-BOR`, `ON-FRAME-BORD`, `ON-FRAME-BORDE`, `ON-FRAME-BORDER`, `OPEN`, `OPSYS`, `OPTION`, `OR`, `ORDERED-JOIN`, `ORDINAL`, `OS-APPEND`, `OS-COMMAND`, `OS-COPY`, `OS-CREATE-DIR`, `OS-DELETE`, `OS-DIR`, `OS-DRIVE`, `OS-DRIVES`, `OS-ERROR`, `OS-GETENV`, `OS-RENAME`, `OTHERWISE`, `OUTPUT`, `OVERLAY`, `OVERRIDE`, `OWNER`, `PAGE`, `PAGE-BOT`, `PAGE-BOTT`, `PAGE-BOTTO`, `PAGE-BOTTOM`, `PAGE-NUM`, `PAGE-NUMB`, `PAGE-NUMBE`, `PAGE-NUMBER`, `PAGE-SIZE`, `PAGE-TOP`, `PAGE-WID`, `PAGE-WIDT`, `PAGE-WIDTH`, `PAGED`, `PARAM`, `PARAME`, `PARAMET`, `PARAMETE`, `PARAMETER`, `PARENT`, `PARSE-STATUS`, `PARTIAL-KEY`, `PASCAL`, `PASSWORD-FIELD`, `PATHNAME`, `PAUSE`, `PBE-HASH-ALG`, `PBE-HASH-ALGO`, `PBE-HASH-ALGOR`, `PBE-HASH-ALGORI`, `PBE-HASH-ALGORIT`, `PBE-HASH-ALGORITH`, `PBE-HASH-ALGORITHM`, `PBE-KEY-ROUNDS`, `PDBNAME`, `PERSIST`, `PERSISTE`, `PERSISTEN`, `PERSISTENT`, `PERSISTENT-CACHE-DISABLED`, `PFC`, `PFCO`, `PFCOL`, `PFCOLO`, `PFCOLOR`, `PIXELS`, `PIXELS-PER-COL`, `PIXELS-PER-COLU`, `PIXELS-PER-COLUM`, `PIXELS-PER-COLUMN`, `PIXELS-PER-ROW`, `POPUP-M`, `POPUP-ME`, `POPUP-MEN`, `POPUP-MENU`, `POPUP-O`, `POPUP-ON`, `POPUP-ONL`, `POPUP-ONLY`, `PORTRAIT`, `POSITION`, `PRECISION`, `PREFER-DATASET`, `PREPARE-STRING`, `PREPARED`, `PREPROC`, `PREPROCE`, `PREPROCES`, `PREPROCESS`, `PRESEL`, `PRESELE`, `PRESELEC`, `PRESELECT`, `PREV`, `PREV-COLUMN`, `PREV-SIBLING`, `PREV-TAB-I`, `PREV-TAB-IT`, `PREV-TAB-ITE`, `PREV-TAB-ITEM`, `PRIMARY`, `PRINTER`, `PRINTER-CONTROL-HANDLE`, `PRINTER-HDC`, `PRINTER-NAME`, `PRINTER-PORT`, `PRINTER-SETUP`, `PRIVATE`, `PRIVATE-D`, `PRIVATE-DA`, `PRIVATE-DAT`, `PRIVATE-DATA`, `PRIVILEGES`, `PROC-HA`, `PROC-HAN`, `PROC-HAND`, `PROC-HANDL`, `PROC-HANDLE`, `PROC-ST`, `PROC-STA`, `PROC-STAT`, `PROC-STATU`, `PROC-STATUS`, `PROC-TEXT`, `PROC-TEXT-BUFFER`, `PROCE`, `PROCED`, `PROCEDU`, `PROCEDUR`, `PROCEDURE`, `PROCEDURE-CALL-TYPE`, `PROCEDURE-TYPE`, `PROCESS`, `PROFILER`, `PROGRAM-NAME`, `PROGRESS`, `PROGRESS-S`, `PROGRESS-SO`, `PROGRESS-SOU`, `PROGRESS-SOUR`, `PROGRESS-SOURC`, `PROGRESS-SOURCE`, `PROMPT`, `PROMPT-F`, `PROMPT-FO`, `PROMPT-FOR`, `PROMSGS`, `PROPATH`, `PROPERTY`, `PROTECTED`, `PROVERS`, `PROVERSI`, `PROVERSIO`, `PROVERSION`, `PROXY`, `PROXY-PASSWORD`, `PROXY-USERID`, `PUBLIC`, `PUBLIC-ID`, `PUBLISH`, `PUBLISHED-EVENTS`, `PUT`, `PUT-BYTE`, `PUT-DOUBLE`, `PUT-FLOAT`, `PUT-INT64`, `PUT-KEY-VAL`, `PUT-KEY-VALU`, `PUT-KEY-VALUE`, `PUT-LONG`, `PUT-SHORT`, `PUT-STRING`, `PUT-UNSIGNED-LONG`, `PUTBYTE`, `QUERY`, `QUERY-CLOSE`, `QUERY-OFF-END`, `QUERY-OPEN`, `QUERY-PREPARE`, `QUERY-TUNING`, `QUESTION`, `QUIT`, `QUOTER`, `R-INDEX`, `RADIO-BUTTONS`, `RADIO-SET`, `RANDOM`, `RAW`, `RAW-TRANSFER`, `RCODE-INFO`, `RCODE-INFOR`, `RCODE-INFORM`, `RCODE-INFORMA`, `RCODE-INFORMAT`, `RCODE-INFORMATI`, `RCODE-INFORMATIO`, `RCODE-INFORMATION`, `READ-AVAILABLE`, `READ-EXACT-NUM`, `READ-FILE`, `READ-JSON`, `READ-ONLY`, `READ-XML`, `READ-XMLSCHEMA`, `READKEY`, `REAL`, `RECID`, `RECORD-LENGTH`, `RECT`, `RECTA`, `RECTAN`, `RECTANG`, `RECTANGL`, `RECTANGLE`, `RECURSIVE`, `REFERENCE-ONLY`, `REFRESH`, `REFRESH-AUDIT-POLICY`, `REFRESHABLE`, `REGISTER-DOMAIN`, `RELEASE`, `REMOTE`, `REMOVE-EVENTS-PROCEDURE`, `REMOVE-SUPER-PROCEDURE`, `REPEAT`, `REPLACE`, `REPLACE-SELECTION-TEXT`, `REPOSITION`, `REPOSITION-BACKWARD`, `REPOSITION-FORWARD`, `REPOSITION-MODE`, `REPOSITION-TO-ROW`, `REPOSITION-TO-ROWID`, `REQUEST`, `REQUEST-INFO`, `RESET`, `RESIZA`, `RESIZAB`, `RESIZABL`, `RESIZABLE`, `RESIZE`, `RESPONSE-INFO`, `RESTART-ROW`, `RESTART-ROWID`, `RETAIN`, `RETAIN-SHAPE`, `RETRY`, `RETRY-CANCEL`, `RETURN`, `RETURN-ALIGN`, `RETURN-ALIGNE`, `RETURN-INS`, `RETURN-INSE`, `RETURN-INSER`, `RETURN-INSERT`, `RETURN-INSERTE`, `RETURN-INSERTED`, `RETURN-TO-START-DI`, `RETURN-TO-START-DIR`, `RETURN-VAL`, `RETURN-VALU`, `RETURN-VALUE`, `RETURN-VALUE-DATA-TYPE`, `RETURNS`, `REVERSE-FROM`, `REVERT`, `REVOKE`, `RGB-VALUE`, `RIGHT-ALIGNED`, `RIGHT-TRIM`, `ROLES`, `ROUND`, `ROUTINE-LEVEL`, `ROW`, `ROW-HEIGHT-CHARS`, `ROW-HEIGHT-PIXELS`, `ROW-MARKERS`, `ROW-OF`, `ROW-RESIZABLE`, `ROWID`, `RULE`, `RUN`, `RUN-PROCEDURE`, `SAVE CACHE`, `SAVE`, `SAVE-AS`, `SAVE-FILE`, `SAX-COMPLE`, `SAX-COMPLET`, `SAX-COMPLETE`, `SAX-PARSE`, `SAX-PARSE-FIRST`, `SAX-PARSE-NEXT`, `SAX-PARSER-ERROR`, `SAX-RUNNING`, `SAX-UNINITIALIZED`, `SAX-WRITE-BEGIN`, `SAX-WRITE-COMPLETE`, `SAX-WRITE-CONTENT`, `SAX-WRITE-ELEMENT`, `SAX-WRITE-ERROR`, `SAX-WRITE-IDLE`, `SAX-WRITE-TAG`, `SAX-WRITER`, `SCHEMA`, `SCHEMA-LOCATION`, `SCHEMA-MARSHAL`, `SCHEMA-PATH`, `SCREEN`, `SCREEN-IO`, `SCREEN-LINES`, `SCREEN-VAL`, `SCREEN-VALU`, `SCREEN-VALUE`, `SCROLL`, `SCROLL-BARS`, `SCROLL-DELTA`, `SCROLL-OFFSET`, `SCROLL-TO-CURRENT-ROW`, `SCROLL-TO-I`, `SCROLL-TO-IT`, `SCROLL-TO-ITE`, `SCROLL-TO-ITEM`, `SCROLL-TO-SELECTED-ROW`, `SCROLLABLE`, `SCROLLBAR-H`, `SCROLLBAR-HO`, `SCROLLBAR-HOR`, `SCROLLBAR-HORI`, `SCROLLBAR-HORIZ`, `SCROLLBAR-HORIZO`, `SCROLLBAR-HORIZON`, `SCROLLBAR-HORIZONT`, `SCROLLBAR-HORIZONTA`, `SCROLLBAR-HORIZONTAL`, `SCROLLBAR-V`, `SCROLLBAR-VE`, `SCROLLBAR-VER`, `SCROLLBAR-VERT`, `SCROLLBAR-VERTI`, `SCROLLBAR-VERTIC`, `SCROLLBAR-VERTICA`, `SCROLLBAR-VERTICAL`, `SCROLLED-ROW-POS`, `SCROLLED-ROW-POSI`, `SCROLLED-ROW-POSIT`, `SCROLLED-ROW-POSITI`, `SCROLLED-ROW-POSITIO`, `SCROLLED-ROW-POSITION`, `SCROLLING`, `SDBNAME`, `SEAL`, `SEAL-TIMESTAMP`, `SEARCH`, `SEARCH-SELF`, `SEARCH-TARGET`, `SECTION`, `SECURITY-POLICY`, `SEEK`, `SELECT`, `SELECT-ALL`, `SELECT-FOCUSED-ROW`, `SELECT-NEXT-ROW`, `SELECT-PREV-ROW`, `SELECT-ROW`, `SELECTABLE`, `SELECTED`, `SELECTION`, `SELECTION-END`, `SELECTION-LIST`, `SELECTION-START`, `SELECTION-TEXT`, `SELF`, `SEND`, `SEND-SQL-STATEMENT`, `SENSITIVE`, `SEPARATE-CONNECTION`, `SEPARATOR-FGCOLOR`, `SEPARATORS`, `SERIALIZABLE`, `SERIALIZE-HIDDEN`, `SERIALIZE-NAME`, `SERVER`, `SERVER-CONNECTION-BOUND`, `SERVER-CONNECTION-BOUND-REQUEST`, `SERVER-CONNECTION-CONTEXT`, `SERVER-CONNECTION-ID`, `SERVER-OPERATING-MODE`, `SESSION`, `SESSION-ID`, `SET`, `SET-APPL-CONTEXT`, `SET-ATTR-CALL-TYPE`, `SET-ATTRIBUTE-NODE`, `SET-BLUE`, `SET-BLUE-`, `SET-BLUE-V`, `SET-BLUE-VA`, `SET-BLUE-VAL`, `SET-BLUE-VALU`, `SET-BLUE-VALUE`, `SET-BREAK`, `SET-BUFFERS`, `SET-CALLBACK`, `SET-CLIENT`, `SET-COMMIT`, `SET-CONTENTS`, `SET-CURRENT-VALUE`, `SET-DB-CLIENT`, `SET-DYNAMIC`, `SET-EVENT-MANAGER-OPTION`, `SET-GREEN`, `SET-GREEN-`, `SET-GREEN-V`, `SET-GREEN-VA`, `SET-GREEN-VAL`, `SET-GREEN-VALU`, `SET-GREEN-VALUE`, `SET-INPUT-SOURCE`, `SET-OPTION`, `SET-OUTPUT-DESTINATION`, `SET-PARAMETER`, `SET-POINTER-VALUE`, `SET-PROPERTY`, `SET-RED`, `SET-RED-`, `SET-RED-V`, `SET-RED-VA`, `SET-RED-VAL`, `SET-RED-VALU`, `SET-RED-VALUE`, `SET-REPOSITIONED-ROW`, `SET-RGB-VALUE`, `SET-ROLLBACK`, `SET-SELECTION`, `SET-SIZE`, `SET-SORT-ARROW`, `SET-WAIT-STATE`, `SETUSER`, `SETUSERI`, `SETUSERID`, `SHA1-DIGEST`, `SHARE`, `SHARE-`, `SHARE-L`, `SHARE-LO`, `SHARE-LOC`, `SHARE-LOCK`, `SHARED`, `SHOW-IN-TASKBAR`, `SHOW-STAT`, `SHOW-STATS`, `SIDE-LAB`, `SIDE-LABE`, `SIDE-LABEL`, `SIDE-LABEL-H`, `SIDE-LABEL-HA`, `SIDE-LABEL-HAN`, `SIDE-LABEL-HAND`, `SIDE-LABEL-HANDL`, `SIDE-LABEL-HANDLE`, `SIDE-LABELS`, `SIGNATURE`, `SILENT`, `SIMPLE`, `SINGLE`, `SINGLE-RUN`, `SINGLETON`, `SIZE`, `SIZE-C`, `SIZE-CH`, `SIZE-CHA`, `SIZE-CHAR`, `SIZE-CHARS`, `SIZE-P`, `SIZE-PI`, `SIZE-PIX`, `SIZE-PIXE`, `SIZE-PIXEL`, `SIZE-PIXELS`, `SKIP`, `SKIP-DELETED-RECORD`, `SLIDER`, `SMALL-ICON`, `SMALL-TITLE`, `SMALLINT`, `SOME`, `SORT`, `SORT-ASCENDING`, `SORT-NUMBER`, `SOURCE`, `SOURCE-PROCEDURE`, `SPACE`, `SQL`, `SQRT`, `SSL-SERVER-NAME`, `STANDALONE`, `START`, `START-DOCUMENT`, `START-ELEMENT`, `START-MOVE`, `START-RESIZE`, `START-ROW-RESIZE`, `STATE-DETAIL`, `STATIC`, `STATUS`, `STATUS-AREA`, `STATUS-AREA-FONT`, `STDCALL`, `STOP`, `STOP-AFTER`, `STOP-PARSING`, `STOPPE`, `STOPPED`, `STORED-PROC`, `STORED-PROCE`, `STORED-PROCED`, `STORED-PROCEDU`, `STORED-PROCEDUR`, `STORED-PROCEDURE`, `STREAM`, `STREAM-HANDLE`, `STREAM-IO`, `STRETCH-TO-FIT`, `STRICT`, `STRICT-ENTITY-RESOLUTION`, `STRING`, `STRING-VALUE`, `STRING-XREF`, `SUB-AVE`, `SUB-AVER`, `SUB-AVERA`, `SUB-AVERAG`, `SUB-AVERAGE`, `SUB-COUNT`, `SUB-MAXIMUM`, `SUB-MENU`, `SUB-MIN`, `SUB-MINIMUM`, `SUB-TOTAL`, `SUBSCRIBE`, `SUBST`, `SUBSTI`, `SUBSTIT`, `SUBSTITU`, `SUBSTITUT`, `SUBSTITUTE`, `SUBSTR`, `SUBSTRI`, `SUBSTRIN`, `SUBSTRING`, `SUBTYPE`, `SUM`, `SUM-MAX`, `SUM-MAXI`, `SUM-MAXIM`, `SUM-MAXIMU`, `SUPER`, `SUPER-PROCEDURES`, `SUPPRESS-NAMESPACE-PROCESSING`, `SUPPRESS-W`, `SUPPRESS-WA`, `SUPPRESS-WAR`, `SUPPRESS-WARN`, `SUPPRESS-WARNI`, `SUPPRESS-WARNIN`, `SUPPRESS-WARNING`, `SUPPRESS-WARNINGS`, `SYMMETRIC-ENCRYPTION-ALGORITHM`, `SYMMETRIC-ENCRYPTION-IV`, `SYMMETRIC-ENCRYPTION-KEY`, `SYMMETRIC-SUPPORT`, `SYSTEM-ALERT`, `SYSTEM-ALERT-`, `SYSTEM-ALERT-B`, `SYSTEM-ALERT-BO`, `SYSTEM-ALERT-BOX`, `SYSTEM-ALERT-BOXE`, `SYSTEM-ALERT-BOXES`, `SYSTEM-DIALOG`, `SYSTEM-HELP`, `SYSTEM-ID`, `TAB-POSITION`, `TAB-STOP`, `TABLE`, `TABLE-HANDLE`, `TABLE-NUMBER`, `TABLE-SCAN`, `TARGET`, `TARGET-PROCEDURE`, `TEMP-DIR`, `TEMP-DIRE`, `TEMP-DIREC`, `TEMP-DIRECT`, `TEMP-DIRECTO`, `TEMP-DIRECTOR`, `TEMP-DIRECTORY`, `TEMP-TABLE`, `TEMP-TABLE-PREPARE`, `TERM`, `TERMI`, `TERMIN`, `TERMINA`, `TERMINAL`, `TERMINATE`, `TEXT`, `TEXT-CURSOR`, `TEXT-SEG-GROW`, `TEXT-SELECTED`, `THEN`, `THIS-OBJECT`, `THIS-PROCEDURE`, `THREAD-SAFE`, `THREE-D`, `THROUGH`, `THROW`, `THRU`, `TIC-MARKS`, `TIME`, `TIME-SOURCE`, `TITLE`, `TITLE-BGC`, `TITLE-BGCO`, `TITLE-BGCOL`, `TITLE-BGCOLO`, `TITLE-BGCOLOR`, `TITLE-DC`, `TITLE-DCO`, `TITLE-DCOL`, `TITLE-DCOLO`, `TITLE-DCOLOR`, `TITLE-FGC`, `TITLE-FGCO`, `TITLE-FGCOL`, `TITLE-FGCOLO`, `TITLE-FGCOLOR`, `TITLE-FO`, `TITLE-FON`, `TITLE-FONT`, `TO`, `TO-ROWID`, `TODAY`, `TOGGLE-BOX`, `TOOLTIP`, `TOOLTIPS`, `TOP-NAV-QUERY`, `TOP-ONLY`, `TOPIC`, `TOTAL`, `TRAILING`, `TRANS`, `TRANS-INIT-PROCEDURE`, `TRANSACTION`, `TRANSACTION-MODE`, `TRANSPARENT`, `TRIGGER`, `TRIGGERS`, `TRIM`, `TRUE`, `TRUNC`, `TRUNCA`, `TRUNCAT`, `TRUNCATE`, `TYPE`, `TYPE-OF`, `UNBOX`, `UNBUFF`, `UNBUFFE`, `UNBUFFER`, `UNBUFFERE`, `UNBUFFERED`, `UNDERL`, `UNDERLI`, `UNDERLIN`, `UNDERLINE`, `UNDO`, `UNFORM`, `UNFORMA`, `UNFORMAT`, `UNFORMATT`, `UNFORMATTE`, `UNFORMATTED`, `UNION`, `UNIQUE`, `UNIQUE-ID`, `UNIQUE-MATCH`, `UNIX`, `UNLESS-HIDDEN`, `UNLOAD`, `UNSIGNED-LONG`, `UNSUBSCRIBE`, `UP`, `UPDATE`, `UPDATE-ATTRIBUTE`, `URL`, `URL-DECODE`, `URL-ENCODE`, `URL-PASSWORD`, `URL-USERID`, `USE`, `USE-DICT-EXPS`, `USE-FILENAME`, `USE-INDEX`, `USE-REVVIDEO`, `USE-TEXT`, `USE-UNDERLINE`, `USE-WIDGET-POOL`, `USER`, `USER-ID`, `USERID`, `USING`, `V6DISPLAY`, `V6FRAME`, `VALID-EVENT`, `VALID-HANDLE`, `VALID-OBJECT`, `VALIDATE`, `VALIDATE-EXPRESSION`, `VALIDATE-MESSAGE`, `VALIDATE-SEAL`, `VALIDATION-ENABLED`, `VALUE`, `VALUE-CHANGED`, `VALUES`, `VAR`, `VARI`, `VARIA`, `VARIAB`, `VARIABL`, `VARIABLE`, `VERBOSE`, `VERSION`, `VERT`, `VERTI`, `VERTIC`, `VERTICA`, `VERTICAL`, `VIEW`, `VIEW-AS`, `VIEW-FIRST-COLUMN-ON-REOPEN`, `VIRTUAL-HEIGHT`, `VIRTUAL-HEIGHT-`, `VIRTUAL-HEIGHT-C`, `VIRTUAL-HEIGHT-CH`, `VIRTUAL-HEIGHT-CHA`, `VIRTUAL-HEIGHT-CHAR`, `VIRTUAL-HEIGHT-CHARS`, `VIRTUAL-HEIGHT-P`, `VIRTUAL-HEIGHT-PI`, `VIRTUAL-HEIGHT-PIX`, `VIRTUAL-HEIGHT-PIXE`, `VIRTUAL-HEIGHT-PIXEL`, `VIRTUAL-HEIGHT-PIXELS`, `VIRTUAL-WIDTH`, `VIRTUAL-WIDTH-`, `VIRTUAL-WIDTH-C`, `VIRTUAL-WIDTH-CH`, `VIRTUAL-WIDTH-CHA`, `VIRTUAL-WIDTH-CHAR`, `VIRTUAL-WIDTH-CHARS`, `VIRTUAL-WIDTH-P`, `VIRTUAL-WIDTH-PI`, `VIRTUAL-WIDTH-PIX`, `VIRTUAL-WIDTH-PIXE`, `VIRTUAL-WIDTH-PIXEL`, `VIRTUAL-WIDTH-PIXELS`, `VISIBLE`, `VOID`, `WAIT`, `WAIT-FOR`, `WARNING`, `WEB-CONTEXT`, `WEEKDAY`, `WHEN`, `WHERE`, `WHILE`, `WIDGET`, `WIDGET-E`, `WIDGET-EN`, `WIDGET-ENT`, `WIDGET-ENTE`, `WIDGET-ENTER`, `WIDGET-ID`, `WIDGET-L`, `WIDGET-LE`, `WIDGET-LEA`, `WIDGET-LEAV`, `WIDGET-LEAVE`, `WIDGET-POOL`, `WIDTH`, `WIDTH-`, `WIDTH-C`, `WIDTH-CH`, `WIDTH-CHA`, `WIDTH-CHAR`, `WIDTH-CHARS`, `WIDTH-P`, `WIDTH-PI`, `WIDTH-PIX`, `WIDTH-PIXE`, `WIDTH-PIXEL`, `WIDTH-PIXELS`, `WINDOW`, `WINDOW-MAXIM`, `WINDOW-MAXIMI`, `WINDOW-MAXIMIZ`, `WINDOW-MAXIMIZE`, `WINDOW-MAXIMIZED`, `WINDOW-MINIM`, `WINDOW-MINIMI`, `WINDOW-MINIMIZ`, `WINDOW-MINIMIZE`, `WINDOW-MINIMIZED`, `WINDOW-NAME`, `WINDOW-NORMAL`, `WINDOW-STA`, `WINDOW-STAT`, `WINDOW-STATE`, `WINDOW-SYSTEM`, `WITH`, `WORD-INDEX`, `WORD-WRAP`, `WORK-AREA-HEIGHT-PIXELS`, `WORK-AREA-WIDTH-PIXELS`, `WORK-AREA-X`, `WORK-AREA-Y`, `WORK-TAB`, `WORK-TABL`, `WORK-TABLE`, `WORKFILE`, `WRITE`, `WRITE-CDATA`, `WRITE-CHARACTERS`, `WRITE-COMMENT`, `WRITE-DATA-ELEMENT`, `WRITE-EMPTY-ELEMENT`, `WRITE-ENTITY-REF`, `WRITE-EXTERNAL-DTD`, `WRITE-FRAGMENT`, `WRITE-JSON`, `WRITE-MESSAGE`, `WRITE-PROCESSING-INSTRUCTION`, `WRITE-STATUS`, `WRITE-XML`, `WRITE-XMLSCHEMA`, `X`, `X-OF`, `XCODE`, `XML-DATA-TYPE`, `XML-ENTITY-EXPANSION-LIMIT`, `XML-NODE-TYPE`, `XML-SCHEMA-PATH`, `XML-STRICT-ENTITY-RESOLUTION`, `XML-SUPPRESS-NAMESPACE-PROCESSING`, `XREF`, `XREF-XML`, `Y`, `Y-OF`, `YEAR`, `YEAR-OFFSET`, `YES`, `YES-NO`, `YES-NO-CANCEL`), KeywordReserved, nil}, // nolint - {`"(\\\\|\\[^\\]|[^"\\])*"`, LiteralStringDouble, nil}, - {`'(\\\\|\\[^\\]|[^'\\])*'`, LiteralStringSingle, nil}, + {`"(~~|~[^~]|[^"~])*"`, LiteralStringDouble, nil}, + {`'(~~|~[^~]|[^"~])*'`, LiteralStringSingle, nil}, {`[0-9][0-9]*\.[0-9]+([eE][0-9]+)?[fd]?`, LiteralNumberFloat, nil}, {`[0-9]+`, LiteralNumberInteger, nil}, {`\s+`, Text, nil}, diff --git a/lexers/testdata/openedgeabl.expected b/lexers/testdata/openedgeabl.expected index 0d1baa8b2..fdafdfd32 100644 --- a/lexers/testdata/openedgeabl.expected +++ b/lexers/testdata/openedgeabl.expected @@ -2403,22 +2403,7 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger-\u00261'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getUserName"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"UNLOAD "}, - {"type":"LiteralStringSingle","value":"'DataDiggerHelp'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"UNLOAD "}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, + {"type":"LiteralStringSingle","value":"'DataDigger-\u00261', getUserName() ).\n\n UNLOAD 'DataDiggerHelp' NO-ERROR.\n UNLOAD 'DataDigger'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, @@ -2716,28 +2701,7 @@ {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringSingle","value":"'dump'"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* action */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* database */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* table */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"LiteralStringSingle","value":"'dump' /* action */\n , INPUT '' /* database */\n , INPUT '' /* table */\n , INPUT ''"}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* extension */"}, {"type":"Text","value":"\n "}, @@ -2977,15 +2941,62 @@ {"type":"KeywordReserved","value":"R-INDEX"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\\\")).\n IF cDumpDir = '' THEN cDumpDir = '.'.\n\n /* We cannot use the program dir itself */\n FILE-INFO:FILE-NAME = cDumpDir.\n IF TRIM(FILE-INFO:FULL-PATHNAME,'\\/') = TRIM(getProgramDir(),\""}, - {"type":"Operator","value":"/"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringDouble","value":"\") THEN\n DO:\n pcError = getRegistry('DataDigger:Help', 'ExportToProgramdir:message').\n RETURN.\n END.\n\n PUBLISH \""}, - {"type":"NameVariable","value":"debugInfo"}, - {"type":"LiteralStringDouble","value":"\" (3, SUBSTITUTE(\""}, - {"type":"KeywordReserved","value":"Dir "}, + {"type":"LiteralStringDouble","value":"\"\\\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDumpDir"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'' THEN cDumpDir = '.'.\n\n /* We cannot use the program dir itself */\n FILE-INFO:FILE-NAME = cDumpDir.\n IF TRIM(FILE-INFO:FULL-PATHNAME,'\\/'"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getProgramDir"}, + {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"/\\\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcError"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, - {"type":"CommentPreproc","value":" \u00261\", cDumpDir))."}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'DataDigger:Help', 'ExportToProgramdir:message'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Dir = \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDumpDir"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Ask to overwrite if it already exists */"}, {"type":"Text","value":"\n "}, @@ -3040,36 +3051,7 @@ {"type":"KeywordReserved","value":"FILE-TYPE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*F*'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"showHelp"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'OverwriteDumpFile'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'OverwriteDumpFile:answer'"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'1'"}, + {"type":"LiteralStringSingle","value":"'*F*' THEN\n DO:\n RUN showHelp('OverwriteDumpFile', pcFileName).\n IF getRegistry('DataDigger:Help', 'OverwriteDumpFile:answer') \u003c\u003e '1'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, @@ -3080,89 +3062,44 @@ {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'OverwriteDumpFile:answer'"}, - {"type":"NameVariable","value":",?"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcError"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringSingle","value":"'DataDigger:Help', 'OverwriteDumpFile:answer',?).\n pcError = 'Aborted by user.'.\n RETURN.\n END.\n\n /* Write access to this file? */\n IF NOT FILE-INFO:FILE-TYPE MATCHES '*W*' THEN\n DO:\n pcError = SUBSTITUTE('"}, + {"type":"NameVariable","value":"Cannot"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Aborted by user.'"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Write access to this file? */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"overwrite"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"output"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-TYPE"}, + {"type":"KeywordReserved","value":"file "}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, + {"type":"LiteralStringSingle","value":"', pcFileName).\n RETURN.\n END.\n END.\n\n /* If a dir already exists with the same name as the output file, we cannot create it */\n IF FILE-INFO:FILE-TYPE MATCHES '*D*' THEN\n DO:\n pcError = SUBSTITUTE('"}, + {"type":"NameVariable","value":"A"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*W*'"}, + {"type":"NameVariable","value":"directory"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"named"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcError"}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"exists"}, + {"type":"NameVariable","value":";"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'Cannot overwrite output file \"\u00261\"'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"cannot"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If a dir already exists with the same name as the output file, we cannot create it */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"create"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-TYPE"}, + {"type":"NameVariable","value":"a"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*D*'"}, + {"type":"KeywordReserved","value":"file"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"with"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcError"}, + {"type":"NameVariable","value":"the"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"same"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'A directory named \"\u00261\" exists; cannot create a file with the same name.'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"name"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFileName"}, {"type":"Punctuation","value":")."}, @@ -3214,85 +3151,53 @@ {"type":"Text","value":" "}, {"type":"NameVariable","value":"showHelp"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'CreateDumpDir'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpDir"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, + {"type":"LiteralStringSingle","value":"'CreateDumpDir', cDumpDir).\n IF getRegistry('DataDigger:Help', 'CreateDumpDir:answer') \u003c\u003e '1' THEN\n DO:\n pcError = 'Aborted by user.'.\n RETURN.\n END.\n END.\n\n /* Try to create path + file. Progress will not raise an error if it already exists */\n cDirToCreate = ENTRY(1,cDumpDir,'\\').\n DO iDir = 2 TO NUM-ENTRIES(cDumpDir,'\\').\n\n /* In which dir do we want to create a subdir? */\n IF iDir = 2 THEN\n FILE-INFO:FILE-NAME = cDirToCreate + '\\'.\n ELSE\n FILE-INFO:FILE-NAME = cDirToCreate.\n\n /* Does it even exist? */\n IF FILE-INFO:FULL-PATHNAME = ? THEN\n DO:\n pcError = SUBSTITUTE('"}, + {"type":"NameVariable","value":"Directory"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'CreateDumpDir:answer'"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"does"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'1'"}, + {"type":"KeywordReserved","value":"not"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"exist"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcError"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Aborted by user.'"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Error: \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcError"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Try to create path + file. Progress will not raise an error if it already exists */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cDirToCreate"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cDumpDir,"}, - {"type":"LiteralStringSingle","value":"'\\').\n DO iDir = 2 TO NUM-ENTRIES(cDumpDir,'"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"').\n\n /* In which dir do we want to create a subdir? */\n IF iDir = 2 THEN\n FILE-INFO:FILE-NAME = cDirToCreate + '"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"'.\n ELSE\n FILE-INFO:FILE-NAME = cDirToCreate.\n\n /* Does it even exist? */\n IF FILE-INFO:FULL-PATHNAME = ? THEN\n DO:\n pcError = SUBSTITUTE('"}, - {"type":"NameVariable","value":"Directory"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u00261\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"does"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Check if the dir is writable */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"not"}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-TYPE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"exist"}, - {"type":"Punctuation","value":"."}, - {"type":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Check if the dir is writable */\n IF FILE-INFO:FILE-TYPE MATCHES '"}, - {"type":"Operator","value":"*"}, - {"type":"KeywordReserved","value":"X"}, - {"type":"Operator","value":"*"}, - {"type":"LiteralStringSingle","value":"' /* Happens on CD-ROM drives */\n OR ( FILE-INFO:FILE-TYPE MATCHES '"}, - {"type":"Operator","value":"*"}, - {"type":"NameVariable","value":"D"}, - {"type":"Operator","value":"*"}, - {"type":"LiteralStringSingle","value":"'\n AND NOT FILE-INFO:FILE-TYPE MATCHES '"}, - {"type":"Operator","value":"*"}, - {"type":"NameVariable","value":"W"}, - {"type":"Operator","value":"*"}, - {"type":"LiteralStringSingle","value":"' ) THEN\n DO:\n pcError = SUBSTITUTE('"}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringSingle","value":"'*X*' /* Happens on CD-ROM drives */\n OR ( FILE-INFO:FILE-TYPE MATCHES '*D*'\n AND NOT FILE-INFO:FILE-TYPE MATCHES '*W*' ) THEN\n DO:\n pcError = SUBSTITUTE('"}, {"type":"KeywordReserved","value":"No"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"write"}, @@ -3305,22 +3210,50 @@ {"type":"Punctuation","value":":"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261\""}, - {"type":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Seems to exist and to be writable. */\n cDirToCreate = cDirToCreate + '"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"' + ENTRY(iDir,cDumpDir,'"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"').\n\n /* If a file already exists with the same name, we cannot create a dir */\n FILE-INFO:FILE-NAME = cDirToCreate.\n IF FILE-INFO:FILE-TYPE MATCHES '"}, - {"type":"Operator","value":"*"}, - {"type":"NameVariable","value":"F"}, - {"type":"Operator","value":"*"}, - {"type":"LiteralStringSingle","value":"' THEN\n DO:\n pcError = SUBSTITUTE('"}, - {"type":"NameVariable","value":"A"}, + {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"file"}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"named"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u00261\""}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Error: \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcError"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Seems to exist and to be writable. */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'\\' + ENTRY(iDir,cDumpDir,'\\').\n\n /* If a file already exists with the same name, we cannot create a dir */\n FILE-INFO:FILE-NAME = cDirToCreate.\n IF FILE-INFO:FILE-TYPE MATCHES '*F*' THEN\n DO:\n pcError = SUBSTITUTE('"}, + {"type":"NameVariable","value":"A"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"file"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"named"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"exists"}, {"type":"NameVariable","value":";"}, @@ -3341,304 +3274,358 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"name"}, {"type":"Punctuation","value":"."}, - {"type":"LiteralStringSingle","value":"', cDirToCreate).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END.\n\n /* Create the dir. Creating an existing dir gives no error */\n OS-CREATE-DIR value(cDirToCreate).\n IF OS-ERROR \u003c\u003e 0 THEN\n DO:\n pcError = getOsErrorDesc(OS-ERROR).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Error: \u00261\", pcError)).\n RETURN.\n END. /* error */\n\n END. /* iDir */\n\nEND PROCEDURE. /* checkDir */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearColorCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearColorCache Procedure\nPROCEDURE clearColorCache :\n/* Clear the registry cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing color cache\")).\n EMPTY TEMP-TABLE ttColor.\n\nEND PROCEDURE. /* clearColorCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearDiskCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearDiskCache Procedure\nPROCEDURE clearDiskCache :\n/* Clear the cache files on disk\n */\n DEFINE VARIABLE cFile AS CHARACTER NO-UNDO EXTENT 3.\n\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing disk cache\")).\n\n FILE-INFORMATION:FILE-NAME = getWorkFolder() + \"cache\".\n IF FILE-INFORMATION:FULL-PATHNAME = ? THEN RETURN.\n\n INPUT FROM OS-DIR(FILE-INFORMATION:FULL-PATHNAME).\n REPEAT:\n IMPORT cFile.\n IF cFile[1] MATCHES \"*.xml\" THEN OS-DELETE VALUE( cFile[2]).\n END.\n INPUT CLOSE.\n\nEND PROCEDURE. /* clearDiskCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearFontCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearFontCache Procedure\nPROCEDURE clearFontCache :\n/* Clear the font cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing font cache\")).\n EMPTY TEMP-TABLE ttFont.\n\nEND PROCEDURE. /* clearFontCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearMemoryCache Procedure\nPROCEDURE clearMemoryCache :\n/* Clear the memory cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing memory cache\")).\n EMPTY TEMP-TABLE ttFieldCache.\n\nEND PROCEDURE. /* clearMemoryCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearRegistryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearRegistryCache Procedure\nPROCEDURE clearRegistryCache :\n/* Clear the registry cache\n */\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Clearing registry cache\")).\n EMPTY TEMP-TABLE ttConfig.\n\nEND PROCEDURE. /* clearRegistryCache */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-collectQueryInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE collectQueryInfo Procedure\nPROCEDURE collectQueryInfo :\n/* Fill the query temp-table\n */\n DEFINE INPUT PARAMETER pcDatabase AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcTable AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE iMaxQueryHistory AS INTEGER NO-UNDO.\n DEFINE VARIABLE iQueryNr AS INTEGER NO-UNDO.\n DEFINE VARIABLE iLoop AS INTEGER NO-UNDO.\n DEFINE VARIABLE cSetting AS CHARACTER NO-UNDO.\n\n DEFINE BUFFER bQuery FOR ttQuery.\n {\u0026timerStart}\n\n /* Delete all known queries in memory of this table */\n FOR EACH bQuery\n WHERE bQuery.cDatabase = pcDatabase\n AND bQuery.cTable = pcTable:\n DELETE bQuery.\n END.\n\n iMaxQueryHistory = INTEGER(getRegistry(\"DataDigger\", \"MaxQueryHistory\" )).\n IF iMaxQueryHistory = 0 THEN RETURN. /* no query history wanted */\n\n /* If it is not defined use default setting */\n IF iMaxQueryHistory = ? THEN iMaxQueryHistory = 10.\n\n collectQueries:\n DO iLoop = 1 TO iMaxQueryHistory:\n cSetting = getRegistry( SUBSTITUTE(\"DB:\u00261\", pcDatabase)\n , SUBSTITUTE('"}, - {"type":"CommentPreproc","value":"\u00261:query:\u00262', pcTable, iLoop ))."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'\u003cEmpty\u003e'"}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Error: \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"collectQueries"}, + {"type":"NameVariable","value":"pcError"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"CommentMultiline","value":"/* Create the dir. Creating an existing dir gives no error */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"OS-CREATE-DIR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"KeywordReserved","value":"value"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cDirToCreate"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OS-ERROR "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcError"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTable"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"getOsErrorDesc"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"OS-ERROR"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cQueryTxt"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Error: \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"NameVariable","value":"pcError"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"collectQueries"}, - {"type":"Punctuation","value":"."}, + {"type":"CommentMultiline","value":"/* error */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* 1 .. MaxQueryHistory */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* iDir */"}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* collectQueryInfo */"}, + {"type":"CommentMultiline","value":"/* checkDir */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-correctFilterList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE correctFilterList Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearColorCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearColorCache Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"correctFilterList"}, + {"type":"NameVariable","value":"clearColorCache"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Move negative entries from positive list to negative\n */"}, + {"type":"CommentMultiline","value":"/* Clear the registry cache\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcPositive"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Clearing color cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"ttColor"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* clearColorCache */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearDiskCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearDiskCache Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"clearDiskCache"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Clear the cache files on disk\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcNegative"}, + {"type":"NameVariable","value":"cFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"EXTENT"}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWord"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Clearing disk cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FILE-INFORMATION"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralStringDouble","value":"\"cache\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Strip entries that start with a ! */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcPositive,"}, - {"type":"LiteralStringDouble","value":"\"!\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"FILE-INFORMATION"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FULL-PATHNAME "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"FROM"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OS-DIR"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"FILE-INFORMATION"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FULL-PATHNAME"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWord"}, + {"type":"KeywordReserved","value":"IMPORT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cFile"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFile["}, {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"]"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringDouble","value":"\"*.xml\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcPositive"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iWord,pcPositive"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS "}, - {"type":"LiteralStringDouble","value":"\"!\""}, + {"type":"KeywordReserved","value":"OS-DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"VALUE"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Add this word to the negative-list */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcNegative"}, + {"type":"NameVariable","value":"cFile["}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":"]"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"CLOSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcNegative"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"CommentMultiline","value":"/* clearDiskCache */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearFontCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearFontCache Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"','"}, + {"type":"NameVariable","value":"clearFontCache"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Clear the font cache\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iWord,pcPositive"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'!'"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* And wipe it from the positive-list */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iWord,pcPositive"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralStringDouble","value":"\"Clearing font cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"ttFont"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Remove empty elements */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcPositive"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* clearFontCache */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearMemoryCache Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcPositive,"}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"NameVariable","value":"clearMemoryCache"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Clear the memory cache\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcPositive,"}, - {"type":"LiteralStringSingle","value":"',,'"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Clearing memory cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcPositive"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"ttFieldCache"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* clearMemoryCache */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-clearRegistryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE clearRegistryCache Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"clearRegistryCache"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Clear the registry cache\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcPositive,"}, - {"type":"LiteralStringSingle","value":"',,'"}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Clearing registry cache\""}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"EMPTY"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, @@ -3646,30 +3633,45 @@ {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* correctFilterList */"}, + {"type":"CommentMultiline","value":"/* clearRegistryCache */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-createFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE createFolder Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-collectQueryInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE collectQueryInfo Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"createFolder"}, + {"type":"NameVariable","value":"collectQueryInfo"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Create a folder structure\n */"}, + {"type":"CommentMultiline","value":"/* Fill the query temp-table\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFolder"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -3678,11 +3680,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iElement"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -3691,459 +3693,305 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cPath"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* c:\\temp\\somefolder\\subfolder\\ */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iElement"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"iLoop"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFolder,"}, - {"type":"LiteralStringSingle","value":"'\\'):\n cPath = SUBSTITUTE('"}, - {"type":"CommentPreproc","value":"\u00261\\\u00262', cPath, ENTRY(iElement,pcFolder,'\\'))."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cPath"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cSetting"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEFT-TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cPath,"}, - {"type":"LiteralStringSingle","value":"'\\').\n\n IF iElement \u003e 1 THEN OS-CREATE-DIR VALUE(cPath).\n END.\n\nEND PROCEDURE. /* createFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dumpRecord) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dumpRecord Procedure\nPROCEDURE dumpRecord :\n/* Dump the record(s) to disk\n */\n DEFINE INPUT PARAMETER pcAction AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER phSource AS HANDLE NO-UNDO.\n DEFINE OUTPUT PARAMETER plContinue AS LOGICAL NO-UNDO.\n\n DEFINE VARIABLE hExportTT AS HANDLE NO-UNDO.\n DEFINE VARIABLE hExportTtBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cError AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iRow AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDefaultDump AS LOGICAL NO-UNDO.\n\n IF NOT VALID-HANDLE(phSource) THEN RETURN.\n\n /* Protect against wrong input */\n IF LOOKUP(pcAction,'"}, - {"type":"KeywordReserved","value":"Dump"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"Create"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"Update"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"Delete"}, - {"type":"LiteralStringSingle","value":"') = 0 THEN\n DO:\n MESSAGE '"}, - {"type":"NameVariable","value":"Unknown"}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"action"}, - {"type":"LiteralStringSingle","value":"' pcAction VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.\n RETURN.\n END.\n\n /* Determine appropriate buffer and populate an intermediate tt\n * with the data to export\n */\n CASE phSource:TYPE:\n WHEN '"}, - {"type":"KeywordReserved","value":"buffer"}, - {"type":"LiteralStringSingle","value":"' THEN\n DO:\n hBuffer = phSource.\n\n /* Create temptable-handle... */\n CREATE TEMP-TABLE hExportTt.\n hExportTt:CREATE-LIKE(SUBSTITUTE(\"\u00261.\u00262\", hBuffer:DBNAME, hBuffer:TABLE)).\n\n /* Prepare the TempTable... */\n hExportTt:TEMP-TABLE-PREPARE(SUBSTITUTE(\"\u00261\", hBuffer:TABLE)).\n hExportTtBuffer = hExportTt:DEFAULT-BUFFER-HANDLE.\n hExportTtBuffer:BUFFER-CREATE().\n hExportTtBuffer:BUFFER-COPY(hBuffer).\n END.\n\n WHEN '"}, - {"type":"KeywordReserved","value":"browse"}, - {"type":"LiteralStringSingle","value":"' THEN\n DO:\n hBuffer = phSource:QUERY:GET-BUFFER-HANDLE(1).\n\n /* Create temptable-handle... */\n CREATE TEMP-TABLE hExportTt.\n hExportTt:CREATE-LIKE(SUBSTITUTE(\"\u00261.\u00262\", hBuffer:DBNAME, hBuffer:TABLE)).\n\n /* Prepare the TempTable... */\n hExportTt:TEMP-TABLE-PREPARE(SUBSTITUTE(\"\u00261\", hBuffer:TABLE)).\n hExportTtBuffer = hExportTt:DEFAULT-BUFFER-HANDLE.\n\n /* Copy the records */\n DO iRow = 1 TO phSource:NUM-SELECTED-ROWS:\n phSource:FETCH-SELECTED-ROW(iRow).\n hExportTtBuffer:BUFFER-CREATE().\n hExportTtBuffer:BUFFER-COPY(hBuffer).\n END.\n END.\n\n OTHERWISE RETURN.\n END CASE.\n\n /* Do we need to dump at all?\n * If the setting=NO or if no setting at all, then don'"}, - {"type":"NameVariable","value":"t"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"do"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"any"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"checks"}, - {"type":"Text","value":"\n "}, - {"type":"Operator","value":"*/"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, + {"type":"NameVariable","value":"ttQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Delete all known queries in memory of this table */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Dump'"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Backup'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'BackupOn'"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OR"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"logical"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Backup'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'BackupOn'"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Punctuation","value":"))"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO\n "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"NameVariable","value":"pcTable"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plContinue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Determine the default name to save to */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getDumpFileName"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Dump | Create | Update | Delete */"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordType","value":"INTEGER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DBNAME\n "}, - {"type":"NameVariable","value":","}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TABLE\n "}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringDouble","value":"\"XML\""}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, + {"type":"CommentMultiline","value":"/* no query history wanted */"}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"checkDir"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cError"}, - {"type":"Punctuation","value":")."}, + {"type":"CommentMultiline","value":"/* If it is not defined use default setting */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cError"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"MESSAGE"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cError"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VIEW-AS"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ALERT-BOX"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INFORMATION"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUTTONS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OK"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"10"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Fix XML Node Names for fields in the tt */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setXmlNodeNames"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hExportTt"}, + {"type":"NameVariable","value":"collectQueries"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* See if the user has specified his own dump program\n */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"plContinue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* To see if it ran or not */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"customDump\""}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"iLoop"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DBNAME\n "}, - {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TABLE\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hExportTt"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'\u00261:query:\u00262', pcTable, iLoop )).\n\n IF cSetting = '\u003cEmpty\u003e'"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDefaultDump"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plContinue"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"collectQueries"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plContinue"}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MESSAGE"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VIEW-AS"}, + {"type":"NameVariable","value":"iQueryNr"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ALERT-BOX"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INFORMATION"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUTTONS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OK"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDefaultDump"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plContinue"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"plContinue"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hExportTT"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WRITE-XML\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'file'"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* TargetType */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* File */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES "}, - {"type":"CommentMultiline","value":"/* Formatted */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Encoding */"}, + {"type":"NameVariable","value":"cSetting"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* SchemaLocation */"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO "}, - {"type":"CommentMultiline","value":"/* WriteSchema */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"LEAVE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO "}, - {"type":"CommentMultiline","value":"/* MinSchema */"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"collectQueries"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DELETE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hExportTt"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* 1 .. MaxQueryHistory */"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* dumpRecord */"}, + {"type":"CommentMultiline","value":"/* collectQueryInfo */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dynamicDump) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dynamicDump Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-correctFilterList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE correctFilterList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"dynamicDump"}, + {"type":"NameVariable","value":"correctFilterList"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Dump the data to a file that is similar to those of Progress self.\n */"}, + {"type":"CommentMultiline","value":"/* Move negative entries from positive list to negative\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pihBrowse"}, + {"type":"NameVariable","value":"pcPositive"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"picFile"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcNegative"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, @@ -4155,176 +4003,237 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTimeStamp"}, + {"type":"NameVariable","value":"iWord"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Strip entries that start with a ! */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcPositive,"}, + {"type":"LiteralStringDouble","value":"\"!\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EXTENT"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"iWord"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcPositive"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iWord,pcPositive"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"BEGINS "}, + {"type":"LiteralStringDouble","value":"\"!\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Add this word to the negative-list */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcNegative"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcNegative"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"LiteralStringSingle","value":"',' + TRIM(ENTRY(iWord,pcPositive),'!'),',').\n\n /* And wipe it from the positive-list */\n ENTRY(iWord,pcPositive) = ''.\n END.\n END.\n\n /* Remove empty elements */\n pcPositive = TRIM(pcPositive,',').\n REPEAT WHILE INDEX(pcPositive,',,') \u003e 0:\n pcPositive = REPLACE(pcPositive,',,',',').\n END.\n END.\n\nEND PROCEDURE. /* correctFilterList */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-createFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE createFolder Procedure\nPROCEDURE createFolder :\n/* Create a folder structure\n */\n DEFINE INPUT PARAMETER pcFolder AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE iElement AS INTEGER NO-UNDO.\n DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.\n\n /* c:\\temp\\somefolder\\subfolder\\ */\n DO iElement = 1 TO NUM-ENTRIES(pcFolder,'\\'):\n cPath = SUBSTITUTE('\u00261\\\u00262', cPath, ENTRY(iElement,pcFolder,'\\')).\n cPath = LEFT-TRIM(cPath,'\\').\n\n IF iElement \u003e 1 THEN OS-CREATE-DIR VALUE(cPath).\n END.\n\nEND PROCEDURE. /* createFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dumpRecord) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dumpRecord Procedure\nPROCEDURE dumpRecord :\n/* Dump the record(s) to disk\n */\n DEFINE INPUT PARAMETER pcAction AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER phSource AS HANDLE NO-UNDO.\n DEFINE OUTPUT PARAMETER plContinue AS LOGICAL NO-UNDO.\n\n DEFINE VARIABLE hExportTT AS HANDLE NO-UNDO.\n DEFINE VARIABLE hExportTtBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.\n DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cError AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iRow AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDefaultDump AS LOGICAL NO-UNDO.\n\n IF NOT VALID-HANDLE(phSource) THEN RETURN.\n\n /* Protect against wrong input */\n IF LOOKUP(pcAction,'Dump,Create,Update,Delete') = 0 THEN\n DO:\n MESSAGE 'Unknown action' pcAction VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.\n RETURN.\n END.\n\n /* Determine appropriate buffer and populate an intermediate tt\n * with the data to export\n */\n CASE phSource:TYPE:\n WHEN 'buffer'"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBack"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hBuffer"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"phSource"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Create temptable-handle... */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"CREATE-LIKE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261.\u00262\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DBNAME"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Prepare the TempTable... */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TEMP-TABLE-PREPARE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRecords"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"BUFFER-CREATE"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"WHEN "}, + {"type":"LiteralStringSingle","value":"'browse'"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hBuffer"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iTrailer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"phSource"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Create temptable-handle... */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"CREATE-LIKE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261.\u00262\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFirst"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DBNAME"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Prepare the TempTable... */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TEMP-TABLE-PREPARE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pihBrowse"}, + {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Accept max 5 buffers for a query */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Copy the records */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBuffer"}, + {"type":"NameVariable","value":"iRow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, @@ -4332,753 +4241,562 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"min"}, + {"type":"NameVariable","value":"phSource"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NUM-SELECTED-ROWS"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"phSource"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FETCH-SELECTED-ROW"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"NameVariable","value":"iRow"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-BUFFERS"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hBuffer[iBuffer]"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"KeywordReserved","value":"BUFFER-CREATE"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hExportTtBuffer"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iBuffer"}, + {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"OTHERWISE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"CASE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"CommentMultiline","value":"/* Do we need to dump at all?\n * If the setting=NO or if no setting at all, then don't do any checks\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'Dump'\n AND ( getRegistry('DataDigger:Backup','BackupOn' + pcAction) = ?\n OR logical(getRegistry('DataDigger:Backup','BackupOn'"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRecords"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"KeywordReserved","value":"NO\n "}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cTimeStamp"}, + {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"YEAR"}, + {"type":"KeywordReserved","value":"YES"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Determine the default name to save to */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"getDumpFileName"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* Dump | Create | Update | Delete */"}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"9999\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"/\""}, + {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"string"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"MONTH"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"DBNAME\n "}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"99\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"/\""}, + {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"TABLE\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"string"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"DAY"}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"LiteralStringDouble","value":"\"XML\""}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"99\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"-\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"string"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TIME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, + {"type":"NameVariable","value":"cFileName"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-FIRST"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Open outputfile */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"to"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"value"}, + {"type":"NameVariable","value":"checkDir"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"picFile"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"no-echo"}, + {"type":"NameVariable","value":"cFileName,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"no-map"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"EXPORT "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cError"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iBack"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cError"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"seek"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"output"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SEEK"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"MESSAGE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"cError"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"KeywordReserved","value":"VIEW-AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ALERT-BOX"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INFORMATION"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BUTTONS"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OK"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, + {"type":"CommentMultiline","value":"/* Fix XML Node Names for fields in the tt */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"setXmlNodeNames"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OFF-END\n "}, + {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* See if the user has specified his own dump program\n */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ON"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STOP"}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNDO"}, + {"type":"CommentMultiline","value":"/* To see if it ran or not */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"customDump\""}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRecords"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DBNAME\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRecords"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"hExportTt"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lFirst"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PROCESS"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EVENTS"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"browseColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, + {"type":"NameVariable","value":"cFileName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"cMessage"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pihBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-COLUMNS"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Grab the handle */"}, + {"type":"NameVariable","value":"lDefaultDump"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pihBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iColumn"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Skip invisible columns */"}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"browseColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Find the buffer the column belongs to */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"SearchLoop"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBuffer"}, + {"type":"NameVariable","value":"cMessage"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordReserved","value":"MESSAGE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, + {"type":"NameVariable","value":"cMessage"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VIEW-AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer[iBuffer]"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"ALERT-BOX"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"INFORMATION"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BUTTONS"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OK"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ERROR-STATUS"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"ERROR "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE\n "}, + {"type":"NameVariable","value":"lDefaultDump"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"SearchLoop"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no column found, something weird happened */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"hExportTT"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WRITE-XML\n "}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT"}, + {"type":"LiteralStringSingle","value":"'file'"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* TargetType */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"browseColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"cFileName"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* File */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DATA-TYPE "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"YES "}, + {"type":"CommentMultiline","value":"/* Formatted */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"recid\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, + {"type":"NameVariable","value":"?"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* Encoding */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"?"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* SchemaLocation */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT"}, + {"type":"KeywordReserved","value":"NO "}, + {"type":"CommentMultiline","value":"/* WriteSchema */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"browseColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"NO "}, + {"type":"CommentMultiline","value":"/* MinSchema */"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFirst"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"hExportTt"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFirst"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* dumpRecord */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-dynamicDump) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE dynamicDump Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"NameVariable","value":"dynamicDump"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SEEK"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Dump the data to a file that is similar to those of Progress self.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"seek"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"output"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"pihBrowse"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBack"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CONTROL "}, - {"type":"LiteralStringSingle","value":"' '"}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"EXTENT "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"picFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iExtent"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"cTimeStamp"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"EXTENT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iExtent"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SEEK"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"EXTENT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"LiteralNumberInteger","value":"5"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEEK"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iBack"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CONTROL "}, - {"type":"LiteralStringSingle","value":"' '"}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"EXPORT"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EXPORT"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-NEXT"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Add a checksum and nr of records at the end of the file.\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iTrailer"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEEK"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED\n "}, - {"type":"LiteralStringDouble","value":"\"PSC\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"filename=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer["}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":"]"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TABLE\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"records=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iRecords,"}, - {"type":"LiteralStringDouble","value":"\"9999999999999\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"ldbname=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer["}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":"]"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DBNAME\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"timestamp=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTimeStamp"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"numformat=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASC"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SESSION"}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"NUMERIC"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"SEPARATOR"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASC"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SESSION"}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"NUMERIC"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"DECIMAL"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"POINT"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"dateformat=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SESSION"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DATE-FORMAT "}, - {"type":"LiteralStringDouble","value":"\"-\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SESSION"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"YEAR-OFFSET\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"map=NO-MAP\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\"cpstream=\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SESSION"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"CPSTREAM\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iTrailer,"}, - {"type":"LiteralStringDouble","value":"\"9999999999\""}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"u"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CLOSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* dynamicDump */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-flushRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE flushRegistry Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"flushRegistry"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Flush all dirty registry settings to disk\n*/"}, {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glDirtyCache"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"iBack"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveConfigFileSorted"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* flushRegistry */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnSort) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getColumnSort Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"iBuffer"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getColumnSort"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Return the column nr the browse is sorted on\n */"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, + {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcColumn"}, + {"type":"NameVariable","value":"iExtent"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iRecords"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iTrailer"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -5087,23 +4805,29 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lFirst"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#BrowseColumns"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pihBrowse"}, {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Accept max 5 buffers for a query */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, + {"type":"NameVariable","value":"iBuffer"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, @@ -5111,5930 +4835,4192 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"KeywordReserved","value":"min"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"5"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NUM-BUFFERS"}, + {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"NameVariable","value":"hBuffer[iBuffer]"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iColumn"}, + {"type":"NameVariable","value":"iBuffer"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SORT-ASCENDING "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcColumn"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SORT-ASCENDING\n "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#BrowseColumns"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcColumn"}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iRecords"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cTimeStamp"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcColumn"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"YEAR"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"name\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"9999\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"LiteralStringDouble","value":"\"/\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"string"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"KeywordReserved","value":"MONTH"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Sorting \u00261 on \u00262\""}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"99\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"/\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"string"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"plAscending,"}, - {"type":"LiteralStringDouble","value":"\"up/down\""}, + {"type":"KeywordReserved","value":"DAY"}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TODAY"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"99\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcColumn"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getColumnSort */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getDumpFileName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getDumpFileName Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getDumpFileName"}, + {"type":"LiteralStringDouble","value":"\"-\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"string"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TIME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Return a file name based on a template\n */"}, + {"type":"NameVariable","value":"u"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-FIRST"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Open outputfile */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"to"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"value"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"picFile"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"no-echo"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"no-map"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"EXPORT "}, + {"type":"NameVariable","value":"?"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"NameVariable","value":"iBack"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"seek"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"output"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SEEK"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcExtension"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"WHILE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OFF-END\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"ON"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"STOP"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTemplate"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"UNDO"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"LEAVE"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"iRecords"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"iRecords"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lFirst"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"TRUE\n "}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLastDir"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PROCESS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"EVENTS"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"browseColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDayOfWeek"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EXTENT"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"7"}, + {"type":"NameVariable","value":"pihBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Grab the handle */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INITIAL "}, - {"type":"NameVariable","value":"["}, - {"type":"LiteralStringSingle","value":"'Sun'"}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Mon'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pihBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iColumn"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Skip invisible columns */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Tue'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Wed'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Thu'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Fri'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Sat'"}, - {"type":"NameVariable","value":"]"}, + {"type":"NameVariable","value":"browseColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Find the buffer the column belongs to */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"SearchLoop"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"iBuffer"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"LiteralNumberInteger","value":"5"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpDir"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"hField"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hBuffer[iBuffer]"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"BUFFER-FIELD"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NAME"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"ERROR-STATUS"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"ERROR "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cBackupDir"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"FALSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"hField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"LEAVE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"SearchLoop"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If no column found, something weird happened */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"hField"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserId"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Checks */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LOOKUP"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcAction,"}, + {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"Dump,Create,Update,Delete\""}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"browseColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DATA-TYPE "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"LiteralStringDouble","value":"\"recid\""}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"MESSAGE "}, - {"type":"LiteralStringSingle","value":"'Unknown action'"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VIEW-AS"}, + {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ALERT-BOX"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"browseColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If not provided, find the template from the settings,\n * depending on the action we want to perform.\n */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTemplate"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"lFirst"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTemplate"}, + {"type":"NameVariable","value":"lFirst"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SEEK"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Dump'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DumpAndLoad\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"DumpFileTemplate\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"BackupFileTemplate\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTemplate"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Dump to: \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Dump dir / backup dir / last-used dir from settings */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cDumpDir"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RIGHT-TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DumpAndLoad\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"DumpDir\""}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'/\\') + '"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"'.\n IF cDumpDir = ? OR cDumpDir = '' THEN cDumpDir = \"\u003cWORKDIR\u003edump\\\".\n\n cBackupDir = RIGHT-TRIM(getRegistry(\"DataDigger:Backup\", \"BackupDir\"),'"}, - {"type":"Operator","value":"/"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"') + '"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"'.\n IF cBackupDir = ? OR cBackupDir = '' THEN cBackupDir = \"\u003cWORKDIR\u003ebackup\\\".\n\n cLastDir = RIGHT-TRIM(getRegistry(\"DumpAndLoad\", \"DumpLastFileName\"),'"}, - {"type":"Operator","value":"/"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"').\n cLastDir = SUBSTRING(cLastDir,1,R-INDEX(cLastDir,\"\\\")).\n IF cLastDir = ? THEN cLastDir = \"\u003cWORKDIR\u003edump\".\n cLastDir = RIGHT-TRIM(cLastDir,'"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"').\n\n /* Find _file for the dump-name */\n CREATE BUFFER hBuffer FOR TABLE SUBSTITUTE('"}, - {"type":"CommentPreproc","value":"\u00261._file', pcDatabase) NO-ERROR."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALID-HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FIND-UNIQUE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'where _file-name = \u00261 and _File._File-Number \u003c 32768'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUOTER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":"))"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"NO-LOCK"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"AVAILABLE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBuffer"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_dump"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"name"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If you have no db connected, userid gives back unknown value\n * which misbehaves in a replace statement */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cUserId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"USERID"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DumpDir : \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpDir"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"BackupDir: \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cBackupDir"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"LastDir : \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLastDir"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DumpName : \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Now resolve all tags */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpDir"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cBackupDir"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cLASTDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLastDir"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cPROGDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cACTION\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcAction"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cUSERID\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserId"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDB\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cTABLE\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDUMPNAME\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDumpName"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cEXT\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcExtension"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cTIMESTAMP\u003e\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\u003cMONTH\u003e\u003cDAY\u003e.\u003cHH\u003e\u003cMM\u003e\u003cSS\u003e\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDATE\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e-\u003cMONTH\u003e-\u003cDAY\u003e\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cTIME\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u003cHH\u003e:\u003cMM\u003e:\u003cSS\u003e\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cWEEKDAY\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"WEEKDAY"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDAYNAME\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDayOfWeek["}, - {"type":"KeywordReserved","value":"WEEKDAY"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"today"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"YEAR "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"9999\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cMONTH\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"MONTH"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"99\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cDAY\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"DAY "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TODAY"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"99\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cHH\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TIME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\":\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cMM\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TIME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\":\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringDouble","value":"\"\u003cSS\u003e\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"TIME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\":\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get rid of annoying slashes */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFileName,"}, - {"type":"LiteralStringSingle","value":"'/\\').\n\n /* Get rid of double slashes (except at the beginning for UNC paths) */\n pcFileName = SUBSTRING(pcFileName,1,1) + REPLACE(SUBSTRING(pcFileName,2),'"}, - {"type":"NameVariable","value":"\\\\"}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"').\n\n /* Sequences */\n pcFileName = resolveSequence(pcFileName).\n\n /* OS-vars */\n pcFileName = resolveOsVars(pcFileName).\n\n /* Make lower */\n pcFileName = LC(pcFileName).\n PUBLISH \"debugInfo\" (3, SUBSTITUTE(\"Dump to: \u00261\", pcFileName)).\n\nEND PROCEDURE. /* getDumpFileName */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFavourites) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFavourites Procedure\nPROCEDURE getFavourites :\n/* Extract favourites from config table into own tt\n*/\n DEFINE OUTPUT PARAMETER TABLE FOR ttFavGroup.\n\n DEFINE BUFFER bfConfig FOR ttConfig.\n DEFINE BUFFER btFavGroup FOR ttFavGroup.\n\n EMPTY TEMP-TABLE ttFavGroup.\n\n FOR EACH bfConfig\n WHERE bfConfig.cSection = '"}, - {"type":"NameVariable","value":"DataDigger"}, - {"type":"Punctuation","value":":"}, - {"type":"NameVariable","value":"Favourites"}, - {"type":"LiteralStringSingle","value":"'\n AND bfConfig.cSetting \u003e \"\":\n\n CREATE btFavGroup.\n ASSIGN\n btFavGroup.cGroup = bfConfig.cSetting\n btFavGroup.cTables = bfConfig.cValue.\n END.\n\n /* If no groups are found, create a default one */\n IF NOT CAN-FIND(FIRST btFavGroup) THEN\n DO:\n CREATE btFavGroup.\n ASSIGN btFavGroup.cGroup = '"}, - {"type":"NameVariable","value":"MyFavourites"}, - {"type":"LiteralStringSingle","value":"'.\n END.\n\nEND PROCEDURE. /* getFavourites */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFields Procedure\nPROCEDURE getFields :\n/* Fill the fields temp-table\n */\n DEFINE INPUT PARAMETER pcDatabase AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcTableName AS CHARACTER NO-UNDO.\n DEFINE OUTPUT PARAMETER DATASET FOR dsFields.\n\n DEFINE VARIABLE cCacheFile AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cPrimIndexFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cQuery AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cSelectedFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cUniqueIndexFields AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cSDBName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE hBufferField AS HANDLE NO-UNDO.\n DEFINE VARIABLE hBufferFile AS HANDLE NO-UNDO.\n DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.\n DEFINE VARIABLE iFieldExtent AS INTEGER NO-UNDO.\n DEFINE VARIABLE iFieldOrder AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDataField AS LOGICAL NO-UNDO.\n DEFINE VARIABLE iDataOrder AS INTEGER NO-UNDO.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n\n DEFINE BUFFER bTable FOR ttTable.\n DEFINE BUFFER bField FOR ttField.\n DEFINE BUFFER bColumn FOR ttColumn.\n DEFINE BUFFER bFieldCache FOR ttFieldCache.\n DEFINE BUFFER bColumnCache FOR ttColumnCache.\n DEFINE BUFFER bTableFilter FOR ttTableFilter.\n\n {\u0026timerStart}\n\n /* Clean up first */\n EMPTY TEMP-TABLE bField.\n EMPTY TEMP-TABLE bColumn.\n\n /* For dataservers, use the schema name [dataserver] */\n ASSIGN cSDBName = SDBNAME(pcDatabase).\n\n /* Return if no db connected */\n IF NUM-DBS = 0 THEN RETURN.\n\n /* caching */\n IF glCacheFieldDefs THEN\n DO:\n /* Find the table. Should exist. */\n FIND bTable WHERE bTable.cDatabase = pcDatabase AND bTable.cTableName = pcTableName NO-ERROR.\n IF NOT AVAILABLE bTable THEN RETURN.\n\n /* Verify whether the CRC is still the same. If not, kill the cache */\n PUBLISH \"DD:Timer\" (\"start\", '"}, - {"type":"NameVariable","value":"getFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"step"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"verify"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"CRC"}, - {"type":"LiteralStringSingle","value":"').\n CREATE BUFFER hBufferFile FOR TABLE cSDBName + \"._File\".\n\n hBufferFile:FIND-UNIQUE(SUBSTITUTE('"}, - {"type":"KeywordReserved","value":"where"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"_file"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"name"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"CommentPreproc","value":" \u00261 and _File._File-Number \u003c 32768', QUOTER(pcTableName)),NO-LOCK)."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferFile"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_crc"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCrc"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* It seems that it is not possible to refresh the schema cache of the running\n * session. You just have to restart your session.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"File CRC changed, kill cache and build new\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get a fresh list of tables */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTables"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableFilter,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Find the table back. Should exist. */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* First look in the memory-cache */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-FIND"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"FIRST"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Get from memory-cache\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Update with settings from registry */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"updateFields"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* See if disk cache exists */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261cache\\\u00262.xml'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Cachefile: \u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Get from disk cache\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DATASET"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"dsFields"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"READ-XML"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"file\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"empty\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Add to memory cache, so the next time it's even faster */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HAS-RECORDS"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Add to first-level cache\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Update with settings from registry */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"updateFields"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Not found in any cache, build tables...\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/*\n * If we get here, the table either cannot be found in the cache\n * or caching is disabled. Either way, fill the tt with fields\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSDBName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._File\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSDBName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._Field\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUERY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SET-BUFFERS"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hBufferFile,hBufferField"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cQuery"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"FOR EACH \u00261._File WHERE \u00261._file._file-name = '\u00262' AND _File._File-Number \u003c 32768 NO-LOCK, \""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":"\n "}, - {"type":"LiteralStringDouble","value":"\" EACH \u00261._Field OF \u00261._File NO-LOCK BY _ORDER\""}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSDBName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-PREPARE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cQuery"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OPEN"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-FIRST"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get list of fields in primary index. */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cPrimIndexFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getIndexFields"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSDBName,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"P\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get list of fields in all unique indexes. */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cUniqueIndexFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getIndexFields"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSDBName,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"U\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get list of all previously selected fields */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSelectedFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, - {"type":"NameVariable","value":",pcDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261:Fields\""}, - {"type":"NameVariable","value":",pcTableName"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If none selected, set mask to 'all' */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSelectedFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSelectedFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OFF-END"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, + {"type":"KeywordReserved","value":"seek"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"output"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"NameVariable","value":"iBack"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"CONTROL "}, + {"type":"LiteralStringSingle","value":"' ':u.\n END.\n\n IF hField:EXTENT \u003e 1 THEN\n DO iExtent = 1 TO hField:EXTENT:\n IF iExtent \u003e 1 THEN\n DO:\n SEEK OUTPUT TO SEEK(OUTPUT) - iBack.\n PUT CONTROL ' '"}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTablename"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"EXPORT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"NameVariable","value":"hField"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, + {"type":"KeywordReserved","value":"BUFFER-VALUE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_field-name'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"NameVariable","value":"iExtent"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShow"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSelectedFields,"}, + {"type":"KeywordReserved","value":"EXPORT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"NameVariable","value":"hField"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_field-name'"}, - {"type":"Punctuation","value":"):"}, {"type":"KeywordReserved","value":"BUFFER-VALUE"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrderOrg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFullName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_field-name'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"GET-NEXT"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDataType"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Add a checksum and nr of records at the end of the file.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"UNFORMATTED "}, + {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_data-type'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"SKIP"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cInitial"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_initial'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iTrailer"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFormat"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, + {"type":"KeywordReserved","value":"SEEK"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_format'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFormatOrg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"UNFORMATTED\n "}, + {"type":"LiteralStringDouble","value":"\"PSC\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_format'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"filename=\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iWidth"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hBuffer["}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"]"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TABLE\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"records=\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"STRING"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_width'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"iRecords,"}, + {"type":"LiteralStringDouble","value":"\"9999999999999\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"ldbname=\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hBuffer["}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"]"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DBNAME\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"timestamp=\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_label'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lPrimary"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cTimeStamp"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"numformat=\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"KeywordReserved","value":"ASC"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cPrimIndexFields,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SESSION"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Extent'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lMandatory"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"NUMERIC"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"SEPARATOR"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_mandatory'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lUniqueIdx"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"KeywordReserved","value":"ASC"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cUniqueIndexFields,bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, + {"type":"KeywordReserved","value":"SESSION"}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"NUMERIC"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"DECIMAL"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"POINT"}, {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* New fields as per v19 */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cColLabel"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"dateformat=\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SESSION"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Col-label'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"KeywordReserved","value":"DATE-FORMAT "}, + {"type":"LiteralStringDouble","value":"\"-\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iDecimals"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"SESSION"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"YEAR-OFFSET\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"map=NO-MAP\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Decimals'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\"cpstream=\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFieldRpos"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"SESSION"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"CPSTREAM\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, + {"type":"KeywordReserved","value":"SKIP "}, + {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Field-rpos'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"u"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iTrailer,"}, + {"type":"LiteralStringDouble","value":"\"9999999999\""}, + {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"u"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SKIP"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValExp"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_ValExp'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"KeywordReserved","value":"CLOSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValMsg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_ValMsg'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"CommentMultiline","value":"/* dynamicDump */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-flushRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE flushRegistry Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cHelp"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"flushRegistry"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Help'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Flush all dirty registry settings to disk\n*/"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDesc"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_Desc'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cViewAs"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'_View-as'"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"NameVariable","value":"saveConfigFileSorted"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cXmlNodeName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getXmlNodeName"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Make a list of fields on table level */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, + {"type":"CommentMultiline","value":"/* flushRegistry */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getColumnSort) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getColumnSort Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"getColumnSort"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Return the column nr the browse is sorted on\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Some types should not be shown like CLOB BLOB and RAW */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lDataField"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"LOOKUP"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcColumn"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDataType,"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'clob,blob,raw'"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Create TT records for each column to show, except for CLOB / BLOB / RAW */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"plAscending"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDataField"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"LOGICAL "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldExtent"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, + {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#BrowseColumns"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, + {"type":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iDataOrder"}, + {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDataOrder"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iColumn"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SORT-ASCENDING "}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcColumn"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NAME\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"plAscending"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTablename"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SORT-ASCENDING\n "}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#BrowseColumns"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldExtent"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFullName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldExtent"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"NameVariable","value":"pcColumn"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"LiteralStringSingle","value":"''"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"[\u00261]\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldExtent"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iColumnNr"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcColumn"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDataOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"):"}, + {"type":"KeywordReserved","value":"name\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plAscending"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"PUBLISH "}, {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Field \u00261 created\""}, + {"type":"LiteralStringDouble","value":"\"Sorting \u00261 on \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFullName"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"plAscending,"}, + {"type":"LiteralStringDouble","value":"\"up/down\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcColumn"}, {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* For each extent nr */"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"CommentMultiline","value":"/* getColumnSort */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getDumpFileName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getDumpFileName Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"getDumpFileName"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-NEXT"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Return a file name based on a template\n */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-CLOSE"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferField"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hBufferFile"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Fieldlist */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bTable"}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields,"}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Add columns for recid/rowid */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"pcExtension"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"pcTemplate"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCacheId"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTablename"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,"}, - {"type":"LiteralStringDouble","value":"\"RECID,ROWID\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShow"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE\n "}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cLastDir"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrderOrg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFieldOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDayOfWeek"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFullName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDataType"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'character'"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cInitial"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"EXTENT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFormat"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralNumberInteger","value":"7"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,"}, - {"type":"LiteralStringDouble","value":"\"X(20),X(24)\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"INITIAL "}, + {"type":"NameVariable","value":"["}, + {"type":"LiteralStringSingle","value":"'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'"}, + {"type":"NameVariable","value":"]"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFormatOrg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFormat"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bField"}, + {"type":"NameVariable","value":"cDumpName"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lPrimary"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDumpDir"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO\n "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cBackupDir"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iDataOrder"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDataOrder"}, + {"type":"NameVariable","value":"hBuffer"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, + {"type":"NameVariable","value":"cUserId"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableCacheId"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Checks */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"LOOKUP"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcAction,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTablename"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"Dump,Create,Update,Delete\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iExtent"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFullName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFieldName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iColumnNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDataOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"MESSAGE "}, + {"type":"LiteralStringSingle","value":"'Unknown action'"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iOrder"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bColumn"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcAction"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"KeywordReserved","value":"VIEW-AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ALERT-BOX"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLabel"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"}, - {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Update the cache */"}, + {"type":"CommentMultiline","value":"/* If not provided, find the template from the settings,\n * depending on the action we want to perform.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glCacheFieldDefs"}, + {"type":"NameVariable","value":"pcTemplate"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"?"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTemplate"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Add to disk cache */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcAction"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Add to second-level cache.\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DATASET"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"dsFields"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WRITE-XML"}, - {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'Dump'"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"file\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES"}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DumpAndLoad\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"LiteralStringDouble","value":"\"DumpFileTemplate\""}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Add to memory cache */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Add to first-level cache.\""}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, + {"type":"LiteralStringDouble","value":"\"BackupFileTemplate\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFieldCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"pcTemplate"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumn"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColumnCache"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Dump to: \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Update fields with settings from registry */"}, + {"type":"CommentMultiline","value":"/* Dump dir / backup dir / last-used dir from settings */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"NameVariable","value":"cDumpDir"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"updateFields"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase,"}, + {"type":"KeywordReserved","value":"RIGHT-TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DumpAndLoad\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"LiteralStringDouble","value":"\"DumpDir\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringSingle","value":"'/\\') + '\\'.\n IF cDumpDir = ? OR cDumpDir = ''"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTableName,"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"NameVariable","value":"cDumpDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bField"}, - {"type":"Punctuation","value":")."}, + {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\\\""}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cBackupDir"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"RIGHT-TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getFields */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getMouseXY) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getMouseXY Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"LiteralStringDouble","value":"\"BackupDir\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringSingle","value":"'/\\') + '\\'.\n IF cBackupDir = ? OR cBackupDir = ''"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getMouseXY"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Get the position of the mouse relative to the frame\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cBackupDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003ebackup\\\""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"RIGHT-TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DumpAndLoad\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"LiteralStringDouble","value":"\"DumpLastFileName\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringSingle","value":"'/\\'"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"SUBSTRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLastDir,"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"R-INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLastDir,"}, + {"type":"LiteralStringDouble","value":"\"\\\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piMouseX"}, + {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLastDir"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"RIGHT-TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLastDir,"}, + {"type":"LiteralStringSingle","value":"'\\').\n\n /* Find _file for the dump-name */\n CREATE BUFFER hBuffer FOR TABLE SUBSTITUTE('\u00261._file', pcDatabase) NO-ERROR.\n IF VALID-HANDLE(hBuffer) THEN\n DO:\n hBuffer:FIND-UNIQUE(SUBSTITUTE('where _file-name = \u00261 and _File._File-Number \u003c 32768', QUOTER(pcTable)),NO-LOCK).\n IF hBuffer:AVAILABLE THEN\n cDumpName = hBuffer::_dump-name.\n ELSE\n cDumpName = pcTable.\n END.\n ELSE\n cDumpName = pcTable.\n IF cDumpName = ? THEN cDumpName = pcTable.\n\n /* If you have no db connected, userid gives back unknown value\n * which misbehaves in a replace statement */\n cUserId = USERID(LDBNAME(1)).\n IF cUserId = ? THEN cUserId = ''"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piMouseY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DumpDir : \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"NameVariable","value":"cDumpDir"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"BackupDir: \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lp"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"cBackupDir"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"MEMPTR"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"LastDir : \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLastDir"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DumpName : \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDumpName"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Now resolve all tags */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDUMPDIR\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"cDumpDir"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INT64 "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"SET-SIZE"}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cBACKUPDIR\u003e\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"LP"}, + {"type":"NameVariable","value":"cBackupDir"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cLASTDIR\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"cLastDir"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"16"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cPROGDIR\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"GetCursorPos"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"GET-POINTER-VALUE"}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"lp"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003e\""}, + {"type":"Text","value":" "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ScreenToClient"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND"}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cACTION\u003e\""}, + {"type":"Text","value":" "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lp"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcAction"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"piMouseX"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"GET-LONG"}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cUSERID\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lp,"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cUserId"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"piMouseY"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"GET-LONG"}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDB\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lp,"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SET-SIZE"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"LP"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cTABLE\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDUMPNAME\u003e\""}, + {"type":"Text","value":" "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"NameVariable","value":"cDumpName"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Mouse X/Y = \u00261 / \u00262\""}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cEXT\u003e\""}, + {"type":"Text","value":" "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piMouseX,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piMouseY"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"pcExtension"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getMouseXY */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getQueryTable Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cTIMESTAMP\u003e\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getQueryTable"}, + {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\u003cMONTH\u003e\u003cDAY\u003e.\u003cHH\u003e\u003cMM\u003e\u003cSS\u003e\""}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Get the ttQuery table\n * Note: This procedure just returns the table, no further logic needed.\n */"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDATE\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"table"}, + {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e-\u003cMONTH\u003e-\u003cDAY\u003e\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cTIME\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"LiteralStringDouble","value":"\"\u003cHH\u003e:\u003cMM\u003e:\u003cSS\u003e\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getQueryTable */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getRegistryTable Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistryTable"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cWEEKDAY\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Return complete registry tt\n */"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"WEEKDAY"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":"))"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDAYNAME\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cDayOfWeek["}, + {"type":"KeywordReserved","value":"WEEKDAY"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"today"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"]"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getRegistryTable */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTables) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTables Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cYEAR\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTables"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"YEAR "}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"9999\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Fill ttTable with all currently connected databases.\n */"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cMONTH\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"MONTH"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"99\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cDAY\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"DAY "}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TODAY"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"99\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cHH\u003e\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TIME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\":\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbStatusBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cMM\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TIME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\":\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringDouble","value":"\"\u003cSS\u003e\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"TIME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\":\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get rid of annoying slashes */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName,"}, + {"type":"LiteralStringSingle","value":"'/\\').\n\n /* Get rid of double slashes (except at the beginning for UNC paths) */\n pcFileName = SUBSTRING(pcFileName,1,1) + REPLACE(SUBSTRING(pcFileName,2),'\\\\','\\'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Sequences */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheTimeStamp"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"resolveSequence"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* OS-vars */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"resolveOsVars"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Make lower */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheDir"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"LC"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Dump to: \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaCacheFile"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"CommentMultiline","value":"/* getDumpFileName */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFavourites) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFavourites Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"getFavourites"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Extract favourites from config table into own tt\n*/"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cOneCacheFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, + {"type":"NameVariable","value":"btFavGroup"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableXml"}, + {"type":"NameVariable","value":"ttFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Dataserver support can be for:\n *\n * V9: \"PROGRESS,AS400,ORACLE,MSS,ODBC\"\n * V10: \"PROGRESS,ORACLE,MSS,ODBC\" (from V10 no native support for AS400)\n * V11: \"PROGRESS,ORACLE,MSS,ODBC\"\n * V12: \"PROGRESS,ORACLE,MSS\" (from V12 no ODBC support anymore)\n *\n */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WIDGET-POOL "}, - {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"NameVariable","value":"ttFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Database"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-DBS"}, - {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DBTYPE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"PROGRESS\""}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"LiteralStringSingle","value":"'DataDigger:Favourites'"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Database"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Compose name of the cache file. Use date/time of last schema change in the name */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbStatusBuffer"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._DbStatus\""}, + {"type":"NameVariable","value":"btFavGroup"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"IN"}, + {"type":"NameVariable","value":"btFavGroup"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cGroup"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WIDGET-POOL "}, - {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hDbStatusBuffer"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FIND-FIRST"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"NO-LOCK"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheTimeStamp"}, + {"type":"NameVariable","value":"btFavGroup"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTables"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hDbStatusBuffer"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_dbstatus"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"cachestamp,"}, - {"type":"LiteralStringDouble","value":"\" \""}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"_\""}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\":\""}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cCacheFile"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cValue"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If no groups are found, create a default one */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"KeywordReserved","value":"CAN-FIND"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262.\u00263.xml\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, + {"type":"NameVariable","value":"btFavGroup"}, {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheTimeStamp"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbStatusBuffer"}, + {"type":"NameVariable","value":"btFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"btFavGroup"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cGroup"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'MyFavourites'"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If caching enabled and there is a cache file, read it */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"CommentMultiline","value":"/* getFavourites */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getFields Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"getFields"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Fill the fields temp-table\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Get table list from cache file \u00261\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"READ-XML"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"file\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"APPEND\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"DATASET"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cCacheDir"}, + {"type":"NameVariable","value":"dsFields"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u00261cache\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FROM"}, + {"type":"NameVariable","value":"cPrimIndexFields"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OS-DIR"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCacheDir"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"#ReadSchemaCache"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IMPORT"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaCacheFile"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaCacheFile"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"db.\u00261;\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"cQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSchemaCacheFile,"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"cSelectedFields"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaCacheFile,"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cUniqueIndexFields"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCacheFile,"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, + {"type":"NameVariable","value":"cSDBName"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Check timestamp */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cOneCacheFile"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hBufferField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u00261\\\u00262\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheDir,"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaCacheFile"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"READ-XML"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"file\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"hBufferFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cOneCacheFile,"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"APPEND\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CLOSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Otherwise build it */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"NameVariable","value":"iFieldExtent"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ALIAS "}, - {"type":"LiteralStringSingle","value":"'dictdb'"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DATABASE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getSchema"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"p"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"lDataField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"BY"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"REFERENCE"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Save cache file for next time */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Move the tables of the current db to a separate tt so we can dump it. */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"EMPTY"}, + {"type":"NameVariable","value":"iDataOrder"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableXml"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbQuery"}, + {"type":"NameVariable","value":"i"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"IN"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WIDGET-POOL "}, - {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._Db\""}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"IN"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WIDGET-POOL "}, - {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"NameVariable","value":"ttField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SET-BUFFERS"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-PREPARE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"FOR EACH _Db NO-LOCK WHERE _Db._Db-local = TRUE\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OPEN"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#DB"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-NEXT"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OFF-END"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#DB"}, + {"type":"NameVariable","value":"ttColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, + {"type":"NameVariable","value":"ttFieldCache"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_Db"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"slave"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"ttColumnCache"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_Db"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"name"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE"}, + {"type":"NameVariable","value":"bTableFilter"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")):"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Clean up first */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hDbQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-CLOSE"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbQuery"}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* For dataservers, use the schema name [dataserver] */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"NameVariable","value":"cSDBName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hDbBuffer"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableXml"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WRITE-XML"}, + {"type":"KeywordReserved","value":"SDBNAME"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"file\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Return if no db connected */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"NUM-DBS "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"EMPTY"}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* caching */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"NameVariable","value":"glCacheFieldDefs"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableXml"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Support Dataservers */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Find the table. Should exist. */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSchemaHolder"}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BREAK"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST-OF"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cCacheFile"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262;\u00263.\u00264.xml\""}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LDBNAME"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Verify whether the CRC is still the same. If not, kill the cache */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheTimeStamp"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"EMPTY"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"NameVariable","value":"hBufferFile"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BUFFER-COPY"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"cSDBName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"._File\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hBufferFile"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FIND-UNIQUE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'where _file-name = \u00261 and _File._File-Number \u003c 32768'"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LAST-OF"}, + {"type":"KeywordReserved","value":"QUOTER"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcTableName"}, + {"type":"Punctuation","value":"))"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO-LOCK"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hBufferFile"}, + {"type":"Punctuation","value":"::"}, + {"type":"NameVariable","value":"_crc"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"cCrc"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* It seems that it is not possible to refresh the schema cache of the running\n * session. You just have to restart your session.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WRITE-XML"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCacheFile,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"File CRC changed, kill cache and build new\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?,"}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"EMPTY"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTableXml"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* IF LAST-OF */"}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* FOR EACH bTable */"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* IF glCacheTableDefs THEN */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* tt empty */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bColumnCache"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* 1 to num-dbs */"}, - {"type":"Text","value":"\n\n "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WIDGET-POOL "}, - {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Apply filter to collection of tables */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get a fresh list of tables */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTablesFiltered"}, + {"type":"NameVariable","value":"getTables"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter,"}, + {"type":"NameVariable","value":"bTableFilter,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get table properties from the INI file */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTableStats"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Find the table back. Should exist. */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getTables */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTablesFiltered) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTablesFiltered Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTablesFiltered"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Determine whether tables in the ttTable are visible given a user defined filter\n */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSearchFld"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* First look in the memory-cache */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"CAN-FIND"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cThisField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iSearch"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Get from memory-cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lRejected"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFieldFound"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lNormal"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSchema"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bColumnCache"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Update with settings from registry */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"updateFields"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lVst"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSql"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringSingle","value":"'getFields - step 2: check memory cache').\n RETURN.\n END.\n\n /* See if disk cache exists */\n cCacheFile = SUBSTITUTE('\u00261cache\\\u00262.xml'"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lOther"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Cachefile: \u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFrozen"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Get from disk cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DATASET"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"dsFields"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"READ-XML"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameShow"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"LiteralStringDouble","value":"\"empty\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameHide"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Add to memory cache, so the next time it's even faster */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HAS-RECORDS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldShow"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Add to first-level cache\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldHide"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* This table **SHOULD** exist and have exactly 1 record */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"bFieldCache"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lNormal"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowNormal"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lSchema"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"bColumnCache"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSchema"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lVst"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowVst"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lSql"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSql"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lOther"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Update with settings from registry */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowOther"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"updateFields"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowHidden"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lFrozen"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowFrozen"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cNameShow"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameShow"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cNameHide"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameHide"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cFieldShow"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldShow"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cFieldHide"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"LiteralStringSingle","value":"'getFields - step 3: get from disk cache'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldHide"}, {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Not found in any cache, build tables...\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Reset the filters to sane values if needed */"}, + {"type":"CommentMultiline","value":"/*\n * If we get here, the table either cannot be found in the cache\n * or caching is disabled. Either way, fill the tt with fields\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameShow"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameShow"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameShow"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"NameVariable","value":"pcTableName"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameHide"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameHide"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameHide"}, + {"type":"NameVariable","value":"hBufferFile"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"cSDBName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldShow"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"._File\""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"hBufferField"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldShow"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"cSDBName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldShow"}, + {"type":"LiteralStringDouble","value":"\"._Field\""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldHide"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SET-BUFFERS"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hBufferFile,hBufferField"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"FOR EACH \u00261._File WHERE \u00261._file._file-name = '\u00262' AND _File._File-Number \u003c 32768 NO-LOCK, \""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":"\n "}, + {"type":"LiteralStringDouble","value":"\" EACH \u00261._Field OF \u00261._File NO-LOCK BY _ORDER\""}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldHide"}, + {"type":"NameVariable","value":"cSDBName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTableName"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-PREPARE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cQuery"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OPEN"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-FIRST"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get list of fields in primary index. */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cPrimIndexFields"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"getIndexFields"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSDBName,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldHide"}, + {"type":"LiteralStringDouble","value":"\"P\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get list of fields in all unique indexes. */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cUniqueIndexFields"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"getIndexFields"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSDBName,"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTableName,"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"U\""}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Move elements starting with \"!\" from pos-list to neg-list */"}, + {"type":"CommentMultiline","value":"/* Get list of all previously selected fields */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"correctFilterList"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"NameVariable","value":"cSelectedFields"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameShow,"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, + {"type":"NameVariable","value":",pcDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cNameHide"}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261:Fields\""}, + {"type":"NameVariable","value":",pcTableName"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If none selected, set mask to 'all' */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"correctFilterList"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"NameVariable","value":"cSelectedFields"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldShow,"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFieldHide"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"NameVariable","value":"cSelectedFields"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Init table to false until proven otherwise */"}, + {"type":"LiteralStringSingle","value":"'*'.\n\n REPEAT WHILE NOT hQuery:QUERY-OFF-END:\n\n CREATE bField.\n ASSIGN\n iFieldOrder = iFieldOrder + 1\n bField.cTableCacheId = bTable.cCacheId\n bField.cDatabase = pcDatabase\n bField.cTablename = pcTableName\n bField.cFieldName = hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE\n\n bField.lShow = CAN-DO(cSelectedFields, hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE)\n bField.iOrder = iFieldOrder\n bField.iOrderOrg = iFieldOrder\n\n bField.cFullName = hBufferField:BUFFER-FIELD('_field-name'):BUFFER-VALUE\n bField.cDataType = hBufferField:BUFFER-FIELD('_data-type'):BUFFER-VALUE\n bField.cInitial = hBufferField:BUFFER-FIELD('_initial'):BUFFER-VALUE\n bField.cFormat = hBufferField:BUFFER-FIELD('_format'):BUFFER-VALUE\n bField.cFormatOrg = hBufferField:BUFFER-FIELD('_format'):BUFFER-VALUE\n bField.iWidth = hBufferField:BUFFER-FIELD('_width'):BUFFER-VALUE\n bField.cLabel = hBufferField:BUFFER-FIELD('_label'):BUFFER-VALUE\n bField.lPrimary = CAN-DO(cPrimIndexFields, bField.cFieldName)\n bField.iExtent = hBufferField:BUFFER-FIELD('_Extent'):BUFFER-VALUE\n bField.lMandatory = hBufferField:BUFFER-FIELD('_mandatory'):BUFFER-VALUE\n bField.lUniqueIdx = CAN-DO(cUniqueIndexFields,bField.cFieldName)\n\n /* New fields as per v19 */\n bField.cColLabel = hBufferField:BUFFER-FIELD('_Col-label'):BUFFER-VALUE\n bField.iDecimals = hBufferField:BUFFER-FIELD('_Decimals'):BUFFER-VALUE\n bField.iFieldRpos = hBufferField:BUFFER-FIELD('_Field-rpos'):BUFFER-VALUE\n bField.cValExp = hBufferField:BUFFER-FIELD('_ValExp'):BUFFER-VALUE\n bField.cValMsg = hBufferField:BUFFER-FIELD('_ValMsg'):BUFFER-VALUE\n bField.cHelp = hBufferField:BUFFER-FIELD('_Help'):BUFFER-VALUE\n bField.cDesc = hBufferField:BUFFER-FIELD('_Desc'):BUFFER-VALUE\n bField.cViewAs = hBufferField:BUFFER-FIELD('_View-as'"}, + {"type":"Punctuation","value":"):"}, + {"type":"KeywordReserved","value":"BUFFER-VALUE\n "}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowInList"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cXmlNodeName"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"NameVariable","value":"getXmlNodeName"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Check against filter-to-hide */"}, + {"type":"CommentMultiline","value":"/* Make a list of fields on table level */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFields"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cNameHide,ttTable"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"cFields"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"LiteralStringDouble","value":"\",\""}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Check against filter-to-show */"}, + {"type":"CommentMultiline","value":"/* Some types should not be shown like CLOB BLOB and RAW */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"lDataField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cNameShow,ttTable"}, + {"type":"KeywordReserved","value":"LOOKUP"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, + {"type":"NameVariable","value":"cDataType,"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'clob,blob,raw'"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":"."}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* User tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n */"}, + {"type":"CommentMultiline","value":"/* Create TT records for each column to show, except for CLOB / BLOB / RAW */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lNormal"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, + {"type":"NameVariable","value":"lDataField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Normal'"}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"iFieldExtent"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSchema"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, + {"type":"NameVariable","value":"iExtent"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Schema'"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lVst"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, + {"type":"NameVariable","value":"iExtent"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'VST'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSql"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'SQL'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lOther"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Other'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Handling for Hidden and Frozen apply only to user tables otherwise it will be too confusing\n * because Schema, VST and SQL tables are all by default hidden and frozen.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"cCacheId"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Application'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFrozen"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"cTablename"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cCategory"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Application'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lFrozen"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iExtent"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"iFieldExtent"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Fields that must be in the list */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iSearch"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFullName"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFieldShow"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSearchFld"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iSearch,cFieldShow"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSearchFld,"}, - {"type":"LiteralStringDouble","value":"\"*\""}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"iFieldExtent"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"[\u00261]\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"iFieldExtent"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordReserved","value":"ELSE "}, + {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields,"}, + {"type":"NameVariable","value":"iColumnNr"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSearchFld"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"iDataOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iOrder"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLabel"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLabel"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Field \u00261 created\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFullName"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"CommentMultiline","value":"/* For each extent nr */"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lFieldFound"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"KeywordReserved","value":"GET-NEXT"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"QUERY-CLOSE"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"hBufferField"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"OBJECT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hBufferFile"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Fieldlist */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFields"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cThisField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"KeywordReserved","value":"SUBSTRING"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField,ttTable"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, + {"type":"NameVariable","value":"cFields,"}, + {"type":"LiteralNumberInteger","value":"2"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSearchFld,cThisField"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Add columns for recid/rowid */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lFieldFound"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"i"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lFieldFound"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Fields that may not be in the list */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iSearch"}, + {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iFieldOrder"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFieldHide"}, - {"type":"Punctuation","value":"):"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cCacheId"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSearchFld"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTablename"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iSearch,cFieldHide"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"}, + {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSearchFld,"}, - {"type":"LiteralStringDouble","value":"\"*\""}, + {"type":"NameVariable","value":"i,"}, + {"type":"LiteralStringDouble","value":"\"RECID,ROWID\""}, {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShow"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"FALSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields,"}, + {"type":"NameVariable","value":"iOrder"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSearchFld"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iOrderOrg"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"iFieldOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"NameVariable","value":"cFullName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lRejected"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDataType"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'character'\n bField.cInitial = ''"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFormat"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"i,"}, + {"type":"LiteralStringDouble","value":"\"X(20),X(24)\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"NameVariable","value":"cFormatOrg"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFormat"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLabel"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lPrimary"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"NO\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iExtent"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cThisField"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField,ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cFields"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CAN-DO"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSearchFld,cThisField"}, - {"type":"Punctuation","value":")"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lRejected"}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, + {"type":"NameVariable","value":"cTableCacheId"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* do iField */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTablename"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lRejected"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iExtent"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFullName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Table"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iColumnNr"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* else */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"iDataOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iOrder"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* do iSearch */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If we get here, we should add the table */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowInList"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iOrder"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLabel"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cLabel"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* for each ttTable */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getTablesFiltered */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableStats) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTableStats Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getTableStats"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Get table statistics from the INI file\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"table"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, + {"type":"LiteralStringSingle","value":"'getFields - step 4: build cache'"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cIniFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"CommentMultiline","value":"/* Update the cache */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"glCacheFieldDefs"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Add to disk cache */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Add to second-level cache.\""}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DATASET"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"dsFields"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WRITE-XML"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Read the ini file as plain text and parse the lines.\n *\n * The normal way would be to do a FOR-EACH on the _file table and\n * retrieve the information needed. But if you have a large database\n * (or a lot of databases), this becomes VERY slow. Searching the\n * other way around by parsing the INI is a lot faster.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cIniFile"}, + {"type":"KeywordReserved","value":"YES"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261DataDigger-\u00262.ini'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, + {"type":"KeywordReserved","value":"NO"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getUserName"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Add to memory cache */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cIniFile"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FROM"}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cIniFile"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#ReadLine"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Sometimes lines get screwed up and are waaaay too long\n * for the import statement. So just ignore those.\n */"}, + {"type":"LiteralStringDouble","value":"\"Add to first-level cache.\""}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IMPORT"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ERROR-STATUS"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"ERROR"}, + {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#ReadLine"}, + {"type":"NameVariable","value":"bFieldCache"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Find DB sections */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'[DB:*]'"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cLine,"}, - {"type":"LiteralStringSingle","value":"'[]'"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"bColumnCache"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":",cSection,"}, - {"type":"LiteralStringDouble","value":"\":\""}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bColumnCache"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Only process lines of database-sections */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, + {"type":"LiteralStringSingle","value":"'getFields - step 5: save to disk'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Update fields with settings from registry */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS "}, - {"type":"LiteralStringDouble","value":"\"DB:\""}, + {"type":"NameVariable","value":"updateFields"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#ReadLine"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Only process setting lines */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*:*=*'"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"bField"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#ReadLine"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Filter out some settings */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringDouble","value":"\"*:QueriesServed=*\""}, + {"type":"CommentMultiline","value":"/* getFields */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getMouseXY) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getMouseXY Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"getMouseXY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Get the position of the mouse relative to the frame\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"NameVariable","value":"phFrame"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, + {"type":"NameVariable","value":"piMouseX"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringSingle","value":"':'"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iNumQueries"}, + {"type":"NameVariable","value":"piMouseY"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringSingle","value":"'='"}, - {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lp"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"MEMPTR"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iNumQueries"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"iRet"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"KeywordType","value":"INT64 "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iNumQueries"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"SET-SIZE"}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"LP"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"16"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* queriesServed */"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"NameVariable","value":"GetCursorPos"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"GET-POINTER-VALUE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"lp"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringDouble","value":"\"*:LastUsed=*\""}, + {"type":"NameVariable","value":"iRet"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"ScreenToClient"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phFrame"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"KeywordReserved","value":"HWND"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"NameVariable","value":"lp"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"piMouseX"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"GET-LONG"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"lp,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"piMouseY"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"KeywordReserved","value":"GET-LONG"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringSingle","value":"':'"}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"lp,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"LiteralNumberInteger","value":"5"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SET-SIZE"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"LP"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"tLastUsed"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"DATETIME"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringSingle","value":"'='"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* lastUsed */"}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* repeat */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CLOSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Mouse X/Y = \u00261 / \u00262\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"piMouseX,"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"piMouseY"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getTableStats */"}, + {"type":"CommentMultiline","value":"/* getMouseXY */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-initTableFilter) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initTableFilter Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getQueryTable Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"initTableFilter"}, + {"type":"NameVariable","value":"getQueryTable"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set table filter values back to their initial values\n */"}, + {"type":"CommentMultiline","value":"/* Get the ttQuery table\n * Note: This procedure just returns the table, no further logic needed.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"KeywordReserved","value":"table"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"ttQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"EMPTY"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Set visibility of schema tables */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSchema"}, + {"type":"CommentMultiline","value":"/* getQueryTable */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getRegistryTable Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"getRegistryTable"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'ShowHiddenTables'"}, - {"type":"Punctuation","value":"))."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Return complete registry tt\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSchema"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSchema"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, @@ -11042,1173 +9028,1174 @@ {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* initTableFilter */"}, + {"type":"CommentMultiline","value":"/* getRegistryTable */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-loadSettings) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE loadSettings Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTables) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTables Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"loadSettings"}, + {"type":"NameVariable","value":"getTables"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Load settings from ini files\n*/"}, + {"type":"CommentMultiline","value":"/* Fill ttTable with all currently connected databases.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lValue"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Help file is least important, so read that first */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readConfigFile"}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261DataDiggerHelp.ini\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getProgramDir"}, - {"type":"Punctuation","value":"()"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* General DD settings (always in program folder) */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readConfigFile"}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261DataDigger.ini\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getProgramDir"}, - {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Per-user settings */"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readConfigFile"}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getUserName"}, - {"type":"Punctuation","value":"()"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* When all ini-files have been read, we can determine whether\n * caching needs to be enabled\n */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lValue"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hDbBuffer"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"TableDefs\""}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lValue"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"hDbStatusBuffer"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lValue"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* loadSettings */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-lockWindow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE lockWindow Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lockWindow"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Lock / unlock updates that Windows does to windows.\n */"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cCacheTimeStamp"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plLock"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cCacheDir"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, + {"type":"NameVariable","value":"cSchemaCacheFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"NameVariable","value":"cOneCacheFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Window \u00261, lock: \u00262\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TITLE"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"plLock,"}, - {"type":"LiteralStringDouble","value":"\"ON/OFF\""}, - {"type":"Punctuation","value":")))."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALID-HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"bTableXml"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"ttTableXml"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Find window in our tt of locked windows */"}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Dataserver support can be for:\n *\n * V9: \"PROGRESS,AS400,ORACLE,MSS,ODBC\"\n * V10: \"PROGRESS,ORACLE,MSS,ODBC\" (from V10 no native support for AS400)\n * V11: \"PROGRESS,ORACLE,MSS,ODBC\"\n * V12: \"PROGRESS,ORACLE,MSS\" (from V12 no ODBC support anymore)\n *\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"hWindow"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"WIDGET-POOL "}, + {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Database"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"NameVariable","value":"iDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"NUM-DBS"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* If we try to unlock a window thats not in the tt, just go back */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"DBTYPE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plLock"}, + {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"PROGRESS\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Database"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Otherwise create a tt record for it */"}, + {"type":"CommentMultiline","value":"/* Compose name of the cache file. Use date/time of last schema change in the name */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"hWindow"}, + {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Because commands to lock or unlock may be nested, keep track\n * of the number of locks/unlocks using a semaphore.\n *\n * The order of commands may be:\n * lockWindow(yes). -\u003e actually lock the window\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e actually unlock the window\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plLock"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"hDbStatusBuffer"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"KeywordReserved","value":"LDBNAME"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"LiteralStringDouble","value":"\"._DbStatus\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"KeywordReserved","value":"IN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WIDGET-POOL "}, + {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hDbStatusBuffer"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FIND-FIRST"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO-LOCK"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cCacheTimeStamp"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hDbStatusBuffer"}, + {"type":"Punctuation","value":"::"}, + {"type":"NameVariable","value":"_dbstatus"}, {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"cachestamp,"}, + {"type":"LiteralStringDouble","value":"\" \""}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"_\""}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\":\""}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cCacheFile"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"3"}, + {"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262.\u00263.xml\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"Lock counter: \u00261\""}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"NameVariable","value":"cCacheTimeStamp"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"DELETE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"OBJECT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hDbStatusBuffer"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Now, only lock when the semaphore is increased to 1 */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If caching enabled and there is a cache file, read it */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plLock"}, + {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"SendMessageA"}, {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND "}, - {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Get table list from cache file \u00261\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"READ-XML"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"file\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* And only unlock after the last unlock command */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE"}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"LiteralStringDouble","value":"\"APPEND\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cCacheDir"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"SendMessageA"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND "}, - {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralStringDouble","value":"\"\u00261cache\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"FROM"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"OS-DIR"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cCacheDir"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"#ReadSchemaCache"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IMPORT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"RedrawWindow"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSchemaCacheFile"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND "}, - {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"cSchemaCacheFile"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"BEGINS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"db.\u00261;\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"}, + {"type":"KeywordReserved","value":"LDBNAME"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":"))"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSchemaCacheFile,"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026RDW_ERASE}"}, + {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026RDW_INVALIDATE}"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"cSchemaCacheFile,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRet"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Don't delete, creating records is more expensive than re-use, so just reset */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"ttWindowLock"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iLockCounter"}, + {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"ENTRY "}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* lockWindow */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readConfigFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE readConfigFile Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readConfigFile"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Read the ini-file and create tt records for it\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* Check timestamp */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcConfigFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cOneCacheFile"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"LiteralStringDouble","value":"\"\u00261\\\u00262\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"cCacheDir,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plUserSettings"}, + {"type":"NameVariable","value":"cSchemaCacheFile"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"READ-XML"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"cOneCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"LiteralStringDouble","value":"\"APPEND\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR "}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"CLOSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Otherwise build it */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"ALIAS "}, + {"type":"LiteralStringSingle","value":"'dictdb'"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cChunk"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"DATABASE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR "}, + {"type":"KeywordReserved","value":"VALUE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"LDBNAME"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"getSchema"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"p"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"BY"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"REFERENCE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Save cache file for next time */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTrimChars"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Move the tables of the current db to a separate tt so we can dump it. */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttTableXml"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iLine"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"hDbQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"IN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"WIDGET-POOL "}, + {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"hDbBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Read file in 1 pass to memory */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcConfigFile"}, + {"type":"NameVariable","value":"iDatabase"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralStringDouble","value":"\"._Db\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"IN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"WIDGET-POOL "}, + {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"COPY-LOB"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FILE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcConfigFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SET-BUFFERS"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hDbBuffer"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-PREPARE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"FOR EACH _Db NO-LOCK WHERE _Db._Db-local = TRUE\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OPEN"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#DB"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-NEXT"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFile"}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OFF-END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-CONVERT"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#DB"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ERROR-STATUS"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"ERROR"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFile"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readFile"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcConfigFile"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cTrimChars"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hDbBuffer"}, + {"type":"Punctuation","value":"::"}, + {"type":"NameVariable","value":"_Db"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"slave"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\" \""}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"hDbBuffer"}, + {"type":"Punctuation","value":"::"}, + {"type":"NameVariable","value":"_Db"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"name"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CHR"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"LDBNAME"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":")):"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"~r\""}, + {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* space / chr-1 / LF */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Process line by line */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"#LineLoop"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iLine"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"bTableXml"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-CLOSE"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"hDbQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFile,"}, - {"type":"LiteralStringDouble","value":"\"~n\""}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cChunk"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hDbBuffer"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"NameVariable","value":"ttTableXml"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WRITE-XML"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iLine,cFile,"}, - {"type":"LiteralStringDouble","value":"\"~n\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cChunk"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cChunk,"}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"YES"}, {"type":"NameVariable","value":","}, - {"type":"LiteralNumberInteger","value":"20000"}, - {"type":"Punctuation","value":")."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* trim very long lines */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cChunk,"}, + {"type":"KeywordReserved","value":"NO"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTrimChars"}, + {"type":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* remove junk */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Section line */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringDouble","value":"\"[*]\""}, + {"type":"NameVariable","value":"ttTableXml"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Support Dataservers */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSection"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSchemaHolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, + {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cLine,"}, - {"type":"LiteralStringDouble","value":"\"[]\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#LineLoop"}, + {"type":"NameVariable","value":"iDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BREAK"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BY"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BY"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Ignore weird settings within [DB:xxxx] sections */"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cTableName"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, + {"type":"KeywordReserved","value":"FIRST-OF"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS "}, - {"type":"LiteralStringSingle","value":"'DB:'"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cCacheFile"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringDouble","value":"\"=\""}, - {"type":"Punctuation","value":"))"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262;\u00263.\u00264.xml\""}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':'"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"LDBNAME"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iDatabase"}, {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"cCacheTimeStamp"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#LineLoop"}, + {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Config line */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, + {"type":"KeywordReserved","value":"LAST-OF"}, {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bTableXml"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WRITE-XML"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringDouble","value":"\"=\""}, - {"type":"Punctuation","value":"))"}, + {"type":"LiteralStringDouble","value":"\"file\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"YES"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"NO"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"KeywordReserved","value":"NO"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"bTableXml"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSection"}, + {"type":"CommentMultiline","value":"/* IF LAST-OF */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cLine,"}, - {"type":"LiteralStringDouble","value":"\"=\""}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* FOR EACH bTable */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* IF glCacheTableDefs THEN */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Config line /might/ already exist. This can happen if you have\n * the same setting in multiple .ini files.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"CommentMultiline","value":"/* tt empty */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* 1 to num-dbs */"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cLine,"}, + {"type":"KeywordReserved","value":"WIDGET-POOL "}, + {"type":"LiteralStringDouble","value":"\"metaInfo\""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Apply filter to collection of tables */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, + {"type":"NameVariable","value":"getTablesFiltered"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cLine,"}, - {"type":"LiteralStringDouble","value":"\"=\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lUser"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"ttTableFilter,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plUserSettings"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get table properties from the INI file */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"getTableStats"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* readConfigFile */"}, + {"type":"CommentMultiline","value":"/* getTables */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resetAnswers) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resetAnswers Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTablesFiltered) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTablesFiltered Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"resetAnswers"}, + {"type":"NameVariable","value":"getTablesFiltered"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Reset answers to all 'do not ask again' questions\n*/"}, + {"type":"CommentMultiline","value":"/* Determine whether tables in the ttTable are visible given a user defined filter\n */"}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttConfig"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*:hidden'"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"cSearchFld"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*:answer'"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection,"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting,"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cThisField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* for each bfConfig */"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"flushRegistry"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iSearch"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"INTEGER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* resetAnswers */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resizeFilterFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resizeFilterFields Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"resizeFilterFields"}, + {"type":"NameVariable","value":"iField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Redraw the browse filter fields\n */"}, + {"type":"KeywordType","value":"INTEGER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phLeadButton"}, + {"type":"NameVariable","value":"lRejected"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFilterFields"}, + {"type":"NameVariable","value":"lFieldFound"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcButtons"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lNormal"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lSchema"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"NameVariable","value":"lVst"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12217,11 +10204,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButton"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lSql"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12230,11 +10217,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lOther"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12243,11 +10230,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lHidden"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12256,11 +10243,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWidth"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lFrozen"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12269,11 +10256,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cNameShow"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12282,11 +10269,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cNameHide"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12295,11 +10282,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hFilterField"}, + {"type":"NameVariable","value":"cFieldShow"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -12308,783 +10295,808 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFilter"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFieldHide"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* To prevent drawing error, make all fields small */"}, + {"type":"CommentMultiline","value":"/* This table **SHOULD** exist and have exactly 1 record */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFilterFields"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField,pcFilterFields"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE "}, + {"type":"NameVariable","value":"lNormal"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowNormal"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, + {"type":"NameVariable","value":"lSchema"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowSchema"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, + {"type":"NameVariable","value":"lVst"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"23"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowVst"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, + {"type":"NameVariable","value":"lSql"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Start by setting the buttons at the proper place. Do this right to left */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lShowSql"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lOther"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButton"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcButtons"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"lShowOther"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lHidden"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iButton,pcButtons"}, - {"type":"Punctuation","value":"))."}, + {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowHidden"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, + {"type":"NameVariable","value":"lFrozen"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowFrozen"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cNameShow"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableNameShow"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, + {"type":"NameVariable","value":"cNameHide"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y"}, + {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableNameHide"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cFieldShow"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"23"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* filter buttons close to the browse */"}, + {"type":"NameVariable","value":"cTableFieldShow"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iRightEdge"}, + {"type":"NameVariable","value":"cFieldHide"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* A little margin between buttons */"}, + {"type":"NameVariable","value":"cTableFieldHide"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Reset the filters to sane values if needed */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cNameShow"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'' OR cNameShow = ? THEN cNameShow = '*'.\n IF cNameHide = '*' OR cNameHide = ? THEN cNameHide = '' .\n IF cFieldShow = '*' OR cFieldShow = ? THEN cFieldShow = ''.\n IF cFieldHide = '*' OR cFieldHide = ? THEN cFieldHide = ''"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Move elements starting with \"!\" from pos-list to neg-list */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"correctFilterList"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""}, + {"type":"NameVariable","value":"cNameShow,"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cNameHide"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* The left side of the left button is the maximum point\n * Fortunately, this value is already in iRightEdge.\n * Resize and reposition the fields from left to right,\n * use the space between browse:x and iRightEdge\n */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Take the left side of the first visible column as a starting point. */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"correctFilterList"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""}, + {"type":"NameVariable","value":"cFieldShow,"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFieldHide"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"firstVisibleColumn"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"KeywordReserved","value":"EACH"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Text","value":" "}, + {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Init table to false until proven otherwise */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowInList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Check against filter-to-hide */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cNameHide,ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-COLUMNS"}, - {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Check against filter-to-show */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordType","value":"HANDLE"}, + {"type":"NameVariable","value":"cNameShow,ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTableName"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* User tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"lNormal"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cCategory"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"LiteralStringSingle","value":"'Normal' THEN NEXT #Table.\n IF NOT lSchema AND ttTable.cCategory = 'Schema' THEN NEXT #Table.\n IF NOT lVst AND ttTable.cCategory = 'VST' THEN NEXT #Table.\n IF NOT lSql AND ttTable.cCategory = 'SQL' THEN NEXT #Table.\n IF NOT lOther AND ttTable.cCategory = 'Other' THEN NEXT #Table.\n\n /* Handling for Hidden and Frozen apply only to user tables otherwise it will be too confusing\n * because Schema, VST and SQL tables are all by default hidden and frozen.\n */\n IF NOT lHidden AND ttTable.cCategory = 'Application' AND ttTable.lHidden = TRUE THEN NEXT #Table.\n IF NOT lFrozen AND ttTable.cCategory = 'Application'"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lFrozen"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"LEAVE"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"firstVisibleColumn"}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Fields that must be in the list */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"iSearch"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"start\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"cFieldShow"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSearchFld"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iSearch,cFieldShow"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"KeywordReserved","value":"INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSearchFld,"}, + {"type":"LiteralStringDouble","value":"\"*\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordType","value":"handle"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Some types cannot have a filter */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"DATA-TYPE "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cFields,"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'raw'"}, + {"type":"NameVariable","value":"cSearchFld"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT "}, {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, + {"type":"KeywordReserved","value":"Table"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iFilter"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lFieldFound"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFilter"}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFilter"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFilterFields"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Determine the handle of the filterfield */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, + {"type":"NameVariable","value":"cFields"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cThisField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE"}, - {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iFilter,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFilterFields"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If the column is hidden, make the filter hidden and go to the next */"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iField,ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cFields"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE"}, + {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSearchFld,cThisField"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE "}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lFieldFound"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"NEXT "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"LEAVE "}, {"type":"NameVariable","value":"#"}, {"type":"KeywordReserved","value":"Field"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Where *are* we ?? */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iCurrentPos"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If the columns have been resized, some columns might have fallen off the screen */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"NameVariable","value":"\u003c"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"lFieldFound"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT "}, {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, + {"type":"KeywordReserved","value":"Table"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Does it fit on the screen? */"}, + {"type":"CommentMultiline","value":"/* Fields that may not be in the list */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"NameVariable","value":"iSearch"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cFieldHide"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSearchFld"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#"}, - {"type":"KeywordReserved","value":"Field"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iSearch,cFieldHide"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If no wildcards used, we can simply CAN-DO */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* accept some margin */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Where will this field end? And does it fit? */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iWidth"}, + {"type":"KeywordReserved","value":"INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSearchFld,"}, + {"type":"LiteralStringDouble","value":"\"*\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, - {"type":"Operator","value":"+"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"4"}, + {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"cFields,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"NameVariable","value":"cSearchFld"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWidth"}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lRejected"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWidth"}, + {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iRightEdge"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Ok, seems to fit */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cFields"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cThisField"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWidth"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iField,ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iCurrentPos"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cFields"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"KeywordReserved","value":"CAN-DO"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cSearchFld,cThisField"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iWidth"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hFilterField"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE "}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lRejected"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"VISIBLE"}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* take over the visibility of the browse */"}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"stop\""}, - {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Place lead-button at the utmost left */"}, - {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* do iField */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALID-HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phLeadButton"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"lRejected"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phLeadButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Table"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X\n "}, + {"type":"CommentMultiline","value":"/* else */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phLeadButton"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* do iSearch */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If we get here, we should add the table */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowInList"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"23"}, + {"type":"KeywordReserved","value":"TRUE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* for each ttTable */"}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* resizeFilterFields */"}, + {"type":"CommentMultiline","value":"/* getTablesFiltered */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-restoreWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE restoreWindowPos Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableStats) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getTableStats Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"restoreWindowPos"}, + {"type":"NameVariable","value":"getTableStats"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Restore position / size of a window\n */"}, + {"type":"CommentMultiline","value":"/* Get table statistics from the INI file\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"table"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cIniFile"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"cLine"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcWindowName"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"CommentMultiline","value":"/* Read the ini file as plain text and parse the lines.\n *\n * The normal way would be to do a FOR-EACH on the _file table and\n * retrieve the information needed. But if you have a large database\n * (or a lot of databases), this becomes VERY slow. Searching the\n * other way around by parsing the INI is a lot faster.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cIniFile"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"LiteralStringSingle","value":"'\u00261DataDigger-\u00262.ini', getWorkFolder(), getUserName() ).\n IF SEARCH(cIniFile) = ? THEN RETURN.\n\n INPUT FROM VALUE(cIniFile).\n\n #ReadLine:\n REPEAT:\n /* Sometimes lines get screwed up and are waaaay too long\n * for the import statement. So just ignore those.\n */\n IMPORT UNFORMATTED cLine NO-ERROR.\n IF ERROR-STATUS:ERROR THEN NEXT #ReadLine.\n\n /* Find DB sections */\n IF cLine MATCHES '[DB:*]' THEN\n DO:\n cSection = TRIM(cLine,'[]'"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":",cSection,"}, + {"type":"LiteralStringDouble","value":"\":\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Only process lines of database-sections */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:x'"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BEGINS "}, + {"type":"LiteralStringDouble","value":"\"DB:\""}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#ReadLine"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Only process setting lines */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringSingle","value":"'*:*=*'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#ReadLine"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Filter out some settings */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringDouble","value":"\"*:QueriesServed=*\""}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:x'"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"50"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:y'"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cLine,"}, + {"type":"LiteralStringSingle","value":"':') NO-ERROR.\n\n IF AVAILABLE ttTable THEN\n DO:\n ttTable.iNumQueries = INTEGER(ENTRY(2,cLine,'='"}, + {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iNumQueries"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, @@ -13092,184 +11104,222 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iNumQueries"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:y'"}, + {"type":"CommentMultiline","value":"/* queriesServed */"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"50"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringDouble","value":"\"*:LastUsed=*\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"NameVariable","value":"ttTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:height'"}, - {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cLine,"}, + {"type":"LiteralStringSingle","value":"':') NO-ERROR.\n\n IF AVAILABLE ttTable THEN\n ttTable.tLastUsed = DATETIME(ENTRY(2,cLine,'=')) NO-ERROR.\n\n END. /* lastUsed */\n\n END. /* repeat */\n INPUT CLOSE.\n\n {\u0026timerStop}\n\nEND PROCEDURE. /* getTableStats */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-initTableFilter) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initTableFilter Procedure\nPROCEDURE initTableFilter :\n/* Set table filter values back to their initial values\n */\n DEFINE INPUT-OUTPUT PARAMETER TABLE FOR ttTableFilter.\n\n EMPTY TEMP-TABLE ttTableFilter.\n CREATE ttTableFilter.\n\n /* Set visibility of schema tables */\n ttTableFilter.lShowSchema = LOGICAL(getRegistry('DataDigger','ShowHiddenTables'"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowSchema"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lShowSchema"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"NO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:height'"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))"}, + {"type":"CommentMultiline","value":"/* initTableFilter */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-loadSettings) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE loadSettings Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"loadSettings"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"100"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Load settings from ini files\n*/"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HEIGHT-PIXELS "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"lValue"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"LOGICAL "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iValue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* Help file is least important, so read that first */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"NameVariable","value":"readConfigFile"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, + {"type":"LiteralStringDouble","value":"\"\u00261DataDiggerHelp.ini\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:width'"}, + {"type":"NameVariable","value":"getProgramDir"}, + {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))."}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* General DD settings (always in program folder) */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"readConfigFile"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261DataDigger.ini\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"getProgramDir"}, + {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Per-user settings */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"readConfigFile"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"getUserName"}, + {"type":"Punctuation","value":"()"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TRUE"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* When all ini-files have been read, we can determine whether\n * caching needs to be enabled\n */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"lValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Window:width'"}, - {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"TableDefs\""}, {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"100"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"lValue"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iValue"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Force a redraw */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"APPLY "}, - {"type":"LiteralStringSingle","value":"'window-resized'"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, + {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"lValue"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, @@ -13277,28 +11327,60 @@ {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* restoreWindowPos */"}, + {"type":"CommentMultiline","value":"/* loadSettings */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveConfigFileSorted) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveConfigFileSorted Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-lockWindow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE lockWindow Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveConfigFileSorted"}, + {"type":"NameVariable","value":"lockWindow"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Save settings file sorted\n */"}, + {"type":"CommentMultiline","value":"/* Lock / unlock updates that Windows does to windows.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plLock"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"LOGICAL"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserConfigFile"}, + {"type":"NameVariable","value":"iRet"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -13307,250 +11389,404 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttConfig"}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Window \u00261, lock: \u00262\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TITLE"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"plLock,"}, + {"type":"LiteralStringDouble","value":"\"ON/OFF\""}, + {"type":"Punctuation","value":")))."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VALID-HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Clean up rubbish settings data */"}, + {"type":"CommentMultiline","value":"/* Find window in our tt of locked windows */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"NameVariable","value":"hWindow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"phWindow"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* If we try to unlock a window thats not in the tt, just go back */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plLock"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Otherwise create a tt record for it */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"hWindow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Because commands to lock or unlock may be nested, keep track\n * of the number of locks/unlocks using a semaphore.\n *\n * The order of commands may be:\n * lockWindow(yes). -\u003e actually lock the window\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(yes). -\u003e do nothing\n * lockWindow(no). -\u003e do nothing\n * lockWindow(no). -\u003e actually unlock the window\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"plLock"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValue"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValue"}, - {"type":"Text","value":" "}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"Operator","value":"-"}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"debugInfo\""}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"3"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"Lock counter: \u00261\""}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cUserConfigFile"}, + {"type":"CommentMultiline","value":"/* Now, only lock when the semaphore is increased to 1 */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plLock"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttWindowLock"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iLockCounter"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"SendMessageA"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HWND "}, + {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, - {"type":"Punctuation","value":"()"}, + {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, + {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getUserName"}, - {"type":"Punctuation","value":"()"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cUserConfigFile"}, + {"type":"NameVariable","value":"iRet"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"CommentMultiline","value":"/* And only unlock after the last unlock command */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lUser"}, + {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BREAK"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS "}, - {"type":"LiteralStringDouble","value":"\"DataDigger\""}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DESCENDING\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST-OF"}, + {"type":"NameVariable","value":"SendMessageA"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HWND "}, + {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"[\u00261]\""}, - {"type":"NameVariable","value":",bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED"}, + {"type":"NameVariable","value":"iRet"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"NameVariable","value":"RedrawWindow"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261=\u00262\""}, - {"type":"NameVariable","value":",bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSetting,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cValue"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HWND "}, + {"type":"CommentMultiline","value":"/* {\u0026window-name}:hwnd */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LAST-OF"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"bfConfig"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cSection"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PUT"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED"}, + {"type":"CommentPreproc","value":"{\u0026RDW_ERASE}"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"CommentPreproc","value":"{\u0026RDW_INVALIDATE}"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SKIP"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CLOSE"}, + {"type":"NameVariable","value":"iRet"}, + {"type":"Text","value":"\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Don't delete, creating records is more expensive than re-use, so just reset */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"glDirtyCache"}, + {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* saveConfigFileSorted */"}, + {"type":"CommentMultiline","value":"/* lockWindow */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQuery Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readConfigFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE readConfigFile Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveQuery"}, + {"type":"NameVariable","value":"readConfigFile"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Save a single query to the INI file.\n */"}, + {"type":"CommentMultiline","value":"/* Read the ini-file and create tt records for it\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcConfigFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"plUserSettings"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"LOGICAL "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"LONGCHAR "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLine"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, @@ -13560,43 +11796,39 @@ {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cChunk"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"LONGCHAR "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcQuery"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"NameVariable","value":"cTrimChars"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -13605,344 +11837,479 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iNewNr"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iLine"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttQuery"}, + {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Prepare query for saving in ini-file */"}, + {"type":"CommentMultiline","value":"/* Read file in 1 pass to memory */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcConfigFile"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcQuery"}, + {"type":"NameVariable","value":"?"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"KeywordReserved","value":"COPY-LOB"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"FILE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cQuery,"}, - {"type":"LiteralStringSingle","value":"'~n'"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"CHR"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"))."}, + {"type":"NameVariable","value":"pcConfigFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-CONVERT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ERROR-STATUS"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"ERROR"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cFile"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"NameVariable","value":"readFile"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cQuery,"}, - {"type":"CommentPreproc","value":"{\u0026QUERYSEP}"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcConfigFile"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cTrimChars"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\" \""}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CHR"}, {"type":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"))."}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"~r\""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* space / chr-1 / LF */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Process line by line */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"#LineLoop"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"NameVariable","value":"iLine"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get the table with queries again, because they might be\n * changed if the user has more than one window open.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cFile,"}, + {"type":"LiteralStringDouble","value":"\"~n\""}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cChunk"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"collectQueryInfo"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcDatabase,"}, + {"type":"NameVariable","value":"iLine,cFile,"}, + {"type":"LiteralStringDouble","value":"\"~n\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cChunk"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cChunk,"}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"20000"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Save current query in the tt. If it already is in the\n * TT then just move it to the top\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"CommentMultiline","value":"/* trim very long lines */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cChunk,"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cTrimChars"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* remove junk */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Section line */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLine"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"MATCHES "}, + {"type":"LiteralStringDouble","value":"\"[*]\""}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLine,"}, + {"type":"LiteralStringDouble","value":"\"[]\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#LineLoop"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Ignore weird settings within [DB:xxxx] sections */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BEGINS "}, + {"type":"LiteralStringSingle","value":"'DB:'"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cLine,"}, + {"type":"LiteralStringDouble","value":"\"=\""}, + {"type":"Punctuation","value":"))"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"':'"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#LineLoop"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Config line */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTable"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cQueryTxt"}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cLine,"}, + {"type":"LiteralStringDouble","value":"\"=\""}, + {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cLine,"}, + {"type":"LiteralStringDouble","value":"\"=\""}, + {"type":"Punctuation","value":"))"}, + {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Config line /might/ already exist. This can happen if you have\n * the same setting in multiple .ini files.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTable"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"SUBSTRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLine,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cLine,"}, + {"type":"LiteralStringDouble","value":"\"=\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cQueryTxt"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"))"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lUser"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery"}, + {"type":"NameVariable","value":"plUserSettings"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* The ttQuery temp-table is already filled, renumber it */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"#QueryLoop"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PRESELECT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTable"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* readConfigFile */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resetAnswers) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resetAnswers Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"NameVariable","value":"resetAnswers"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Reset answers to all 'do not ask again' questions\n*/"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"NameVariable","value":"ttConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#QueryLoop"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iNewNr"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iNewNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"LiteralStringSingle","value":"'DataDigger:Help'\n AND (bfConfig.cSetting MATCHES '*:hidden' OR bfConfig.cSetting MATCHES '*:answer'"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cSection,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iNewNr"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSetting,"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* for each bfConfig */"}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* And save it to the INI-file */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveQueryTable"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"table"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"flushRegistry"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* saveQuery */"}, + {"type":"CommentMultiline","value":"/* resetAnswers */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQueryTable Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resizeFilterFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE resizeFilterFields Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveQueryTable"}, + {"type":"NameVariable","value":"resizeFilterFields"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Redraw the browse filter fields\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Save the queries in the TT to the INI file with a max of MaxQueryHistory\n */"}, + {"type":"NameVariable","value":"phLeadButton"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"table"}, + {"type":"NameVariable","value":"pcFilterFields"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttQuery"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcButtons"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, @@ -13952,15 +12319,15 @@ {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -13969,8 +12336,8 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iField"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, @@ -13982,8 +12349,8 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iButton"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, @@ -13995,786 +12362,744 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, + {"type":"NameVariable","value":"iRightEdge"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttQuery"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger\""}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"iWidth"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))."}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* no query history wanted */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If it is not defined use default setting */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hButton"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"10"}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"iQuery"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"iFilter"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"INTEGER"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#SaveQuery"}, - {"type":"Punctuation","value":":"}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* To prevent drawing error, make all fields small */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cDatabase"}, + {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTable"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"BY"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFilterFields"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hFilterField"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iQueryNr"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cSetting"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"KeywordType","value":"HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iField,pcFilterFields"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cQueryTxt"}, + {"type":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NEXT "}, - {"type":"NameVariable","value":"#SaveQuery"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSetting"}, - {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"LiteralNumberInteger","value":"23"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#SaveQuery"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Delete higher nrs than MaxQueryHistory */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMaxQueryHistory"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, + {"type":"LiteralStringDouble","value":"\"stop\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:makeSmall\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Start by setting the buttons at the proper place. Do this right to left */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralStringDouble","value":"\"start\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iQuery"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iQuery"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* iQuery .. MaxQueryHistory */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iButton"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* saveQueryTable */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveWindowPos Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"saveWindowPos"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcButtons"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Save position / size of a window\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"-"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hButton"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordType","value":"HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iButton,pcButtons"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hButton"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcWindowName"}, + {"type":"NameVariable","value":"hButton"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hButton"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralNumberInteger","value":"23"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"Window:x\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X"}, - {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, + {"type":"CommentMultiline","value":"/* filter buttons close to the browse */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"Window:y\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWindow"}, + {"type":"NameVariable","value":"hButton"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"Window:height\""}, - {"type":"NameVariable","value":","}, + {"type":"CommentMultiline","value":"/* A little margin between buttons */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HEIGHT-PIXELS"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:reposition\""}, {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* The left side of the left button is the maximum point\n * Fortunately, this value is already in iRightEdge.\n * Resize and reposition the fields from left to right,\n * use the space between browse:x and iRightEdge\n */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Take the left side of the first visible column as a starting point. */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWindowName,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"Window:width\""}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWindow"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* saveWindowPos */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setCaching) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setCaching Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setCaching"}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"firstVisibleColumn"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set the cache vars for the library\n */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"glCacheTableDefs"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"TableDefs\""}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"glCacheFieldDefs"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iField"}, + {"type":"Punctuation","value":"):"}, + {"type":"KeywordType","value":"HANDLE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"FieldDefs\""}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setCaching */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setFavourite) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setFavourite Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setFavourite"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set / unset / toggle a table as favourite\n*/"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"LEAVE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"firstVisibleColumn"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"stop\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:firstVisibleColumn\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcGroupName"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"start\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plFavourite"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NUM-COLUMNS"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iField"}, + {"type":"Punctuation","value":"):"}, + {"type":"KeywordType","value":"handle"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Some types cannot have a filter */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"DATA-TYPE "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'raw'"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFilterFields"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cList"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Determine the handle of the filterfield */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hFilterField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordType","value":"HANDLE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iFilter,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcGroupName"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcFilterFields"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If the column is hidden, make the filter hidden and go to the next */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, + {"type":"KeywordReserved","value":"NO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Where *are* we ?? */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"i"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If the columns have been resized, some columns might have fallen off the screen */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"NameVariable","value":"\u003c"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LOOKUP"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcTable,"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Toggle setting? */"}, - {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Does it fit on the screen? */"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plFavourite"}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plFavourite"}, + {"type":"LiteralNumberInteger","value":"5"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i"}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#"}, + {"type":"KeywordReserved","value":"Field"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* accept some margin */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Where will this field end? And does it fit? */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iWidth"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Add to favourites */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"hColumn"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"LiteralNumberInteger","value":"4"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plFavourite"}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, + {"type":"NameVariable","value":"iWidth"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"iWidth"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"iRightEdge"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"-"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Ok, seems to fit */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cList"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cList,"}, - {"type":"LiteralStringSingle","value":"',,'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cList"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cList,"}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"iWidth"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Remove from favourites */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plFavourite"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, - {"type":"Text","value":" "}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iCurrentPos"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iWidth"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hFilterField"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261,\u00262'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"VISIBLE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList,"}, + {"type":"CommentMultiline","value":"/* take over the visibility of the browse */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"DD:Timer\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTable"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""}, + {"type":"LiteralStringDouble","value":"\"stop\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcGroupName,"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cList"}, + {"type":"LiteralStringDouble","value":"\"resizeFilterFields:#Field\""}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setFavourite */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setLabelPosition) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setLabelPosition Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setLabelPosition"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Correct the position of the label for larger fonts\n */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Place lead-button at the utmost left */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, + {"type":"KeywordReserved","value":"VALID-HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phLeadButton"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE"}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Move horizontally far enough from the widget */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"}, + {"type":"NameVariable","value":"phLeadButton"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X\n "}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FONT-TABLE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-TEXT-WIDTH-PIXELS"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SCREEN-VALUE"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FRAME"}, + {"type":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FONT"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"X\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, + {"type":"NameVariable","value":"phLeadButton"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TYPE "}, + {"type":"KeywordReserved","value":"Y "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'fill-in'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, + {"type":"NameVariable","value":"phBrowse"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, + {"type":"LiteralNumberInteger","value":"23"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setLabelPosition */"}, + {"type":"CommentMultiline","value":"/* resizeFilterFields */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setSortArrow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setSortArrow Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-restoreWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE restoreWindowPos Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setSortArrow"}, + {"type":"NameVariable","value":"restoreWindowPos"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set the sorting arrow on a browse\n */"}, + {"type":"CommentMultiline","value":"/* Restore position / size of a window\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, @@ -14782,11 +13107,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -14797,238 +13122,228 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcSortField"}, + {"type":"NameVariable","value":"pcWindowName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, + {"type":"NameVariable","value":"iValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"iValue"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"INTEGER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"LiteralStringSingle","value":"'Window:x' )).\n IF iValue = ? THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:x' )) + 50.\n ASSIGN phWindow:X = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:y' )).\n IF iValue = ? THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:y' )) + 50.\n IF iValue \u003c\u003e ? THEN ASSIGN phWindow:Y = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:height' )).\n IF iValue = ? OR iValue = 0 THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:height' )) - 100.\n ASSIGN phWindow:HEIGHT-PIXELS = iValue NO-ERROR.\n\n iValue = INTEGER(getRegistry(pcWindowName, 'Window:width' )).\n IF iValue = ? OR iValue = 0 THEN iValue = INTEGER(getRegistry('DataDigger', 'Window:width' )) - 100.\n ASSIGN phWindow:WIDTH-PIXELS = iValue NO-ERROR.\n\n /* Force a redraw */\n APPLY 'window-resized' TO phWindow.\n\nEND PROCEDURE. /* restoreWindowPos */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveConfigFileSorted) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveConfigFileSorted Procedure\nPROCEDURE saveConfigFileSorted :\n/* Save settings file sorted\n */\n DEFINE VARIABLE cUserConfigFile AS CHARACTER NO-UNDO.\n DEFINE BUFFER bfConfig FOR ttConfig.\n\n {\u0026timerStart}\n\n /* Clean up rubbish settings data */\n FOR EACH bfConfig\n WHERE bfConfig.cSetting = '' OR bfConfig.cSetting = ?\n OR bfConfig.cValue = ''"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cValue"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSortFound"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumn"}, + {"type":"NameVariable","value":"cUserConfigFile"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261DataDigger-\u00262.ini\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"Punctuation","value":"()"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-COLUMNS"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hColumn"}, + {"type":"NameVariable","value":"getUserName"}, + {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, + {"type":"KeywordReserved","value":"TO"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VALUE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iColumn"}, + {"type":"NameVariable","value":"cUserConfigFile"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If you apply the sort to the same column, the order\n * of sorting is inverted.\n */"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"EACH"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"lUser"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcSortField"}, + {"type":"KeywordReserved","value":"TRUE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"BREAK"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SET-SORT-ARROW"}, + {"type":"KeywordReserved","value":"BY "}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iColumn,"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, + {"type":"KeywordReserved","value":"BEGINS "}, + {"type":"LiteralStringDouble","value":"\"DataDigger\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lSortFound"}, + {"type":"KeywordReserved","value":"DESCENDING\n "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Setting is one of: ColumnSortFields | ColumnSortIndexes | ColumnSortTables */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BY"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSetting"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FIRST-OF"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"UNFORMATTED"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'ColumnSort\u00261'"}, - {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"[\u00261]\""}, + {"type":"NameVariable","value":",bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"SKIP"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"UNFORMATTED"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261,\u00262'"}, - {"type":"NameVariable","value":",iColumn,"}, + {"type":"LiteralStringDouble","value":"\"\u00261=\u00262\""}, + {"type":"NameVariable","value":",bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSetting,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plAscending"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cValue"}, {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SKIP"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SET-SORT-ARROW"}, + {"type":"KeywordReserved","value":"LAST-OF"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iColumn,"}, + {"type":"NameVariable","value":"bfConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"PUT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"UNFORMATTED"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* erase existing arrow */"}, + {"type":"KeywordReserved","value":"SKIP"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no sort is found, delete setting */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lSortFound"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'ColumnSort\u00261'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"CLOSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"Punctuation","value":"))"}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setSortArrow */"}, + {"type":"CommentMultiline","value":"/* saveConfigFileSorted */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setTransparency) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setTransparency Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQuery Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setTransparency"}, + {"type":"NameVariable","value":"saveQuery"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set transparency level for a frame, using Windows api\n */"}, + {"type":"CommentMultiline","value":"/* Save a single query to the INI file.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, @@ -15036,11 +13351,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -15051,357 +13366,389 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piLevel"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcQuery"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"CommentPreproc","value":"\n\n \u0026SCOPED-DEFINE GWL_EXSTYLE -20\n \u0026SCOPED-DEFINE WS_EX_LAYERED 524288\n \u0026SCOPED-DEFINE LWA_ALPHA 2\n \u0026SCOPED-DEFINE WS_EX_TRANSPARENT 32"}, {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, - {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"stat"}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Set WS_EX_LAYERED on this window */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"SetWindowLongA"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026GWL_EXSTYLE}"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"iNewNr"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026WS_EX_LAYERED}"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"stat"}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Make this window transparent (0 - 255) */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"SetLayeredWindowAttributes"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HWND"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piLevel,"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026LWA_ALPHA}"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"ttQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Prepare query for saving in ini-file */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"stat"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"pcQuery"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setTransparency */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setXmlNodeNames) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setXmlNodeNames Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setXmlNodeNames"}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cQuery,"}, + {"type":"LiteralStringSingle","value":"'~n',CHR(1)).\n cQuery = REPLACE(cQuery,{\u0026QUERYSEP},CHR(1)).\n IF cQuery = ''"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Set the XML-NODE-NAMES of all fields in a buffer\n */"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Get the table with queries again, because they might be\n * changed if the user has more than one window open.\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"collectQueryInfo"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Save current query in the tt. If it already is in the\n * TT then just move it to the top\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phTable"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iField"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NUM-FIELDS"}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"phTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField"}, - {"type":"Punctuation","value":"):"}, - {"type":"NameVariable","value":"XML"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"NODE"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"NAME"}, + {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iQueryNr"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getXmlNodeName"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"BUFFER-FIELD"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iField"}, - {"type":"Punctuation","value":"):"}, - {"type":"KeywordReserved","value":"NAME"}, - {"type":"Punctuation","value":")."}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setXmlNodeNames */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-showHelp) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showHelp Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"showHelp"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* The ttQuery temp-table is already filled, renumber it */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"#QueryLoop"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n"}, - {"type":"CommentMultiline","value":"/* Show a help message and save answer to ini\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"REPEAT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"KeywordReserved","value":"PRESELECT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcStrings"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cButtons"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#QueryLoop"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"iNewNr"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cPrg"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iNewNr"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTitle"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iQueryNr"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"iNewNr"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cType"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* And save it to the INI-file */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"saveQueryTable"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"table"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUrl"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bQuery,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cCanHide"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"CommentMultiline","value":"/* saveQuery */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveQueryTable) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveQueryTable Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"NameVariable","value":"saveQueryTable"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Save the queries in the TT to the INI file with a max of MaxQueryHistory\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButtonPressed"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"table"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDontShowAgain"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lCanHide"}, - {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"PARAMETER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -15410,11 +13757,11 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iString"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"iQuery"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -15423,111 +13770,63 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSetting"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EXTENT"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"9"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no message, then just return */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':message'"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"ttQuery"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* What to start? */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cUrl"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':url'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cPrg"}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':program'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cCanHide"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, + {"type":"LiteralStringDouble","value":"\"DataDigger\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':canHide'"}, - {"type":"Punctuation","value":")."}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cCanHide"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCanHide"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lCanHide"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cCanHide"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* no query history wanted */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* If it is not defined use default setting */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lCanHide"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, @@ -15535,558 +13834,565 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lCanHide"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"LiteralNumberInteger","value":"10"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#SaveQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUrl"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cPrg"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* suppress empty text window */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iButtonPressed"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* forces to start the url or prog */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If type is unknown, set to QUESTION if there is a question mark in the message */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cType"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':type'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cType"}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralStringSingle","value":"''"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cType"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NEXT "}, + {"type":"NameVariable","value":"#SaveQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MATCHES "}, - {"type":"LiteralStringSingle","value":"'*?*'"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN "}, - {"type":"LiteralStringSingle","value":"'Question'"}, + {"type":"NameVariable","value":"pcTable,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE "}, - {"type":"LiteralStringSingle","value":"'Message'"}, + {"type":"NameVariable","value":"iQuery"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If no button labels defined, set them based on message type */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cButtons"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':buttons'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cButtons"}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cButtons"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#SaveQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Delete higher nrs than MaxQueryHistory */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"WHILE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cType"}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'Question'"}, + {"type":"NameVariable","value":"iMaxQueryHistory"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN "}, - {"type":"LiteralStringSingle","value":"'\u0026Yes,\u0026No,\u0026Cancel'"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DB:\u00261\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ELSE "}, - {"type":"LiteralStringSingle","value":"'\u0026Ok'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If title is empty, set it to the type of the message */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cTitle"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, + {"type":"LiteralStringSingle","value":"'\u00261:query:\u00262'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, + {"type":"NameVariable","value":"pcTable,"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"iQuery"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':title'"}, + {"type":"NameVariable","value":"?"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTitle"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTitle"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* iQuery .. MaxQueryHistory */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cType"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If hidden has strange value, set it to NO */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"lHidden"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* saveQueryTable */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-saveWindowPos) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE saveWindowPos Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"saveWindowPos"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Save position / size of a window\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':hidden'"}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"HANDLE "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"pcWindowName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If ButtonPressed has strange value, set hidden to NO */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iButtonPressed"}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"Window:x\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordReserved","value":"STRING"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":",pcTopic"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':answer'"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralStringDouble","value":"\"Window:y\""}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButtonPressed"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, + {"type":"LiteralStringDouble","value":"\"Window:height\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HEIGHT-PIXELS"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* if we have no message, but we do have an URL or prog, then\n * dont show an empty message box.\n */"}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"Window:width\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"phWindow"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ASSIGN\n "}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"YES "}, - {"type":"CommentMultiline","value":"/* suppress empty text window */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iButtonPressed"}, + {"type":"CommentMultiline","value":"/* saveWindowPos */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setCaching) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setCaching Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"setCaching"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* forces to start the url or prog */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Fill in strings in message */"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Set the cache vars for the library\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iString"}, + {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcStrings"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cUserString[iString]"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iString,pcStrings"}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"TableDefs\""}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cMessage"}, + {"type":"NameVariable","value":"glCacheFieldDefs"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Cache\""}, {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"FieldDefs\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"4"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"CommentMultiline","value":"/* setCaching */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setFavourite) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setFavourite Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"setFavourite"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"6"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Set / unset / toggle a table as favourite\n*/"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"7"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"8"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserString["}, - {"type":"LiteralNumberInteger","value":"9"}, - {"type":"NameVariable","value":"]"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* If not hidden, show the message and let the user choose an answer */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lHidden"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, - {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcGroupName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getProgramDir"}, - {"type":"Punctuation","value":"()"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'dQuestion.w'"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTitle"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cMessage"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"plFavourite"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cButtons"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"LOGICAL "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lCanHide"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"i"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButtonPressed"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDontShowAgain"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"lDontShowAgain"}, + {"type":"NameVariable","value":"cList"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcTopic"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cList"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':hidden'"}, + {"type":"NameVariable","value":"getRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'yes'"}, + {"type":"NameVariable","value":"pcGroupName"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Start external things if needed */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iButtonPressed"}, + {"type":"NameVariable","value":"cList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"cList"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUrl"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"LiteralStringSingle","value":"''.\n i = LOOKUP(pcTable, cList).\n\n /* Toggle setting? */\n IF plFavourite = ? THEN plFavourite = (i = 0).\n\n /* Add to favourites */\n IF NOT plFavourite AND i \u003e 0 THEN\n DO:\n ENTRY(i, cList) = ''.\n cList = REPLACE(cList,',,',',').\n cList = TRIM(cList,',').\n END.\n\n /* Remove from favourites */\n IF plFavourite AND i = 0 THEN\n cList = TRIM(SUBSTITUTE('\u00261,\u00262', cList, pcTable),','"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"setRegistry"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"pcGroupName,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"cList"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OS-COMMAND"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-WAIT"}, + {"type":"CommentMultiline","value":"/* setFavourite */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setLabelPosition) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setLabelPosition Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"START "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cUrl"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"setLabelPosition"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cPrg"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n"}, + {"type":"CommentMultiline","value":"/* Correct the position of the label for larger fonts\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"phWidget"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cPrg"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordType","value":"HANDLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Save answer */"}, + {"type":"CommentMultiline","value":"/* Move horizontally far enough from the widget */"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"setRegistry"}, + {"type":"NameVariable","value":"phWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X\n "}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"-"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FONT-TABLE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-TEXT-WIDTH-PIXELS"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Help'"}, - {"type":"NameVariable","value":",pcTopic"}, + {"type":"NameVariable","value":"phWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SIDE-LABEL-HANDLE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SCREEN-VALUE"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"phWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FRAME"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FONT"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":"\n "}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"':answer'"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"phWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TYPE "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringSingle","value":"'fill-in' THEN 5 ELSE 0)\n .\n\nEND PROCEDURE. /* setLabelPosition */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setSortArrow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setSortArrow Procedure\nPROCEDURE setSortArrow :\n/* Set the sorting arrow on a browse\n */\n DEFINE INPUT PARAMETER phBrowse AS HANDLE NO-UNDO.\n DEFINE INPUT PARAMETER pcSortField AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER plAscending AS LOGICAL NO-UNDO.\n\n DEFINE VARIABLE iColumn AS INTEGER NO-UNDO.\n DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.\n DEFINE VARIABLE lSortFound AS LOGICAL NO-UNDO.\n\n {\u0026timerStart}\n\n DO iColumn = 1 TO phBrowse:NUM-COLUMNS:\n hColumn = phBrowse:GET-BROWSE-COLUMN(iColumn).\n\n /* If you apply the sort to the same column, the order\n * of sorting is inverted.\n */\n IF hColumn:NAME = pcSortField THEN\n DO:\n phBrowse:SET-SORT-ARROW(iColumn, plAscending ).\n lSortFound = TRUE.\n\n /* Setting is one of: ColumnSortFields | ColumnSortIndexes | ColumnSortTables */\n setRegistry( 'DataDigger'\n , SUBSTITUTE('ColumnSort\u00261', SUBSTRING(phBrowse:NAME,3))\n , SUBSTITUTE('\u00261,\u00262',iColumn, plAscending)\n ).\n END.\n ELSE\n phBrowse:SET-SORT-ARROW(iColumn, ? ). /* erase existing arrow */\n END.\n\n /* If no sort is found, delete setting */\n IF NOT lSortFound THEN\n setRegistry( 'DataDigger', SUBSTITUTE('ColumnSort\u00261', SUBSTRING(phBrowse:NAME,3)), ?).\n\n {\u0026timerStop}\n\nEND PROCEDURE. /* setSortArrow */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setTransparency) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setTransparency Procedure\nPROCEDURE setTransparency :\n/* Set transparency level for a frame, using Windows api\n */\n DEFINE INPUT PARAMETER phFrame AS HANDLE NO-UNDO.\n DEFINE INPUT PARAMETER piLevel AS INTEGER NO-UNDO.\n\n \u0026SCOPED-DEFINE GWL_EXSTYLE -20\n \u0026SCOPED-DEFINE WS_EX_LAYERED 524288\n \u0026SCOPED-DEFINE LWA_ALPHA 2\n \u0026SCOPED-DEFINE WS_EX_TRANSPARENT 32\n\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE stat AS INTEGER NO-UNDO.\n\n /* Set WS_EX_LAYERED on this window */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN SetWindowLongA(phFrame:HWND, {\u0026GWL_EXSTYLE}, {\u0026WS_EX_LAYERED}, OUTPUT stat).\n\n /* Make this window transparent (0 - 255) */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN SetLayeredWindowAttributes(phFrame:HWND, 0, piLevel, {\u0026LWA_ALPHA}, OUTPUT stat).\n\nEND PROCEDURE. /* setTransparency */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setXmlNodeNames) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE setXmlNodeNames Procedure\nPROCEDURE setXmlNodeNames :\n/* Set the XML-NODE-NAMES of all fields in a buffer\n */\n DEFINE INPUT PARAMETER phTable AS HANDLE NO-UNDO.\n DEFINE VARIABLE iField AS INTEGER NO-UNDO.\n\n DO iField = 1 TO phTable:NUM-FIELDS:\n phTable:BUFFER-FIELD(iField):XML-NODE-NAME = getXmlNodeName(phTable:BUFFER-FIELD(iField):NAME).\n END.\n\nEND PROCEDURE. /* setXmlNodeNames */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-showHelp) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showHelp Procedure\nPROCEDURE showHelp :\n/* Show a help message and save answer to ini\n */\n DEFINE INPUT PARAMETER pcTopic AS CHARACTER NO-UNDO.\n DEFINE INPUT PARAMETER pcStrings AS CHARACTER NO-UNDO.\n\n DEFINE VARIABLE cButtons AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cMessage AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cPrg AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cTitle AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cType AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cUrl AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cCanHide AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iButtonPressed AS INTEGER NO-UNDO.\n DEFINE VARIABLE lDontShowAgain AS LOGICAL NO-UNDO.\n DEFINE VARIABLE lCanHide AS LOGICAL NO-UNDO.\n DEFINE VARIABLE lHidden AS LOGICAL NO-UNDO.\n DEFINE VARIABLE iString AS INTEGER NO-UNDO.\n DEFINE VARIABLE cUserString AS CHARACTER NO-UNDO EXTENT 9.\n\n /* If no message, then just return */\n cMessage = getRegistry('DataDigger:Help', pcTopic + ':message').\n\n /* What to start? */\n cUrl = getRegistry('DataDigger:Help', pcTopic + ':url').\n cPrg = getRegistry('DataDigger:Help', pcTopic + ':program').\n cCanHide = getRegistry('DataDigger:Help', pcTopic + ':canHide').\n cCanHide = TRIM(cCanHide).\n lCanHide = LOGICAL(cCanHide) NO-ERROR.\n IF lCanHide = ? THEN lCanHide = TRUE.\n\n IF cMessage = ? THEN\n DO:\n IF cUrl = ? AND cPrg = ? THEN RETURN.\n lHidden = YES. /* suppress empty text window */\n iButtonPressed = 1. /* forces to start the url or prog */\n END.\n\n /* If type is unknown, set to QUESTION if there is a question mark in the message */\n cType = getRegistry('DataDigger:Help', pcTopic + ':type').\n IF cType = ? THEN cType = (IF cMessage MATCHES '*?*' THEN 'Question' ELSE 'Message').\n\n /* If no button labels defined, set them based on message type */\n cButtons = getRegistry('DataDigger:Help', pcTopic + ':buttons').\n IF cButtons = ? THEN cButtons = (IF cType = 'Question' THEN '\u0026Yes,\u0026No,\u0026Cancel' ELSE '\u0026Ok').\n\n /* If title is empty, set it to the type of the message */\n cTitle = getRegistry('DataDigger:Help', pcTopic + ':title').\n IF cTitle = ? THEN cTitle = cType.\n\n /* If hidden has strange value, set it to NO */\n lHidden = LOGICAL(getRegistry('DataDigger:Help', pcTopic + ':hidden')) NO-ERROR.\n IF lHidden = ? THEN lHidden = NO.\n\n /* If ButtonPressed has strange value, set hidden to NO */\n iButtonPressed = INTEGER( getRegistry('DataDigger:Help',pcTopic + ':answer') ) NO-ERROR.\n IF iButtonPressed = ? THEN lHidden = NO.\n\n /* if we have no message, but we do have an URL or prog, then\n * dont show an empty message box.\n */\n IF cMessage = ? THEN\n ASSIGN\n lHidden = YES /* suppress empty text window */\n iButtonPressed = 1. /* forces to start the url or prog */\n\n /* Fill in strings in message */\n DO iString = 1 TO NUM-ENTRIES(pcStrings):\n cUserString[iString] = ENTRY(iString,pcStrings).\n END.\n\n cMessage = SUBSTITUTE( cMessage\n , cUserString[1]\n , cUserString[2]\n , cUserString[3]\n , cUserString[4]\n , cUserString[5]\n , cUserString[6]\n , cUserString[7]\n , cUserString[8]\n , cUserString[9]\n ).\n\n /* If not hidden, show the message and let the user choose an answer */\n IF NOT lHidden THEN\n DO:\n RUN VALUE( getProgramDir() + 'dQuestion.w')\n ( INPUT cTitle\n , INPUT cMessage\n , INPUT cButtons\n , INPUT lCanHide\n , OUTPUT iButtonPressed\n , OUTPUT lDontShowAgain\n ).\n\n IF lDontShowAgain THEN\n setRegistry('DataDigger:Help', pcTopic + ':hidden', 'yes').\n END.\n\n /* Start external things if needed */\n IF iButtonPressed = 1 THEN\n DO:\n IF cUrl \u003c\u003e ? THEN OS-COMMAND NO-WAIT START (cUrl).\n IF cPrg \u003c\u003e ? THEN RUN VALUE(cPrg) NO-ERROR.\n END.\n\n /* Save answer */\n setRegistry('DataDigger:Help',pcTopic + ':answer'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"STRING"}, @@ -16714,27 +15020,7 @@ {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'!RECID,!ROWID,*'"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Get field ordering */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cFieldOrder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DB:\u00261'"}, - {"type":"NameVariable","value":",pcDatabase"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261:fieldOrder'"}, + {"type":"LiteralStringSingle","value":"'!RECID,!ROWID,*'.\n\n /* Get field ordering */\n cFieldOrder = getRegistry(SUBSTITUTE('DB:\u00261',pcDatabase), SUBSTITUTE('\u00261:fieldOrder'"}, {"type":"NameVariable","value":",pcTableName"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, @@ -16893,11 +15179,7 @@ {"type":"LiteralStringDouble","value":"\"start\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'customShowField'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringSingle","value":"'customShowField'"}, + {"type":"LiteralStringSingle","value":"'customShowField').\n PUBLISH 'customShowField'"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcDatabase,"}, @@ -16934,11 +15216,7 @@ {"type":"LiteralStringDouble","value":"\"start\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'customFormat'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"PUBLISH "}, - {"type":"LiteralStringSingle","value":"'customFormat'"}, + {"type":"LiteralStringSingle","value":"'customFormat').\n PUBLISH 'customFormat'"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcDatabase,"}, @@ -17855,69 +16133,7 @@ {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cReturnValue"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* There might be chr(1) chars in the text (if read from ini, for example)\n * Replace these with normal CRLF, then proceed\n */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cReturnValue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cReturnValue,"}, - {"type":"KeywordReserved","value":"CHR"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'~n'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"plExpanded"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cReturnValue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cReturnValue,"}, - {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026QUERYSEP}"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'~n'"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cReturnValue"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cReturnValue,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'~n'"}, + {"type":"LiteralStringSingle","value":"'' AND cReturnValue \u003c\u003e ? THEN\n DO:\n /* There might be chr(1) chars in the text (if read from ini, for example)\n * Replace these with normal CRLF, then proceed\n */\n cReturnValue = REPLACE(cReturnValue,CHR(1),'~n').\n\n IF plExpanded THEN\n cReturnValue = REPLACE(cReturnValue, {\u0026QUERYSEP}, '~n').\n ELSE\n cReturnValue = REPLACE(cReturnValue, '~n'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026QUERYSEP}"}, @@ -18436,40 +16652,14 @@ {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iColumn"}, {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cWidthList"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261,\u00262:\u00263'"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cWidthList"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NAME\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cWidthList"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cWidthList,"}, - {"type":"LiteralStringSingle","value":"','"}, + {"type":"LiteralStringSingle","value":"'\u00261,\u00262:\u00263'\n , cWidthList\n , hColumn:NAME\n , hColumn:WIDTH-PIXELS\n ).\n END.\n\n RETURN TRIM(cWidthList,','"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026timerStop}"}, @@ -18657,19 +16847,7 @@ {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'PROGRESS'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaHolders"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSchemaHolders"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"','"}, + {"type":"LiteralStringSingle","value":"'PROGRESS' THEN\n cSchemaHolders = cSchemaHolders + ','"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, @@ -19285,634 +17463,333 @@ {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iTmp"}, {"type":"Punctuation","value":")"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"' + chr(\""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"string"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iTmp"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\") + '\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CASE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cOutput"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getEscapedData */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFieldList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFieldList Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getFieldList"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return a comma separated list of all fields of a table\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFields"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hFile"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._file\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"._field\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"CREATE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUERY"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"SET-BUFFERS"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hFile,hField"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-PREPARE"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'FOR EACH _File WHERE _File-name = \u00261, EACH _Field OF _File'"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUOTER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFile"}, - {"type":"Punctuation","value":")))."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OPEN"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"#CollectFields"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-NEXT"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OFF-END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEAVE "}, - {"type":"NameVariable","value":"#CollectFields"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFields"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":"::"}, - {"type":"NameVariable","value":"_Field"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"name"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* #CollectFields */"}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hQuery"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-CLOSE"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"LiteralStringDouble","value":"\"' + chr(\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hField"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordReserved","value":"string"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iTmp"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hFile"}, + {"type":"LiteralStringDouble","value":"\") + '\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"DELETE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"OBJECT"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hQuery"}, + {"type":"KeywordReserved","value":"CASE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFields,"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"cOutput"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getFieldList */"}, + {"type":"CommentMultiline","value":"/* getEscapedData */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFileCategory) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFileCategory Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFieldList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFieldList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getFileCategory"}, + {"type":"NameVariable","value":"getFieldList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcFile"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, + {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Based on table name and -number, return the category for a table\n *\n * Application tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n * Other tables : _file-number \u003e= -16384 AND _file-number \u003c= -80\n */"}, + {"type":"CommentMultiline","value":"/* Return a comma separated list of all fields of a table\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"32000"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"'Normal'"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"80"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, + {"type":"NameVariable","value":"hFile"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"'Schema'"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"16384"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"'VST'"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, + {"type":"NameVariable","value":"hField"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BEGINS "}, - {"type":"LiteralStringSingle","value":"'_sys'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"'SQL'"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"16384"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piFileNumber"}, + {"type":"NameVariable","value":"cFields"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"80"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"'Other'"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Function return value. */"}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getFileCategory */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFont) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFont Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getFont"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return the fontnumber for the type given\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"NameVariable","value":"hFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttFont"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"LiteralStringDouble","value":"\"._file\""}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"NameVariable","value":"hField"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, + {"type":"LiteralStringDouble","value":"\"._field\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"SET-BUFFERS"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"NameVariable","value":"hFile,hField"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-PREPARE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Fonts'"}, - {"type":"NameVariable","value":",pcName"}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'FOR EACH _File WHERE _File-name = \u00261, EACH _Field OF _File'"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordReserved","value":"QUOTER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFile"}, + {"type":"Punctuation","value":")))."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OPEN"}, + {"type":"Punctuation","value":"()."}, {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"#CollectFields"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-NEXT"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OFF-END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"KeywordReserved","value":"LEAVE "}, + {"type":"NameVariable","value":"#CollectFields"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cFields"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"23"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"cFields"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CASE"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"LiteralStringSingle","value":"'Default'"}, + {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"NameVariable","value":"hField"}, + {"type":"Punctuation","value":"::"}, + {"type":"NameVariable","value":"_Field"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"name"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"CommentMultiline","value":"/* #CollectFields */"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hQuery"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-CLOSE"}, + {"type":"Punctuation","value":"()."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"4"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"LiteralStringSingle","value":"'Fixed'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, + {"type":"NameVariable","value":"hField"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"NameVariable","value":"hFile"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CASE"}, + {"type":"NameVariable","value":"OBJECT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bFont"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iFont"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Function return value. */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"KeywordReserved","value":"TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cFields,"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\",\""}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getFont */"}, + {"type":"CommentMultiline","value":"/* getFieldList */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getImagePath) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getImagePath Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFileCategory) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFileCategory Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getImagePath"}, + {"type":"NameVariable","value":"getFileCategory"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcImage"}, + {"type":"NameVariable","value":"piFileNumber"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"INTEGER\n "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcFileName"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return the image path + icon set name\n */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"CommentMultiline","value":"/* Based on table name and -number, return the category for a table\n *\n * Application tables : _file-number \u003e 0 AND _file-number \u003c 32000\n * Schema tables : _file-number \u003e -80 AND _file-number \u003c 0\n * Virtual system tables: _file-number \u003c -16384\n * SQL catalog tables : _file-name BEGINS \"_sys\"\n * Other tables : _file-number \u003e= -16384 AND _file-number \u003c= -80\n */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261Image/default_\u00262'"}, + {"type":"NameVariable","value":"piFileNumber"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003e"}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"piFileNumber"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003c"}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"32000"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringSingle","value":"'Normal'.\n IF piFileNumber \u003e -80 AND piFileNumber \u003c 0 THEN RETURN 'Schema'.\n IF piFileNumber \u003c -16384 THEN RETURN 'VST'.\n IF pcFileName BEGINS '_sys' THEN RETURN 'SQL'.\n IF piFileNumber \u003e= -16384 AND piFileNumber \u003c= -80 THEN RETURN 'Other'.\n\n RETURN ''. /* Function return value. */\n\nEND FUNCTION. /* getFileCategory */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getFont) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getFont Procedure\nFUNCTION getFont RETURNS INTEGER\n ( pcName AS CHARACTER ) :\n /* Return the fontnumber for the type given\n */\n DEFINE BUFFER bFont FOR ttFont.\n\n {\u0026timerStart}\n\n FIND bFont WHERE bFont.cName = pcName NO-ERROR.\n IF AVAILABLE bFont THEN RETURN bFont.iFont.\n\n CREATE bFont.\n ASSIGN bFont.cName = pcName.\n\n bFont.iFont = INTEGER(getRegistry('DataDigger:Fonts',pcName)) NO-ERROR.\n\n IF bFont.iFont = ? OR bFont.iFont \u003e 23 THEN\n CASE pcName:\n WHEN 'Default' THEN bFont.iFont = 4.\n WHEN 'Fixed' THEN bFont.iFont = 0.\n END CASE.\n\n RETURN bFont.iFont. /* Function return value. */\n {\u0026timerStop}\n\nEND FUNCTION. /* getFont */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getImagePath) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getImagePath Procedure\nFUNCTION getImagePath RETURNS CHARACTER\n ( pcImage AS CHARACTER ) :\n /* Return the image path + icon set name\n */\n {\u0026timerStart}\n RETURN SUBSTITUTE('\u00261Image/default_\u00262'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getProgramDir"}, @@ -20833,548 +18710,213 @@ {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"No error \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Not owner \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"No such file or directory\""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"3"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Interrupted system call \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"4"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"I/O error \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"5"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Bad file number \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"6"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"No more processes \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"7"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Not enough core memory \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"8"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Permission denied \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"9"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Bad address \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"10"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"File exists \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"11"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"No such device \""}, + {"type":"LiteralStringDouble","value":"\"No error \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"12"}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Not a directory \""}, + {"type":"LiteralStringDouble","value":"\"Not owner \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"13"}, + {"type":"LiteralNumberInteger","value":"2"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Is a directory \""}, + {"type":"LiteralStringDouble","value":"\"No such file or directory\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"14"}, + {"type":"LiteralNumberInteger","value":"3"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"File table overflow \""}, + {"type":"LiteralStringDouble","value":"\"Interrupted system call \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"15"}, + {"type":"LiteralNumberInteger","value":"4"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Too many open files \""}, + {"type":"LiteralStringDouble","value":"\"I/O error \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"16"}, + {"type":"LiteralNumberInteger","value":"5"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"File too large \""}, + {"type":"LiteralStringDouble","value":"\"Bad file number \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"17"}, + {"type":"LiteralNumberInteger","value":"6"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"No space left on device \""}, + {"type":"LiteralStringDouble","value":"\"No more processes \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"WHEN "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"18"}, + {"type":"LiteralNumberInteger","value":"7"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Directory not empty \""}, + {"type":"LiteralStringDouble","value":"\"Not enough core memory \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OTHERWISE"}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"LiteralStringDouble","value":"\"Unmapped error \""}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"8"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CASE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Permission denied \""}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getOsErrorDesc */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getProgramDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgramDir Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getProgramDir"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* parameter-definitions */"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return the DataDigger install dir, including a backslash\n */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Cached the value in a global var (about 100x as fast) */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"gcProgramDir"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"LiteralNumberInteger","value":"9"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* this-procedure:file-name will return the .p name without path when the\n * procedure us run without full path. We need to seek it in the propath.\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Bad address \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FULL-PATHNAME "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"LENGTH"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".p\""}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"LENGTH"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FILE-NAME"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"Punctuation","value":")"}, + {"type":"LiteralNumberInteger","value":"10"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\".r\""}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"File exists \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"gcProgramDir"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FULL-PATHNAME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"R-INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"FILE-INFO"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FULL-PATHNAME"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'\\')).\n PUBLISH \"message\"(50,gcProgramDir).\n END.\n\n RETURN gcProgramDir.\n\nEND FUNCTION. /* getProgramDir */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getQuery Procedure\nFUNCTION getQuery RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n , INPUT piQuery AS INTEGER\n ) :\n /* Get previously used query nr \u003cpiQuery\u003e\n */\n DEFINE BUFFER bQuery FOR ttQuery.\n\n FIND bQuery\n WHERE bQuery.cDatabase = pcDatabase\n AND bQuery.cTable = pcTable\n AND bQuery.iQueryNr = piQuery NO-ERROR.\n\n IF AVAILABLE bQuery THEN\n RETURN bQuery.cQueryTxt.\n ELSE\n RETURN ?.\n\nEND FUNCTION. /* getQuery */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getReadableQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getReadableQuery Procedure\nFUNCTION getReadableQuery RETURNS CHARACTER\n ( INPUT pcQuery AS CHARACTER ):\n /* Return a query as a string that is readable for humans.\n */\n DEFINE VARIABLE hQuery AS HANDLE NO-UNDO.\n\n /* Accept query or query-handle */\n hQuery = WIDGET-HANDLE(pcQuery) NO-ERROR.\n IF VALID-HANDLE( hQuery ) THEN\n DO:\n hQuery = WIDGET-HANDLE(pcQuery).\n pcQuery = hQuery:PREPARE-STRING.\n END.\n\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH "}, - {"type":"LiteralStringSingle","value":"' ,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST "}, - {"type":"LiteralStringSingle","value":"','"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIRST "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE "}, - {"type":"LiteralStringSingle","value":"', '"}, - {"type":"NameVariable","value":"~n"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND "}, - {"type":"LiteralStringSingle","value":"' , '"}, - {"type":"NameVariable","value":"~n"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY "}, - {"type":"LiteralStringSingle","value":"' , '"}, - {"type":"NameVariable","value":"~n"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BY "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FIELDS "}, - {"type":"Punctuation","value":"()"}, - {"type":"LiteralStringSingle","value":"','').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH "}, - {"type":"LiteralStringSingle","value":"' ,'"}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"EACH "}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-LOCK"}, - {"type":"LiteralStringSingle","value":"', '"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-LOCK"}, - {"type":"LiteralStringSingle","value":"').\n pcQuery = REPLACE(pcQuery,'"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEXED-REPOSITION"}, - {"type":"LiteralStringSingle","value":"', '').\n\n pcQuery = pcQuery + '"}, - {"type":"NameVariable","value":"~n"}, - {"type":"LiteralStringSingle","value":"'.\n\n RETURN pcQuery.\nEND FUNCTION. /* getReadableQuery */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getRegistry Procedure\nFUNCTION getRegistry RETURNS CHARACTER\n ( pcSection AS CHARACTER\n , pcKey AS CHARACTER\n ) :\n /* Get a value from the registry.\n */\n {\u0026timerStart}\n DEFINE BUFFER bDatabase FOR ttDatabase.\n DEFINE BUFFER bConfig FOR ttConfig.\n\n /* If this is a DB-specific section then replace db name if needed */\n IF pcSection BEGINS \"DB:\" THEN\n DO:\n FIND bDatabase WHERE bDatabase.cLogicalName = ENTRY(2,pcSection,\":\") NO-ERROR.\n IF AVAILABLE bDatabase THEN pcSection = \"DB:\" + bDatabase.cSection.\n END.\n\n /* Load settings if there is nothing in the config table */\n IF NOT TEMP-TABLE ttConfig:HAS-RECORDS THEN\n RUN loadSettings.\n\n /* Search in settings tt */\n FIND bConfig WHERE bConfig.cSection = pcSection AND bConfig.cSetting = pcKey NO-ERROR.\n\n RETURN ( IF AVAILABLE bConfig THEN bConfig.cValue ELSE ? ).\n {\u0026timerStop}\nEND FUNCTION. /* getRegistry */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSchemaHolder Procedure\nFUNCTION getSchemaHolder RETURNS CHARACTER\n ( INPUT pcDataSrNameOrDbName AS CHARACTER\n ):\n DEFINE BUFFER bDataserver FOR ttDataserver.\n\n FIND bDataserver WHERE bDataserver.cLDBNameDataserver = pcDataSrNameOrDbName NO-ERROR.\n RETURN (IF AVAILABLE bDataserver THEN bDataserver.cLDBNameSchema ELSE pcDataSrNameOrDbName).\n\nEND FUNCTION. /* getSchemaHolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getStackSize Procedure\nFUNCTION getStackSize RETURNS INTEGER():\n /* Return value of the -s session setting\n */\n DEFINE VARIABLE cList AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cParm AS CHARACTER CASE-SENSITIVE NO-UNDO.\n DEFINE VARIABLE cSetting AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cValue AS CHARACTER NO-UNDO.\n DEFINE VARIABLE iParm AS INTEGER NO-UNDO.\n DEFINE VARIABLE iStackSize AS INTEGER NO-UNDO.\n\n cList = SESSION:STARTUP-PARAMETERS.\n\n DO iParm = 1 TO NUM-ENTRIES(cList):\n cSetting = ENTRY(iParm,cList) + \" \".\n cParm = ENTRY(1,cSetting,\" \").\n cValue = ENTRY(2,cSetting,\" \").\n\n IF cParm = \"-s\" THEN\n DO:\n iStackSize = INTEGER(cValue) NO-ERROR.\n IF ERROR-STATUS:ERROR THEN iStackSize = 0.\n END.\n END.\n\n /* If not defined, report the default */\n IF iStackSize = 0 THEN iStackSize = 40.\n\n RETURN iStackSize.\nEND FUNCTION. /* getStackSize */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableDesc Procedure\nFUNCTION getTableDesc RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n ) :\n DEFINE BUFFER bTable FOR ttTable.\n\n FIND bTable\n WHERE bTable.cDatabase = pcDatabase\n AND bTable.cTableName = pcTable NO-ERROR.\n\n RETURN (IF AVAILABLE bTable THEN bTable.cTableDesc ELSE '').\n\nEND FUNCTION. /* getTableDesc */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableLabel Procedure\nFUNCTION getTableLabel RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n ) :\n DEFINE BUFFER bTable FOR ttTable.\n\n FIND bTable\n WHERE bTable.cDatabase = pcDatabase\n AND bTable.cTableName = pcTable NO-ERROR.\n\n RETURN (IF AVAILABLE bTable AND bTable.cTableLabel \u003c\u003e ? THEN bTable.cTableLabel ELSE '').\n\nEND FUNCTION. /* getTableLabel */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableList Procedure\nFUNCTION getTableList RETURNS CHARACTER\n ( INPUT pcDatabaseFilter AS CHARACTER\n , INPUT pcTableFilter AS CHARACTER\n ) :\n /* Get a filtered list of all tables in the current database\n */\n DEFINE VARIABLE cTableList AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cQuery AS CHARACTER NO-UNDO.\n\n DEFINE BUFFER bTable FOR ttTable.\n DEFINE QUERY qTable FOR bTable.\n\n {\u0026timerStart}\n IF pcDatabaseFilter = '' OR pcDatabaseFilter = ? THEN pcDatabaseFilter = '"}, - {"type":"Operator","value":"*"}, - {"type":"LiteralStringSingle","value":"'.\n\n /* Build query */\n cQuery = SUBSTITUTE('"}, - {"type":"KeywordReserved","value":"for"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"each"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"where"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDatabase"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"matches "}, - {"type":"CommentPreproc","value":"\u00261', QUOTER(pcDatabaseFilter))."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cQuery"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"\u00261 and cTableName matches \u00262\""}, - {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"11"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery,"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUOTER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcTableFilter"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"No such device \""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"LiteralNumberInteger","value":"12"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-PREPARE"}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTITUTE"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'\u00261 by cTableName'"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Not a directory \""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cQuery"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"LiteralNumberInteger","value":"13"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OPEN"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-FIRST"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Is a directory \""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* All fields */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"LiteralNumberInteger","value":"14"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-OFF-END"}, - {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"File table overflow \""}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cTableList"}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralNumberInteger","value":"15"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTableList"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Too many open files \""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, + {"type":"LiteralNumberInteger","value":"16"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bTable"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableName"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"File too large \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-NEXT"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"QUERY"}, + {"type":"LiteralNumberInteger","value":"17"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"qTable"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"QUERY-CLOSE"}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"No space left on device \""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cTableList"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralNumberInteger","value":"18"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"LEFT-TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cTableList,"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\",\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Directory not empty \""}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"OTHERWISE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cTableList"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"LiteralStringDouble","value":"\"Unmapped error \""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Function return value. */"}, {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, - {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"CASE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getTableList */"}, + {"type":"CommentMultiline","value":"/* getOsErrorDesc */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getUserName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getUserName Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getProgramDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getProgramDir Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getUserName"}, + {"type":"NameVariable","value":"getProgramDir"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, @@ -21387,677 +18929,641 @@ {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return login name of user\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"intResult"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"intSize"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"CommentMultiline","value":"/* Return the DataDigger install dir, including a backslash\n */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Cached the value in a global var (about 100x as fast) */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"gcProgramDir"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"mUserId"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"MEMPTR "}, + {"type":"LiteralStringSingle","value":"''"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026startTimer}"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Otherwise determine the value */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"SET-SIZE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"mUserId"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* this-procedure:file-name will return the .p name without path when the\n * procedure us run without full path. We need to seek it in the propath.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"256"}, + {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"intSize"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FULL-PATHNAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"255"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"GetUserNameA"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"mUserId,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"intSize,"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"intResult"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"COPY-LOB"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"mUserId"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"intSize"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-CONVERT"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"intResult"}, + {"type":"KeywordReserved","value":"SUBSTRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"LENGTH"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"\""}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"LiteralStringDouble","value":"\".p\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"SUBSTRING"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"LENGTH"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FILE-NAME"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"default\""}, + {"type":"LiteralStringDouble","value":"\".r\""}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cUserName"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"gcProgramDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"KeywordReserved","value":"SUBSTRING"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cUserName,"}, - {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FULL-PATHNAME"}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"R-INDEX"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"FILE-INFO"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FULL-PATHNAME"}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringSingle","value":"'\\'"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"PUBLISH "}, + {"type":"LiteralStringDouble","value":"\"message\""}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"50"}, + {"type":"NameVariable","value":",gcProgramDir"}, {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cUserName"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* Function return value. */"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026stopTimer}"}, - {"type":"Text","value":"\n"}, + {"type":"NameVariable","value":"gcProgramDir"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getUserName */"}, + {"type":"CommentMultiline","value":"/* getProgramDir */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWidgetUnderMouse) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWidgetUnderMouse Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getQuery Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWidgetUnderMouse"}, + {"type":"NameVariable","value":"getQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame"}, + {"type":"KeywordReserved","value":"INPUT"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return the handle of the widget that is currently under the mouse cursor\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"piQuery"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordType","value":"INTEGER\n "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Get previously used query nr \u003cpiQuery\u003e\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStart}"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"hWidget"}, + {"type":"NameVariable","value":"cTable"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"iQueryNr"}, + {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FIRST-CHILD"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"first-child"}, + {"type":"NameVariable","value":"piQuery"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getMouseXY"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phFrame,"}, + {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX,"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"bQuery"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cQueryTxt"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHILE"}, + {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALID-HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"CommentMultiline","value":"/* getQuery */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getReadableQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getReadableQuery Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"TYPE "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"getReadableQuery"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"RECTANGLE\""}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X\n "}, + {"type":"NameVariable","value":"pcQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Return a query as a string that is readable for humans.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS\n "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordType","value":"HANDLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Accept query or query-handle */"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y\n "}, + {"type":"NameVariable","value":"WIDGET"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcQuery"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, + {"type":"KeywordReserved","value":"VALID-HANDLE"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, - {"type":"Operator","value":"+"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HEIGHT-PIXELS"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"hWidget"}, + {"type":"NameVariable","value":"WIDGET"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"HANDLE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcQuery"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hWidget"}, + {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"NEXT-SIBLING"}, + {"type":"KeywordReserved","value":"PREPARE-STRING"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"NameVariable","value":"?"}, + {"type":"NameVariable","value":"pcQuery"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcQuery,"}, + {"type":"LiteralStringSingle","value":"' EACH ' ,' EACH ').\n pcQuery = REPLACE(pcQuery,' FIRST ',' FIRST ').\n pcQuery = REPLACE(pcQuery,' WHERE ', '~n WHERE ').\n pcQuery = REPLACE(pcQuery,' AND ' , '~n AND ').\n pcQuery = REPLACE(pcQuery,' BY ' , '~n BY ').\n pcQuery = REPLACE(pcQuery,' FIELDS ()','').\n pcQuery = REPLACE(pcQuery,'FOR EACH ' ,'FOR EACH ').\n pcQuery = REPLACE(pcQuery,' NO-LOCK', ' NO-LOCK').\n pcQuery = REPLACE(pcQuery,' INDEXED-REPOSITION', '').\n\n pcQuery = pcQuery + '~n'"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcQuery"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026timerStop}"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* getWidgetUnderMouse */"}, + {"type":"CommentMultiline","value":"/* getReadableQuery */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWorkFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWorkFolder Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getRegistry Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getWorkFolder"}, + {"type":"NameVariable","value":"getRegistry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* parameter-definitions */"}, + {"type":"NameVariable","value":"pcSection"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcKey"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Get a value from the registry.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttDatabase"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bConfig"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttConfig"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Cached the value in a global var */"}, + {"type":"CommentMultiline","value":"/* If this is a DB-specific section then replace db name if needed */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"gcWorkFolder"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"pcSection"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"KeywordReserved","value":"BEGINS "}, + {"type":"LiteralStringDouble","value":"\"DB:\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"gcWorkFolder"}, + {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bDatabase"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLogicalName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringDouble","value":"\"DataDigger\""}, - {"type":"NameVariable","value":","}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":",pcSection,"}, + {"type":"LiteralStringDouble","value":"\":\""}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"WorkFolder\""}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Possibility to specify where DD files are created */"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"gcWorkFolder"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"LiteralStringDouble","value":"\"DB:\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"gcWorkFolder"}, + {"type":"NameVariable","value":"bDatabase"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Load settings if there is nothing in the config table */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"ttConfig"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HAS-RECORDS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"gcWorkFolder"}, + {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RUN"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"loadSettings"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Search in settings tt */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bConfig"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WHERE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getProgramDir"}, - {"type":"Punctuation","value":"()."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"NameVariable","value":"pcSection"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"gcWorkFolder"}, + {"type":"KeywordReserved","value":"AND"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bConfig"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RIGHT-TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"gcWorkFolder,"}, - {"type":"LiteralStringSingle","value":"'/\\') + '"}, - {"type":"NameVariable","value":"\\"}, - {"type":"LiteralStringSingle","value":"'.\n gcWorkFolder = resolveOsVars(gcWorkFolder).\n RUN createFolder(gcWorkFolder).\n\n FILE-INFO:FILE-NAME = gcWorkFolder.\n IF FILE-INFO:FULL-PATHNAME = ? THEN gcWorkFolder = getProgramDir().\n END.\n END.\n\n RETURN gcWorkFolder.\n\nEND FUNCTION. /* getWorkFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getXmlNodeName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getXmlNodeName Procedure\nFUNCTION getXmlNodeName RETURNS CHARACTER\n ( pcFieldName AS CHARACTER ) :\n /* Return a name that is safe to use in XML output\n */\n pcFieldName = REPLACE(pcFieldName,'"}, - {"type":"NameVariable","value":"%"}, - {"type":"LiteralStringSingle","value":"', '"}, - {"type":"NameVariable","value":"_"}, - {"type":"LiteralStringSingle","value":"').\n pcFieldName = REPLACE(pcFieldName,'"}, - {"type":"NameVariable","value":"#"}, - {"type":"LiteralStringSingle","value":"', '"}, - {"type":"NameVariable","value":"_"}, - {"type":"LiteralStringSingle","value":"').\n\n RETURN pcFieldName.\n\nEND FUNCTION. /* getXmlNodeName */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDataServer) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDataServer Procedure\nFUNCTION isDataServer RETURNS LOGICAL\n ( INPUT pcDataSrNameOrDbName AS CHARACTER\n ):\n RETURN CAN-FIND(ttDataserver WHERE ttDataserver.cLDBNameDataserver = pcDataSrNameOrDbName).\n\nEND FUNCTION. /* isDataServer */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDefaultFontsChanged) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDefaultFontsChanged Procedure\nFUNCTION isDefaultFontsChanged RETURNS LOGICAL\n ( /* parameter-definitions */ ) :\n /* Returns whether the default fonts 0-7 were changed.\n */\n DEFINE VARIABLE cFontSize AS CHARACTER NO-UNDO EXTENT 8.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n\n /* These are the expected fontsizes of the text '"}, - {"type":"NameVariable","value":"DataDigger"}, - {"type":"LiteralStringSingle","value":"' */\n cFontSize[1] = '"}, - {"type":"LiteralNumberInteger","value":"70"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"14"}, - {"type":"LiteralStringSingle","value":"'. /* font0 */\n cFontSize[2] = '"}, - {"type":"LiteralNumberInteger","value":"54"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"13"}, - {"type":"LiteralStringSingle","value":"'. /* font1 */\n cFontSize[3] = '"}, - {"type":"LiteralNumberInteger","value":"70"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"14"}, - {"type":"LiteralStringSingle","value":"'. /* font2 */\n cFontSize[4] = '"}, - {"type":"LiteralNumberInteger","value":"70"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"14"}, - {"type":"LiteralStringSingle","value":"'. /* font3 */\n cFontSize[5] = '"}, - {"type":"LiteralNumberInteger","value":"54"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"13"}, - {"type":"LiteralStringSingle","value":"'. /* font4 */\n cFontSize[6] = '"}, - {"type":"LiteralNumberInteger","value":"70"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"16"}, - {"type":"LiteralStringSingle","value":"'. /* font5 */\n cFontSize[7] = '"}, - {"type":"LiteralNumberInteger","value":"65"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"13"}, - {"type":"LiteralStringSingle","value":"'. /* font6 */\n cFontSize[8] = '"}, - {"type":"LiteralNumberInteger","value":"54"}, - {"type":"Operator","value":"/"}, - {"type":"LiteralNumberInteger","value":"13"}, - {"type":"LiteralStringSingle","value":"'. /* font7 */\n\n checkFont:\n DO i = 0 TO 7:\n IF cFontSize[i + 1] \u003c\u003e SUBSTITUTE('"}, - {"type":"CommentPreproc","value":"\u00261/\u00262'"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcKey"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FONT-TABLE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-TEXT-WIDTH-PIXELS"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":",i"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FONT-TABLE"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"GET-TEXT-HEIGHT-PIXELS"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"bConfig"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"bConfig"}, {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* checkFont */"}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"ELSE "}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* isDefaultFontsChanged */"}, + {"type":"CommentMultiline","value":"/* getRegistry */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isFileLocked) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isFileLocked Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getSchemaHolder Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"isFileLocked"}, + {"type":"NameVariable","value":"getSchemaHolder"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Check whether a file is locked on the file system\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFileHandle"}, - {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"nReturn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttDataserver"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Try to lock the file agains writing */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"CreateFileA"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcFileName"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT "}, - {"type":"CommentPreproc","value":"{\u0026GENERIC_WRITE}"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026FILE_SHARE_READ}"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026OPEN_EXISTING}"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"CommentPreproc","value":"{\u0026FILE_ATTRIBUTE_NORMAL}"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"bDataserver"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLDBNameDataserver"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":","}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFileHandle"}, - {"type":"Text","value":"\n "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Release file handle */"}, - {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"CloseHandle"}, - {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFileHandle,"}, + {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"nReturn"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iFileHandle"}, + {"type":"NameVariable","value":"bDataserver"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLDBNameSchema"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"-"}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, @@ -22065,40 +19571,46 @@ {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* isFileLocked */"}, + {"type":"CommentMultiline","value":"/* getSchemaHolder */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isMouseOver) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isMouseOver Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getStackSize Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"isMouseOver"}, + {"type":"NameVariable","value":"getStackSize"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL\n "}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordType","value":"INTEGER"}, + {"type":"Punctuation","value":"():"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Return value of the -s session setting\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cList"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return whether the mouse is currently over a certain widget\n */"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cParm"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"CASE-SENSITIVE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -22107,505 +19619,463 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cSetting"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALID-HANDLE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"cValue"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RUN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"getMouseXY"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"FRAME"}, - {"type":"NameVariable","value":","}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"NameVariable","value":"iParm"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX,"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OUTPUT"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"iStackSize"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X\n "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseX"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cList"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"X "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, + {"type":"KeywordReserved","value":"SESSION"}, {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"WIDTH-PIXELS\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"NameVariable","value":"STARTUP"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"PARAMETERS"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, + {"type":"NameVariable","value":"iParm"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y\n "}, + {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iMouseY"}, + {"type":"KeywordReserved","value":"NUM-ENTRIES"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cList"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"Y "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"iParm,cList"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phWidget"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"HEIGHT-PIXELS "}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"LiteralStringDouble","value":"\" \""}, {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cParm"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* isMouseOver */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isTableFilterUsed) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isTableFilterUsed Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"isTableFilterUsed"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, + {"type":"KeywordReserved","value":"ENTRY"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"NameVariable","value":",cSetting,"}, + {"type":"LiteralStringDouble","value":"\" \""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cValue"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL\n "}, + {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, + {"type":"LiteralNumberInteger","value":"2"}, + {"type":"NameVariable","value":",cSetting,"}, + {"type":"LiteralStringDouble","value":"\" \""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"cParm"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TABLE"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"LiteralStringDouble","value":"\"-s\""}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Returns whether any setting is used for table filtering\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"iStackSize"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordType","value":"INTEGER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cValue"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"KeywordReserved","value":"ERROR-STATUS"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"ERROR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"iStackSize"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralNumberInteger","value":"0"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Main toggles */"}, + {"type":"CommentMultiline","value":"/* If not defined, report the default */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowNormal"}, + {"type":"NameVariable","value":"iStackSize"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSchema"}, + {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'ShowHiddenTables'"}, - {"type":"Punctuation","value":"))"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"iStackSize"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowVst"}, - {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, + {"type":"LiteralNumberInteger","value":"40"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"iStackSize"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowSql"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, + {"type":"CommentMultiline","value":"/* getStackSize */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableDesc Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"NameVariable","value":"getTableDesc"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowOther"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowHidden"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OR"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"lShowFrozen"}, + {"type":"NameVariable","value":"pcTable"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"KeywordReserved","value":"FOR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Show these tables */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameShow"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"bTable"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cDatabase"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameShow"}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameShow"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* But hide these */"}, + {"type":"NameVariable","value":"cTableDesc"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ELSE "}, + {"type":"LiteralStringSingle","value":"'').\n\nEND FUNCTION. /* getTableDesc */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableLabel Procedure\nFUNCTION getTableLabel RETURNS CHARACTER\n ( INPUT pcDatabase AS CHARACTER\n , INPUT pcTable AS CHARACTER\n ) :\n DEFINE BUFFER bTable FOR ttTable.\n\n FIND bTable\n WHERE bTable.cDatabase = pcDatabase\n AND bTable.cTableName = pcTable NO-ERROR.\n\n RETURN (IF AVAILABLE bTable AND bTable.cTableLabel \u003c\u003e ? THEN bTable.cTableLabel ELSE '').\n\nEND FUNCTION. /* getTableLabel */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getTableList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getTableList Procedure\nFUNCTION getTableList RETURNS CHARACTER\n ( INPUT pcDatabaseFilter AS CHARACTER\n , INPUT pcTableFilter AS CHARACTER\n ) :\n /* Get a filtered list of all tables in the current database\n */\n DEFINE VARIABLE cTableList AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cQuery AS CHARACTER NO-UNDO.\n\n DEFINE BUFFER bTable FOR ttTable.\n DEFINE QUERY qTable FOR bTable.\n\n {\u0026timerStart}\n IF pcDatabaseFilter = '' OR pcDatabaseFilter = ? THEN pcDatabaseFilter = '*'.\n\n /* Build query */\n cQuery = SUBSTITUTE('for each bTable where cDatabase matches \u00261'"}, + {"type":"NameVariable","value":","}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"QUOTER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcDatabaseFilter"}, + {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, + {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameHide"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringDouble","value":"\"\u00261 and cTableName matches \u00262\""}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"NameVariable","value":"cQuery,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableNameHide"}, + {"type":"KeywordReserved","value":"QUOTER"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcTableFilter"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-PREPARE"}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"SUBSTITUTE"}, + {"type":"Punctuation","value":"("}, + {"type":"LiteralStringSingle","value":"'\u00261 by cTableName'"}, + {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"NameVariable","value":"cQuery"}, + {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OPEN"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Show only tables that contain all of these fields */"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-FIRST"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldShow"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* All fields */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"WHILE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldShow"}, + {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-OFF-END"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"NameVariable","value":"cTableList"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldShow"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"NameVariable","value":"cTableList"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'*'"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, + {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* But hide tables that contain any of these */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"cTableName"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldHide"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttTableFilter"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"GET-NEXT"}, {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cTableFieldHide"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, + {"type":"NameVariable","value":"qTable"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"QUERY-CLOSE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"cTableList"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"LEFT-TRIM"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cTableList,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, + {"type":"LiteralStringDouble","value":"\",\""}, + {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* else */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FALSE"}, + {"type":"NameVariable","value":"cTableList"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* Function return value. */"}, + {"type":"Text","value":"\n "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* isTableFilterUsed */"}, + {"type":"CommentMultiline","value":"/* getTableList */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isValidCodePage) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isValidCodePage Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getUserName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getUserName Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"isValidCodePage"}, + {"type":"NameVariable","value":"getUserName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL\n "}, + {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcCodepage"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"CommentMultiline","value":"/* parameter-definitions */"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Returns whether pcCodePage is valid\n */"}, + {"type":"Punctuation","value":")"}, + {"type":"Text","value":" "}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, + {"type":"CommentMultiline","value":"/* Return login name of user\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cDummy"}, + {"type":"NameVariable","value":"cUserName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR"}, + {"type":"KeywordType","value":"LONGCHAR "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcCodePage"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"FIX"}, - {"type":"Operator","value":"-"}, - {"type":"NameVariable","value":"CODEPAGE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cDummy"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcCodepage"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ERROR-STATUS"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* isValidCodePage */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION readFile Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"readFile"}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR\n "}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFilename"}, + {"type":"NameVariable","value":"intResult"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Read contents of a file as a longchar.\n */"}, + {"type":"KeywordType","value":"INTEGER "}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cContent"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"intSize"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LONGCHAR "}, + {"type":"KeywordType","value":"INTEGER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -22614,544 +20084,425 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"mUserId"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordType","value":"MEMPTR "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"CommentPreproc","value":"{\u0026startTimer}"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Otherwise determine the value */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"SET-SIZE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFilename"}, + {"type":"NameVariable","value":"mUserId"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FROM"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VALUE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcFilename"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IMPORT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"UNFORMATTED"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, + {"type":"LiteralNumberInteger","value":"256"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cContent"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"intSize"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cContent"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"LiteralStringDouble","value":"\"~n\""}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cLine"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"CLOSE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"LiteralNumberInteger","value":"255"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"RETURN"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cContent"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"GetUserNameA"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* readFile */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-removeConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION removeConnection Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"NameVariable","value":"mUserId,"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"removeConnection"}, + {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, + {"type":"NameVariable","value":"intSize,"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"LOGICAL\n "}, - {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, + {"type":"NameVariable","value":"intResult"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"COPY-LOB"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"mUserId"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"FOR "}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"intSize"}, {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Remove record from connection temp-table\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfDatabase"}, + {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, + {"type":"NameVariable","value":"cUserName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttDatabase"}, + {"type":"KeywordReserved","value":"NO-CONVERT"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"FIND"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfDatabase"}, + {"type":"NameVariable","value":"intResult"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfDatabase"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cLogicalName"}, + {"type":"LiteralNumberInteger","value":"1"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"OR"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cUserName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcDatabase"}, + {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"NameVariable","value":"cUserName"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfDatabase"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DELETE"}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bfDatabase"}, + {"type":"NameVariable","value":"cUserName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"default\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"ELSE\n "}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cUserName"}, + {"type":"Text","value":" "}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cUserName,"}, + {"type":"LiteralStringDouble","value":"\".\""}, + {"type":"NameVariable","value":","}, + {"type":"LiteralStringDouble","value":"\"\""}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRUE"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"STRING"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"cUserName"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":" "}, + {"type":"CommentMultiline","value":"/* Function return value. */"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentPreproc","value":"{\u0026stopTimer}"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* removeConnection */"}, + {"type":"CommentMultiline","value":"/* getUserName */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveOsVars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveOsVars Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWidgetUnderMouse) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWidgetUnderMouse Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"resolveOsVars"}, + {"type":"NameVariable","value":"getWidgetUnderMouse"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"KeywordType","value":"HANDLE\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcString"}, + {"type":"NameVariable","value":"phFrame"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Return a string with OS vars resolved\n */"}, + {"type":"Text","value":"\n "}, + {"type":"CommentMultiline","value":"/* Return the handle of the widget that is currently under the mouse cursor\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, + {"type":"NameVariable","value":"hWidget"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, + {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TO"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NUM-ENTRIES"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcString,"}, - {"type":"LiteralStringSingle","value":"'%'"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"MODULO"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"2"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"iMouseX"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OS-GETENV"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,pcString,"}, - {"type":"LiteralStringSingle","value":"'%'"}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003c\u003e"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"NameVariable","value":"iMouseY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,pcString,"}, - {"type":"LiteralStringSingle","value":"'%'"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"OS-GETENV"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,pcString,"}, - {"type":"LiteralStringSingle","value":"'%'"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"pcString"}, + {"type":"CommentPreproc","value":"{\u0026timerStart}"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"hWidget"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcString,"}, - {"type":"LiteralStringSingle","value":"'%'"}, - {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"''"}, - {"type":"Punctuation","value":")."}, + {"type":"NameVariable","value":"phFrame"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"FIRST-CHILD"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"first-child"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"RETURN"}, + {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcString"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"END"}, + {"type":"NameVariable","value":"getMouseXY"}, + {"type":"Punctuation","value":"("}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FUNCTION"}, - {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"phFrame,"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* resolveOsVars */"}, - {"type":"Text","value":"\n\n"}, - {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveSequence) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveSequence Procedure"}, - {"type":"Text","value":"\n"}, - {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"resolveSequence"}, + {"type":"NameVariable","value":"iMouseX,"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"RETURNS"}, + {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"NameVariable","value":"iMouseY"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"WHILE"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"VALID-HANDLE"}, {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":"):"}, + {"type":"Text","value":"\n\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcString"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"TYPE "}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"LiteralStringDouble","value":"\"RECTANGLE\""}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER "}, - {"type":"Punctuation","value":")"}, + {"type":"NameVariable","value":"iMouseX"}, {"type":"Text","value":" "}, + {"type":"NameVariable","value":"\u003e"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Return a string where sequence nr for file is resolved\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"X\n "}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFileNr"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iMouseX"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"NameVariable","value":"\u003c"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"X "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"WIDTH-PIXELS\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSeqMask"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"NameVariable","value":"iMouseY"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"\u003e"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y\n "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSeqFormat"}, + {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"iMouseY"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"NameVariable","value":"\u003c"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO "}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"Y "}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"HEIGHT-PIXELS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"cFileName"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"hWidget"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcString"}, + {"type":"NameVariable","value":"hWidget"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"NEXT-SIBLING"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* User can specify a sequence for the file. The length of\n * the tag sets the format: \u003c###\u003e translates to a 3-digit nr\n * Special case is \u003c#\u003e which translates to no leading zeros\n */"}, + {"type":"KeywordReserved","value":"RETURN "}, + {"type":"NameVariable","value":"?"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF "}, + {"type":"CommentPreproc","value":"{\u0026timerStop}"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,"}, - {"type":"LiteralStringSingle","value":"'\u003c#'"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"CommentMultiline","value":"/* getWidgetUnderMouse */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getWorkFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getWorkFolder Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"AND"}, + {"type":"NameVariable","value":"getWorkFolder"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"index"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,"}, - {"type":"LiteralStringSingle","value":"'#\u003e'"}, - {"type":"Punctuation","value":")"}, + {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"\u003e"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"0"}, + {"type":"CommentMultiline","value":"/* parameter-definitions */"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSeqMask"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,"}, - {"type":"KeywordReserved","value":"INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,"}, - {"type":"LiteralStringSingle","value":"'\u003c#'"}, - {"type":"Punctuation","value":"))."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Cached the value in a global var */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* \u003c#####\u003etralalala */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSeqMask"}, + {"type":"NameVariable","value":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SUBSTRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSeqMask,"}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":","}, - {"type":"KeywordReserved","value":"INDEX"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSeqMask,"}, - {"type":"LiteralStringSingle","value":"'\u003e'"}, - {"type":"Punctuation","value":"))."}, - {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* \u003c#####\u003e */"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSeqFormat"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringSingle","value":"''"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSeqMask,"}, - {"type":"LiteralStringSingle","value":"'\u003c\u003e'"}, - {"type":"Punctuation","value":")."}, + {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* ##### */"}, + {"type":"KeywordReserved","value":"DO"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cSeqFormat"}, + {"type":"NameVariable","value":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, + {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cSeqFormat,"}, - {"type":"LiteralStringSingle","value":"'#'"}, + {"type":"LiteralStringDouble","value":"\"DataDigger\""}, {"type":"NameVariable","value":","}, - {"type":"LiteralStringSingle","value":"'9'"}, + {"type":"Text","value":" "}, + {"type":"LiteralStringDouble","value":"\"WorkFolder\""}, {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Possibility to specify where DD files are created */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSeqFormat"}, + {"type":"NameVariable","value":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'9'"}, + {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cSeqFormat"}, + {"type":"NameVariable","value":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"LiteralStringSingle","value":"'\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e9'"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"setFileNr"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"REPEAT"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iFileNr"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringSingle","value":"'' THEN\n gcWorkFolder = getProgramDir().\n ELSE\n DO:\n gcWorkFolder = RIGHT-TRIM(gcWorkFolder,'/\\') + '\\'.\n gcWorkFolder = resolveOsVars(gcWorkFolder).\n RUN createFolder(gcWorkFolder).\n\n FILE-INFO:FILE-NAME = gcWorkFolder.\n IF FILE-INFO:FULL-PATHNAME = ? THEN gcWorkFolder = getProgramDir().\n END.\n END.\n\n RETURN gcWorkFolder.\n\nEND FUNCTION. /* getWorkFolder */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-getXmlNodeName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getXmlNodeName Procedure\nFUNCTION getXmlNodeName RETURNS CHARACTER\n ( pcFieldName AS CHARACTER ) :\n /* Return a name that is safe to use in XML output\n */\n pcFieldName = REPLACE(pcFieldName,'%', '_').\n pcFieldName = REPLACE(pcFieldName,'#', '_').\n\n RETURN pcFieldName.\n\nEND FUNCTION. /* getXmlNodeName */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDataServer) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDataServer Procedure\nFUNCTION isDataServer RETURNS LOGICAL\n ( INPUT pcDataSrNameOrDbName AS CHARACTER\n ):\n RETURN CAN-FIND(ttDataserver WHERE ttDataserver.cLDBNameDataserver = pcDataSrNameOrDbName).\n\nEND FUNCTION. /* isDataServer */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isDefaultFontsChanged) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isDefaultFontsChanged Procedure\nFUNCTION isDefaultFontsChanged RETURNS LOGICAL\n ( /* parameter-definitions */ ) :\n /* Returns whether the default fonts 0-7 were changed.\n */\n DEFINE VARIABLE cFontSize AS CHARACTER NO-UNDO EXTENT 8.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n\n /* These are the expected fontsizes of the text 'DataDigger' */\n cFontSize[1] = '70/14'. /* font0 */\n cFontSize[2] = '54/13'. /* font1 */\n cFontSize[3] = '70/14'. /* font2 */\n cFontSize[4] = '70/14'. /* font3 */\n cFontSize[5] = '54/13'. /* font4 */\n cFontSize[6] = '70/16'. /* font5 */\n cFontSize[7] = '65/13'. /* font6 */\n cFontSize[8] = '54/13'. /* font7 */\n\n checkFont:\n DO i = 0 TO 7:\n IF cFontSize[i + 1] \u003c\u003e SUBSTITUTE('\u00261/\u00262'\n , FONT-TABLE:GET-TEXT-WIDTH-PIXELS('DataDigger',i)\n , FONT-TABLE:GET-TEXT-HEIGHT-PIXELS(i)\n ) THEN RETURN TRUE.\n END. /* checkFont */\n\n RETURN FALSE.\n\nEND FUNCTION. /* isDefaultFontsChanged */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isFileLocked) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isFileLocked Procedure\nFUNCTION isFileLocked RETURNS LOGICAL\n ( pcFileName AS CHARACTER ) :\n /* Check whether a file is locked on the file system\n */\n DEFINE VARIABLE iFileHandle AS INTEGER NO-UNDO.\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE nReturn AS INTEGER NO-UNDO.\n\n /* Try to lock the file agains writing */\n RUN CreateFileA ( INPUT pcFileName\n , INPUT {\u0026GENERIC_WRITE}\n , {\u0026FILE_SHARE_READ}\n , 0\n , {\u0026OPEN_EXISTING}\n , {\u0026FILE_ATTRIBUTE_NORMAL}\n , 0\n , OUTPUT iFileHandle\n ).\n\n /* Release file handle */\n {\u0026_proparse_prolint-nowarn(varusage)}\n RUN CloseHandle (INPUT iFileHandle, OUTPUT nReturn).\n\n RETURN (iFileHandle = -1).\n\nEND FUNCTION. /* isFileLocked */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isMouseOver) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isMouseOver Procedure\nFUNCTION isMouseOver RETURNS LOGICAL\n ( phWidget AS HANDLE ) :\n /* Return whether the mouse is currently over a certain widget\n */\n DEFINE VARIABLE iMouseX AS INTEGER NO-UNDO.\n DEFINE VARIABLE iMouseY AS INTEGER NO-UNDO.\n\n IF NOT VALID-HANDLE(phWidget) THEN RETURN FALSE.\n RUN getMouseXY(INPUT phWidget:FRAME, OUTPUT iMouseX, OUTPUT iMouseY).\n\n RETURN ( iMouseX \u003e= phWidget:X\n AND iMouseX \u003c= phWidget:X + phWidget:WIDTH-PIXELS\n AND iMouseY \u003e= phWidget:Y\n AND iMouseY \u003c= phWidget:Y + phWidget:HEIGHT-PIXELS ).\n\nEND FUNCTION. /* isMouseOver */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isTableFilterUsed) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isTableFilterUsed Procedure\nFUNCTION isTableFilterUsed RETURNS LOGICAL\n ( INPUT TABLE ttTableFilter ) :\n /* Returns whether any setting is used for table filtering\n */\n FIND ttTableFilter NO-ERROR.\n IF NOT AVAILABLE ttTableFilter THEN RETURN FALSE.\n\n /* Main toggles */\n IF ttTableFilter.lShowNormal = FALSE\n OR ttTableFilter.lShowSchema \u003c\u003e LOGICAL(getRegistry('DataDigger','ShowHiddenTables'))\n OR ttTableFilter.lShowVst = TRUE\n OR ttTableFilter.lShowSql = TRUE\n OR ttTableFilter.lShowOther = TRUE\n OR ttTableFilter.lShowHidden = TRUE\n OR ttTableFilter.lShowFrozen = TRUE THEN RETURN TRUE.\n\n /* Show these tables */\n IF ttTableFilter.cTableNameShow \u003c\u003e ?\n AND ttTableFilter.cTableNameShow \u003c\u003e ''\n AND ttTableFilter.cTableNameShow \u003c\u003e '*' THEN RETURN TRUE.\n\n /* But hide these */\n IF ttTableFilter.cTableNameHide \u003c\u003e ?\n AND ttTableFilter.cTableNameHide \u003c\u003e '' THEN RETURN TRUE.\n\n /* Show only tables that contain all of these fields */\n IF ttTableFilter.cTableFieldShow \u003c\u003e ?\n AND ttTableFilter.cTableFieldShow \u003c\u003e ''\n AND ttTableFilter.cTableFieldShow \u003c\u003e '*' THEN RETURN TRUE.\n\n /* But hide tables that contain any of these */\n IF ttTableFilter.cTableFieldHide \u003c\u003e ?\n AND ttTableFilter.cTableFieldHide \u003c\u003e '' THEN RETURN TRUE.\n\n /* else */\n RETURN FALSE.\n\nEND FUNCTION. /* isTableFilterUsed */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-isValidCodePage) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION isValidCodePage Procedure\nFUNCTION isValidCodePage RETURNS LOGICAL\n (pcCodepage AS CHARACTER):\n /* Returns whether pcCodePage is valid\n */\n {\u0026_proparse_prolint-nowarn(varusage)}\n DEFINE VARIABLE cDummy AS LONGCHAR NO-UNDO.\n\n IF pcCodePage = ''"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iFileNr"}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"+"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"LiteralNumberInteger","value":"1"}, + {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"SEARCH"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,cSeqMask,"}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"STRING"}, + {"type":"Text","value":"\n\n "}, + {"type":"NameVariable","value":"FIX"}, + {"type":"Operator","value":"-"}, + {"type":"NameVariable","value":"CODEPAGE"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iFileNr,cSeqFormat"}, - {"type":"Punctuation","value":"))))"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cFileName"}, + {"type":"NameVariable","value":"cDummy"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"REPLACE"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"cFileName,cSeqMask,"}, - {"type":"KeywordReserved","value":"TRIM"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"STRING"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"iFileNr,cSeqFormat"}, - {"type":"Punctuation","value":")))."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"LEAVE"}, + {"type":"NameVariable","value":"pcCodepage"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setFileNr"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cFileName"}, + {"type":"KeywordReserved","value":"NOT"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"ERROR-STATUS"}, + {"type":"Punctuation","value":":"}, + {"type":"KeywordReserved","value":"ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"END"}, @@ -23159,105 +20510,62 @@ {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* resolveSequence */"}, + {"type":"CommentMultiline","value":"/* isValidCodePage */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColor Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-readFile) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION readFile Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setColor"}, + {"type":"NameVariable","value":"readFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER\n "}, - {"type":"Punctuation","value":"("}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piColor"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Set color nr in the color tt\n */"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"BUFFER"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"FOR"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"ttColor"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"KeywordReserved","value":"FIND"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"WHERE"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordType","value":"LONGCHAR\n "}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFilename"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, + {"type":"KeywordType","value":"CHARACTER"}, + {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NOT"}, + {"type":"CommentMultiline","value":"/* Read contents of a file as a longchar.\n */"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AVAILABLE"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, + {"type":"NameVariable","value":"cContent"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN\n "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"DO"}, - {"type":"Punctuation","value":":"}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"CREATE"}, + {"type":"KeywordType","value":"LONGCHAR "}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"ASSIGN"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"cName"}, + {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"cLine"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"END"}, + {"type":"KeywordType","value":"CHARACTER"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, - {"type":"CommentMultiline","value":"/* Set to default value from settings */"}, - {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piColor"}, + {"type":"KeywordReserved","value":"SEARCH"}, + {"type":"Punctuation","value":"("}, + {"type":"NameVariable","value":"pcFilename"}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, @@ -23266,170 +20574,171 @@ {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"piColor"}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"KeywordReserved","value":"FROM"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"getRegistry"}, + {"type":"KeywordReserved","value":"VALUE"}, {"type":"Punctuation","value":"("}, - {"type":"LiteralStringSingle","value":"'DataDigger:Colors'"}, - {"type":"NameVariable","value":","}, + {"type":"NameVariable","value":"pcFilename"}, + {"type":"Punctuation","value":")."}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"REPEAT"}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"IMPORT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcName"}, - {"type":"Punctuation","value":"))"}, + {"type":"KeywordReserved","value":"UNFORMATTED"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, + {"type":"NameVariable","value":"cLine"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordReserved","value":"IF"}, + {"type":"Text","value":"\n "}, + {"type":"NameVariable","value":"cContent"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ERROR-STATUS"}, - {"type":"Punctuation","value":":"}, - {"type":"KeywordReserved","value":"ERROR"}, + {"type":"Operator","value":"="}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"THEN"}, + {"type":"NameVariable","value":"cContent"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piColor"}, + {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"LiteralStringDouble","value":"\"~n\""}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"?"}, + {"type":"Operator","value":"+"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"cLine"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, + {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iColor"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, + {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"piColor"}, + {"type":"KeywordReserved","value":"CLOSE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, + {"type":"KeywordReserved","value":"END"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"bColor"}, - {"type":"Punctuation","value":"."}, - {"type":"NameVariable","value":"iColor"}, + {"type":"NameVariable","value":"cContent"}, {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n\n"}, + {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"CommentMultiline","value":"/* setColor */"}, + {"type":"CommentMultiline","value":"/* readFile */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, - {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColumnWidthList Procedure"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-removeConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION removeConnection Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"setColumnWidthList"}, + {"type":"NameVariable","value":"removeConnection"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, + {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"phBrowse"}, - {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE\n "}, - {"type":"NameVariable","value":","}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"INPUT"}, - {"type":"Text","value":" "}, - {"type":"NameVariable","value":"pcWidthList"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, - {"type":"Punctuation","value":"):"}, + {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, - {"type":"CommentMultiline","value":"/* Set all specified columns in pcWidthList to a specified width\n */"}, + {"type":"CommentMultiline","value":"/* Remove record from connection temp-table\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cColumnName"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"cListItem"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"CHARACTER"}, + {"type":"NameVariable","value":"bfDatabase"}, + {"type":"Punctuation","value":"."}, + {"type":"NameVariable","value":"cLogicalName"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"Operator","value":"="}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcDatabase"}, + {"type":"Text","value":" "}, + {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"hColumn"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"HANDLE "}, + {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, + {"type":"KeywordReserved","value":"DELETE"}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"bfDatabase"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordReserved","value":"TRUE"}, + {"type":"Punctuation","value":"."}, + {"type":"Text","value":"\n\n"}, + {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"iColumnWidth"}, + {"type":"KeywordReserved","value":"FUNCTION"}, + {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"AS"}, + {"type":"CommentMultiline","value":"/* removeConnection */"}, + {"type":"Text","value":"\n\n"}, + {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, + {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveOsVars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveOsVars Procedure"}, + {"type":"Text","value":"\n"}, + {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"NameVariable","value":"resolveOsVars"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"KeywordDeclaration","value":"DEFINE"}, + {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"VARIABLE"}, + {"type":"KeywordType","value":"CHARACTER\n "}, + {"type":"Punctuation","value":"("}, + {"type":"Text","value":" "}, + {"type":"NameVariable","value":"pcString"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"i"}, - {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"CHARACTER "}, + {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-UNDO"}, - {"type":"Punctuation","value":"."}, + {"type":"Punctuation","value":":"}, + {"type":"Text","value":"\n\n "}, + {"type":"CommentMultiline","value":"/* Return a string with OS vars resolved\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, - {"type":"NameVariable","value":"j"}, - {"type":"Text","value":" "}, + {"type":"NameVariable","value":"i"}, + {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER "}, + {"type":"KeywordType","value":"INTEGER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, @@ -23446,43 +20755,8 @@ {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"pcWidthList"}, - {"type":"Punctuation","value":"):"}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cListItem"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"NameVariable","value":"i,pcWidthList"}, - {"type":"Punctuation","value":")."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"cColumnName"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"1"}, - {"type":"NameVariable","value":",cListItem,"}, - {"type":"LiteralStringSingle","value":"':'"}, - {"type":"Punctuation","value":")"}, - {"type":"Text","value":" "}, - {"type":"KeywordReserved","value":"NO-ERROR"}, - {"type":"Punctuation","value":"."}, - {"type":"Text","value":"\n "}, - {"type":"NameVariable","value":"iColumnWidth"}, - {"type":"Text","value":" "}, - {"type":"Operator","value":"="}, - {"type":"Text","value":" "}, - {"type":"KeywordType","value":"INTEGER"}, - {"type":"Punctuation","value":"("}, - {"type":"KeywordReserved","value":"ENTRY"}, - {"type":"Punctuation","value":"("}, - {"type":"LiteralNumberInteger","value":"2"}, - {"type":"NameVariable","value":",cListItem,"}, - {"type":"LiteralStringSingle","value":"':'"}, + {"type":"NameVariable","value":"pcString,"}, + {"type":"LiteralStringSingle","value":"'%'):\n IF i MODULO 2 = 0\n AND OS-GETENV(ENTRY(i,pcString,'%')) \u003c\u003e ? THEN\n ENTRY(i,pcString,'%') = OS-GETENV(ENTRY(i,pcString,'%')).\n END.\n\n pcString = REPLACE(pcString,'%','').\n RETURN pcString.\nEND FUNCTION. /* resolveOsVars */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-resolveSequence) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION resolveSequence Procedure\nFUNCTION resolveSequence RETURNS CHARACTER\n ( pcString AS CHARACTER ) :\n /* Return a string where sequence nr for file is resolved\n */\n DEFINE VARIABLE iFileNr AS INTEGER NO-UNDO.\n DEFINE VARIABLE cSeqMask AS CHARACTER NO-UNDO .\n DEFINE VARIABLE cSeqFormat AS CHARACTER NO-UNDO .\n DEFINE VARIABLE cFileName AS CHARACTER NO-UNDO.\n\n cFileName = pcString.\n\n /* User can specify a sequence for the file. The length of\n * the tag sets the format: \u003c###\u003e translates to a 3-digit nr\n * Special case is \u003c#\u003e which translates to no leading zeros\n */\n IF INDEX(cFileName,'\u003c#') \u003e 0\n AND index(cFileName,'#\u003e') \u003e 0 THEN\n DO:\n cSeqMask = SUBSTRING(cFileName,INDEX(cFileName,'\u003c#')). /* \u003c#####\u003etralalala */\n cSeqMask = SUBSTRING(cSeqMask,1,INDEX(cSeqMask,'\u003e')). /* \u003c#####\u003e */\n cSeqFormat = TRIM(cSeqMask,'\u003c\u003e'). /* ##### */\n cSeqFormat = REPLACE(cSeqFormat,'#','9').\n IF cSeqFormat = '9' THEN cSeqFormat = '\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e\u003e9'.\n\n setFileNr:\n REPEAT:\n iFileNr = iFileNr + 1.\n IF SEARCH(REPLACE(cFileName,cSeqMask,TRIM(STRING(iFileNr,cSeqFormat)))) = ? THEN\n DO:\n cFileName = REPLACE(cFileName,cSeqMask,TRIM(STRING(iFileNr,cSeqFormat))).\n LEAVE setFileNr.\n END.\n END.\n END.\n\n RETURN cFileName.\n\nEND FUNCTION. /* resolveSequence */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColor Procedure\nFUNCTION setColor RETURNS INTEGER\n ( pcName AS CHARACTER\n , piColor AS INTEGER) :\n /* Set color nr in the color tt\n */\n DEFINE BUFFER bColor FOR ttColor.\n\n FIND bColor WHERE bColor.cName = pcName NO-ERROR.\n IF NOT AVAILABLE bColor THEN\n DO:\n CREATE bColor.\n ASSIGN bColor.cName = pcName.\n END.\n\n /* Set to default value from settings */\n IF piColor = ? THEN\n DO:\n piColor = INTEGER(getRegistry('DataDigger:Colors', pcName)) NO-ERROR.\n IF ERROR-STATUS:ERROR THEN piColor = ?.\n END.\n\n bColor.iColor = piColor.\n RETURN bColor.iColor.\n\nEND FUNCTION. /* setColor */\n\n/* _UIB-CODE-BLOCK-END */\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-setColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setColumnWidthList Procedure\nFUNCTION setColumnWidthList RETURNS LOGICAL\n ( INPUT phBrowse AS HANDLE\n , INPUT pcWidthList AS CHARACTER):\n /* Set all specified columns in pcWidthList to a specified width\n */\n DEFINE VARIABLE cColumnName AS CHARACTER NO-UNDO.\n DEFINE VARIABLE cListItem AS CHARACTER NO-UNDO.\n DEFINE VARIABLE hColumn AS HANDLE NO-UNDO.\n DEFINE VARIABLE iColumnWidth AS INTEGER NO-UNDO.\n DEFINE VARIABLE i AS INTEGER NO-UNDO.\n DEFINE VARIABLE j AS INTEGER NO-UNDO.\n\n DO i = 1 TO NUM-ENTRIES(pcWidthList):\n cListItem = ENTRY(i,pcWidthList).\n cColumnName = ENTRY(1,cListItem,':') NO-ERROR.\n iColumnWidth = INTEGER(ENTRY(2,cListItem,':'"}, {"type":"Punctuation","value":"))"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"},