[ {"type":"CommentSingle","value":"//Source of this test file: https://github.com/patrickTingen/DataDigger/blob/master/DataDiggerLib.p"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12\n\u0026ANALYZE-RESUME\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/*------------------------------------------------------------------------\n\n Name: DataDiggerLib.p\n Desc: Library for DataDigger functions\n\n------------------------------------------------------------------------*/"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* This .W file was created with the Progress AppBuilder. */"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/*----------------------------------------------------------------------*/"}, {"type":"Text","value":"\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcSaveDatabaseList"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"giDataserverNr"}, {"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":" "}, {"type":"CommentMultiline","value":"/* [JAG 01-11-2019] */"}, {"type":"Text","value":"\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glDirtyCache"}, {"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":"CommentMultiline","value":"/* Buildnr, temp-tables and forward defs */"}, {"type":"Text","value":"\n"}, {"type":"CommentPreproc","value":"{ DataDigger.i }"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetUserNameA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"ADVAPI32.DLL\""}, {"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":"mUserId"}, {"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":"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":"NameVariable","value":"intBufferSize"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"RETURN "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"intResult"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SHORT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* Detect bitness of running Progress version\n * See Progress kb #54631\n */"}, {"type":"CommentPreproc","value":"\n\u0026IF PROVERSION \u003c= '8' \u0026THEN /* OE 10+ */\n \u0026IF PROVERSION \u003e= '11.3' \u0026THEN /* PROCESS-ARCHITECTURE function is available */\n \u0026IF PROCESS-ARCHITECTURE = 32 \u0026THEN /* 32-bit pointers */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n \u0026ELSEIF PROCESS-ARCHITECTURE = 64 \u0026THEN /* 64-bit pointers */\n \u0026GLOBAL-DEFINE POINTERTYPE INT64\n \u0026GLOBAL-DEFINE POINTERBYTES 8\n \u0026ENDIF /* PROCESS-ARCHITECTURE */\n \u0026ELSE /* Can't check architecture pre-11.3 so default to 32-bit */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n \u0026ENDIF /* PROVERSION \u003e 11.3 */\n\u0026ELSE /* pre-OE10 always 32-bit on Windows */\n \u0026GLOBAL-DEFINE POINTERTYPE LONG\n \u0026GLOBAL-DEFINE POINTERBYTES 4\n\u0026ENDIF /* PROVERSION \u003c 8 */"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetKeyboardState"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KBState"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS "}, {"type":"CommentPreproc","value":"{\u0026POINTERTYPE}"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* memptr */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"RetVal"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* bool */"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* Windows API entry point */"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ShowScrollBar"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KeywordReserved","value":"hwnd "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"fnBar"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"fShow"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SendMessageA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KeywordReserved","value":"hwnd "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"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":"wmsg"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"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":"wparam"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"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":"lparam"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"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":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"rc"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"RedrawWindow"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"v"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"hwnd"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"v"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"rect"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"v"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"rgn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"v"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"flags"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"v"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"ret"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SetWindowTextA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KeywordReserved","value":"hwnd"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"long"}, {"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":"txt"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetWindow"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"hwnd"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"uCmd"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hwndOther"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetParent"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"type":"Text","value":" "}, {"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":"hwndChild"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hwndParent"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetCursorPos"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32\""}, {"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":"lpPoint"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS "}, {"type":"CommentPreproc","value":"{\u0026POINTERTYPE}"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* memptr */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GetSysColor"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"nDspElement"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"COLORREF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ScreenToClient"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"hWnd "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"lpPoint"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"MEMPTR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* Transparency */"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SetWindowLongA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KeywordReserved","value":"HWND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"nIndex"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"dwNewLong"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"stat"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SetLayeredWindowAttributes"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"user32.dll\""}, {"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":"KeywordReserved","value":"HWND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"crKey"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"bAlpha"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SHORT"}, {"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":"dwFlagsas"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"stat"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SHORT"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n\n"}, {"type":"CommentMultiline","value":"/* Find out if a file is locked */"}, {"type":"CommentPreproc","value":"\n\u0026GLOBAL-DEFINE GENERIC_WRITE 1073741824 /* \u0026H40000000 */\n\u0026GLOBAL-DEFINE OPEN_EXISTING 3\n\u0026GLOBAL-DEFINE FILE_SHARE_READ 1 /* = \u0026H1 */\n\u0026GLOBAL-DEFINE FILE_ATTRIBUTE_NORMAL 128 /* = \u0026H80 */"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"CreateFileA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"kernel32\""}, {"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":"lpFileName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"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":"dwDesiredAccess"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"dwShareMode"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"lpSecurityAttributes"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"dwCreationDisposition"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"dwFlagsAndAttributes"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"hTemplateFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"CloseHandle"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"kernel32\""}, {"type":"Text","value":" "}, {"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":"hObject"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* Used in update check / about window */"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"URLDownloadToFileA"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"URLMON.DLL\""}, {"type":"Text","value":" "}, {"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":"pCaller"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"szURL"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"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":"szFilename"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"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":"dwReserved"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"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":"lpfnCB"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"LONG"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* URLDownloadToFileA */"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"DeleteUrlCacheEntry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTERNAL "}, {"type":"LiteralStringDouble","value":"\"WININET.DLL\""}, {"type":"Text","value":" "}, {"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":"lbszUrlName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* DeleteUrlCacheEntry */"}, {"type":"Text","value":"\n\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColor"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIELD"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIELD"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iColor"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INDEX"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iPrim"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PRIMARY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFont"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIELD"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIELD"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFont"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INDEX"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iPrim"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PRIMARY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* If you have trouble with the cache, disable it in the settings screen */"}, {"type":"Text","value":"\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glCacheTableDefs"}, {"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"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glCacheFieldDefs"}, {"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":"CommentMultiline","value":"/* Vars for caching dirnames */"}, {"type":"Text","value":"\n"}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcProgramDir"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"gcWorkFolder"}, {"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":"CommentMultiline","value":"/* Locking / unlocking windows */"}, {"type":"CommentPreproc","value":"\n\u0026GLOBAL-DEFINE WM_SETREDRAW 11\n\u0026GLOBAL-DEFINE RDW_ALLCHILDREN 128\n\u0026GLOBAL-DEFINE RDW_ERASE 4\n\u0026GLOBAL-DEFINE RDW_INVALIDATE 1"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\n\u0026ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* ******************** Preprocessor Definitions ******************** */"}, {"type":"CommentPreproc","value":"\n\n\u0026Scoped-define PROCEDURE-TYPE Procedure\n\u0026Scoped-define DB-AWARE no"}, {"type":"Text","value":"\n\n\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-PREPROCESSOR-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME"}, {"type":"Text","value":"\n\n\n"}, {"type":"CommentMultiline","value":"/* ************************ Function Prototypes ********************** */"}, {"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-addConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD addConnection Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"addConnection"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\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":"pcSection"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-formatQueryString) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD formatQueryString Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"formatQueryString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQueryString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plExpanded"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColor Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColor"}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getColorByRGB) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColorByRGB Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColorByRGB"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piRed"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piGreen"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piBlue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getColumnLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColumnLabel Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColumnLabel"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFieldBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getColumnWidthList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColumnWidthList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getDatabaseList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getDatabaseList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getDatabaseList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getEscapedData) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getEscapedData Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getEscapedData"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTarget"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD 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":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getFileCategory Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"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":"piFileNumber"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD 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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getImagePath Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getImagePath"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getIndexFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getIndexFields Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getIndexFields"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFlags"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getKeyList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getKeyList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getKeyList"}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getLinkInfo Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getMaxLength) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getMaxLength Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getMaxLength"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getOsErrorDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getOsErrorDesc Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getOsErrorDesc"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piOsError"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD 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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getQuery) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getQuery Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"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":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"INTEGER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getReadableQuery Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getReadableQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getRegistry Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getSchemaHolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getSchemaHolder Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getSchemaHolder"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getStackSize) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getStackSize Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getStackSize"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getTableDesc Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getTableDesc"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"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":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getTableLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTableLabel Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getTableLabel"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"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":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getTableList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getTableList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getTableList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseFilter"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableFilter"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getUserName Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getUserName"}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getWidgetUnderMouse Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getWidgetUnderMouse"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFrame"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD getWorkFolder Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getWorkFolder"}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-getXmlNodeName) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD getXmlNodeName Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getXmlNodeName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-isDataServer) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isDataServer Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"isDataServer"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-isDefaultFontsChanged) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD isDefaultFontsChanged Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"isDefaultFontsChanged"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* parameter-definitions */"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD isFileLocked Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"isFileLocked"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD isMouseOver Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"isMouseOver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phWidget"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD 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":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD isValidCodePage Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"isValidCodePage"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\n "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcCodepage"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD readFile Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"readFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LONGCHAR\n "}, {"type":"Punctuation","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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD removeConnection Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD resolveOsVars Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"resolveOsVars"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD resolveSequence Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"resolveSequence"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD setColor Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setColor"}, {"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":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-FORWARD setColumnWidthList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setColumnWidthList"}, {"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":"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":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-setLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setLinkInfo Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setLinkInfo"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"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-setRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD setRegistry Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FORWARD"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"}, {"type":"Text","value":"\n\n\n"}, {"type":"CommentMultiline","value":"/* *********************** Procedure Settings ************************ */"}, {"type":"CommentPreproc","value":"\n\n\u0026ANALYZE-SUSPEND _PROCEDURE-SETTINGS"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Settings for THIS-PROCEDURE\n Type: Procedure\n Allow:\n Frames: 0\n Add Fields to: Neither\n Other Settings: CODE-ONLY COMPILE\n */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME _END-PROCEDURE-SETTINGS"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* ************************* Create Window ************************** */"}, {"type":"CommentPreproc","value":"\n\n\u0026ANALYZE-SUSPEND _CREATE-WINDOW"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* DESIGN Window definition (used by the UIB)\n CREATE WINDOW Procedure ASSIGN\n HEIGHT = 41\n WIDTH = 57.4.\n/* END WINDOW DEFINITION */\n */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\n\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure"}, {"type":"Text","value":"\n\n\n"}, {"type":"CommentMultiline","value":"/* *************************** Main Block *************************** */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* terminate it. */"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"ON"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CLOSE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THIS-PROCEDURE"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cEnvironment"}, {"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":"NameVariable","value":"cEnvironment"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"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":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"UNLOAD"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cEnvironment"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* CLOSE OF THIS-PROCEDURE */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* Caching settings must be set from within UI.\n * Since the library might be started from DataDigger.p\n * we cannot rely on the registry being loaded yet\n */"}, {"type":"Text","value":"\n"}, {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"NameVariable","value":"glCacheFieldDefs"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME"}, {"type":"Text","value":"\n\n\n"}, {"type":"CommentMultiline","value":"/* ********************** Internal Procedures *********************** */"}, {"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-applyChoose) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE applyChoose Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"applyChoose"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Apply the choose event to a dynamically created widget\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":"pihWidget"}, {"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\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALID-HANDLE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pihWidget"}, {"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":"\"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":"\"Apply CHOOSE to \u00261 \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TYPE"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NAME"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"APPLY "}, {"type":"LiteralStringSingle","value":"'choose'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"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":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* applyChoose */"}, {"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-applyEvent) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE applyEvent Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"applyEvent"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Apply an event to a dynamically created widget\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":"pihWidget"}, {"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":"pcEvent"}, {"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":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALID-HANDLE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pihWidget"}, {"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":"\"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":"\"Apply \u00261 to \u00262 \u00263\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAPS"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcEvent"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TYPE"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NAME"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"APPLY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcEvent"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pihWidget"}, {"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":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* applyEvent */"}, {"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-checkBackupFolder) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE checkBackupFolder Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"checkBackupFolder"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* If backup is on, create a folder for it\n */"}, {"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":"plFolderOk"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFolder"}, {"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":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnCreate\""}, {"type":"Punctuation","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":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnDelete\""}, {"type":"Punctuation","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":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnDelete\""}, {"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":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getDumpFileName"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"LiteralStringSingle","value":"'dump' /* action */\n , INPUT '' /* database */\n , INPUT '' /* table */\n , INPUT ''"}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* extension */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"BackupDir\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* template */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFolder"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"createFolder"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cFolder"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Now check if folder is actually created */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFolder"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"plFolderOk"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FULL-PATHNAME "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plFolderOk"}, {"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":"'CannotCreateBackupFolder'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFolder"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnCreate\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"NO\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnUpdate\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"NO\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"BackupOnDelete\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"NO\""}, {"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":"ELSE\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plFolderOk"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"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":"/* checkBackupFolder */"}, {"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-checkDir) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE checkDir Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"checkDir"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Check if a folder exists, is accessible etc\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":"pcFileName"}, {"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":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcError"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDumpDir"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cDirToCreate"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iDir"}, {"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":"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":"\"Check \u00261\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFileName"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* If no path is given, use startup folder */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cDumpDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTRING"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFileName,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"R-INDEX"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFileName,"}, {"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":"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 "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFileName"}, {"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":"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":"\"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":"\"Already exists as \u00261 (\u00262)\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FULL-PATHNAME"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-TYPE"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-TYPE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MATCHES "}, {"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":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Do not remember the answer \"No\" for this question, otherwise it will be\n * confusing the next time the user encounters this situation\n */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","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":"NameVariable","value":"overwrite"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"output"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"directory"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"named"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"exists"}, {"type":"NameVariable","value":";"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cannot"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"create"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"a"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"file"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"with"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"the"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"same"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"name"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"',"}, {"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":"/* Check dir */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-NAME "}, {"type":"Operator","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":"cDumpDir"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* Don't complain about not using a dir */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"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":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"showHelp"}, {"type":"Punctuation","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":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"does"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"not"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"exist"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDirToCreate"}, {"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":"\"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":"/* Check if the dir is writable */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FILE-INFO"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-TYPE"}, {"type":"Text","value":" "}, {"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"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"access"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"to"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"directory"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDirToCreate"}, {"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":"\"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":";"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cannot"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"create"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"a"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"dir"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"with"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"the"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"same"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"name"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"',"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDirToCreate"}, {"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":"\"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":"/* Create the dir. Creating an existing dir gives no error */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"OS-CREATE-DIR"}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"pcError"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","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":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","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":" "}, {"type":"CommentMultiline","value":"/* error */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":"/* 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-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":"clearColorCache"}, {"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":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColor"}, {"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":"/* 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":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"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":"\"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":"NameVariable","value":"getWorkFolder"}, {"type":"Punctuation","value":"()"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"cache\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FILE-INFORMATION"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FULL-PATHNAME "}, {"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":"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":"IMPORT"}, {"type":"Text","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":"MATCHES "}, {"type":"LiteralStringDouble","value":"\"*.xml\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OS-DELETE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALUE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"CLOSE"}, {"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":"/* 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":"NameVariable","value":"clearFontCache"}, {"type":"Text","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":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"Clearing font cache\""}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFont"}, {"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":"/* 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":"NameVariable","value":"clearMemoryCache"}, {"type":"Text","value":" "}, {"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":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","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":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"3"}, {"type":"NameVariable","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":"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"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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-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":"collectQueryInfo"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\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":"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":"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":"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":"iMaxQueryHistory"}, {"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":"iQueryNr"}, {"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":"iLoop"}, {"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":"cSetting"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"pcTable"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"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":"iMaxQueryHistory"}, {"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":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"10"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"collectQueries"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iLoop"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"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', pcTable, iLoop )).\n\n IF cSetting = '\u003cEmpty\u003e'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"collectQueries"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"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":"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":"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":"NameVariable","value":"iQueryNr"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSetting"}, {"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":"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":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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-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":"correctFilterList"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\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-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcPositive"}, {"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-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcNegative"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iWord"}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"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":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iWord"}, {"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":"pcPositive"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"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":"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 this word to the negative-list */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"pcNegative"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcNegative"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"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":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phSource"}, {"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":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":"."}, {"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":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DBNAME"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"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":"hExportTt"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, {"type":"Punctuation","value":"."}, {"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":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":"."}, {"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":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DBNAME"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"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":"hExportTt"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DEFAULT-BUFFER-HANDLE"}, {"type":"Punctuation","value":"."}, {"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":"iRow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"iRow"}, {"type":"Punctuation","value":")."}, {"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 "}, {"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":"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":"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":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DBNAME\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TABLE\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"LiteralStringDouble","value":"\"XML\""}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFileName"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"cError"}, {"type":"Text","value":" "}, {"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":"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"pcAction"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"DBNAME\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TABLE\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hExportTt"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFileName"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cMessage"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lDefaultDump"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plContinue"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plContinue"}, {"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":"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":" "}, {"type":"KeywordReserved","value":"MESSAGE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cMessage"}, {"type":"Text","value":" "}, {"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":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"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":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"plContinue"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"YES "}, {"type":"CommentMultiline","value":"/* Formatted */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* Encoding */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* SchemaLocation */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO "}, {"type":"CommentMultiline","value":"/* WriteSchema */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hExportTt"}, {"type":"Punctuation","value":"."}, {"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":"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":"NameVariable","value":"dynamicDump"}, {"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":"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":"pihBrowse"}, {"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":"picFile"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTimeStamp"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EXTENT"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"5"}, {"type":"Punctuation","value":"."}, {"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":"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":"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":"iBack"}, {"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":"iBuffer"}, {"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":"iColumn"}, {"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":"iExtent"}, {"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":"iRecords"}, {"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":"iTrailer"}, {"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":"lFirst"}, {"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":"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":"iBuffer"}, {"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":"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":"hBuffer[iBuffer]"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-BUFFER-HANDLE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iBuffer"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRecords"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cTimeStamp"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"STRING"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"YEAR"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"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":"KeywordReserved","value":"MONTH"}, {"type":"Punctuation","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":"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":"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":"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":"KeywordReserved","value":"TIME"}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"HH:MM:SS\""}, {"type":"Punctuation","value":":"}, {"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":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"to"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"value"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"picFile"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"no-echo"}, {"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":"Text","value":"\n "}, {"type":"NameVariable","value":"iBack"}, {"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":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"SEEK"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"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\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ON"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"STOP"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"UNDO"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LEAVE"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRecords"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRecords"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"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":"Text","value":"\n "}, {"type":"NameVariable","value":"hColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iBuffer"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"5"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"FALSE\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hField"}, {"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":"LEAVE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"SearchLoop"}, {"type":"Punctuation","value":"."}, {"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":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","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":"LiteralStringDouble","value":"\"recid\""}, {"type":"Punctuation","value":":"}, {"type":"NameVariable","value":"u"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"browseColumn"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lFirst"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lFirst"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"SEEK"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"seek"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"output"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iBack"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"PUT"}, {"type":"Text","value":" "}, {"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":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"EXPORT"}, {"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":"EXPORT"}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"UNFORMATTED "}, {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":":"}, {"type":"NameVariable","value":"u"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"CLOSE"}, {"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":"/* 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":"Text","value":" "}, {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"saveConfigFileSorted"}, {"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":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"getColumnSort"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"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":"OUTPUT"}, {"type":"Text","value":" "}, {"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":"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":"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":"hColumn"}, {"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":"iColumn"}, {"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":"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":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"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":"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":"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":"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":"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":"\"Sorting \u00261 on \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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\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":"Text","value":" "}, {"type":"NameVariable","value":"getDumpFileName"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Return a file name based on a template\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":"pcAction"}, {"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":"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":"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":"pcExtension"}, {"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":"pcTemplate"}, {"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":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFileName"}, {"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":"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":" "}, {"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":"cDayOfWeek"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"7"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INITIAL "}, {"type":"NameVariable","value":"["}, {"type":"LiteralStringSingle","value":"'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'"}, {"type":"NameVariable","value":"]"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"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":"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":"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":"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBuffer"}, {"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":"cUserId"}, {"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":"CommentMultiline","value":"/* Checks */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcAction,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"Dump,Create,Update,Delete\""}, {"type":"Punctuation","value":")"}, {"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":"MESSAGE "}, {"type":"LiteralStringSingle","value":"'Unknown action'"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcAction"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VIEW-AS"}, {"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":"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":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"IF"}, {"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":"'/\\') + '\\'.\n IF cDumpDir = ? OR cDumpDir = ''"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDumpDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\\\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cBackupDir"}, {"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":"\"DataDigger:Backup\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"BackupDir\""}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"LiteralStringSingle","value":"'/\\') + '\\'.\n IF cBackupDir = ? OR cBackupDir = ''"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cBackupDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003ebackup\\\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cLastDir"}, {"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":"\"DumpLastFileName\""}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"LiteralStringSingle","value":"'/\\'"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"cLastDir"}, {"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":"cLastDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u003cWORKDIR\u003edump\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cLastDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Sequences */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"Operator","value":"="}, {"type":"Text","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":"NameVariable","value":"pcFileName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"getFavourites"}, {"type":"Text","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":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"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":"bfConfig"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"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":"btFavGroup"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFavGroup"}, {"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":"bfConfig"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"'DataDigger:Favourites'"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"btFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"btFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cGroup"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"btFavGroup"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTables"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-FIND"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"btFavGroup"}, {"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":"CREATE"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"getFields"}, {"type":"Text","value":" "}, {"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":"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":"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":"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":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DATASET"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"dsFields"}, {"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":"cCacheFile"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cPrimIndexFields"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cQuery"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSelectedFields"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cUniqueIndexFields"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSDBName"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"hBufferField"}, {"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":"hBufferFile"}, {"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":"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":"iFieldExtent"}, {"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":"iFieldOrder"}, {"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":"lDataField"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iDataOrder"}, {"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":"i"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumn"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFieldCache"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumnCache"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumnCache"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTableFilter"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, {"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":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, {"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":"cSDBName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SDBNAME"}, {"type":"Punctuation","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":"KeywordReserved","value":"NUM-DBS "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"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":"/* caching */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glCacheFieldDefs"}, {"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":"/* Find the table. 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\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":"LiteralStringSingle","value":"'getFields - step 1: verify CRC'"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\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\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":"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":"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').\n RETURN.\n END.\n\n /* See if disk cache exists */\n cCacheFile = SUBSTITUTE('\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":"'*'.\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\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","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":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"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":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDataType,"}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"'clob,blob,raw'"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"lDataField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldExtent"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iExtent"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE"}, {"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":"Punctuation","value":":"}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"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":"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":"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":"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":"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":"NameVariable","value":"iFieldExtent"}, {"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":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldExtent"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"[\u00261]\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldExtent"}, {"type":"Punctuation","value":")"}, {"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":"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":"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":"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":" "}, {"type":"CommentMultiline","value":"/* For each extent nr */"}, {"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":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hBufferField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTRING"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"bTable"}, {"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":"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":"LiteralNumberInteger","value":"2"}, {"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":"Text","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":"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":"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":"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":"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":"Punctuation","value":"."}, {"type":"NameVariable","value":"lShow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FALSE\n "}, {"type":"Text","value":" "}, {"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 "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"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":"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":"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":"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":"NameVariable","value":"cFormatOrg"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"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":"KeywordReserved","value":"NO\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"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":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iDataOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"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":"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":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableCacheId"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"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":"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":"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":"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":"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":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glCacheFieldDefs"}, {"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":"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 second-level 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":"WRITE-XML"}, {"type":"Punctuation","value":"("}, {"type":"Text","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":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"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":"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":"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 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":"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":"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":"/* 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":"NameVariable","value":"getMouseXY"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"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":"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":"piMouseX"}, {"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":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piMouseY"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"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":"Text","value":"\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":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INT64 "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-UNDO"}, {"type":"Punctuation","value":"."}, {"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":"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":"NameVariable","value":"GetCursorPos"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"GET-POINTER-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"lp"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRet"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ScreenToClient"}, {"type":"Text","value":" "}, {"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":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lp"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"lp,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"piMouseY"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"GET-LONG"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lp,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"5"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\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\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":"\"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":"/* 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":"Text","value":" "}, {"type":"NameVariable","value":"getQueryTable"}, {"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":"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":"KeywordReserved","value":"table"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttQuery"}, {"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":"/* 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":"NameVariable","value":"getRegistryTable"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Return complete registry tt\n */"}, {"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":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttConfig"}, {"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":"/* 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":"Text","value":" "}, {"type":"NameVariable","value":"getTables"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\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":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"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":"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":"cCacheFile"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"hDbBuffer"}, {"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":"hDbStatusBuffer"}, {"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":"hDbQuery"}, {"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":"iDatabase"}, {"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":"cCacheTimeStamp"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cCacheDir"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaCacheFile"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cOneCacheFile"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableXml"}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NUM-DBS"}, {"type":"Punctuation","value":":"}, {"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":"Text","value":" "}, {"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":"NEXT "}, {"type":"NameVariable","value":"#"}, {"type":"KeywordReserved","value":"Database"}, {"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":"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"IN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WIDGET-POOL "}, {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, {"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":"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iDatabase"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hDbStatusBuffer"}, {"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":" "}, {"type":"NameVariable","value":"glCacheTableDefs"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"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":"\"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 table list from cache file \u00261\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cCacheFile"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"APPEND\""}, {"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":"NameVariable","value":"cCacheDir"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261cache\""}, {"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":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FROM"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaCacheFile"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaCacheFile"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BEGINS"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"db.\u00261;\""}, {"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":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cSchemaCacheFile,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaCacheFile,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cCacheFile,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\".\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cCacheFile,"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cOneCacheFile"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261\\\u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cCacheDir,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaCacheFile"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cOneCacheFile,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"APPEND\""}, {"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 "}, {"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":"INPUT"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ALIAS "}, {"type":"LiteralStringSingle","value":"'dictdb'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DATABASE"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"getSchema"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"p"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"glCacheTableDefs"}, {"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":"/* 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":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableXml"}, {"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":"hDbQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"IN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WIDGET-POOL "}, {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hDbBuffer"}, {"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":"\"._Db\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"IN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WIDGET-POOL "}, {"type":"LiteralStringDouble","value":"\"metaInfo\""}, {"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":" "}, {"type":"NameVariable","value":"hDbQuery"}, {"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":"#DB"}, {"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":"bTable"}, {"type":"Text","value":"\n "}, {"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":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hDbBuffer"}, {"type":"Punctuation","value":"::"}, {"type":"NameVariable","value":"_Db"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"slave"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","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":"ELSE"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"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":"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":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hDbQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hDbBuffer"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableXml"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"WRITE-XML"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"BY"}, {"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":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261cache\\db.\u00262;\u00263.\u00264.xml\""}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","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":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"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\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"BUFFER-COPY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LAST-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":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTableXml"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"WRITE-XML"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"EMPTY"}, {"type":"Text","value":" "}, {"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":" "}, {"type":"CommentMultiline","value":"/* IF LAST-OF */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":" "}, {"type":"CommentMultiline","value":"/* tt empty */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* 1 to num-dbs */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"getTablesFiltered"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter,"}, {"type":"Text","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":"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\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"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":"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":"cSearchFld"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cThisField"}, {"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":"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":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"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":"lRejected"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lFieldFound"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lNormal"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lSchema"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lVst"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lSql"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lOther"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lHidden"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lFrozen"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cNameShow"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cNameHide"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cFieldShow"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cFieldHide"}, {"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":"CommentMultiline","value":"/* This table **SHOULD** exist and have exactly 1 record */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"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":"ttTableFilter"}, {"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":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lNormal"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"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":"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":"Punctuation","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":"ttTableFilter"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lShowOther"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"lHidden"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"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":"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":"Text","value":" "}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableFieldShow"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cFieldHide"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, {"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":"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":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"correctFilterList"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"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 "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"correctFilterList"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"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\n "}, {"type":"NameVariable","value":"#"}, {"type":"KeywordReserved","value":"Table"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"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":"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":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cNameHide,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":"/* Check against filter-to-show */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"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":"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"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":"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":"Text","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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFields,"}, {"type":"Text","value":" "}, {"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":"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":"KeywordReserved","value":"DO"}, {"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":"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":"NameVariable","value":"iField"}, {"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":"ttTable"}, {"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":"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":"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":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"lFieldFound"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lFieldFound"}, {"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":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iSearch"}, {"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":"cFieldHide"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cSearchFld"}, {"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":"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFields,"}, {"type":"Text","value":" "}, {"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":"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":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"lRejected"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"iField"}, {"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":"ttTable"}, {"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":"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":"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":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"lRejected"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":" "}, {"type":"CommentMultiline","value":"/* do iField */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lRejected"}, {"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":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* else */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","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":"Punctuation","value":"."}, {"type":"NameVariable","value":"lShowInList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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"}, {"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":"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":"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":"cLine"}, {"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":"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabase"}, {"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":"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":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"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":"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":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MATCHES "}, {"type":"LiteralStringSingle","value":"'*:*=*'"}, {"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":"/* 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":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, {"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":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iNumQueries"}, {"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":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iNumQueries"}, {"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":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* queriesServed */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MATCHES "}, {"type":"LiteralStringDouble","value":"\"*:LastUsed=*\""}, {"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":"FIND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","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":"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":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTableFilter"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lShowSchema"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"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":"/* 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":"NameVariable","value":"loadSettings"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Load settings from ini files\n*/"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lValue"}, {"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":"CommentMultiline","value":"/* Help file is least important, so read that first */"}, {"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":"\"\u00261DataDiggerHelp.ini\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getProgramDir"}, {"type":"Punctuation","value":"()"}, {"type":"Text","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":"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.ini\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getProgramDir"}, {"type":"Punctuation","value":"()"}, {"type":"Text","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":"/* Per-user settings */"}, {"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":"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lValue"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"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"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"lockWindow"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\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":"iRet"}, {"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":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"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":"/* Find window in our tt of locked windows */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"hWindow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phWindow"}, {"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":"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":"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":"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":"plLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\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":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iLockCounter"}, {"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":"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":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"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":"\"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":"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":"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":" "}, {"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":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c"}, {"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":"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":"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":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"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\n "}, {"type":"CommentPreproc","value":"{\u0026_proparse_prolint-nowarn(varusage)}"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"RedrawWindow"}, {"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":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"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":"OUTPUT"}, {"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":"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"readConfigFile"}, {"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":"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":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cLine"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cChunk"}, {"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":"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTrimChars"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iLine"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"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":"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":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"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":" "}, {"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":"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":"NameVariable","value":"readFile"}, {"type":"Punctuation","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":"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":"NameVariable","value":"#LineLoop"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iLine"}, {"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":"cFile,"}, {"type":"LiteralStringDouble","value":"\"~n\""}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cChunk"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY"}, {"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":"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":" "}, {"type":"CommentMultiline","value":"/* trim very long lines */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cLine"}, {"type":"Text","value":" "}, {"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":"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":"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":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"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":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"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":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"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":"bfConfig"}, {"type":"Punctuation","value":"."}, {"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":"NameVariable","value":"cSection"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"bfConfig"}, {"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":"Punctuation","value":"."}, {"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":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"SUBSTRING"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cLine,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INDEX"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cLine,"}, {"type":"LiteralStringDouble","value":"\"=\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"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":"plUserSettings"}, {"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":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","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":"resetAnswers"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"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":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttConfig"}, {"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":"bfConfig"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"cSection,"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"flushRegistry"}, {"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":"/* 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":"Text","value":" "}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFilterFields"}, {"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":"pcButtons"}, {"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":"phBrowse"}, {"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\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"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":"iButton"}, {"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":"iCurrentPos"}, {"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":"iRightEdge"}, {"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":"iWidth"}, {"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":"hColumn"}, {"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":"hButton"}, {"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":"hFilterField"}, {"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":"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":"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":"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:makeSmall\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"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":"pcFilterFields"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hFilterField"}, {"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":"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":"KeywordReserved","value":"NO"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hFilterField"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hFilterField"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"Y "}, {"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":"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":"LiteralNumberInteger","value":"1"}, {"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: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":"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":"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":"Text","value":"\n "}, {"type":"NameVariable","value":"hButton"}, {"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":"Text","value":"\n "}, {"type":"NameVariable","value":"hButton"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"Y"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"23"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* filter buttons close to the browse */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iRightEdge"}, {"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":"Punctuation","value":"."}, {"type":"Text","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":"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":"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:firstVisibleColumn\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"firstVisibleColumn"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"VISIBLE"}, {"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":"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":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"LEAVE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"firstVisibleColumn"}, {"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:firstVisibleColumn\""}, {"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":"\"start\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"iField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"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":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFilter"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"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":"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":"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":"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":"Text","value":" "}, {"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":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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\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":"NameVariable","value":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"NameVariable","value":"\u003c"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"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":"CommentMultiline","value":"/* Does it fit on the screen? */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"5"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"4"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iWidth"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRightEdge"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iWidth"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","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":"hFilterField"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"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":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iCurrentPos"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"VISIBLE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phLeadButton"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phLeadButton"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"Y "}, {"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":"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":"/* 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-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":"restoreWindowPos"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Restore position / size of a window\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":"pcWindowName"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iValue"}, {"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":"iValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, {"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":"OR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cUserConfigFile"}, {"type":"Text","value":" "}, {"type":"Operator","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":"Text","value":"\n "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cUserConfigFile"}, {"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":"bfConfig"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lUser"}, {"type":"Text","value":" "}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"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":"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":"LiteralStringDouble","value":"\"[\u00261]\""}, {"type":"NameVariable","value":",bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Punctuation","value":")"}, {"type":"Text","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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"SKIP"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"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":"Text","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":"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":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FALSE"}, {"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":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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-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":"saveQuery"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Save a single query to the INI file.\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":"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":"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":"CHARACTER "}, {"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":"cQuery"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iNewNr"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"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":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"collectQueryInfo"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, {"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":"bQuery"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"pcTable"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"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"}, {"type":"Text","value":" "}, {"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":"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":"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":"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":"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":"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":"Text","value":" "}, {"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":"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":"NameVariable","value":"pcTable"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"BY"}, {"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":" "}, {"type":"NameVariable","value":"bQuery"}, {"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":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LEAVE "}, {"type":"NameVariable","value":"#QueryLoop"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"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":"Punctuation","value":"."}, {"type":"NameVariable","value":"iQueryNr"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iNewNr"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"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":"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":"Text","value":"\n\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":"/* 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":"NameVariable","value":"saveQueryTable"}, {"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":"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":"KeywordReserved","value":"table"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttQuery"}, {"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":"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":"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":"iMaxQueryHistory"}, {"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":"iQuery"}, {"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":"cSetting"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"MaxQueryHistory\""}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"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":"iMaxQueryHistory"}, {"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":"iMaxQueryHistory"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"10"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","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":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"pcTable"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"BY"}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cQueryTxt"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSetting"}, {"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":"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":"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":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"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":"Text","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":"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":"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":"?"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iQuery"}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"saveWindowPos"}, {"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":"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":"pcWindowName"}, {"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":"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":"Text","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":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcWindowName,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"Window:height\""}, {"type":"NameVariable","value":","}, {"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":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"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":"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":"Text","value":" "}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, {"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":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"glCacheFieldDefs"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL"}, {"type":"Punctuation","value":"("}, {"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":"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":"/* 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":"setFavourite"}, {"type":"Text","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":"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":"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":"pcGroupName"}, {"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":"plFavourite"}, {"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":"i"}, {"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":"cList"}, {"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":"cList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger:Favourites\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcGroupName"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cList"}, {"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":"cList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"pcGroupName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cList"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phWidget"}, {"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\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":"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":"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":"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"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iButtonPressed"}, {"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":"/* showHelp */"}, {"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-showScrollbars) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE showScrollbars Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"showScrollbars"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Hide or show scrollbars the hard way\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":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"Frame"}, {"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":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"horizontal"}, {"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 "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"vertical"}, {"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":"iv"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"retint"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"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":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"Frame"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"Frame"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HWND "}, {"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":"CommentPreproc","value":"\n\n \u0026scoped-define SB_HORZ 0\n \u0026scoped-define SB_VERT 1\n \u0026scoped-define SB_BOTH 3\n \u0026scoped-define SB_THUMBPOSITION 4"}, {"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":"NameVariable","value":"ShowScrollBar"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"Frame"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HWND"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026SB_HORZ}"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"horizontal"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iv"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"retint"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"ShowScrollBar"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"Frame"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HWND"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026SB_VERT}"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ip"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"vertical"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"NameVariable","value":","}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iv"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"retint"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"CommentPreproc","value":"\n\n \u0026undefine SB_HORZ\n \u0026undefine SB_VERT\n \u0026undefine SB_BOTH\n \u0026undefine SB_THUMBPOSITION"}, {"type":"Text","value":"\n\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":"/* ShowScrollbars */"}, {"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-unlockWindow) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE unlockWindow Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"unlockWindow"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Force a window to unlock\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\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":"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":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"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":"\"Window \u00261, force to unlock\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phWindow"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TITLE"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Find window in our tt of locked windows */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"hWindow"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phWindow"}, {"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":"ttWindowLock"}, {"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":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iLockCounter"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"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":"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":"NameVariable","value":"phWindow"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HWND"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026WM_SETREDRAW}"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRet"}, {"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":"NameVariable","value":"RedrawWindow"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"phWindow"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HWND"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026RDW_ALLCHILDREN}"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026RDW_ERASE}"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026RDW_INVALIDATE}"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iRet"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttWindowLock"}, {"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":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* unlockWindow */"}, {"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-updateFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateFields Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"updateFields"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Update the fields temp-table with settings from registry\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":"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":"pcTableName"}, {"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-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PARAMETER"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttField"}, {"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":"cCustomFormat"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSelectedFields"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cFieldOrder"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iColumnOrder"}, {"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":"iFieldOrder"}, {"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":"iMaxExtent"}, {"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":"lRecRowAtEnd"}, {"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":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumn"}, {"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":"1"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"Update field definitions for \u00261.\u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"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 "}, {"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":"'!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 "}, {"type":"CommentMultiline","value":"/* RECID and ROWID at the end? */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldOrder"}, {"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":"NameVariable","value":"lRecRowAtEnd"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"ROWID\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldOrder"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cFieldOrder"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"2"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"RECID\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldOrder"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cFieldOrder"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"2"}, {"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":"\"Field order for table \u00261: \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldOrder"}, {"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":"\"Rowid/recid at the end for table \u00261: \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lRecRowAtEnd"}, {"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":"bField"}, {"type":"Text","value":" "}, {"type":"CommentPreproc","value":"{\u0026TABLE-SCAN}"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Due to a bug the nr of decimals may be set on non-decimal fields\n * See PKB P185263 (article 18087) for more information\n * http://knowledgebase.progress.com/articles/Article/P185263\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDataType"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"'DECIMAL'"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iDecimals"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Was this field selected? */"}, {"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":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cSelectedFields,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFullName"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Customization option for the user to show/hide certain fields */"}, {"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":"'customShowField').\n PUBLISH 'customShowField'"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lShow"}, {"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":"'customShowField'"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Customization option for the user to adjust the format */"}, {"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":"'customFormat').\n PUBLISH 'customFormat'"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatatype,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFormat"}, {"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":"'customFormat'"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Restore changed field format. */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cCustomFormat"}, {"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.\u00262:format\""}, {"type":"NameVariable","value":",pcTableName,bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cCustomFormat"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"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":"cCustomFormat"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Restore changed field order. */"}, {"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":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFullName,cFieldOrder"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"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":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrderOrg"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Keep track of highest nr */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iFieldOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MAXIMUM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iFieldOrder,bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* f/e bField */"}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Only show first X of an extent */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iMaxExtent"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"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":"LiteralStringDouble","value":"\"MaxExtent\""}, {"type":"Punctuation","value":"))"}, {"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":"iMaxExtent"}, {"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":"iMaxExtent"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"100"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMaxExtent"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iExtent"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMaxExtent"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"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":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-FIND"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"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":"CommentMultiline","value":"/* Set new fields (no order assigned) at the end */"}, {"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":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iFieldRpos"}, {"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":"Text","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":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldOrder"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* If RECID+ROWID should be at the end then re-assign them */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"lRecRowAtEnd"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"RECID\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"ROWID\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"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":"Text","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":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldOrder"}, {"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":"/* Reorder fields to get rid of gaps */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iFieldOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"#FieldLoop"}, {"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":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NEXT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"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":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LEAVE "}, {"type":"NameVariable","value":"#FieldLoop"}, {"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":"Text","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":"iOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iFieldOrder"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Assign order nrs to columns to handle extents */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iColumnOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"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":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bField"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iOrder"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"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":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cFieldName"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iColumnOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iColumnOrder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iColumnNr"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iColumnOrder"}, {"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":"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":"/* updateFields */"}, {"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-updateMemoryCache) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE updateMemoryCache Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"updateMemoryCache"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n"}, {"type":"CommentMultiline","value":"/* Update the memory cache with current settings\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":"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":"pcTableName"}, {"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":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttField"}, {"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":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumn"}, {"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":"bField"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumn"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumn"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bFieldCache"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttFieldCache"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumnCache"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttColumnCache"}, {"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":"2"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"Update first-level cache for \u00261.\u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabase,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Delete old */"}, {"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":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bFieldCache"}, {"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":"bFieldCache"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n\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\n "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumnCache"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColumnCache"}, {"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":"bColumnCache"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n\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":"/* Create new */"}, {"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\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROCEDURE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* updateMemoryCache */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* ************************ Function Implementations ***************** */"}, {"type":"CommentPreproc","value":"\n\n\u0026IF DEFINED(EXCLUDE-addConnection) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION addConnection Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"addConnection"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL\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":"pcSection"}, {"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":"/* Add a connection to the temp-table\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-FIND"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLogicalName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabase"}, {"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":"CREATE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLogicalName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabase"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcSection"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"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":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF\n\n\u0026IF DEFINED(EXCLUDE-formatQueryString) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION formatQueryString Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"formatQueryString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQueryString"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"plExpanded"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LOGICAL "}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Return a properly formatted query string\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cReturnValue"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cReturnValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQueryString"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cReturnValue"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"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}"}, {"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":"cReturnValue"}, {"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":"/* formatQueryString */"}, {"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-getColor) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColor Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColor"}, {"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 color number for a color name\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":"Text","value":" "}, {"type":"NameVariable","value":"pcName"}, {"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":"bColor"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setColor"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcName,?"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ELSE\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bColor"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"iColor"}, {"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":"/* getColor */"}, {"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-getColorByRGB) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColorByRGB Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColorByRGB"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piRed"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piGreen"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piBlue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Return the color number for a RGB combination\n * if needed, add color to color table.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"i"}, {"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":"CommentMultiline","value":"/* See if already exists */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"i"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Text","value":" "}, {"type":"Operator","value":"-"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-RED-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piRed"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-GREEN-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piGreen"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-BLUE-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piBlue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"i"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Define new color */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"i"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NUM-ENTRIES"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NUM-ENTRIES "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NUM-ENTRIES "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"SET-DYNAMIC"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"SET-RED-VALUE "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piRed"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"SET-GREEN-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piGreen"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"COLOR-TABLE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"SET-BLUE-VALUE "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"i,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piBlue"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"i"}, {"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":"/* getColorByRGB */"}, {"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-getColumnLabel) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColumnLabel Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColumnLabel"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFieldBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Return column label, based on settings\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cColumnLabel"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cTemplate"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cTemplate"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"ColumnLabelTemplate\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTemplate"}, {"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":"cTemplate"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTemplate"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\u00261\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cColumnLabel"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cTemplate"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFieldBuffer"}, {"type":"Punctuation","value":"::"}, {"type":"NameVariable","value":"cFullName"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFieldBuffer"}, {"type":"Punctuation","value":"::"}, {"type":"NameVariable","value":"iOrder"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFieldBuffer"}, {"type":"Punctuation","value":"::"}, {"type":"NameVariable","value":"cLabel"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cColumnLabel"}, {"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":"/* getColumnLabel */"}, {"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-getColumnWidthList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getColumnWidthList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getColumnWidthList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* returns a list of all fields and their width like:\n * custnum:12,custname:20,city:12\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cWidthList"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"hColumn"}, {"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":"iColumn"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iColumn"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"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":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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'\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}"}, {"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":"/* getColumnWidthList */"}, {"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-getDatabaseList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getDatabaseList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getDatabaseList"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Return a comma separated list of all connected databases\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaHolders"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iCount"}, {"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":"cDbType"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cLogicalDbName"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iPos"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDataserver"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Support Dataservers */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcSaveDatabaseList"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"PROGRAM-NAME"}, {"type":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"2"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BEGINS "}, {"type":"LiteralStringDouble","value":"\"initializeObjects \""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcSaveDatabaseList"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Make a list of schema holders */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"#Db"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iCount"}, {"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-DBS"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DBTYPE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cLogicalDbName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"'PROGRESS' THEN\n cSchemaHolders = cSchemaHolders + ','"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SDBNAME"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DBTYPE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"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":"NEXT "}, {"type":"NameVariable","value":"#Db"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"','"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cLogicalDbName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Build list of all databases. Skip if already in the list of schemaholders */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"#Db"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iCount"}, {"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-DBS"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DBTYPE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cLogicalDbName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"LDBNAME"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iCount"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cSchemaHolders"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDbType"}, {"type":"Text","value":" "}, {"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":"NEXT "}, {"type":"NameVariable","value":"#Db"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ALIAS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"dictdb"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DATABASE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cLogicalDbName"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RUN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"p"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cLogicalDbName"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT-OUTPUT "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"giDataserverNr"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT-OUTPUT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ALIAS"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"dictdb"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"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":"EACH"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDbNameSchema"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Remove schemaholder from database list */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lDontShowSchemaHr"}, {"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":"iPos"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDbNameSchema,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iPos"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-FIND"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"FIRST"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cDatabase"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDbNameSchema"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lHidden"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO"}, {"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":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iPos,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cDatabaseList,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",,\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","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\n "}, {"type":"CommentMultiline","value":"/* Add dataserver to database list */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iPos"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LOOKUP"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDbNameDataserver,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lConnected"}, {"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":"NameVariable","value":"iPos"}, {"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":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDbNameDataserver,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* IF bDataserver.lConnected */"}, {"type":"Text","value":"\n\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":" "}, {"type":"NameVariable","value":"iPos"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003e"}, {"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":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iPos,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cDatabaseList,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",,\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* IF iPos \u003e 0 */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* else */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* FOR EACH bDataserver */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cDatabaseList,"}, {"type":"Text","value":" "}, {"type":"LiteralStringSingle","value":"','"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"gcSaveDatabaseList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cDatabaseList"}, {"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":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* getDatabaseList */"}, {"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-getEscapedData) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getEscapedData Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getEscapedData"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTarget"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"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 html- or 4gl-safe string\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cOutput"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iTmp"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Garbage in, garbage out */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cOutput"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CASE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTarget"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"LiteralStringDouble","value":"\"HTML\""}, {"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":"cOutput"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cOutput,"}, {"type":"LiteralStringDouble","value":"\"\u003c\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"\u0026lt;\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cOutput"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cOutput,"}, {"type":"LiteralStringDouble","value":"\"\u003e\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\"\u0026gt;\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"LiteralStringDouble","value":"\"4GL\""}, {"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":"/* Replace single quotes because we are using them for 4GL separating too */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cOutput"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cOutput,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"'\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"~~'\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Replace CHR's 1 till 13 */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iTmp"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"13"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cOutput"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"REPLACE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cOutput,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CHR"}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hField"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hFile"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"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":"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":"/* 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-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":"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":"piFileNumber"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"/* 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":"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":"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"}, {"type":"Punctuation","value":"()"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcImage"}, {"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":"/* getImagePath */"}, {"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-getIndexFields) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getIndexFields Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getIndexFields"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFlags"}, {"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 index 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":"cWhere"}, {"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":"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":"hFieldBuffer"}, {"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":"hFileBuffer"}, {"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":"hIndexBuffer"}, {"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":"hIndexFieldBuffer"}, {"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":"cFieldList"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hFileBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"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":"hIndexBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"._Index\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hIndexFieldBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"._Index-Field\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"CREATE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hFieldBuffer"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"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":"hFileBuffer,hIndexBuffer,hIndexFieldBuffer,hFieldBuffer"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"CommentPreproc","value":"{\u0026_proparse_ prolint-nowarn(longstrings)}"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cWhere"}, {"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, ~\n EACH \u00261._index OF \u00261._file WHERE TRUE \u00263 \u00264, ~\n EACH \u00261._index-field OF \u00261._index, ~\n EACH \u00261._field OF \u00261._index-field\""}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDatabaseName"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"QUOTER"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcTableName"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFlags,"}, {"type":"LiteralStringDouble","value":"\"U\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN "}, {"type":"LiteralStringDouble","value":"\"AND _index._unique = true\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CAN-DO"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFlags,"}, {"type":"LiteralStringDouble","value":"\"P\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN "}, {"type":"LiteralStringDouble","value":"\"AND recid(_index) = _file._prime-index\""}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":")"}, {"type":"Text","value":"\n "}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"QUERY-PREPARE "}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cWhere"}, {"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":"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":"KeywordReserved","value":"NO-LOCK"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\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 "}, {"type":"NameVariable","value":"cFieldList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"trim"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"hFieldBuffer"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"BUFFER-FIELD"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"_field-name\""}, {"type":"Punctuation","value":"):"}, {"type":"KeywordReserved","value":"string-value"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-NEXT"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"NO-LOCK"}, {"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":"cFieldList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cFieldList,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\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":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hFileBuffer"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hIndexBuffer"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hIndexFieldBuffer"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"OBJECT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hFieldBuffer"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"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":"cFieldList"}, {"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":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* getIndexFields */"}, {"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-getKeyList) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getKeyList Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getKeyList"}, {"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 a list of special keys pressed\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"mKeyboardState"}, {"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":"Text","value":"\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":"iReturnValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INT64 "}, {"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":"cKeyList"}, {"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":"SET-SIZE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"256"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Get the current state of the keyboard */"}, {"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":"GetKeyboardState"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"GET-POINTER-VALUE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iReturnValue"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* try to suppress error: 'C' Call Stack has been compromised after calling in (6069) */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ERROR-STATUS"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"ERROR"}, {"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":"NameVariable","value":"GET"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"BITS"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"GET-BYTE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"16"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"8"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",SHIFT\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GET"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"BITS"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"GET-BYTE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"17"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"8"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",CTRL\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"GET"}, {"type":"Operator","value":"-"}, {"type":"NameVariable","value":"BITS"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"GET-BYTE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState,"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"18"}, {"type":"Punctuation","value":")"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"8"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cKeyList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",ALT\""}, {"type":"NameVariable","value":","}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"SET-SIZE"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"mKeyboardState"}, {"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":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cKeyList"}, {"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":"/* getKeyList */"}, {"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-getLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getLinkInfo Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"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":"/* Save name/value of a field.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE "}, {"type":"LiteralStringDouble","value":"\"\""}, {"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":"/* getLinkInfo */"}, {"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-getMaxLength) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getMaxLength Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getMaxLength"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cFieldList"}, {"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 length of the longest element in a comma separated list\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"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":"iMaxLength"}, {"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":"{\u0026timerStart}"}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* Get max field length */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iField"}, {"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":"cFieldList"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"iMaxLength"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"MAXIMUM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iMaxLength,"}, {"type":"KeywordReserved","value":"LENGTH"}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iField,cFieldList"}, {"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":"iMaxLength"}, {"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":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* getMaxLength */"}, {"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-getOsErrorDesc) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION getOsErrorDesc Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getOsErrorDesc"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piOsError"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"INTEGER"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"CommentMultiline","value":"/* Return string for os-error\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"CASE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"piOsError"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"0"}, {"type":"Text","value":" "}, {"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":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"12"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","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":"LiteralNumberInteger","value":"13"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"LiteralStringDouble","value":"\"Is a directory \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"14"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"LiteralStringDouble","value":"\"File table overflow \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"15"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","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":"LiteralNumberInteger","value":"16"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"LiteralStringDouble","value":"\"File too large \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"17"}, {"type":"Text","value":" "}, {"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 "}, {"type":"KeywordReserved","value":"WHEN "}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"18"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"RETURN "}, {"type":"LiteralStringDouble","value":"\"Unmapped error \""}, {"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":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"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":"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":"KeywordReserved","value":"THIS-PROCEDURE"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"FILE-NAME"}, {"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":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"2"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\".r\""}, {"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":"'\\'"}, {"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":"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":"/* 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-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":"getQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"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":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"INTEGER\n "}, {"type":"Punctuation","value":")"}, {"type":"Text","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":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttQuery"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"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":"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":"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":"piQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"RETURN "}, {"type":"NameVariable","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":"/* 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":"getReadableQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcQuery"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"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":"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\n "}, {"type":"CommentMultiline","value":"/* Accept query or query-handle */"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VALID-HANDLE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hQuery"}, {"type":"Text","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":"hQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"hQuery"}, {"type":"Punctuation","value":":"}, {"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":"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":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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-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":"getRegistry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"/* 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":"pcSection"}, {"type":"Text","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":"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":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"LiteralNumberInteger","value":"2"}, {"type":"NameVariable","value":",pcSection,"}, {"type":"LiteralStringDouble","value":"\":\""}, {"type":"Punctuation","value":")"}, {"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":"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":"LiteralStringDouble","value":"\"DB:\""}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TEMP-TABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HAS-RECORDS"}, {"type":"Text","value":" "}, {"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":"pcSection"}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"pcKey"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bConfig"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"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":"/* 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-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":"getSchemaHolder"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDataserver"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDBNameDataserver"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bDataserver"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLDBNameSchema"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ELSE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcDataSrNameOrDbName"}, {"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":"/* 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-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":"getStackSize"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","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":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cList"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cParm"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"CASE-SENSITIVE"}, {"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":"cSetting"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cValue"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"iParm"}, {"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":"iStackSize"}, {"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":"cList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SESSION"}, {"type":"Punctuation","value":":"}, {"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":"iParm"}, {"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":"cList"}, {"type":"Punctuation","value":"):"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"ENTRY"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"iParm,cList"}, {"type":"Punctuation","value":")"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\" \""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cParm"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"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":"NameVariable","value":"cParm"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"-s\""}, {"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":"iStackSize"}, {"type":"Text","value":" "}, {"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":"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":"iStackSize"}, {"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":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"CommentMultiline","value":"/* If not defined, report the default */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iStackSize"}, {"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":"iStackSize"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"40"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iStackSize"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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":"NameVariable","value":"getTableDesc"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"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":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"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":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttTable"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"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":"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":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcTable"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"Punctuation","value":"("}, {"type":"KeywordReserved","value":"IF"}, {"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":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"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":"NameVariable","value":"cQuery"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"\u00261 and cTableName matches \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cQuery,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"QUOTER"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcTableFilter"}, {"type":"Text","value":" "}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"qTable"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"QUERY-PREPARE"}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SUBSTITUTE"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringSingle","value":"'\u00261 by cTableName'"}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cQuery"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"QUERY"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"qTable"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-FIRST"}, {"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":" "}, {"type":"KeywordReserved","value":"NOT"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"QUERY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"qTable"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"QUERY-OFF-END"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cTableList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTableList"}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Text","value":" "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bTable"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cTableName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"QUERY"}, {"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":"Text","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":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"LEFT-TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"cTableList,"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\",\""}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cTableList"}, {"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":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"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-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":"getUserName"}, {"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 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":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"mUserId"}, {"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":"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"256"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"intSize"}, {"type":"Text","value":" "}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-CONVERT"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"intResult"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"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":"LiteralStringDouble","value":"\"\""}, {"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":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"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":"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":"/* 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-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":"getWidgetUnderMouse"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phFrame"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"HANDLE "}, {"type":"Punctuation","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":"Text","value":" "}, {"type":"KeywordReserved","value":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"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":"iMouseX"}, {"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":"iMouseY"}, {"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":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"hWidget"}, {"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":"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":"Text","value":" "}, {"type":"NameVariable","value":"phFrame,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMouseX,"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OUTPUT"}, {"type":"Text","value":" "}, {"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":"hWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"TYPE "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"LiteralStringDouble","value":"\"RECTANGLE\""}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","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":"KeywordReserved","value":"X\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMouseX"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"X "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"WIDTH-PIXELS\n "}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMouseY"}, {"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":"Text","value":" "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iMouseY"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c"}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"Y "}, {"type":"Operator","value":"+"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"HEIGHT-PIXELS"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"hWidget"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"RETURN "}, {"type":"NameVariable","value":"?"}, {"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":"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":"NameVariable","value":"getWorkFolder"}, {"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\n "}, {"type":"CommentMultiline","value":"/* Cached the value in a global var */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcWorkFolder"}, {"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":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"getRegistry"}, {"type":"Punctuation","value":"("}, {"type":"LiteralStringDouble","value":"\"DataDigger\""}, {"type":"NameVariable","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":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"gcWorkFolder"}, {"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":"gcWorkFolder"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"LONGCHAR\n "}, {"type":"Punctuation","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":"\n "}, {"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":"VARIABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cContent"}, {"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":"cLine"}, {"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":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"SEARCH"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcFilename"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"cLine"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"cContent"}, {"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":"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":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"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":"Text","value":" "}, {"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":"NameVariable","value":"pcDatabase"}, {"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":"/* Remove record from connection temp-table\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttDatabase"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfDatabase"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cLogicalName"}, {"type":"Text","value":" "}, {"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":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfDatabase"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfDatabase"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"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":"/* 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":"NameVariable","value":"resolveOsVars"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcString"}, {"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\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":"i"}, {"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":"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":"'%'):\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"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"DO"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"j"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"LiteralNumberInteger","value":"1"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TO"}, {"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":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"phBrowse"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"GET-BROWSE-COLUMN"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"j"}, {"type":"Punctuation","value":")."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"NAME "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"cColumnName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"hColumn"}, {"type":"Punctuation","value":":"}, {"type":"KeywordReserved","value":"WIDTH-PIXELS "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"iColumnWidth"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* j */"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* i */"}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"END"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* setColumnWidthList */"}, {"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-setLinkInfo) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setLinkInfo Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setLinkInfo"}, {"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":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"AS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"INPUT"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"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":"/* Save name/value of a field.\n */"}, {"type":"Text","value":"\n "}, {"type":"KeywordDeclaration","value":"DEFINE"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"BUFFER"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"CommentPreproc","value":"{\u0026timerStart}"}, {"type":"Text","value":"\n\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":"\"Set linkinfo for field \u00261 to \u00262\""}, {"type":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName,"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"type":"Punctuation","value":"))."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"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":"bLinkInfo"}, {"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":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cField"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcFieldName"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"bLinkInfo"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcValue"}, {"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":" "}, {"type":"CommentMultiline","value":"/* Function return 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":"/* setLinkInfo */"}, {"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-setRegistry) = 0 \u0026THEN\n\n\u0026ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION setRegistry Procedure"}, {"type":"Text","value":"\n"}, {"type":"KeywordReserved","value":"FUNCTION"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"setRegistry"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"RETURNS"}, {"type":"Text","value":" "}, {"type":"KeywordType","value":"CHARACTER\n "}, {"type":"Punctuation","value":"("}, {"type":"Text","value":" "}, {"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":"NameVariable","value":","}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"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":"/* Set a value in 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":"bfConfig"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"FOR"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"ttConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"FIND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"WHERE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSection"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcSection"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"AND"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcKey"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"NO-ERROR"}, {"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":"AVAILABLE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"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":"bfConfig"}, {"type":"Punctuation","value":"."}, {"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":"NameVariable","value":"pcSection"}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cSetting"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcKey"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"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":"pcValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"?"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"OR"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRIM"}, {"type":"Punctuation","value":"("}, {"type":"NameVariable","value":"pcValue"}, {"type":"Punctuation","value":")"}, {"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":"DO"}, {"type":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"DELETE"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"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":"Punctuation","value":":"}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"ASSIGN\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"lUser"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE\n "}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"IF"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"bfConfig"}, {"type":"Punctuation","value":"."}, {"type":"NameVariable","value":"cValue"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"\u003c\u003e"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"pcValue"}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"THEN"}, {"type":"Text","value":" "}, {"type":"NameVariable","value":"glDirtyCache"}, {"type":"Text","value":" "}, {"type":"Operator","value":"="}, {"type":"Text","value":" "}, {"type":"KeywordReserved","value":"TRUE"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n "}, {"type":"KeywordReserved","value":"END"}, {"type":"Punctuation","value":"."}, {"type":"Text","value":"\n\n "}, {"type":"KeywordReserved","value":"RETURN "}, {"type":"LiteralStringDouble","value":"\"\""}, {"type":"Punctuation","value":"."}, {"type":"Text","value":" "}, {"type":"CommentMultiline","value":"/* Function return 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":"/* setRegistry */"}, {"type":"Text","value":"\n\n"}, {"type":"CommentMultiline","value":"/* _UIB-CODE-BLOCK-END */"}, {"type":"CommentPreproc","value":"\n\u0026ANALYZE-RESUME\n\n\u0026ENDIF"} ]