{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function msg, Sent_event, admin_user, center_window, Send_message, fieldcount\r\ndeclare subroutine END_dialog\r\n$insert msg_equates\r\n\r\nIF index( CreateParam, 'CENTER', 1 ) THEN\r\n    void = center_window( @window )\r\nEND ELSE\r\n    Void = set_property( @window, 'VISIBLE', 1 )\r\nEND\r\n\r\nIF Admin_user( @user4 ) THEN \r\n\topen 'CONFIG' TO ConfigTable ELSE\r\n\t   Void = msg( '', 'Unable to open CONFIG table' )\r\n\t   END_dialog( @window, '' )\r\n\t   RETURN 0\r\n\tEND\r\n\t\r\n\tLOCK ConfigTable, 'TABLENAMES' ELSE\r\n\t   Void = msg( '', 'TABLENAMES is in use somewhere ELSE...' )\r\n\t   END_dialog( @window, '' )\r\n\t   RETURN 0\r\n\tEND\r\n\t\r\n\tREAD TableNamesData FROM ConfigTable, 'TABLENAMES' THEN\r\n\t    IF TableNamesData THEN\r\n\t    \t\r\n\t    \ttnCnt = COUNT(TableNamesData<1>,@VM) + (TableNamesData<1> NE '')\r\n\t    \t\r\n\t    \tSortedArray = ''\r\n\t    \t\r\n\t    \tFOR I = 1 TO tnCnt\r\n\t    \t\r\n\t    \t\tTableTitle\t= TableNamesData<1,I>\r\n\t    \t\tTableName\t= TableNamesData<2,I>\r\n\t    \t\t\r\n\t    \t\tLOCATE TableName IN SortedArray<2> BY 'AL' USING @VM SETTING Pos ELSE\r\n\t    \t\t\tSortedArray = INSERT(SortedArray,1,Pos,0,TableTitle)\r\n\t    \t\t\tSortedArray = INSERT(SortedArray,2,Pos,0,TableName)\r\n\t    \t\tEND\r\n\t    \t\r\n\t    \t\r\n\t    \tNEXT I\r\n\t    \r\n\t   \t\tvoid = Set_Property(@WINDOW:'.TABLENAMES','ARRAY',SortedArray) \r\n\t   \r\n\t    END\r\n\tEND\r\nEND ELSE\r\n   Message = 'You do not have the proper security TO enter TableNames...' \r\n   Message<micon$> = 'H'\r\n   Void = msg( '', Message )\r\n   End_Dialog( @window, '' )\r\nEND\r\n\r\nallControlsInMyWindow = Utility ('OBJECTLIST', @window, 'EDITTABLE')\r\nallControlsInMyWindow2 = Utility ('OBJECTLIST', @window, 'EDITBOX')\r\n\r\nRETURN 0"
        }
    }
}