5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 32 1 1 String Character 0 Left False Name of Application Name of System Application 2003-02-04T01:32:15 1 1 1 Boolean Character 0 Left False BlankWhenZero BlankWhenZero 2003-02-04T01:46:09 1 1 1 UnsignedDecimal Character 0 Right False Max Length Maximum Length 2003-02-04T01:46:09 11 1 1 String Character 0 Left False Date Format Date Format 2003-02-04T01:46:09 22 1 1 String Character 0 Left False Edit Code Edit Code 2003-02-04T01:46:09 32 1 1 String Character 0 Left False ExternalName ExternalName 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Name Name of Function 2003-02-18T11:36:42 32 1 1 String Character 0 Left False PickList Help Name 2003-02-04T01:46:09 99 1 1 String Character 0 Left False Initial Value Initial Value 2003-02-04T01:46:09 6 1 1 String Character 0 Left False Justification Justification 2003-02-04T01:46:09 32510 1 1 String Character 0 Left False LogicText Logic Block 2003-04-25T01:46:09 64 1 1 String Character 0 Left False Desc entry Description lookup table entry 2003-02-13T02:43:19 64 1 1 String Character 0 Left False Value of MaximumValuetable entry Value of MaximumValuetable entry 2003-02-04T01:48:34 32 1 1 String Character 0 Left False MaximumValue MaximumValue 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 4 1 1 UnsignedDecimal Character 0 Right False ArrayLength ArrayLength 2003-05-07T01:46:09 1 1 1 String Character 0 Left False Pad Char Pad Character 2003-02-04T01:46:09 32 1 1 String Character 0 Left False MinimumValue MinimumValue 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Type Type of Repository Object 2003-02-04T01:46:09 6 1 1 UnsignedDecimal Character 0 Right False Max Length Maximum Length 2003-02-04T01:46:09 6 1 1 UnsignedDecimal Character 0 Right False Min Length Minimum Length 2003-05-07T01:46:09 32 1 1 DateTime Character 0 Left False Name Name of Repository Object 22 1 1 String Character 0 NumericDataType Left False Numeric Edit Code Numeric Edit Code 2003-02-04T01:46:09 70 1 1 String Character 0 Left False Value of Constant Value of Constant 2003-02-04T01:48:34 25 1 1 String Character 0 Left False Value of Numeric Value of Numeric 2003-05-11T01:48:34 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 10 1 1 String Character 0 Left False Description Short Object Description 2003-02-13T02:43:19 16 1 1 String Character 0 Left False 64 1 1 String Character 0 Left False Name Name of Window Title 2003-02-19T11:36:42 46 1 1 String Character 0 Left False 46 1 1 String Character 0 Left False 8 1 1 String Character 0 Left False 8 1 1 String Character 0 Left False 32 1 1 String Character Left False 32 1 1 String Character Left False 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 70 1 1 String Character 0 Left False Value of Constant Value of Constant 2003-02-04T01:48:34 64 1 1 String Character 0 Left False ExternalName ExternalName 2003-02-04T01:46:09 16 1 1 String Character 0 Left False 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 5 1 1 String Character Left False 5 1 1 String Character Left False 5 1 1 String Character Left False 5 1 1 String Character Left False 32 1 1 String Character 0 Left False Name of Application Name of System Application 2003-02-04T01:32:15 5 1 1 String Character Left False 16 1 1 String Character 0 Left False 16 1 1 String Character 0 Left False 16 1 1 String Character 0 Left False 16 1 1 String Character 0 Left False 32 1 1 String Character 0 Left False 8 1 1 String Character 0 Left False 32 1 1 String Character 0 Left False 10 1 1 String Character 0 Left False Type Type of Repository Object 2003-02-04T01:46:09 32767 1 1 String Character Left False 80 1 1 String Character 0 Left False 5 1 1 String Character Left False 16 1 1 String Character 0 Left False 5 1 1 String Character Left False 5 1 1 String Character Left False 5 1 1 String Character Left False 20 1 1 String Character 0 Left False Description Short Object Description 2003-02-13T02:43:19 180 1 1 String Character 0 Left False DetailDescription Long Object Description 2003-02-13T02:43:19 180 1 1 String Character 0 Left False DetailDescription Long Object Description 2003-02-13T02:43:19 20 1 1 String Character 0 Left False Description Short Object Description 2003-02-13T02:43:19 180 1 1 String Character 0 Left False DetailDescription Long Object Description 2003-02-13T02:43:19 19 1 1 String Character 0 Left False LastModifed Last Modification Time 2003-02-13T02:43:19 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 99 1 1 String Character 0 Left False Initial Value Initial Value 2003-02-04T01:46:09 102400 1 1 String Character 0 Left False DisplayData Display Block 2003-05-05T01:46:09 32 1 1 String Character 0 Left False Name Name of Function 2003-02-18T11:36:42 32510 1 1 String Character 0 Left False LogicText Logic Block 2003-04-25T01:46:09 32 1 1 String Character 0 Left False 10 1 1 String Character 0 Left False ErrorSeverity ErrorSeverity 2003-02-04T01:46:09 80 1 1 String Character 0 Left False Error Text Error Text 2003-02-04T01:46:09 99 1 1 String Character 0 Left False Initial Value Initial Value 2003-02-04T01:46:09 20 1 1 String Character 0 Left False Description Short Object Description 2003-02-13T02:43:19 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 5 1 1 String Character Left False 1 1 1 Boolean Character Left False 32 1 1 String Character 0 Left False Name of Application Name of System Application 2003-02-04T01:32:15 1 1 1 Boolean Character Left False 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Index Name Index Name 2003-02-04T01:46:09 32 1 1 String Character 0 Left False Name Name of Repository Object 2003-02-04T01:46:09 16 1 1 String Character 0 Left False 32 1 1 String Character 0 Left False Type Type of Repository Object 2003-02-04T01:46:09 204800 1 1 String Character 0 Left False DisplayData Display Block 2003-05-05T01:46:09 5 1 1 String Character Left False 32 1 1 String Character 0 Left False 2003-02-04T01:46:09 5 1 1 UnsignedDecimal Character 2 Left False 3 1 1 UnsignedDecimal Character 1 999 Left False 5 1 1 UnsignedDecimal Character 1 99999 Left False 99 1 1 String Character 0 Left False Initial Value Initial Value 2003-02-04T01:46:09 10 1 1 String Character 0 Left False Column Type Type of Column 2003-02-04T01:46:09 5 1 1 String Character Left False 99 1 1 UnsignedDecimal Character 0 1 99 Left False Column Id Column Id 2003-02-04T01:46:09 99999 1 1 UnsignedDecimal Character 0 1 99 Left False Row Id Row Id 2003-02-04T01:46:09 10 1 1 String Character 0 Left False Description Short Object Description 2003-02-13T02:43:19 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 5 1 1 SignedDecimal Character 0 Left False Count Counter 2003-03-22T01:46:09 32 1 1 String Character 0 Left False Name of Application Name of System Application 2003-02-04T01:32:15 30 1 1 String Character 0 Left False External Storage Type Type of storage type in 3rd party (relational) database. 2003-02-04T01:46:09 250 1 1 String Character 0 Left False 2003-02-04T01:46:09 5 1 1 Boolean Character Left False 5 1 1 Boolean Character Left False 5 1 1 UnsignedDecimal Character 4 Left False 5 1 1 UnsignedDecimal Character 4 Left False 11 1 1 String Character 0 Left False Date Format Date Format 2003-02-04T01:46:09 819200 1 1 String Character 0 Left False DisplayData Display Block 2003-05-05T01:46:09 30 1 1 String Character 0 Left False LastModifed Last Modification Time 2003-02-13T02:43:19 False aa 2005-06-27T12:59:22Z False False True 2009-07-27T23:56:55Z Repository Object Generic Repository Object Index 2005-06-27T12:42:35Z Application Ascending Type Ascending Name Ascending 2 1 Col1 Text False None 2 Col2 Text False None 1 1 Data Dictionary Name Text False None 1 1 Value Text False None 2 1 Data Dictionary Name Text False None 2 Sorting Text False None 2 1 Data Dictionary Name Text False None 2 Initial Value Text False None 3 1 Record Name Text False None 2 Reiterate Text False None 3 Default Text False None 1 1 Object Name Text True Ascending 6 Validate Store to display validation errors and warnings. 1 Severity Text False None 2 Line No Text False None 3 Argument No Text False None 4 Id Text False None 5 Description Text False None 6 Details Text False None 1 1 Object Name Text True Ascending 4 1 Index Name Text False None 2 Primary Text False None 3 Unique Text False None 4 Sort Text False None SCREEN Logic REPOSITORY DELETE Variable RETURN REPOSITORYSTATUS() REPOSITORY DELETE Logic RETURN REPOSITORYSTATUS() LET F-Name.Variable = G-Name.Object REPOSITORY TEST Variable RETURN REPOSITORYSTATUS() LET F-Name.Logic = G-Name.Object REPOSITORY TEST Logic RETURN REPOSITORYSTATUS() DISPLAY ALL REPOSITORY DELETE Screen RETURN REPOSITORYSTATUS() LET F-Name.Screen = G-Name.Object REPOSITORY TEST Screen RETURN REPOSITORYSTATUS() LET F-Name.DataDictionary = G-Name.Object REPOSITORY TEST DataDictionary RETURN REPOSITORYSTATUS() REPOSITORY DELETE Record RETURN REPOSITORYSTATUS() LET F-Name.Record = G-Name.Object REPOSITORY TEST Record RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Constant FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Application.Logic = V-ApplicationName LET F-Type.Logic = "Logic" REPOSITORY OBJECTLIST Logic FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" LET F-Name.Constant = G-Name.Object REPOSITORY TEST Constant RETURN REPOSITORYSTATUS() CONTROL logout LET V-Accept = "Y" CONTROL commit REPOSITORY DELETE DataSource RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST DataSource FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.DataSource = G-Name.Object REPOSITORY TEST DataSource RETURN REPOSITORYSTATUS() SCREEN DataSource SCREEN TITLE "Data Source - untitled" MESSAGE "Created new data source." CLEAR RECORD DataSource LET F-Application.DataSource = V-ApplicationName LET F-Type.DataSource = "DataSource" LET F-ReadOnlyConnection.DataSource = P-TrueFalse(2) LET F-SqlIdentifiersCaseSensitive.DataSource = P-TrueFalse(2) LET F-ThreadSafe.DataSource = P-TrueFalse(1) DISPLAY ALL SCREEN PickList SCREEN DataDictionary SCREEN Screen REPOSITORY DELETE PickList RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST PickList FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.PickList = G-Name.Object REPOSITORY TEST PickList RETURN REPOSITORYSTATUS() SCREEN ErrorDialog REPOSITORY DELETE ErrorDialog RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST ErrorDialog FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.ErrorDialog = G-Name.Object REPOSITORY TEST ErrorDialog RETURN REPOSITORYSTATUS() SCREEN Record SCREEN Index REPOSITORY DELETE Index RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Index FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.Index = G-Name.Object REPOSITORY TEST Index RETURN REPOSITORYSTATUS() SCREEN VariableGroup REPOSITORY DELETE VariableGroup RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST VariableGroup FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.VariableGroup = G-Name.Object REPOSITORY TEST VariableGroup RETURN REPOSITORYSTATUS() SCREEN VariableGroup SCREEN Variable SCREEN TITLE "Variable - untitled" LET V-Test = "en2" MESSAGE "Created new variable." CLEAR RECORD Variable.Variable LET F-Application.Variable = V-ApplicationName LET F-Type.Variable = "Variable" DISPLAY ALL SCREEN Constant SCREEN Table REPOSITORY DELETE Table RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Table FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.Table = G-Name.Object REPOSITORY TEST Table RETURN REPOSITORYSTATUS() SCREEN TextDocument REPOSITORY DELETE TextDocument RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST TextDocument FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Name.TextDocument = G-Name.Object REPOSITORY TEST TextDocument RETURN REPOSITORYSTATUS() REPOSITORY DELETE DataModel RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST DataModel FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Application.DataModel = V-ApplicationName LET F-Type.DataModel = "DataModel" LET F-Name.DataModel = G-Name.Object REPOSITORY TEST DataModel RETURN REPOSITORYSTATUS() SCREEN DataModel SCREEN TITLE "DataModel - untitled" MESSAGE "Created new data model." CLEAR RECORD DataModel LET F-Application.DataModel = V-ApplicationName LET F-Type.DataModel = "DataModel" LET F-AutoClear.DataModel = P-TrueFalse(1) DISPLAY ALL REPOSITORY OBJECTLIST XmlDocument FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Application.XmlDocument = V-ApplicationName LET F-Type.XmlDocument = "XmlDocument" LET F-Name.XmlDocument = G-Name.Object REPOSITORY TEST XmlDocument RETURN REPOSITORYSTATUS() SCREEN TITLE "XmlDocument - untitled" MESSAGE "Created new xml document." CLEAR RECORD XmlDocument LET F-Application.XmlDocument = V-ApplicationName LET F-Type.XmlDocument = "XmlDocument" DISPLAY ALL SCREEN XmlDocument SCREEN TITLE "Text Document - untitled" MESSAGE "Created new text document." CLEAR RECORD TextDocument.TextDocument LET F-Application.TextDocument = V-ApplicationName LET F-Type.TextDocument = "TextDocument" DISPLAY ALL SCREEN TITLE "Screen (dialog) - untitled" MESSAGE "Created new screen." CLEAR RECORD Screen LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-AllowMultipleInstances.Screen = P-TrueFalse(2) LET F-DisplayData.Screen = X-ScreenTemplateDialog DISPLAY ALL SCREEN TITLE "Constant - untitled" MESSAGE "Created new constant." CLEAR RECORD Constant LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" DISPLAY ALL SCREEN TITLE "ErrorDialog - untitled" MESSAGE "Created new error dialog." CLEAR RECORD ErrorDialog LET F-Application.ErrorDialog = V-ApplicationName LET F-Type.ErrorDialog = "ErrorDialog" LET F-Severity.ErrorDialog = P-Severity(4) DISPLAY ALL REPOSITORY OBJECTLIST ListStore FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET F-Application.ListStore = V-ApplicationName LET F-Type.ListStore = "ListStore" LET F-Name.ListStore = G-Name.Object REPOSITORY TEST ListStore RETURN REPOSITORYSTATUS() SCREEN ListStore LIST GET G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore DISPLAY entryCellValue LIST PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore LABEL G-ColumnLabel.ListStore LIST PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore TYPE G-ColumnType.ListStore LIST PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore SORT G-SortDirection.ListStore DISPLAY ListStoreView 2008-02-16T12:33:06Z LIST GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore LABEL G-ColumnLabel.ListStore DISPLAY entryLabel LIST GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore TYPE G-ColumnType.ListStore DISPLAY entryType LIST GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore SORT G-SortDirection.ListStore DISPLAY entrySortDirection 2008-02-16T01:47:05Z LET L-NumColumns = F-NumColumns.ListStore - G-NumColumns.ListStore LET G-NumColumns.ListStore = F-NumColumns.ListStore IF L-NumColumns = 0 NIL ELSEIF L-NumColumns > 0 LIST COLUMN G-Name.ListStore APPEND L-NumColumns ELSEIF L-NumColumns < 0 LET L-NumColumns = L-NumColumns * -1 LIST COLUMN G-Name.ListStore DELETE L-NumColumns ENDIF DISPLAY ListStoreView LIST ROW G-Name.ListStore DELETE DISPLAY ListStoreView REPOSITORY CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" LET L-ColHits = LISTCOLCOUNT(G-Name.ListStore) LET L-RowHits = LISTROWCOUNT(G-Name.ListStore) LET L-Count = 0 FOR L-ColCount = 1 TO L-ColHits FOR L-RowCount = 1 TO L-RowHits LET L-Count = L-Count + 1 LET F-ColumnId.ListStore.ListData = L-ColCount LET F-RowId.ListStore.ListData = L-RowCount LIST GET G-Name.ListStore VALUE F-Value.ListStore.ListData COLNO L-ColCount ROWNO L-RowCount REPOSITORY PUTINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" SEQUENCE L-Count ENDFOR ENDFOR REPOSITORY CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" LET L-ColHits = LISTCOLCOUNT(G-Name.ListStore) FOR L-ColCount = 1 TO L-ColHits LET F-ColumnId.ListStore.ListColumnHeader = L-ColCount LIST GETHEADER G-Name.ListStore COLNO L-ColCount LABEL F-ColumnLabel.ListStore.ListColumnHeader LIST GETHEADER G-Name.ListStore COLNO L-ColCount TYPE F-ColumnType.ListStore.ListColumnHeader COMMENT LET F-ColumnType.ListStore.ListColumnHeader = "Text" LIST GETHEADER G-Name.ListStore COLNO L-ColCount SORT F-SortDirection.ListStore.ListColumnHeader IF F-SortDirection.ListStore.ListColumnHeader = "Ascending" LET F-DefaultSort.ListStore.ListColumnHeader = "True" ELSEIF F-SortDirection.ListStore.ListColumnHeader = "Descending" LET F-DefaultSort.ListStore.ListColumnHeader = "True" ELSE LET F-DefaultSort.ListStore.ListColumnHeader = "False" ENDIF REPOSITORY PUTINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" SEQUENCE L-ColCount ENDFOR 2008-02-16T12:42:54Z LIST ROW G-Name.ListStore BOTTOM DISPLAY ListStoreView LIST ROW G-Name.ListStore DOWN DISPLAY ListStoreView LIST COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore FIRST LET G-ColumnId.ListStore = 1 CALL ListColumnGetData DISPLAY ALL RETURN DISPLAY ListStoreView LIST COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore LAST LET G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) CALL ListColumnGetData DISPLAY ALL RETURN DISPLAY ListStoreView LIST COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore LEFT LET G-ColumnId.ListStore = G-ColumnId.ListStore - 1 IF G-ColumnId.ListStore < 1 LET G-ColumnId.ListStore = 1 ENDIF CALL ListColumnGetData DISPLAY ALL RETURN DISPLAY ListStoreView LIST COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore RIGHT LET G-ColumnId.ListStore = G-ColumnId.ListStore + 1 IF G-ColumnId.ListStore > LISTCOLCOUNT(G-Name.ListStore) LET G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) ENDIF CALL ListColumnGetData DISPLAY ALL LIST ROW G-Name.ListStore TOP DISPLAY ListStoreView LIST ROW G-Name.ListStore UP DISPLAY ListStoreView LIST APPEND G-Name.ListStore VALUE "." LIST INSERT G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore LET G-ColumnId.ListStore = G-ColumnId.ListStore + 1 IF G-ColumnId.ListStore > LISTCOLCOUNT(G-Name.ListStore) LET G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) ENDIF LIST GET G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore DISPLAY ListStoreView DISPLAY spinColumnId2 DISPLAY entryCellValue REPOSITORY DELETE ListStore RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Constant" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Constant - " F-Name.Constant SCREEN TITLE L-WindowTitle MESSAGE "Constant opened." DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Record" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Record - " F-Name.Record SCREEN TITLE L-WindowTitle MESSAGE "Record opened." CALL RecordInstanceGet CLEAR RECORD Record.DataDictionaryEntry DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataDictionaryName.Record.DataDictionaryEntry = G-Name.Object DISPLAY entryDataDictionaryName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "PickList" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "PickList - " F-Name.PickList SCREEN TITLE L-WindowTitle MESSAGE "PickList opened." CALL PickListEntryGet CLEAR RECORD PickList.PickListEntry DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Index" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Index - " F-Name.Index SCREEN TITLE L-WindowTitle MESSAGE "Index opened." CALL IndexEntryGet CLEAR RECORD Index.IndexEntry DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataDictionaryName.Index.IndexEntry = G-Name.Object DISPLAY entryDataDictionaryName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "VariableGroup" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "VariableGroup - " F-Name.VariableGroup SCREEN TITLE L-WindowTitle MESSAGE "VariableGroup opened." CALL VgrpVariableEntryGet CLEAR RECORD VariableGroup.VariableEntry DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataDictionaryName.VariableGroup.VariableEntry = G-Name.Object DISPLAY entryDataDictionaryName ENDIF ERROR "Option not implemented yet." ERROR "Option not implemented yet." ERROR "Option not implemented yet." LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Table" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Table - " F-Name.Table SCREEN TITLE L-WindowTitle MESSAGE "Table opened." CALL TableRecordEntryGet CALL TableIndexEntryGet CLEAR RECORD Table.TableRecordEntry CLEAR RECORD Table.TableIndexEntry DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataSource" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataSourceName.Table = G-Name.Object DISPLAY entryDataSourceName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Index" SCREEN ObjectOpen IF V-Accept = "Y" LET F-IndexName.Table.TableIndexEntry = G-Name.Object DISPLAY entryIndexName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Record" SCREEN ObjectOpen IF V-Accept = "Y" LET F-RecordName.Table.TableRecordEntry = G-Name.Object DISPLAY entryRecordName ENDIF SCREEN ScreenNew RETURN SCREEN TITLE "Screen - untitled" MESSAGE "Created new screen." CLEAR RECORD Screen LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-AllowMultipleInstances.Screen = P-TrueFalse(2) DISPLAY ALL IF F-Name.Screen = "" ERROR "No screen loaded. Please save screen first." RETURN ENDIF CONTROL painter F-Name.Screen DISPLAY text_screen REPOSITORY DELETE DataDictionary RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Screen FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Record FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() REPOSITORY DELETE Constant RETURN REPOSITORYSTATUS() LET V-ApplicationName = "" LET G-StoreList.Object = "filter" SCREEN CLOSE MainAppn SCREEN Main LET V-ApplicationName = "" SCREEN TITLE "ProLinga Developer - untitled" MESSAGE "No application opened." aa IF V-ApplicationName = "" RETURN ENDIF LET L-TempString = "Close Application : " V-ApplicationName " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() <> 0 RETURN ENDIF CALL CloseObjectEditors SCREEN CLOSE ObjectPalette CALL Main LET V-ApplicationName = "" SCREEN TITLE "ProLinga Developer - untitled" MESSAGE "No application opened." IF V-ApplicationName <> "" SCREEN CLOSE MainAppn ENDIF LET V-ApplicationName = "" LET G-StoreList.Object = "filter" SCREEN Main aa LET L-WindowTitle = "ProLinga Developer - " V-ApplicationName SCREEN TITLE L-WindowTitle MESSAGE "Application opened." DISPLAY ALL REPOSITORY OBJECTLIST DataDictionary FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() COMMENT SCREEN CLOSE Blob SCREEN CLOSE Constant SCREEN CLOSE DataDictionary SCREEN CLOSE DataModel SCREEN CLOSE DataSource SCREEN CLOSE ErrorDialog COMMENT SCREEN CLOSE Help SCREEN CLOSE Index SCREEN CLOSE ListStore SCREEN CLOSE Logic SCREEN CLOSE PickList SCREEN CLOSE Record COMMENT SCREEN CLOSE Report SCREEN CLOSE Screen SCREEN CLOSE Table SCREEN CLOSE TextDocument COMMENT SCREEN CLOSE TreeStore SCREEN CLOSE Variable SCREEN CLOSE VariableGroup SCREEN CLOSE XmlDocument SCREEN CLOSE Validate DISPLAY ALL REPOSITORY OBJECTLIST Variable FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Variable" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Variable - " F-Name.Variable SCREEN TITLE L-WindowTitle MESSAGE "Variable opened." DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Screen" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Screen - " F-Name.Screen SCREEN TITLE L-WindowTitle MESSAGE "Screen opened." DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "DataDictionary - " F-Name.DataDictionary SCREEN TITLE L-WindowTitle MESSAGE "DataDictionary opened." DISPLAY ALL ENDIF LET L-LogicName = "Sys" G-Type.Object "Read" LET REPOSITORYSTATUS() = CALL L-LogicName IF REPOSITORYSTATUS() = 0 LET V-Accept = "Y" CONTROL commit ELSE ERROR "Object does not exist!" SEVERITY Error ENDIF IF V-ApplicationName <> "" SCREEN ObjectPalette ENDIF LET G-NameCurrent.Object = F-Name.Variable LET F-Application.Variable = V-ApplicationName LET F-Type.Variable = "Variable" LET F-Name.Variable = G-Name.Object REPOSITORY GET Variable IF REPOSITORYSTATUS() <> 0 LET F-Name.Variable = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Logic LET F-Application.Logic = V-ApplicationName LET F-Type.Logic = "Logic" LET F-Name.Logic = G-Name.Object REPOSITORY GET Logic IF REPOSITORYSTATUS() <> 0 LET F-Name.Logic = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Screen LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-Name.Screen = G-Name.Object REPOSITORY GET Screen IF REPOSITORYSTATUS() <> 0 LET F-Name.Screen = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.DataDictionary LET F-Application.DataDictionary = V-ApplicationName LET F-Type.DataDictionary = "DataDictionary" LET F-Name.DataDictionary = G-Name.Object REPOSITORY GET DataDictionary IF REPOSITORYSTATUS() <> 0 LET F-Name.DataDictionary = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Record LET F-Application.Record = V-ApplicationName LET F-Type.Record = "Record" LET F-Name.Record = G-Name.Object REPOSITORY GET Record IF REPOSITORYSTATUS() <> 0 LET F-Name.Record = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() RETURN COMMENT IF F-ExternalObjectType.External = "Image" COMMENT SCREEN ExtPreviewText CONTAINER frame_preview SOURCE image_preview COMMENT ELSE COMMENT SCREEN ExtPreviewText CONTAINER frame_preview SOURCE text_preview COMMENT ENDIF COMMENT DISPLAY frame_preview LET G-NameCurrent.Object = F-Name.DataSource LET F-Application.DataSource = V-ApplicationName LET F-Type.DataSource = "DataSource" LET F-Name.DataSource = G-Name.Object REPOSITORY GET DataSource IF REPOSITORYSTATUS() <> 0 LET F-Name.DataSource = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataSource" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Data Source - " F-Name.DataSource SCREEN TITLE L-WindowTitle MESSAGE "Data Source opened." DISPLAY ALL ENDIF LET G-NameCurrent.Object = F-Name.PickList LET F-Application.PickList = V-ApplicationName LET F-Type.PickList = "PickList" LET F-Name.PickList = G-Name.Object REPOSITORY GET PickList IF REPOSITORYSTATUS() <> 0 LET F-Name.PickList = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "ErrorDialog" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog SCREEN TITLE L-WindowTitle MESSAGE "Error Dialog opened." DISPLAY entrySeverity DISPLAY ALL ENDIF LET G-NameCurrent.Object = F-Name.ErrorDialog LET F-Application.ErrorDialog = V-ApplicationName LET F-Type.ErrorDialog = "ErrorDialog" LET F-Name.ErrorDialog = G-Name.Object REPOSITORY GET ErrorDialog IF REPOSITORYSTATUS() <> 0 LET F-Name.ErrorDialog = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Index LET F-Application.Index = V-ApplicationName LET F-Type.Index = "Index" LET F-Name.Index = G-Name.Object REPOSITORY GET Index IF REPOSITORYSTATUS() <> 0 LET F-Name.Index = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Table LET F-Application.Table = V-ApplicationName LET F-Type.Table = "Table" LET F-Name.Table = G-Name.Object REPOSITORY GET Table IF REPOSITORYSTATUS() <> 0 LET F-Name.Table = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() ERROR "This object has not been implemented yet." ERROR "This object has not been implemented yet." LET G-NameCurrent.Object = F-Name.TextDocument LET F-Application.TextDocument = V-ApplicationName LET F-Type.TextDocument = "TextDocument" LET F-Name.TextDocument = G-Name.Object REPOSITORY GET TextDocument IF REPOSITORYSTATUS() <> 0 LET F-Name.TextDocument = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "TextDocument" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "TextDocument - " F-Name.TextDocument SCREEN TITLE L-WindowTitle MESSAGE "TextDocument opened." DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataModel" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "DataModel - " F-Name.DataModel SCREEN TITLE L-WindowTitle MESSAGE "DataModel opened." DISPLAY ALL ENDIF LET G-NameCurrent.Object = F-Name.DataModel LET F-Application.DataModel = V-ApplicationName LET F-Type.DataModel = "DataModel" LET F-Name.DataModel = G-Name.Object REPOSITORY GET DataModel IF REPOSITORYSTATUS() <> 0 LET F-Name.DataModel = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.XmlDocument LET F-Application.XmlDocument = V-ApplicationName LET F-Type.XmlDocument = "XmlDocument" LET F-Name.XmlDocument = G-Name.Object REPOSITORY GET XmlDocument IF REPOSITORYSTATUS() <> 0 LET F-Name.XmlDocument = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "XmlDocument" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "XmlDocument - " F-Name.XmlDocument SCREEN TITLE L-WindowTitle MESSAGE "XmlDocument opened." DISPLAY ALL ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataDictionaryName.Constant = G-Name.Object DISPLAY entryDataDictionaryName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "PickList" SCREEN ObjectOpen IF V-Accept = "Y" LET F-PickList.DataDictionary = G-Name.Object DISPLAY entryPickListName ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "DataDictionary" SCREEN ObjectOpen IF V-Accept = "Y" LET F-DataDictionaryName.Variable = G-Name.Object DISPLAY entryDataDictionaryName ENDIF SCREEN TITLE "Screen (window) - untitled" MESSAGE "Created new screen." CLEAR RECORD Screen LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-AllowMultipleInstances.Screen = P-TrueFalse(2) LET F-DisplayData.Screen = X-ScreenTemplateWindow DISPLAY ALL LET REPOSITORYSTATUS() = 0 RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Constant LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" LET F-Name.Constant = G-Name.Object REPOSITORY GET Constant IF REPOSITORYSTATUS() <> 0 LET F-Name.Constant = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "ListStore" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "ListStore - " F-Name.ListStore LET G-Name.ListStore = F-Name.ListStore LET G-NumColumns.ListStore = F-NumColumns.ListStore SCREEN TITLE L-WindowTitle MESSAGE "ListStore opened." DISPLAY ALL ENDIF LIST COLUMN G-Name.ListStore COPY G-ColumnId.ListStore LET G-NumColumns.ListStore = G-NumColumns.ListStore + 1 LET F-NumColumns.ListStore = F-NumColumns.ListStore + 1 DISPLAY ListStoreView LIST ROW G-Name.ListStore COPY DISPLAY ListStoreView CLEAR LISTSTORE G-Name.ListStore LET G-NameCurrent.Object = F-Name.ListStore LET F-Application.ListStore = V-ApplicationName LET F-Type.ListStore = "ListStore" LET F-Name.ListStore = G-Name.Object REPOSITORY GET ListStore IF REPOSITORYSTATUS() <> 0 LET F-Name.ListStore = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() IF F-Name.ListStore = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysListStoreTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete List Store : " F-Name.ListStore " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysListStoreDelete CLEAR LISTSTORE F-Name.ListStore CALL ListFileNew ENDIF CLEAR LISTSTORE F-Name.ListStore SCREEN TITLE "ListStore - untitled" MESSAGE "Created new list store." CLEAR RECORD ListStore.ListStore CLEAR VARGROUP ListStore CLEAR LISTSTORE _template_ LET F-Application.ListStore = V-ApplicationName LET F-Type.ListStore = "ListStore" LET F-NumColumns.ListStore = 2 LET G-Name.ListStore = "_template_" LET G-NumColumns.ListStore = F-NumColumns.ListStore CLEAR RECORD ListStore.ListColumnHeader CLEAR RECORD ListStore.ListData LET G-ColumnId.ListStore = 1 LET G-ColumnType.ListStore = P-ColumnType(2) LET G-DefaultSort.ListStore = P-TrueFalse(2) LET G-SortDirection.ListStore = P-Sort(3) DISPLAY ALL CALL ListColumnGetData SCREEN TITLE "Record - untitled" MESSAGE "Created new record." CLEAR LISTSTORE _record_ CLEAR RECORD Record.Record LET F-Application.Record = V-ApplicationName LET F-Type.Record = "Record" CLEAR RECORD Record.DataDictionaryEntry CLEAR SCREENFIELD RecordView DISPLAY ALL IF F-DataDictionaryName.Record.DataDictionaryEntry = "" ERROR "Please enter a valid data dictionary name." RETURN ENDIF LIST APPEND _record_ VALUE CLIP(F-DataDictionaryName.Record.DataDictionaryEntry) CLEAR RECORD Record.DataDictionaryEntry DISPLAY entryDataDictionaryName LIST ROW _record_ COPY LIST ROW _record_ DELETE IF F-Name.Record = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysRecordTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Record : " F-Name.Record " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysRecordDelete CALL RecordFileNew ENDIF CLEAR LISTSTORE _record_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _record_ VALUE CLIP(F-DataDictionaryName.Record.DataDictionaryEntry) LET L-Count = L-Count + 1 ENDFOR LIST GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 DISPLAY entryDataDictionaryName LIST ROW _record_ BOTTOM LIST ROW _record_ UP LIST ROW _record_ TOP LIST ROW _record_ DOWN IF F-Value.PickList.PickListEntry = "" ERROR "Please enter a value." RETURN ENDIF LIST APPEND _picklist_ VALUE CLIP(F-Value.PickList.PickListEntry) CLEAR RECORD PickList.PickListEntry DISPLAY entryValue LIST ROW _picklist_ COPY LIST ROW _picklist_ DELETE IF F-Name.PickList = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysPickListTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Pick List : " F-Name.PickList " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysPickListDelete CALL PickFileNew ENDIF CLEAR LISTSTORE _picklist_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _picklist_ VALUE CLIP(F-Value.PickList.PickListEntry) LET L-Count = L-Count + 1 ENDFOR LIST GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 DISPLAY entryValue LIST ROW _picklist_ BOTTOM LIST ROW _picklist_ DOWN LIST ROW _picklist_ TOP LIST ROW _picklist_ UP IF F-DataDictionaryName.Index.IndexEntry = "" ERROR "Please enter a valid data dictionary name." RETURN ENDIF LIST APPEND _index_ VALUE CLIP(F-DataDictionaryName.Index.IndexEntry) CLIP(F-Sort.Index.IndexEntry) CLEAR RECORD Index.IndexEntry LET F-Sort.Index.IndexEntry = P-Sort(1) DISPLAY entryDataDictionaryName DISPLAY entrySort LIST ROW _index_ COPY LIST ROW _index_ DELETE CLEAR LISTSTORE _index_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _index_ VALUE CLIP(F-DataDictionaryName.Index.IndexEntry) CLIP(F-Sort.Index.IndexEntry) LET L-Count = L-Count + 1 ENDFOR IF F-Name.Index = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysIndexTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Index : " F-Name.Index " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysIndexDelete CALL IndexFileNew ENDIF SCREEN TITLE "Index - untitled" MESSAGE "Created new index." CLEAR RECORD Index.Index LET F-Application.Index = V-ApplicationName LET F-Type.Index = "Index" CLEAR RECORD Index.IndexEntry LET F-Sort.Index.IndexEntry = P-Sort(1) CLEAR LISTSTORE _index_ CLEAR SCREENFIELD IndexView DISPLAY ALL LIST GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 LIST GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 DISPLAY entryDataDictionaryName DISPLAY entrySort LIST ROW _index_ BOTTOM LIST ROW _index_ DOWN LIST ROW _index_ TOP LIST ROW _index_ UP LIST ROW _vargroup_ COPY IF F-DataDictionaryName.VariableGroup.VariableEntry = "" ERROR "Please enter a valid data dictionary name." RETURN ENDIF LIST APPEND _vargroup_ VALUE CLIP(F-DataDictionaryName.VariableGroup.VariableEntry) CLIP(F-InitialValue.VariableGroup.VariableEntry) CLEAR RECORD VariableGroup.VariableEntry DISPLAY entryDataDictionaryName DISPLAY entryInitialValue LIST ROW _vargroup_ DELETE LIST GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 LIST GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 DISPLAY entryDataDictionaryName DISPLAY entryInitialValue LIST ROW _vargroup_ BOTTOM LIST ROW _vargroup_ DOWN LIST ROW _vargroup_ TOP LIST ROW _vargroup_ UP CLEAR LISTSTORE _vargroup_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _vargroup_ VALUE CLIP(F-DataDictionaryName.VariableGroup.VariableEntry) CLIP(F-InitialValue.VariableGroup.VariableEntry) LET L-Count = L-Count + 1 ENDFOR IF F-Name.Table = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysTableTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Table : " F-Name.Table " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysTableDelete CALL TableFileNew ENDIF LIST ROW _tableindex_ COPY LIST ROW _tableindex_ DELETE LIST ROW _tableindex_ BOTTOM LIST ROW _tableindex_ DOWN LIST ROW _tableindex_ TOP LIST ROW _tableindex_ UP IF F-RecordName.Table.TableRecordEntry = "" ERROR "Please enter a valid record name." RETURN ENDIF LET L-Hits = LISTROWCOUNT("_tablerecord_") IF L-Hits = 0 LIST APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) "True" ELSE LIST APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) "False" ENDIF CLEAR RECORD Table.TableRecordEntry LET F-Reiterate.Table.TableRecordEntry = P-TrueFalse(2) DISPLAY entryRecordName DISPLAY entryReiterate LIST ROW _tablerecord_ COPY LIST ROW _tablerecord_ DELETE CLEAR LISTSTORE _tablerecord_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) CLIP(F-Default.Table.TableRecordEntry) LET L-Count = L-Count + 1 ENDFOR LIST GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 LIST GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 DISPLAY entryRecordName DISPLAY entryReiterate LIST ROW _tablerecord_ BOTTOM LIST ROW _tablerecord_ DOWN LIST ROW _tablerecord_ TOP LIST ROW _tablerecord_ UP CLEAR LISTSTORE _filter_ DISPLAY ALL SCREEN TITLE "VariableGroup - untitled" MESSAGE "Created new variable group." CLEAR RECORD VariableGroup.VariableGroup LET F-Application.VariableGroup = V-ApplicationName LET F-Type.VariableGroup = "VariableGroup" CLEAR RECORD VariableGroup.VariableEntry CLEAR LISTSTORE _vargroup_ CLEAR SCREENFIELD VgrpView DISPLAY ALL IF F-Name.VariableGroup = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysVariableGroupTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Variable Group : " F-Name.VariableGroup " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysVariableGroupDelete CALL VgrpFileNew ENDIF LET G-NameCurrent.Object = F-Name.VariableGroup LET F-Application.VariableGroup = V-ApplicationName LET F-Type.VariableGroup = "VariableGroup" LET F-Name.VariableGroup = G-Name.Object REPOSITORY GET VariableGroup IF REPOSITORYSTATUS() <> 0 LET F-Name.VariableGroup = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() IF F-Name.Constant = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysConstantTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Constant : " F-Name.Constant " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysConstantDelete CALL CnstFileNew ENDIF IF F-Name.DataDictionary = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysDataDictionaryTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Data Dictionary : " F-Name.DataDictionary " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysDataDictionaryDelete CALL DictFileNew ENDIF IF F-Name.DataModel = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysDataModelTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete DataModel : " F-Name.DataModel " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysDataModelDelete CALL DmFileNew ENDIF IF F-Name.DataSource = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysDataSourceTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Data Source : " F-Name.DataSource " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysDataSourceDelete CALL DSrcFileNew ENDIF IF F-Name.ErrorDialog = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysErrorDialogTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Error Dialog : " F-Name.ErrorDialog " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysErrorDialogDelete CALL ErrorFileNew ENDIF IF F-Name.Screen = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysScreenTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Screen : " F-Name.Screen " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysScreenDelete CALL ScreenFileNew ENDIF IF F-Name.TextDocument = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysTextDocumentTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete TextDocument : " F-Name.TextDocument " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysTextDocumentDelete CALL TextFileNew ENDIF IF F-Name.Variable = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysVariableTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Variable : " F-Name.Variable " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysVariableDelete CALL VarFileNew ENDIF REPOSITORY DELETE XmlDocument RETURN REPOSITORYSTATUS() IF F-Name.XmlDocument = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysXmlDocumentTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete XmlDocument : " F-Name.XmlDocument " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysXmlDocumentDelete CALL XmlFileNew ENDIF CONTROL datamanager 3 V-ApplicationName F-Name.Table CLEAR LISTSTORE _tableindex_ LET L-Count = 1 FOREVER REPOSITORY GETINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count IF REPOSITORYSTATUS() <> 0 BREAK ENDIF LIST APPEND _tableindex_ VALUE CLIP(F-IndexName.Table.TableIndexEntry) CLIP(F-Primary.Table.TableIndexEntry) CLIP(F-Unique.Table.TableIndexEntry) CLIP(F-Sort.Table.TableIndexEntry) LET L-Count = L-Count + 1 ENDFOR LIST GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 LIST GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 LIST GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 LIST GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 DISPLAY entryIndexName DISPLAY entryPrimary DISPLAY entryUnique DISPLAY entrySort SCREEN TITLE "Table - untitled" MESSAGE "Created new table." CLEAR RECORD Table.Table LET F-Application.Table = V-ApplicationName LET F-Type.Table = "Table" LET F-DataInterfaceType.Table = P-DataInterfaceType(2) CLEAR RECORD Table.TableRecordEntry CLEAR RECORD Table.TableIndexEntry LET F-Reiterate.Table.TableRecordEntry = P-TrueFalse(2) LET F-Primary.Table.TableIndexEntry = P-TrueFalse(1) LET F-Unique.Table.TableIndexEntry = P-TrueFalse(1) LET F-Sort.Table.TableIndexEntry = P-Sort(1) CLEAR LISTSTORE _tablerecord_ CLEAR SCREENFIELD TableRecordView CLEAR LISTSTORE _tableindex_ CLEAR SCREENFIELD TableIndexView DISPLAY ALL IF F-IndexName.Table.TableIndexEntry = "" ERROR "Please enter a valid index name." RETURN ENDIF LIST APPEND _tableindex_ VALUE CLIP(F-IndexName.Table.TableIndexEntry) CLIP(F-Primary.Table.TableIndexEntry) CLIP(F-Unique.Table.TableIndexEntry) CLIP(F-Sort.Table.TableIndexEntry) CLEAR RECORD Table.TableIndexEntry LET F-Primary.Table.TableIndexEntry = P-TrueFalse(1) LET F-Unique.Table.TableIndexEntry = P-TrueFalse(1) LET F-Sort.Table.TableIndexEntry = P-Sort(1) DISPLAY entryIndexName DISPLAY entryPrimary DISPLAY entryUnique DISPLAY entrySort ERROR "OK!" SCREEN TITLE "PickList - untitled" MESSAGE "Created new pick list." CLEAR RECORD PickList.PickList LET F-Application.PickList = V-ApplicationName LET F-Type.PickList = "PickList" CLEAR RECORD PickList.PickListEntry CLEAR LISTSTORE _picklist_ CLEAR SCREENFIELD PickListView DISPLAY ALL PickFileNew Reset Pick List CLEAR LISTSTORE _filter_ LET G-StoreList.Object = "_filter_" LET L-LogicName = "Sys" G-Type.Object "List" LET REPOSITORYSTATUS() = CALL L-LogicName DISPLAY ObjectView LET F-Application.Application = "Administrator" REPOSITORY OBJECTLIST Application FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Constant LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" LET F-Name.Constant = G-Name.Object REPOSITORY GET Constant IF REPOSITORYSTATUS() <> 0 LET F-Name.Constant = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET V-Accept = "N" LET G-Type.Object = "Index" IF F-Name.Index = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Index = V-ApplicationName LET F-Type.Index = "Index" LET F-Name.Index = G-Name.Object LET L-Hits = LISTROWCOUNT("_index_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 ROWNO L-Count LIST GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 ROWNO L-Count REPOSITORY PUTINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysIndexWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Index - " F-Name.Index SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Index" F-Name.Index IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Index: " F-Name.Index SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF MESSAGE "Index Saved." ELSE MESSAGE "Error saving Index." ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Logic" SCREEN ObjectOpen IF V-Accept = "Y" LET F-LogicName.Thread = G-Name.Object DISPLAY entryLogicName ENDIF REPOSITORY DELETE Thread RETURN REPOSITORYSTATUS() REPOSITORY OBJECTLIST Thread FILTER G-Name.Object LISTSTORE G-StoreList.Object RETURN REPOSITORYSTATUS() LET G-NameCurrent.Object = F-Name.Thread LET F-Application.Thread = V-ApplicationName LET F-Type.Thread = "Thread" LET F-Name.Thread = G-Name.Object REPOSITORY GET Thread IF REPOSITORYSTATUS() <> 0 LET F-Name.Thread = G-NameCurrent.Object ENDIF RETURN REPOSITORYSTATUS() LET F-Application.Thread = V-ApplicationName LET F-Type.Thread = "Thread" LET F-Name.Thread = G-Name.Object REPOSITORY TEST Thread RETURN REPOSITORYSTATUS() SCREEN TITLE "Thread - untitled" MESSAGE "Created new thread." CLEAR RECORD Thread LET F-Application.Thread = V-ApplicationName LET F-Type.Thread = "Thread" DISPLAY ALL IF F-Name.Thread = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysThreadTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Thread : " F-Name.Thread " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysThreadDelete CALL ThrdFileNew ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Thread" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Thread - " F-Name.Thread SCREEN TITLE L-WindowTitle MESSAGE "Thread opened." DISPLAY ALL ENDIF SCREEN Thread COMMENT *** Determine Object Type IF G-Type.Validate = "All" ERROR "Validate All not implemented yet." RETURN ENDIF COMMENT *** Get List of filtered Object Names CLEAR LISTSTORE _objectvalidate_ IF G-Type.Validate = "Constant" LET F-Application.Constant = V-ApplicationName REPOSITORY OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Index" LET F-Application.Index = V-ApplicationName REPOSITORY OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Logic" LET F-Application.Logic = V-ApplicationName REPOSITORY OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Record" LET F-Application.Record = V-ApplicationName REPOSITORY OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Table" LET F-Application.Table = V-ApplicationName REPOSITORY OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Thread" LET F-Application.Thread = V-ApplicationName REPOSITORY OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Variable" LET F-Application.Variable = V-ApplicationName REPOSITORY OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "VariableGroup" LET F-Application.VariableGroup = V-ApplicationName REPOSITORY OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSE ERROR "Object not implemented (yet)." RETURN ENDIF COMMENT *** Get number of hits LET G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) COMMENT *** Validate Objects in list FOR G-Count.Validate = 1 TO G-Hits.Validate IF THREADEXIT() = TRUE() BREAK ENDIF LIST GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate COMMENT *** Filter out rubbish IF G-Name.Validate = "*" CONTINUE ENDIF IF G-Name.Validate = "" CONTINUE ENDIF MESSAGE G-Name.Validate COMMENT *** Validate CONTROL validate V-ApplicationName G-Type.Validate G-Name.Validate IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" BREAK ELSE SCREEN ValidateInclude CONTAINER Result SOURCE main DISPLAY validateview DISPLAY labelType DISPLAY labelName BREAK ENDIF ENDIF ENDFOR IF VALIDATESTATUS() = 0 ERROR "Validate Complete." SEVERITY Warning ENDIF COMMENT *** Determine Object Type IF G-Type.Validate = "All" ERROR "Validate All not implemented yet." RETURN ENDIF COMMENT *** Get List of filtered Object Names CLEAR LISTSTORE _objectvalidate_ IF G-Type.Validate = "Constant" LET F-Application.Constant = V-ApplicationName REPOSITORY OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Index" LET F-Application.Index = V-ApplicationName REPOSITORY OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Logic" LET F-Application.Logic = V-ApplicationName REPOSITORY OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Record" LET F-Application.Record = V-ApplicationName REPOSITORY OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Table" LET F-Application.Table = V-ApplicationName REPOSITORY OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Thread" LET F-Application.Thread = V-ApplicationName REPOSITORY OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Variable" LET F-Application.Variable = V-ApplicationName REPOSITORY OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "VariableGroup" LET F-Application.VariableGroup = V-ApplicationName REPOSITORY OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSE ERROR "Object not implemented (yet)." RETURN ENDIF COMMENT *** Get number of hits LET G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) COMMENT *** Validate Objects in list FOR G-Count.Validate = 1 TO G-Hits.Validate IF THREADEXIT() = TRUE() MESSAGE "Validation Aborted" RETURN ENDIF LIST GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate COMMENT *** Filter out rubbish IF G-Name.Validate = "*" CONTINUE ENDIF IF G-Name.Validate = "" CONTINUE ENDIF MESSAGE G-Name.Validate SLEEP 1 COMMENT *** Validate CONTROL validate V-ApplicationName G-Type.Validate G-Name.Validate IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" BREAK ELSE SCREEN ValidateInclude CONTAINER Result SOURCE main DISPLAY validateview DISPLAY labelType DISPLAY labelName BREAK ENDIF ENDIF ENDFOR LET G-IsRunning.Validate = FALSE() MESSAGE "Validation Complete" RETURN IF VALIDATESTATUS() = 0 COMMENT ERROR "Validate Complete." SEVERITY Warning ENDIF THREAD STOP ValidateRun LET G-IsRunning.Validate = FALSE() CONTROL cancel COMMENT *** Determine Object Type IF G-Type.Validate = "All" ERROR "Validate All not implemented yet." LET G-IsRunning.Validate = FALSE() RETURN ENDIF COMMENT *** Get List of filtered Object Names CLEAR LISTSTORE _objectvalidate_ IF G-Type.Validate = "Constant" LET F-Application.Constant = V-ApplicationName REPOSITORY OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Index" LET F-Application.Index = V-ApplicationName REPOSITORY OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Logic" LET F-Application.Logic = V-ApplicationName REPOSITORY OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Record" LET F-Application.Record = V-ApplicationName REPOSITORY OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Table" LET F-Application.Table = V-ApplicationName REPOSITORY OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Thread" LET F-Application.Thread = V-ApplicationName REPOSITORY OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Variable" LET F-Application.Variable = V-ApplicationName REPOSITORY OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "VariableGroup" LET F-Application.VariableGroup = V-ApplicationName REPOSITORY OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSE ERROR "Object not implemented (yet)." LET G-IsRunning.Validate = FALSE() RETURN ENDIF COMMENT *** Get number of hits LET G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) COMMENT *** Validate Objects in list FOR G-Count.Validate = 1 TO G-Hits.Validate IF THREADEXIT() = TRUE() MESSAGE "Validation Aborted." RETURN ENDIF LIST GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate COMMENT *** Filter out rubbish IF G-Name.Validate = "*" CONTINUE ENDIF IF G-Name.Validate = "" CONTINUE ENDIF MESSAGE "Validating: " G-Name.Validate SLEEP 1 COMMENT *** Validate CONTROL validate V-ApplicationName G-Type.Validate G-Name.Validate IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" BREAK ELSE SCREEN ValidateInclude CONTAINER Result SOURCE main DISPLAY validateview DISPLAY labelType DISPLAY labelName BREAK ENDIF ENDIF ENDFOR MESSAGE "Validation Finished." LET G-IsRunning.Validate = FALSE() CLEAR CONTAINER Result COMMENT *** Validate Objects in list LET L-Count = G-Count.Validate + 1 FOR G-Count.Validate = L-Count TO G-Hits.Validate LIST GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate COMMENT *** Filter out rubbish IF G-Name.Validate = "*" CONTINUE ENDIF IF G-Name.Validate = "" CONTINUE ENDIF COMMENT *** Validate CONTROL validate V-ApplicationName G-Type.Validate G-Name.Validate IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" BREAK ELSE SCREEN ValidateInclude CONTAINER Result SOURCE main DISPLAY validateview DISPLAY labelType DISPLAY labelName BREAK ENDIF ENDIF ENDFOR IF G-Count.Validate > G-Hits.Validate ERROR "Validate Complete." SEVERITY Info ENDIF CLEAR CONTAINER Result IF G-IsRunning.Validate = FALSE() LET G-IsRunning.Validate = TRUE() LET G-Init.Validate = FALSE() THREAD START ValidateRun ENDIF CLEAR VARGROUP Validate SCREEN Validate CLEAR CONTAINER Result PROGRESS FRACTION pbValidate VALUE 0.0 MESSAGE "" ERROR "This object has not been implemented yet." CLEAR LISTSTORE _filter_ DISPLAY ALL IF G-Init.Validate = TRUE() COMMENT *** Determine Object Type IF G-Type.Validate = "All" ERROR "Validate All not implemented yet." LET G-IsRunning.Validate = FALSE() RETURN ENDIF COMMENT *** Get List of filtered Object Names CLEAR LISTSTORE _objectvalidate_ IF G-Type.Validate = "Constant" LET F-Application.Constant = V-ApplicationName REPOSITORY OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Index" LET F-Application.Index = V-ApplicationName REPOSITORY OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Logic" LET F-Application.Logic = V-ApplicationName REPOSITORY OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Record" LET F-Application.Record = V-ApplicationName REPOSITORY OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Table" LET F-Application.Table = V-ApplicationName REPOSITORY OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Thread" LET F-Application.Thread = V-ApplicationName REPOSITORY OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "Variable" LET F-Application.Variable = V-ApplicationName REPOSITORY OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSEIF G-Type.Validate = "VariableGroup" LET F-Application.VariableGroup = V-ApplicationName REPOSITORY OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ ELSE ERROR "Object not implemented (yet)." LET G-IsRunning.Validate = FALSE() RETURN ENDIF COMMENT *** Get number of hits LET G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) LET G-Fraction.Validate = 0.00 LET G-FractionStep.Validate = 100.00 / G-Hits.Validate * 0.01 ENDIF IF G-Init.Validate = TRUE() LET L-Count = 1 ELSE LET L-Count = G-Count.Validate + 1 ENDIF COMMENT *** Validate Objects in list FOR G-Count.Validate = L-Count TO G-Hits.Validate IF THREADEXIT() = TRUE() MESSAGE "Validation Aborted." RETURN ENDIF LIST GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate COMMENT *** Filter out rubbish IF G-Name.Validate = "*" CONTINUE ENDIF IF G-Name.Validate = "" CONTINUE ENDIF MESSAGE "Validating: " G-Name.Validate LET G-Fraction.Validate = G-Fraction.Validate + G-FractionStep.Validate IF G-Fraction.Validate > 1 LET G-Fraction.Validate = 1 ENDIF PROGRESS FRACTION pbValidate VALUE G-Fraction.Validate COMMENT *** Validate CONTROL validate V-ApplicationName G-Type.Validate G-Name.Validate IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" BREAK ELSE SCREEN ValidateInclude CONTAINER Result SOURCE main DISPLAY validateview DISPLAY labelType DISPLAY labelName BREAK ENDIF ENDIF ENDFOR IF G-Count.Validate >= G-Hits.Validate LET G-Fraction.Validate = 1.0 PROGRESS FRACTION pbValidate VALUE 1.0 MESSAGE "Validation Finished." ELSE MESSAGE "Press Edit to modify, Continue to proceed or Stop to cancel." ENDIF LET G-IsRunning.Validate = FALSE() LET V-Accept = "N" LET G-Name.Object = F-Name.ListStore LET G-Type.Object = "ListStore" IF F-Name.ListStore = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.ListStore = V-ApplicationName LET F-Type.ListStore = "ListStore" LET F-Name.ListStore = G-Name.Object REPOSITORY CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" REPOSITORY CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" CALL ListFileSaveHeader CALL ListFileSaveData LET REPOSITORYSTATUS() = CALL SysListStoreWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "ListStore - " F-Name.ListStore LET G-Name.ListStore = F-Name.ListStore SCREEN TITLE L-WindowTitle MESSAGE "ListStore Saved." ELSE MESSAGE "Error saving list store." ENDIF COMMENT CLEAR LISTSTORE F-Name.ListStore COMMENT DISPLAY ListStoreView SCREEN TITLE "Logic - untitled" MESSAGE "Created new logic." CLEAR RECORD Logic LET F-Application.Logic = V-ApplicationName LET F-Type.Logic = "Logic" CLEAR SCREENFIELD SourceCode CLEAR SCREENFIELD Description CLEAR SCREENFIELD DetailDescription CLEAR SCREENFIELD label_name DISPLAY ALL LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Logic" SCREEN ObjectOpen IF V-Accept = "Y" LET L-WindowTitle = "Logic - " F-Name.Logic SCREEN TITLE L-WindowTitle MESSAGE "Logic opened." LET S-label_name = F-Name.Logic LET S-SourceCode = F-SourceCode.Logic LET S-Description = F-Description.Logic LET S-DetailDescription = F-DetailDescription.Logic DISPLAY ALL ENDIF LET F-Name.Logic = S-label_name IF F-Name.Logic = "" RETURN ENDIF LET REPOSITORYSTATUS() = CALL SysLogicTest IF REPOSITORYSTATUS() <> 0 ERROR "Object does not exist and so cannot be deleted." RETURN ENDIF LET L-TempString = "Delete Logic : " F-Name.Logic " ?" ERROR L-TempString SEVERITY Question IF ERRORRETURN() = 0 LET REPOSITORYSTATUS() = CALL SysLogicDelete CALL LogicFileNew ENDIF LET V-Accept = "N" LET G-Name.Object = "*" LET G-Type.Object = "Application" SCREEN ObjectOpen IF V-Accept = "Y" CALL CloseObjectEditors CONTROL appndev G-Name.Object IF V-ApplicationName = "" LET V-ApplicationName = G-Name.Object LET QUITLASTSCREEN() = 1 SCREEN CLOSE Main SCREEN MainAppn LET QUITLASTSCREEN() = 0 ELSE LET V-ApplicationName = G-Name.Object LET L-WindowTitle = "ProLinga Developer - " V-ApplicationName SCREEN TITLE L-WindowTitle MESSAGE "Application opened." ENDIF SCREEN ObjectPalette ENDIF ERROR "Feature not implemented (yet)" IF G-IsRunning.Validate = FALSE() LET G-IsRunning.Validate = TRUE() LET G-Init.Validate = TRUE() THREAD START ValidateRun ELSE THREAD STOP ValidateRun LET G-IsRunning.Validate = FALSE() ENDIF SCREEN G-Type.Validate LET G-Name.Object = G-Name.Validate COMMENT ERROR G-Name.Object SEVERITY Info LET L-LogicName = "Sys" G-Type.Validate "Read" LET REPOSITORYSTATUS() = CALL L-LogicName IF REPOSITORYSTATUS() <> 0 ERROR "Invalid Object Type" RETURN ENDIF LET L-WindowTitle = G-Type.Validate " - " G-Name.Validate SCREEN TITLE L-WindowTitle MESSAGE G-Type.Validate " opened." IF G-Type.Validate = "Index" CALL IndexEntryGet CLEAR RECORD Index.IndexEntry ELSEIF G-Type.Validate = "Logic" LET S-label_name = F-Name.Logic LET S-SourceCode = F-SourceCode.Logic LET S-Description = F-Description.Logic LET S-DetailDescription = F-DetailDescription.Logic ELSEIF G-Type.Validate = "Record" CALL RecordInstanceGet CLEAR RECORD Record.DataDictionaryEntry ELSEIF G-Type.Validate = "Table" CALL TableRecordEntryGet CALL TableIndexEntryGet CLEAR RECORD Table.TableRecordEntry CLEAR RECORD Table.TableIndexEntry ELSEIF G-Type.Validate = "VariableGroup" CALL VgrpVariableEntryGet CLEAR RECORD VariableGroup.VariableEntry ENDIF DISPLAY ALL LET F-Modified.Constant = UTCSTAMP() REPOSITORY PUT Constant RETURN REPOSITORYSTATUS() LET F-Modified.DataDictionary = UTCSTAMP() REPOSITORY PUT DataDictionary RETURN REPOSITORYSTATUS() LET F-Modified.DataModel = UTCSTAMP() REPOSITORY PUT DataModel RETURN REPOSITORYSTATUS() LET F-Modified.DataSource = UTCSTAMP() REPOSITORY PUT DataSource RETURN REPOSITORYSTATUS() LET F-Modified.ErrorDialog = UTCSTAMP() REPOSITORY PUT ErrorDialog RETURN REPOSITORYSTATUS() LET F-Modified.Index = UTCSTAMP() REPOSITORY PUT Index RETURN REPOSITORYSTATUS() LET F-Modified.ListStore = UTCSTAMP() REPOSITORY PUT ListStore RETURN REPOSITORYSTATUS() LET F-Modified.Logic = UTCSTAMP() REPOSITORY PUT Logic RETURN REPOSITORYSTATUS() LET F-Modified.PickList = UTCSTAMP() REPOSITORY PUT PickList RETURN REPOSITORYSTATUS() 2005-06-27T12:26:47Z LET F-Modified.Record = UTCSTAMP() REPOSITORY PUT Record RETURN REPOSITORYSTATUS() 2005-06-27T12:27:13Z LET F-Modified.Screen = UTCSTAMP() REPOSITORY PUT Screen RETURN REPOSITORYSTATUS() 2005-06-27T12:27:35Z LET F-Modified.Table = UTCSTAMP() REPOSITORY PUT Table RETURN REPOSITORYSTATUS() 2005-06-27T12:27:52Z LET F-Modified.TextDocument = UTCSTAMP() REPOSITORY PUT TextDocument RETURN REPOSITORYSTATUS() 2005-06-27T12:28:11Z LET F-Modified.Thread = UTCSTAMP() REPOSITORY PUT Thread RETURN REPOSITORYSTATUS() 2005-06-27T12:28:31Z LET F-Modified.VariableGroup = UTCSTAMP() REPOSITORY PUT VariableGroup RETURN REPOSITORYSTATUS() 2005-06-27T12:28:52Z LET F-Modified.Variable = UTCSTAMP() REPOSITORY PUT Variable RETURN REPOSITORYSTATUS() 2005-06-27T12:29:14Z LET F-Modified.XmlDocument = UTCSTAMP() REPOSITORY PUT XmlDocument RETURN REPOSITORYSTATUS() 2005-06-27T12:29:33Z LET V-Accept = "N" LET G-Type.Object = "Constant" IF F-Name.Constant = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" LET F-Name.Constant = G-Name.Object LET REPOSITORYSTATUS() = CALL SysConstantWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Constant - " F-Name.Constant SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Constant" F-Name.Constant IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Constant: " F-Name.Constant SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Constant Saved." ELSE MESSAGE "Error saving constant." ENDIF 2005-06-27T13:03:21Z LET V-Accept = "N" LET G-Name.Object = F-Name.Constant LET G-Type.Object = "Constant" IF F-Name.Constant = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Constant = V-ApplicationName LET F-Type.Constant = "Constant" LET F-Name.Constant = G-Name.Object LET REPOSITORYSTATUS() = CALL SysConstantWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Constant - " F-Name.Constant SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Constant" F-Name.Constant IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Constant: " F-Name.Constant SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Constant Saved." ELSE MESSAGE "Error saving constant." ENDIF 2005-06-27T13:03:40Z LET V-Accept = "N" LET G-Name.Object = F-Name.DataDictionary LET G-Type.Object = "DataDictionary" IF F-Name.DataDictionary = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.DataDictionary = V-ApplicationName LET F-Type.DataDictionary = "DataDictionary" LET F-Name.DataDictionary = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataDictionaryWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "DataDictionary - " F-Name.DataDictionary SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "DataDictionary Saved." ELSE MESSAGE "Error saving data dictionary." ENDIF 2005-06-27T13:04:05Z LET V-Accept = "N" LET G-Type.Object = "DataDictionary" IF F-Name.DataDictionary = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.DataDictionary = V-ApplicationName LET F-Type.DataDictionary = "DataDictionary" LET F-Name.DataDictionary = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataDictionaryWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "DataDictionary - " F-Name.DataDictionary SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "DataDictionary Saved." ELSE MESSAGE "Error saving data dictionary." ENDIF 2005-06-27T13:04:19Z LET V-Accept = "N" LET G-Name.Object = F-Name.DataModel LET G-Type.Object = "DataModel" IF F-Name.DataModel = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.DataModel = V-ApplicationName LET F-Type.DataModel = "DataModel" LET F-Name.DataModel = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataModelWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "DataModel - " F-Name.DataModel SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "DataModel Saved." ELSE MESSAGE "Error saving data model." ENDIF 2005-06-27T13:04:37Z LET V-Accept = "N" LET G-Type.Object = "DataModel" IF F-Name.DataModel = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.DataModel = V-ApplicationName LET F-Type.DataModel = "DataModel" LET F-Name.DataModel = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataModelWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "DataModel - " F-Name.DataModel SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "DataModel Saved." ELSE MESSAGE "Error saving data model." ENDIF 2005-06-27T13:04:52Z LET V-Accept = "N" LET G-Name.Object = F-Name.DataSource LET G-Type.Object = "DataSource" IF F-Name.DataSource = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.DataSource = V-ApplicationName LET F-Type.DataSource = "DataSource" LET F-Name.DataSource = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataSourceWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Data Source - " F-Name.DataSource SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "Data Source Saved." ELSE MESSAGE "Error saving data source." ENDIF 2005-06-27T13:05:09Z LET V-Accept = "N" LET G-Type.Object = "DataSource" IF F-Name.DataSource = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.DataSource = V-ApplicationName LET F-Type.DataSource = "DataSource" LET F-Name.DataSource = G-Name.Object LET REPOSITORYSTATUS() = CALL SysDataSourceWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Data Source - " F-Name.DataSource SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "Data Source Saved." ELSE MESSAGE "Error saving data source." ENDIF 2005-06-27T13:05:23Z LET V-Accept = "N" LET G-Name.Object = F-Name.ErrorDialog LET G-Type.Object = "ErrorDialog" IF F-Name.ErrorDialog = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.ErrorDialog = V-ApplicationName LET F-Type.ErrorDialog = "ErrorDialog" LET F-Name.ErrorDialog = G-Name.Object LET REPOSITORYSTATUS() = CALL SysErrorDialogWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "ErrorDialog Saved." ELSE MESSAGE "Error saving error dialog." ENDIF 2005-06-27T13:05:37Z LET V-Accept = "N" LET G-Type.Object = "ErrorDialog" IF F-Name.ErrorDialog = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.ErrorDialog = V-ApplicationName LET F-Type.ErrorDialog = "ErrorDialog" LET F-Name.ErrorDialog = G-Name.Object LET REPOSITORYSTATUS() = CALL SysErrorDialogWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "ErrorDialog Saved." ELSE MESSAGE "Error saving error dialog." ENDIF 2005-06-27T13:05:54Z LET V-Accept = "N" LET G-Name.Object = F-Name.Index LET G-Type.Object = "Index" IF F-Name.Index = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Index = V-ApplicationName LET F-Type.Index = "Index" LET F-Name.Index = G-Name.Object LET L-Hits = LISTROWCOUNT("_index_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 ROWNO L-Count LIST GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 ROWNO L-Count REPOSITORY PUTINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysIndexWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Index - " F-Name.Index SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Index" F-Name.Index IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Index: " F-Name.Index SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Index Saved." ELSE MESSAGE "Error saving Index." ENDIF 2005-06-27T13:06:11Z LET V-Accept = "N" LET G-Type.Object = "ListStore" IF F-Name.ListStore = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.ListStore = V-ApplicationName LET F-Type.ListStore = "ListStore" LET F-Name.ListStore = G-Name.Object REPOSITORY CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" REPOSITORY CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" CALL ListFileSaveHeader CALL ListFileSaveData LET REPOSITORYSTATUS() = CALL SysListStoreWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "ListStore - " F-Name.ListStore LET G-Name.ListStore = F-Name.ListStore SCREEN TITLE L-WindowTitle MESSAGE "ListStore Saved." CLEAR LISTSTORE F-Name.ListStore DISPLAY ListStoreView DISPLAY label_modified_data ELSE MESSAGE "Error saving list store." ENDIF 2005-06-27T13:06:31Z LET V-Accept = "N" LET F-Name.Logic = S-label_name LET G-Name.Object = F-Name.Logic LET G-Type.Object = "Logic" IF F-Name.Logic = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Logic = V-ApplicationName LET F-Type.Logic = "Logic" LET F-Name.Logic = G-Name.Object LET S-label_name = F-Name.Logic LET F-SourceCode.Logic = S-SourceCode LET F-Description.Logic = S-Description LET F-DetailDescription.Logic = S-DetailDescription LET REPOSITORYSTATUS() = CALL SysLogicWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Logic - " F-Name.Logic SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Logic" F-Name.Logic IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Logic: " F-Name.Logic SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF LET S-label_name = F-Name.Logic DISPLAY label_modified_data MESSAGE "Logic Saved." ELSE MESSAGE "Error saving logic." ENDIF 2005-06-27T13:07:17Z LET F-Name.Logic = S-label_name LET V-Accept = "N" LET G-Type.Object = "Logic" IF F-Name.Logic = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Logic = V-ApplicationName LET F-Type.Logic = "Logic" LET F-Name.Logic = G-Name.Object LET F-SourceCode.Logic = S-SourceCode LET F-Description.Logic = S-Description LET F-DetailDescription.Logic = S-DetailDescription LET REPOSITORYSTATUS() = CALL SysLogicWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Logic - " F-Name.Logic SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Logic" G-Name.Object IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Logic: " F-Name.Logic SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF LET S-label_name = F-Name.Logic DISPLAY label_modified_data MESSAGE "Logic Saved." ELSE MESSAGE "Error saving logic." ENDIF 2005-06-27T13:07:36Z LET V-Accept = "N" LET G-Name.Object = F-Name.PickList LET G-Type.Object = "PickList" IF F-Name.PickList = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.PickList = V-ApplicationName LET F-Type.PickList = "PickList" LET F-Name.PickList = G-Name.Object LET L-Hits = LISTROWCOUNT("_picklist_") LET L-Count = 0 REPOSITORY CLEARINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 ROWNO L-Count REPOSITORY PUTINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysPickListWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "PickList - " F-Name.PickList SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "PickList Saved." ELSE MESSAGE "Error saving PickList." ENDIF 2005-06-27T13:07:54Z LET V-Accept = "N" LET G-Type.Object = "PickList" IF F-Name.PickList = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.PickList = V-ApplicationName LET F-Type.PickList = "PickList" LET F-Name.PickList = G-Name.Object LET L-Hits = LISTROWCOUNT("_picklist_") LET L-Count = 0 REPOSITORY CLEARINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 ROWNO L-Count REPOSITORY PUTINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysPickListWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "PickList - " F-Name.PickList SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "PickList Saved." ELSE MESSAGE "Error saving PickList." ENDIF 2005-06-27T13:08:13Z LET V-Accept = "N" LET G-Name.Object = F-Name.Record LET G-Type.Object = "Record" IF F-Name.Record = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Record = V-ApplicationName LET F-Type.Record = "Record" LET F-Name.Record = G-Name.Object LET L-Hits = LISTROWCOUNT("_record_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 ROWNO L-Count REPOSITORY PUTINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysRecordWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Record - " F-Name.Record SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Record" F-Name.Record IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Record: " F-Name.Record SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Record Saved." ELSE MESSAGE "Error saving Record." ENDIF 2005-06-27T13:08:28Z LET V-Accept = "N" LET G-Type.Object = "Record" IF F-Name.Record = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Record = V-ApplicationName LET F-Type.Record = "Record" LET F-Name.Record = G-Name.Object LET L-Hits = LISTROWCOUNT("_record_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 ROWNO L-Count REPOSITORY PUTINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysRecordWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Record - " F-Name.Record SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Record" F-Name.Record IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Record: " F-Name.Record SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Record Saved." ELSE MESSAGE "Error saving Record." ENDIF 2005-06-27T13:08:44Z LET V-Accept = "N" LET G-Name.Object = F-Name.Screen LET G-Type.Object = "Screen" IF F-Name.Screen = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-Name.Screen = G-Name.Object LET REPOSITORYSTATUS() = CALL SysScreenWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Screen - " F-Name.Screen SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "Screen Saved." ELSE MESSAGE "Error saving screen." ENDIF DISPLAY text_screen 2005-06-27T13:09:04Z LET V-Accept = "N" LET G-Type.Object = "Screen" IF F-Name.Screen = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Screen = V-ApplicationName LET F-Type.Screen = "Screen" LET F-Name.Screen = G-Name.Object LET REPOSITORYSTATUS() = CALL SysScreenWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Screen - " F-Name.Screen SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "Screen Saved." ELSE MESSAGE "Error saving screen." ENDIF DISPLAY text_screen 2005-06-27T13:09:37Z LET V-Accept = "N" LET G-Name.Object = F-Name.Table LET G-Type.Object = "Table" IF F-Name.Table = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Table = V-ApplicationName LET F-Type.Table = "Table" LET F-Name.Table = G-Name.Object LET L-Hits = LISTROWCOUNT("_tablerecord_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 ROWNO L-Count LIST GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 ROWNO L-Count LIST GET _tablerecord_ VALUE F-Default.Table.TableRecordEntry COLNO 3 ROWNO L-Count REPOSITORY PUTINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count ENDFOR LET L-Hits = LISTROWCOUNT("_tableindex_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 ROWNO L-Count LIST GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 ROWNO L-Count LIST GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 ROWNO L-Count LIST GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 ROWNO L-Count REPOSITORY PUTINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysTableWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Table - " F-Name.Table SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Table" F-Name.Table IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Table: " F-Name.Table SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Table Saved." ELSE MESSAGE "Error saving table." ENDIF 2005-06-27T13:09:53Z LET V-Accept = "N" LET G-Type.Object = "Table" IF F-Name.Table = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Table = V-ApplicationName LET F-Type.Table = "Table" LET F-Name.Table = G-Name.Object LET L-Hits = LISTROWCOUNT("_tablerecord_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 ROWNO L-Count LIST GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 ROWNO L-Count LIST GET _tablerecord_ VALUE F-Default.Table.TableRecordEntry COLNO 3 ROWNO L-Count REPOSITORY PUTINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count ENDFOR LET L-Hits = LISTROWCOUNT("_tableindex_") LET L-Count = 0 REPOSITORY CLEARINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 ROWNO L-Count LIST GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 ROWNO L-Count LIST GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 ROWNO L-Count LIST GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 ROWNO L-Count REPOSITORY PUTINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysTableWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Table - " F-Name.Table SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Table" F-Name.Table IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Table: " F-Name.Table SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Table Saved." ELSE MESSAGE "Error saving table." ENDIF 2005-06-27T13:10:10Z LET V-Accept = "N" LET G-Name.Object = F-Name.TextDocument LET G-Type.Object = "TextDocument" IF F-Name.TextDocument = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.TextDocument = V-ApplicationName LET F-Type.TextDocument = "TextDocument" LET F-Name.TextDocument = G-Name.Object LET REPOSITORYSTATUS() = CALL SysTextDocumentWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "TextDocument - " F-Name.TextDocument SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "TextDocument Saved." ELSE MESSAGE "Error saving text document." ENDIF 2005-06-27T13:10:29Z LET V-Accept = "N" LET G-Type.Object = "TextDocument" IF F-Name.TextDocument = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.TextDocument = V-ApplicationName LET F-Type.TextDocument = "TextDocument" LET F-Name.TextDocument = G-Name.Object LET REPOSITORYSTATUS() = CALL SysTextDocumentWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "TextDocument - " F-Name.TextDocument SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "TextDocument Saved." ELSE MESSAGE "Error saving text document." ENDIF 2005-06-27T13:10:47Z LET V-Accept = "N" LET G-Name.Object = F-Name.Thread LET G-Type.Object = "Thread" IF F-Name.Thread = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Thread = V-ApplicationName LET F-Type.Thread = "Thread" LET F-Name.Thread = G-Name.Object LET REPOSITORYSTATUS() = CALL SysThreadWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Thread - " F-Name.Thread SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Thread" F-Name.Thread IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Thread: " F-Name.Thread SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Thread Saved." ELSE MESSAGE "Error saving thread." ENDIF 2005-06-27T13:11:01Z LET V-Accept = "N" LET G-Type.Object = "Thread" IF F-Name.Thread = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Thread = V-ApplicationName LET F-Type.Thread = "Thread" LET F-Name.Thread = G-Name.Object LET REPOSITORYSTATUS() = CALL SysThreadWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Thread - " F-Name.Thread SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Thread" F-Name.Thread IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Thread: " F-Name.Thread SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Thread Saved." ELSE MESSAGE "Error saving thread." ENDIF 2005-06-27T13:11:14Z LET V-Accept = "N" LET G-Name.Object = F-Name.Variable LET G-Type.Object = "Variable" IF F-Name.Variable = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.Variable = V-ApplicationName LET F-Type.Variable = "Variable" LET F-Name.Variable = G-Name.Object LET REPOSITORYSTATUS() = CALL SysVariableWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Variable - " F-Name.Variable SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Variable" F-Name.Variable IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Variable: " F-Name.Variable SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Variable Saved." ELSE MESSAGE "Error saving variable." ENDIF 2005-06-27T13:11:32Z LET V-Accept = "N" LET G-Type.Object = "Variable" IF F-Name.Variable = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.Variable = V-ApplicationName LET F-Type.Variable = "Variable" LET F-Name.Variable = G-Name.Object LET REPOSITORYSTATUS() = CALL SysVariableWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "Variable - " F-Name.Variable SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "Variable" F-Name.Variable IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings Variable: " F-Name.Variable SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Variable Saved." ELSE MESSAGE "Error saving variable." ENDIF 2005-06-27T13:11:53Z LET V-Accept = "N" LET G-Name.Object = F-Name.VariableGroup LET G-Type.Object = "VariableGroup" IF F-Name.VariableGroup = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.VariableGroup = V-ApplicationName LET F-Type.VariableGroup = "VariableGroup" LET F-Name.VariableGroup = G-Name.Object LET L-Hits = LISTROWCOUNT("_vargroup_") LET L-Count = 0 REPOSITORY CLEARINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 ROWNO L-Count LIST GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 ROWNO L-Count REPOSITORY PUTINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysVariableGroupWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "VariableGroup - " F-Name.VariableGroup SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "VariableGroup" F-Name.VariableGroup IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings VariableGroup: " F-Name.VariableGroup SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Variable Group Saved." ELSE MESSAGE "Error saving Variable Group." ENDIF 2005-06-27T13:12:10Z LET V-Accept = "N" LET G-Type.Object = "VariableGroup" IF F-Name.VariableGroup = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.VariableGroup = V-ApplicationName LET F-Type.VariableGroup = "VariableGroup" LET F-Name.VariableGroup = G-Name.Object LET L-Hits = LISTROWCOUNT("_vargroup_") LET L-Count = 0 REPOSITORY CLEARINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" FOREVER IF L-Count = L-Hits BREAK ENDIF LET L-Count = L-Count + 1 LIST GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 ROWNO L-Count LIST GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 ROWNO L-Count REPOSITORY PUTINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count ENDFOR LET REPOSITORYSTATUS() = CALL SysVariableGroupWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "VariableGroup - " F-Name.VariableGroup SCREEN TITLE L-WindowTitle CONTROL validate V-ApplicationName "VariableGroup" F-Name.VariableGroup IF VALIDATESTATUS() <> 0 IF VALIDATESTATUS() = 50001 ERROR "Validate service not available." " (" VALIDATESTATUS() ")" ELSE SCREEN ValidateObject LET L-WindowTitle = "Validate Errors/Warnings VariableGroup: " F-Name.VariableGroup SCREEN TITLE L-WindowTitle TARGET ValidateObject ENDIF ELSE SCREEN CLOSE ValidateObject ENDIF DISPLAY label_modified_data MESSAGE "Variable Group Saved." ELSE MESSAGE "Error saving Variable Group." ENDIF 2005-06-27T13:12:26Z LET V-Accept = "N" LET G-Name.Object = F-Name.XmlDocument LET G-Type.Object = "XmlDocument" IF F-Name.XmlDocument = "" SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF ENDIF LET F-Application.XmlDocument = V-ApplicationName LET F-Type.XmlDocument = "XmlDocument" LET F-Name.XmlDocument = G-Name.Object LET REPOSITORYSTATUS() = CALL SysXmlDocumentWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "XmlDocument - " F-Name.XmlDocument SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "XmlDocument Saved." ELSE MESSAGE "Error saving xml document." ENDIF 2005-06-27T13:12:40Z LET V-Accept = "N" LET G-Type.Object = "XmlDocument" IF F-Name.XmlDocument = "" RETURN ENDIF SCREEN ObjectSave IF V-Accept = "N" RETURN ENDIF LET F-Application.XmlDocument = V-ApplicationName LET F-Type.XmlDocument = "XmlDocument" LET F-Name.XmlDocument = G-Name.Object LET REPOSITORYSTATUS() = CALL SysXmlDocumentWrite IF REPOSITORYSTATUS() = 0 LET L-WindowTitle = "XmlDocument - " F-Name.XmlDocument SCREEN TITLE L-WindowTitle DISPLAY label_modified_data MESSAGE "XmlDocument Saved." ELSE MESSAGE "Error saving xml document." ENDIF 2005-06-27T13:12:54Z SCREEN TITLE "DataDictionary - untitled" MESSAGE "Created new data dictionary." CLEAR RECORD DataDictionary LET F-Application.DataDictionary = V-ApplicationName LET F-Type.DataDictionary = "DataDictionary" LET F-MaximumLength.DataDictionary = 1 LET F-MinimumLength.DataDictionary = 1 LET F-ArrayLength.DataDictionary = 1 LET F-DataType.DataDictionary = P-DataType(1) LET F-ExternalStorageType.DataDictionary = P-ExternalStorageType(1) LET F-Justification.DataDictionary = P-Justification(1) LET F-DateFormat.DataDictionary = P-DateFormat(1) LET F-BlankWhenZero.DataDictionary = P-TrueFalse(2) DISPLAY ALL 2005-07-01T03:21:04Z RETURN 2005-07-01T03:25:52Z LET G-Name.Object = S-entryObject IF G-Name.Object = "*" ERROR "Please enter a valid object name." RETURN ENDIF IF G-Name.Object = "" ERROR "Please enter a valid object name." RETURN ENDIF LET L-LogicName = "Sys" G-Type.Object "Read" LET REPOSITORYSTATUS() = CALL L-LogicName IF REPOSITORYSTATUS() = 0 LET V-Accept = "Y" CONTROL commit ELSE ERROR "Object does not exist!" ENDIF 2005-07-01T03:30:44Z LIST GET _filter_ VALUE G-Name.Object COLNO 1 DISPLAY entryObject 2005-07-01T03:32:39Z LET G-Name.Object = S-entryObject IF G-Name.Object = "" ERROR "Please enter a valid name." SEVERITY Error RETURN ENDIF LET L-LogicName = "Sys" G-Type.Object "Test" LET REPOSITORYSTATUS() = CALL L-LogicName IF REPOSITORYSTATUS() = 0 ERROR "Object already exists. Overwrite?" SEVERITY Question IF ERRORRETURN() <> 0 RETURN ENDIF ENDIF LET V-Accept = "Y" CONTROL commit 2005-07-01T03:36:00Z MYSQL SYSTEM BERKELEY-DB SYSTEM Image Text StorageTypes List of Storage Types 2003-05-09T01:32:43 Character Double precision float Single precision float Long integer Short integer Packed decimal Zoned decimal TrueFalse List of True/False Types 2003-05-09T01:32:43 True False Numeric EditCode List of Numeric Edit Codes 2003-05-11T01:32:43 UnsignedNumeric SignedNumeric ReservedSignNumeric EditCode List of Edit Codes 2003-03-07T01:32:43 Unspecified Alphabetic Alphanumeric UnsignedNumeric SignedNumeric ReservedNumeric Question Date CurrentDate Password KeyFormat Justification List Justification Codes 2003-05-09T01:32:43 Left Right Centre None Info Warning Question Error HTML Plain WML XML XSL Other Ascending Descending None Validate Object All Objects which can be validated. All Constant Index Logic Record Table Variable VariableGroup GDA Repository String SignedDecimal UnsignedDecimal Date Boolean External Storage Type External type in 3rd party database. Character Integer Long Integer Single Precision Number Double Precision Number Date Date Format List of Date Formats 2003-03-18T01:32:43 CCYY-MM-DD DD/MM/CCYY MM/DD/CCYY CCYYMMDD 2005-06-27T12:46:51Z Number Text Constant Constant record 2003-02-04T01:54:18 Application Type Name DatabaseType ExternalDatabaseName LogFileName ReadPassword WritePassword ShortDesc LongDesc LastModified Record Instance Record record 2003-03-18T01:54:18 Name Default Reiterate Data Source DataSource record 2009-07-29T23:58:46 Application Type Name ExternalName UserName Password ReadOnlyConnection SqlIdentifiersCaseSensitive ThreadSafe Description DetailDescription Modified Screen Screen record 2003-05-05T01:54:18 Application Type Name DisplayData AllowMultipleInstances Description DetailDescription Modified Logic Logic record 2003-04-24T01:54:18 Application Type Name SourceCode Description DetailDescription Modified PickList Entry Record PickList Entry Record Value Pick List Pick List record 2003-03-18T01:54:18 Application Type Name Description DetailDescription Modified Error Dialog Error Dialog 2003-02-04T01:54:18 Application Type Name Severity ErrorText Description DetailDescription Modified Application Type Name Description DetailDescription Modified Record Record Record record 2003-03-18T01:54:18 Record Instance Record record 2003-03-18T01:54:18 DataDictionaryName Primary DataName Unique ExternalName Sort Type VariableEntry VariableEntry Record. DataDictionaryName InitialValue VariableGroup Record VariableGroup record 2003-03-18T01:54:18 Application Type Name Description DetailDescription Modified Variable Variable record 2003-02-04T01:54:18 Application Type Name DataDictionaryName InitialValue Description DetailDescription Modified Constant Constant record 2003-02-04T01:54:18 Application Type Name DataDictionaryName Value Description DetailDescription Modified Table Record Definition of Table. 2003-02-04T01:54:18 Application Type Name ExternalName DataInterfaceType DataSourceName Description DetailDescription Modified DataDictionaryName Sort RecordName Reiterate Default Application Application Record Application Type Name Password InitialLogicName Description DetailDescription Modified DataModel DataModel record 2003-02-04T01:54:18 Application Type Name AutoClear Description DetailDescription Modified TextDocument Text document record 2003-02-04T01:54:18 Application Type Name TextContents Description DetailDescription Modified ListStore Record ListStore record 2003-03-18T01:54:18 Application Type Name NumColumns MaxNumberRows Description DetailDescription Modified ColumnId Value ColumnId RowId Value ColumnId ColumnLabel ColumnType DefaultSort SortDirection IndexName Primary Unique Sort Xml Document XmlDocument record 2003-02-04T01:54:18 Application Type Name RootElementName Description DetailDescription Modified Thread Thread record 2003-02-04T01:54:18 Application Type Name LogicName Description DetailDescription Modified DataDictionary DataDictionary record 2003-05-09T01:54:18 Application Type Name ExternalName MaximumLength MinimumLength ArrayLength DataType ExternalStorageType DecimalPlaces DateFormat MinimumValue MaximumValue PickList Justification PadCharacter BlankWhenZero Description DetailDescription Modified Index Record Index record 2005-06-27T12:48:18Z Application Type Name ExternalName Description DetailDescription Modified TITLE "Database - untitled" "Created new database." RECORD Database F-Application.Database = V-ApplicationName F-Type.Database = "Database" F-DatabaseType.Database = P-DatabaseType(1) ALL G-NameCurrent.Object = F-Name.LookupTable F-Application.LookupTable = V-ApplicationName F-Type.LookupTable = "LookupTable" F-Name.LookupTable = G-Name.Object READ LookupTable TABLESTATUS() <> 0 THEN F-Name.LookupTable = G-NameCurrent.Object TABLESTATUS() *DELETE "lookup" *MOVE "lookup" *UP Logic DELETE Variable REPOSITORYSTATUS() DELETE Logic REPOSITORYSTATUS() F-Name.Variable = G-Name.Object TEST Variable REPOSITORYSTATUS() F-Name.Logic = G-Name.Object TEST Logic REPOSITORYSTATUS() ALL DELETE Screen REPOSITORYSTATUS() F-Name.Screen = G-Name.Object TEST Screen REPOSITORYSTATUS() F-Name.DataDictionary = G-Name.Object TEST DataDictionary REPOSITORYSTATUS() DELETE Record REPOSITORYSTATUS() F-Name.Record = G-Name.Object TEST Record REPOSITORYSTATUS() OBJECTLIST Constant FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Application.Logic = V-ApplicationName F-Type.Logic = "Logic" OBJECTLIST Logic FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" F-Name.Constant = G-Name.Object TEST Constant REPOSITORYSTATUS() logout V-Accept = "Y" commit DELETE DataSource REPOSITORYSTATUS() OBJECTLIST DataSource FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.DataSource = G-Name.Object TEST DataSource REPOSITORYSTATUS() DataSource TITLE "Data Source - untitled" "Created new data source." RECORD DataSource F-Application.DataSource = V-ApplicationName F-Type.DataSource = "DataSource" F-ReadOnlyConnection.DataSource = P-TrueFalse(2) F-SqlIdentifiersCaseSensitive.DataSource = P-TrueFalse(2) F-ThreadSafe.DataSource = P-TrueFalse(1) ALL PickList DataDictionary Screen DELETE PickList REPOSITORYSTATUS() OBJECTLIST PickList FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.PickList = G-Name.Object TEST PickList REPOSITORYSTATUS() ErrorDialog DELETE ErrorDialog REPOSITORYSTATUS() OBJECTLIST ErrorDialog FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.ErrorDialog = G-Name.Object TEST ErrorDialog REPOSITORYSTATUS() Record Index DELETE Index REPOSITORYSTATUS() OBJECTLIST Index FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.Index = G-Name.Object TEST Index REPOSITORYSTATUS() VariableGroup DELETE VariableGroup REPOSITORYSTATUS() OBJECTLIST VariableGroup FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.VariableGroup = G-Name.Object TEST VariableGroup REPOSITORYSTATUS() VariableGroup Variable TITLE "Variable - untitled" V-Test = "en2" "Created new variable." RECORD Variable.Variable F-Application.Variable = V-ApplicationName F-Type.Variable = "Variable" ALL Constant Table DELETE Table REPOSITORYSTATUS() OBJECTLIST Table FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.Table = G-Name.Object TEST Table REPOSITORYSTATUS() TextDocument DELETE TextDocument REPOSITORYSTATUS() OBJECTLIST TextDocument FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Name.TextDocument = G-Name.Object TEST TextDocument REPOSITORYSTATUS() DELETE DataModel REPOSITORYSTATUS() OBJECTLIST DataModel FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Application.DataModel = V-ApplicationName F-Type.DataModel = "DataModel" F-Name.DataModel = G-Name.Object TEST DataModel REPOSITORYSTATUS() DataModel TITLE "DataModel - untitled" "Created new data model." RECORD DataModel F-Application.DataModel = V-ApplicationName F-Type.DataModel = "DataModel" F-AutoClear.DataModel = P-TrueFalse(1) ALL OBJECTLIST XmlDocument FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Application.XmlDocument = V-ApplicationName F-Type.XmlDocument = "XmlDocument" F-Name.XmlDocument = G-Name.Object TEST XmlDocument REPOSITORYSTATUS() TITLE "XmlDocument - untitled" "Created new xml document." RECORD XmlDocument F-Application.XmlDocument = V-ApplicationName F-Type.XmlDocument = "XmlDocument" ALL XmlDocument TITLE "Text Document - untitled" "Created new text document." RECORD TextDocument.TextDocument F-Application.TextDocument = V-ApplicationName F-Type.TextDocument = "TextDocument" ALL TITLE "Screen (dialog) - untitled" "Created new screen." RECORD Screen F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-AllowMultipleInstances.Screen = P-TrueFalse(2) F-DisplayData.Screen = X-ScreenTemplateDialog ALL TITLE "Constant - untitled" "Created new constant." RECORD Constant F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" ALL TITLE "ErrorDialog - untitled" "Created new error dialog." RECORD ErrorDialog F-Application.ErrorDialog = V-ApplicationName F-Type.ErrorDialog = "ErrorDialog" F-Severity.ErrorDialog = P-Severity(4) ALL OBJECTLIST ListStore FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() F-Application.ListStore = V-ApplicationName F-Type.ListStore = "ListStore" F-Name.ListStore = G-Name.Object TEST ListStore REPOSITORYSTATUS() ListStore GET G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore entryCellValue PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore LABEL G-ColumnLabel.ListStore PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore TYPE G-ColumnType.ListStore PUTHEADER G-Name.ListStore COLNO G-ColumnId.ListStore SORT G-SortDirection.ListStore ListStoreView GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore LABEL G-ColumnLabel.ListStore entryLabel GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore TYPE G-ColumnType.ListStore entryType GETHEADER G-Name.ListStore COLNO G-ColumnId.ListStore SORT G-SortDirection.ListStore entrySortDirection L-NumColumns = F-NumColumns.ListStore - G-NumColumns.ListStore G-NumColumns.ListStore = F-NumColumns.ListStore L-NumColumns = 0 L-NumColumns > 0 COLUMN G-Name.ListStore APPEND L-NumColumns L-NumColumns < 0 L-NumColumns = L-NumColumns * -1 COLUMN G-Name.ListStore DELETE L-NumColumns ListStoreView ROW G-Name.ListStore DELETE ListStoreView CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" L-ColHits = LISTCOLCOUNT(G-Name.ListStore) L-RowHits = LISTROWCOUNT(G-Name.ListStore) L-Count = 0 L-ColCount = 1 TO L-ColHits L-RowCount = 1 TO L-RowHits L-Count = L-Count + 1 F-ColumnId.ListStore.ListData = L-ColCount F-RowId.ListStore.ListData = L-RowCount GET G-Name.ListStore VALUE F-Value.ListStore.ListData COLNO L-ColCount ROWNO L-RowCount PUTINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" SEQUENCE L-Count CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" L-ColHits = LISTCOLCOUNT(G-Name.ListStore) L-ColCount = 1 TO L-ColHits F-ColumnId.ListStore.ListColumnHeader = L-ColCount GETHEADER G-Name.ListStore COLNO L-ColCount LABEL F-ColumnLabel.ListStore.ListColumnHeader GETHEADER G-Name.ListStore COLNO L-ColCount TYPE F-ColumnType.ListStore.ListColumnHeader GETHEADER G-Name.ListStore COLNO L-ColCount SORT F-SortDirection.ListStore.ListColumnHeader F-SortDirection.ListStore.ListColumnHeader = "Ascending" F-DefaultSort.ListStore.ListColumnHeader = "True" F-SortDirection.ListStore.ListColumnHeader = "Descending" F-DefaultSort.ListStore.ListColumnHeader = "True" F-DefaultSort.ListStore.ListColumnHeader = "False" PUTINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" SEQUENCE L-ColCount ROW G-Name.ListStore BOTTOM ListStoreView ROW G-Name.ListStore DOWN ListStoreView COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore FIRST G-ColumnId.ListStore = 1 ListColumnGetData ALL ListStoreView COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore LAST G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) ListColumnGetData ALL ListStoreView COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore LEFT G-ColumnId.ListStore = G-ColumnId.ListStore - 1 G-ColumnId.ListStore < 1 G-ColumnId.ListStore = 1 ListColumnGetData ALL ListStoreView COLUMN G-Name.ListStore COLNO G-ColumnId.ListStore RIGHT G-ColumnId.ListStore = G-ColumnId.ListStore + 1 G-ColumnId.ListStore > LISTCOLCOUNT(G-Name.ListStore) G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) ListColumnGetData ALL ROW G-Name.ListStore TOP ListStoreView ROW G-Name.ListStore UP ListStoreView APPEND G-Name.ListStore VALUE "." INSERT G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore G-ColumnId.ListStore = G-ColumnId.ListStore + 1 G-ColumnId.ListStore > LISTCOLCOUNT(G-Name.ListStore) G-ColumnId.ListStore = LISTCOLCOUNT(G-Name.ListStore) GET G-Name.ListStore VALUE G-Value.ListStore COLNO G-ColumnId.ListStore ListStoreView spinColumnId2 entryCellValue DELETE ListStore REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Constant" ObjectOpen V-Accept = "Y" L-WindowTitle = "Constant - " F-Name.Constant TITLE L-WindowTitle "Constant opened." ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Record" ObjectOpen V-Accept = "Y" L-WindowTitle = "Record - " F-Name.Record TITLE L-WindowTitle "Record opened." RecordInstanceGet RECORD Record.DataDictionaryEntry ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" F-DataDictionaryName.Record.DataDictionaryEntry = G-Name.Object entryDataDictionaryName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "PickList" ObjectOpen V-Accept = "Y" L-WindowTitle = "PickList - " F-Name.PickList TITLE L-WindowTitle "PickList opened." PickListEntryGet RECORD PickList.PickListEntry ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Index" ObjectOpen V-Accept = "Y" L-WindowTitle = "Index - " F-Name.Index TITLE L-WindowTitle "Index opened." IndexEntryGet RECORD Index.IndexEntry ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" F-DataDictionaryName.Index.IndexEntry = G-Name.Object entryDataDictionaryName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "VariableGroup" ObjectOpen V-Accept = "Y" L-WindowTitle = "VariableGroup - " F-Name.VariableGroup TITLE L-WindowTitle "VariableGroup opened." VgrpVariableEntryGet RECORD VariableGroup.VariableEntry ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" F-DataDictionaryName.VariableGroup.VariableEntry = G-Name.Object entryDataDictionaryName "Option not implemented yet." "Option not implemented yet." "Option not implemented yet." V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Table" ObjectOpen V-Accept = "Y" L-WindowTitle = "Table - " F-Name.Table TITLE L-WindowTitle "Table opened." TableRecordEntryGet TableIndexEntryGet RECORD Table.TableRecordEntry RECORD Table.TableIndexEntry ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataSource" ObjectOpen V-Accept = "Y" F-DataSourceName.Table = G-Name.Object entryDataSourceName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Index" ObjectOpen V-Accept = "Y" F-IndexName.Table.TableIndexEntry = G-Name.Object entryIndexName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Record" ObjectOpen V-Accept = "Y" F-RecordName.Table.TableRecordEntry = G-Name.Object entryRecordName ScreenNew TITLE "Screen - untitled" "Created new screen." RECORD Screen F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-AllowMultipleInstances.Screen = P-TrueFalse(2) ALL F-Name.Screen = "" "No screen loaded. Please save screen first." painter F-Name.Screen text_screen DELETE DataDictionary REPOSITORYSTATUS() OBJECTLIST Screen FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() OBJECTLIST Record FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() DELETE Constant REPOSITORYSTATUS() V-ApplicationName = "" G-StoreList.Object = "filter" CLOSE MainAppn Main V-ApplicationName = "" TITLE "ProLinga Developer - untitled" "No application opened." V-ApplicationName = "" L-TempString = "Close Application : " V-ApplicationName " ?" L-TempString SEVERITY Question ERRORRETURN() <> 0 CloseObjectEditors CLOSE ObjectPalette Main V-ApplicationName = "" TITLE "ProLinga Developer - untitled" "No application opened." V-ApplicationName <> "" CLOSE MainAppn V-ApplicationName = "" G-StoreList.Object = "filter" Main L-WindowTitle = "ProLinga Developer - " V-ApplicationName TITLE L-WindowTitle "Application opened." ALL OBJECTLIST DataDictionary FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() CLOSE Constant CLOSE DataDictionary CLOSE DataModel CLOSE DataSource CLOSE ErrorDialog CLOSE Index CLOSE ListStore CLOSE Logic CLOSE PickList CLOSE Record CLOSE Screen CLOSE Table CLOSE TextDocument CLOSE Variable CLOSE VariableGroup CLOSE XmlDocument CLOSE Validate ALL OBJECTLIST Variable FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Variable" ObjectOpen V-Accept = "Y" L-WindowTitle = "Variable - " F-Name.Variable TITLE L-WindowTitle "Variable opened." ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Screen" ObjectOpen V-Accept = "Y" L-WindowTitle = "Screen - " F-Name.Screen TITLE L-WindowTitle "Screen opened." ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" L-WindowTitle = "DataDictionary - " F-Name.DataDictionary TITLE L-WindowTitle "DataDictionary opened." ALL L-LogicName = "Sys" G-Type.Object "Read" REPOSITORYSTATUS() = CALL L-LogicName REPOSITORYSTATUS() = 0 V-Accept = "Y" commit "Object does not exist!" SEVERITY Error V-ApplicationName <> "" ObjectPalette G-NameCurrent.Object = F-Name.Variable F-Application.Variable = V-ApplicationName F-Type.Variable = "Variable" F-Name.Variable = G-Name.Object GET Variable REPOSITORYSTATUS() <> 0 F-Name.Variable = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Logic F-Application.Logic = V-ApplicationName F-Type.Logic = "Logic" F-Name.Logic = G-Name.Object GET Logic REPOSITORYSTATUS() <> 0 F-Name.Logic = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Screen F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-Name.Screen = G-Name.Object GET Screen REPOSITORYSTATUS() <> 0 F-Name.Screen = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.DataDictionary F-Application.DataDictionary = V-ApplicationName F-Type.DataDictionary = "DataDictionary" F-Name.DataDictionary = G-Name.Object GET DataDictionary REPOSITORYSTATUS() <> 0 F-Name.DataDictionary = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Record F-Application.Record = V-ApplicationName F-Type.Record = "Record" F-Name.Record = G-Name.Object GET Record REPOSITORYSTATUS() <> 0 F-Name.Record = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.DataSource F-Application.DataSource = V-ApplicationName F-Type.DataSource = "DataSource" F-Name.DataSource = G-Name.Object GET DataSource REPOSITORYSTATUS() <> 0 F-Name.DataSource = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataSource" ObjectOpen V-Accept = "Y" L-WindowTitle = "Data Source - " F-Name.DataSource TITLE L-WindowTitle "Data Source opened." ALL G-NameCurrent.Object = F-Name.PickList F-Application.PickList = V-ApplicationName F-Type.PickList = "PickList" F-Name.PickList = G-Name.Object GET PickList REPOSITORYSTATUS() <> 0 F-Name.PickList = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "ErrorDialog" ObjectOpen V-Accept = "Y" L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog TITLE L-WindowTitle "Error Dialog opened." entrySeverity ALL G-NameCurrent.Object = F-Name.ErrorDialog F-Application.ErrorDialog = V-ApplicationName F-Type.ErrorDialog = "ErrorDialog" F-Name.ErrorDialog = G-Name.Object GET ErrorDialog REPOSITORYSTATUS() <> 0 F-Name.ErrorDialog = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Index F-Application.Index = V-ApplicationName F-Type.Index = "Index" F-Name.Index = G-Name.Object GET Index REPOSITORYSTATUS() <> 0 F-Name.Index = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Table F-Application.Table = V-ApplicationName F-Type.Table = "Table" F-Name.Table = G-Name.Object GET Table REPOSITORYSTATUS() <> 0 F-Name.Table = G-NameCurrent.Object REPOSITORYSTATUS() "This object has not been implemented yet." "This object has not been implemented yet." G-NameCurrent.Object = F-Name.TextDocument F-Application.TextDocument = V-ApplicationName F-Type.TextDocument = "TextDocument" F-Name.TextDocument = G-Name.Object GET TextDocument REPOSITORYSTATUS() <> 0 F-Name.TextDocument = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "TextDocument" ObjectOpen V-Accept = "Y" L-WindowTitle = "TextDocument - " F-Name.TextDocument TITLE L-WindowTitle "TextDocument opened." ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataModel" ObjectOpen V-Accept = "Y" L-WindowTitle = "DataModel - " F-Name.DataModel TITLE L-WindowTitle "DataModel opened." ALL G-NameCurrent.Object = F-Name.DataModel F-Application.DataModel = V-ApplicationName F-Type.DataModel = "DataModel" F-Name.DataModel = G-Name.Object GET DataModel REPOSITORYSTATUS() <> 0 F-Name.DataModel = G-NameCurrent.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.XmlDocument F-Application.XmlDocument = V-ApplicationName F-Type.XmlDocument = "XmlDocument" F-Name.XmlDocument = G-Name.Object GET XmlDocument REPOSITORYSTATUS() <> 0 F-Name.XmlDocument = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "XmlDocument" ObjectOpen V-Accept = "Y" L-WindowTitle = "XmlDocument - " F-Name.XmlDocument TITLE L-WindowTitle "XmlDocument opened." ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" F-DataDictionaryName.Constant = G-Name.Object entryDataDictionaryName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "PickList" ObjectOpen V-Accept = "Y" F-PickList.DataDictionary = G-Name.Object entryPickListName V-Accept = "N" G-Name.Object = "*" G-Type.Object = "DataDictionary" ObjectOpen V-Accept = "Y" F-DataDictionaryName.Variable = G-Name.Object entryDataDictionaryName TITLE "Screen (window) - untitled" "Created new screen." RECORD Screen F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-AllowMultipleInstances.Screen = P-TrueFalse(2) F-DisplayData.Screen = X-ScreenTemplateWindow ALL REPOSITORYSTATUS() = 0 REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Constant F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" F-Name.Constant = G-Name.Object GET Constant REPOSITORYSTATUS() <> 0 F-Name.Constant = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Name.Object = "*" G-Type.Object = "ListStore" ObjectOpen V-Accept = "Y" L-WindowTitle = "ListStore - " F-Name.ListStore G-Name.ListStore = F-Name.ListStore G-NumColumns.ListStore = F-NumColumns.ListStore TITLE L-WindowTitle "ListStore opened." ALL COLUMN G-Name.ListStore COPY G-ColumnId.ListStore G-NumColumns.ListStore = G-NumColumns.ListStore + 1 F-NumColumns.ListStore = F-NumColumns.ListStore + 1 ListStoreView ROW G-Name.ListStore COPY ListStoreView LISTSTORE G-Name.ListStore G-NameCurrent.Object = F-Name.ListStore F-Application.ListStore = V-ApplicationName F-Type.ListStore = "ListStore" F-Name.ListStore = G-Name.Object GET ListStore REPOSITORYSTATUS() <> 0 F-Name.ListStore = G-NameCurrent.Object REPOSITORYSTATUS() F-Name.ListStore = "" REPOSITORYSTATUS() = CALL SysListStoreTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete List Store : " F-Name.ListStore " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysListStoreDelete LISTSTORE F-Name.ListStore ListFileNew LISTSTORE F-Name.ListStore TITLE "ListStore - untitled" "Created new list store." RECORD ListStore.ListStore VARGROUP ListStore LISTSTORE _template_ F-Application.ListStore = V-ApplicationName F-Type.ListStore = "ListStore" F-NumColumns.ListStore = 2 G-Name.ListStore = "_template_" G-NumColumns.ListStore = F-NumColumns.ListStore RECORD ListStore.ListColumnHeader RECORD ListStore.ListData G-ColumnId.ListStore = 1 G-ColumnType.ListStore = P-ColumnType(2) G-DefaultSort.ListStore = P-TrueFalse(2) G-SortDirection.ListStore = P-Sort(3) ALL ListColumnGetData TITLE "Record - untitled" "Created new record." LISTSTORE _record_ RECORD Record.Record F-Application.Record = V-ApplicationName F-Type.Record = "Record" RECORD Record.DataDictionaryEntry SCREENFIELD RecordView ALL F-DataDictionaryName.Record.DataDictionaryEntry = "" "Please enter a valid data dictionary name." APPEND _record_ VALUE CLIP(F-DataDictionaryName.Record.DataDictionaryEntry) RECORD Record.DataDictionaryEntry entryDataDictionaryName ROW _record_ COPY ROW _record_ DELETE F-Name.Record = "" REPOSITORYSTATUS() = CALL SysRecordTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Record : " F-Name.Record " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysRecordDelete RecordFileNew LISTSTORE _record_ L-Count = 1 GETINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _record_ VALUE CLIP(F-DataDictionaryName.Record.DataDictionaryEntry) L-Count = L-Count + 1 GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 entryDataDictionaryName ROW _record_ BOTTOM ROW _record_ UP ROW _record_ TOP ROW _record_ DOWN F-Value.PickList.PickListEntry = "" "Please enter a value." APPEND _picklist_ VALUE CLIP(F-Value.PickList.PickListEntry) RECORD PickList.PickListEntry entryValue ROW _picklist_ COPY ROW _picklist_ DELETE F-Name.PickList = "" REPOSITORYSTATUS() = CALL SysPickListTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Pick List : " F-Name.PickList " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysPickListDelete PickFileNew LISTSTORE _picklist_ L-Count = 1 GETINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _picklist_ VALUE CLIP(F-Value.PickList.PickListEntry) L-Count = L-Count + 1 GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 entryValue ROW _picklist_ BOTTOM ROW _picklist_ DOWN ROW _picklist_ TOP ROW _picklist_ UP F-DataDictionaryName.Index.IndexEntry = "" "Please enter a valid data dictionary name." APPEND _index_ VALUE CLIP(F-DataDictionaryName.Index.IndexEntry) CLIP(F-Sort.Index.IndexEntry) RECORD Index.IndexEntry F-Sort.Index.IndexEntry = P-Sort(1) entryDataDictionaryName entrySort ROW _index_ COPY ROW _index_ DELETE LISTSTORE _index_ L-Count = 1 GETINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _index_ VALUE CLIP(F-DataDictionaryName.Index.IndexEntry) CLIP(F-Sort.Index.IndexEntry) L-Count = L-Count + 1 F-Name.Index = "" REPOSITORYSTATUS() = CALL SysIndexTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Index : " F-Name.Index " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysIndexDelete IndexFileNew TITLE "Index - untitled" "Created new index." RECORD Index.Index F-Application.Index = V-ApplicationName F-Type.Index = "Index" RECORD Index.IndexEntry F-Sort.Index.IndexEntry = P-Sort(1) LISTSTORE _index_ SCREENFIELD IndexView ALL GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 entryDataDictionaryName entrySort ROW _index_ BOTTOM ROW _index_ DOWN ROW _index_ TOP ROW _index_ UP ROW _vargroup_ COPY F-DataDictionaryName.VariableGroup.VariableEntry = "" "Please enter a valid data dictionary name." APPEND _vargroup_ VALUE CLIP(F-DataDictionaryName.VariableGroup.VariableEntry) CLIP(F-InitialValue.VariableGroup.VariableEntry) RECORD VariableGroup.VariableEntry entryDataDictionaryName entryInitialValue ROW _vargroup_ DELETE GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 entryDataDictionaryName entryInitialValue ROW _vargroup_ BOTTOM ROW _vargroup_ DOWN ROW _vargroup_ TOP ROW _vargroup_ UP LISTSTORE _vargroup_ L-Count = 1 GETINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _vargroup_ VALUE CLIP(F-DataDictionaryName.VariableGroup.VariableEntry) CLIP(F-InitialValue.VariableGroup.VariableEntry) L-Count = L-Count + 1 F-Name.Table = "" REPOSITORYSTATUS() = CALL SysTableTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Table : " F-Name.Table " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysTableDelete TableFileNew ROW _tableindex_ COPY ROW _tableindex_ DELETE ROW _tableindex_ BOTTOM ROW _tableindex_ DOWN ROW _tableindex_ TOP ROW _tableindex_ UP F-RecordName.Table.TableRecordEntry = "" "Please enter a valid record name." L-Hits = LISTROWCOUNT("_tablerecord_") L-Hits = 0 APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) "True" APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) "False" RECORD Table.TableRecordEntry F-Reiterate.Table.TableRecordEntry = P-TrueFalse(2) entryRecordName entryReiterate ROW _tablerecord_ COPY ROW _tablerecord_ DELETE LISTSTORE _tablerecord_ L-Count = 1 GETINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _tablerecord_ VALUE CLIP(F-RecordName.Table.TableRecordEntry) CLIP(F-Reiterate.Table.TableRecordEntry) CLIP(F-Default.Table.TableRecordEntry) L-Count = L-Count + 1 GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 entryRecordName entryReiterate ROW _tablerecord_ BOTTOM ROW _tablerecord_ DOWN ROW _tablerecord_ TOP ROW _tablerecord_ UP LISTSTORE _filter_ ALL TITLE "VariableGroup - untitled" "Created new variable group." RECORD VariableGroup.VariableGroup F-Application.VariableGroup = V-ApplicationName F-Type.VariableGroup = "VariableGroup" RECORD VariableGroup.VariableEntry LISTSTORE _vargroup_ SCREENFIELD VgrpView ALL F-Name.VariableGroup = "" REPOSITORYSTATUS() = CALL SysVariableGroupTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Variable Group : " F-Name.VariableGroup " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysVariableGroupDelete VgrpFileNew G-NameCurrent.Object = F-Name.VariableGroup F-Application.VariableGroup = V-ApplicationName F-Type.VariableGroup = "VariableGroup" F-Name.VariableGroup = G-Name.Object GET VariableGroup REPOSITORYSTATUS() <> 0 F-Name.VariableGroup = G-NameCurrent.Object REPOSITORYSTATUS() F-Name.Constant = "" REPOSITORYSTATUS() = CALL SysConstantTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Constant : " F-Name.Constant " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysConstantDelete CnstFileNew F-Name.DataDictionary = "" REPOSITORYSTATUS() = CALL SysDataDictionaryTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Data Dictionary : " F-Name.DataDictionary " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysDataDictionaryDelete DictFileNew F-Name.DataModel = "" REPOSITORYSTATUS() = CALL SysDataModelTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete DataModel : " F-Name.DataModel " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysDataModelDelete DmFileNew F-Name.DataSource = "" REPOSITORYSTATUS() = CALL SysDataSourceTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Data Source : " F-Name.DataSource " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysDataSourceDelete DSrcFileNew F-Name.ErrorDialog = "" REPOSITORYSTATUS() = CALL SysErrorDialogTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Error Dialog : " F-Name.ErrorDialog " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysErrorDialogDelete ErrorFileNew F-Name.Screen = "" REPOSITORYSTATUS() = CALL SysScreenTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Screen : " F-Name.Screen " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysScreenDelete ScreenFileNew F-Name.TextDocument = "" REPOSITORYSTATUS() = CALL SysTextDocumentTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete TextDocument : " F-Name.TextDocument " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysTextDocumentDelete TextFileNew F-Name.Variable = "" REPOSITORYSTATUS() = CALL SysVariableTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Variable : " F-Name.Variable " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysVariableDelete VarFileNew DELETE XmlDocument REPOSITORYSTATUS() F-Name.XmlDocument = "" REPOSITORYSTATUS() = CALL SysXmlDocumentTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete XmlDocument : " F-Name.XmlDocument " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysXmlDocumentDelete XmlFileNew datamanager 3 V-ApplicationName F-Name.Table LISTSTORE _tableindex_ L-Count = 1 GETINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() <> 0 APPEND _tableindex_ VALUE CLIP(F-IndexName.Table.TableIndexEntry) CLIP(F-Primary.Table.TableIndexEntry) CLIP(F-Unique.Table.TableIndexEntry) CLIP(F-Sort.Table.TableIndexEntry) L-Count = L-Count + 1 GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 entryIndexName entryPrimary entryUnique entrySort TITLE "Table - untitled" "Created new table." RECORD Table.Table F-Application.Table = V-ApplicationName F-Type.Table = "Table" F-DataInterfaceType.Table = P-DataInterfaceType(2) RECORD Table.TableRecordEntry RECORD Table.TableIndexEntry F-Reiterate.Table.TableRecordEntry = P-TrueFalse(2) F-Primary.Table.TableIndexEntry = P-TrueFalse(1) F-Unique.Table.TableIndexEntry = P-TrueFalse(1) F-Sort.Table.TableIndexEntry = P-Sort(1) LISTSTORE _tablerecord_ SCREENFIELD TableRecordView LISTSTORE _tableindex_ SCREENFIELD TableIndexView ALL F-IndexName.Table.TableIndexEntry = "" "Please enter a valid index name." APPEND _tableindex_ VALUE CLIP(F-IndexName.Table.TableIndexEntry) CLIP(F-Primary.Table.TableIndexEntry) CLIP(F-Unique.Table.TableIndexEntry) CLIP(F-Sort.Table.TableIndexEntry) RECORD Table.TableIndexEntry F-Primary.Table.TableIndexEntry = P-TrueFalse(1) F-Unique.Table.TableIndexEntry = P-TrueFalse(1) F-Sort.Table.TableIndexEntry = P-Sort(1) entryIndexName entryPrimary entryUnique entrySort "OK!" TITLE "PickList - untitled" "Created new pick list." RECORD PickList.PickList F-Application.PickList = V-ApplicationName F-Type.PickList = "PickList" RECORD PickList.PickListEntry LISTSTORE _picklist_ SCREENFIELD PickListView ALL LISTSTORE _filter_ G-StoreList.Object = "_filter_" L-LogicName = "Sys" G-Type.Object "List" REPOSITORYSTATUS() = CALL L-LogicName ObjectView F-Application.Application = "Administrator" OBJECTLIST Application FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Constant F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" F-Name.Constant = G-Name.Object GET Constant REPOSITORYSTATUS() <> 0 F-Name.Constant = G-NameCurrent.Object REPOSITORYSTATUS() V-Accept = "N" G-Type.Object = "Index" F-Name.Index = "" ObjectSave V-Accept = "N" F-Application.Index = V-ApplicationName F-Type.Index = "Index" F-Name.Index = G-Name.Object L-Hits = LISTROWCOUNT("_index_") L-Count = 0 CLEARINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 ROWNO L-Count GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 ROWNO L-Count PUTINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysIndexWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Index - " F-Name.Index TITLE L-WindowTitle validate V-ApplicationName "Index" F-Name.Index VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Index: " F-Name.Index TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject "Index Saved." "Error saving Index." V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Logic" ObjectOpen V-Accept = "Y" F-LogicName.Thread = G-Name.Object entryLogicName DELETE Thread REPOSITORYSTATUS() OBJECTLIST Thread FILTER G-Name.Object LISTSTORE G-StoreList.Object REPOSITORYSTATUS() G-NameCurrent.Object = F-Name.Thread F-Application.Thread = V-ApplicationName F-Type.Thread = "Thread" F-Name.Thread = G-Name.Object GET Thread REPOSITORYSTATUS() <> 0 F-Name.Thread = G-NameCurrent.Object REPOSITORYSTATUS() F-Application.Thread = V-ApplicationName F-Type.Thread = "Thread" F-Name.Thread = G-Name.Object TEST Thread REPOSITORYSTATUS() TITLE "Thread - untitled" "Created new thread." RECORD Thread F-Application.Thread = V-ApplicationName F-Type.Thread = "Thread" ALL F-Name.Thread = "" REPOSITORYSTATUS() = CALL SysThreadTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Thread : " F-Name.Thread " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysThreadDelete ThrdFileNew V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Thread" ObjectOpen V-Accept = "Y" L-WindowTitle = "Thread - " F-Name.Thread TITLE L-WindowTitle "Thread opened." ALL Thread G-Type.Validate = "All" "Validate All not implemented yet." LISTSTORE _objectvalidate_ G-Type.Validate = "Constant" F-Application.Constant = V-ApplicationName OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Index" F-Application.Index = V-ApplicationName OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Logic" F-Application.Logic = V-ApplicationName OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Record" F-Application.Record = V-ApplicationName OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Table" F-Application.Table = V-ApplicationName OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Thread" F-Application.Thread = V-ApplicationName OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Variable" F-Application.Variable = V-ApplicationName OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "VariableGroup" F-Application.VariableGroup = V-ApplicationName OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ "Object not implemented (yet)." G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) G-Count.Validate = 1 TO G-Hits.Validate THREADEXIT() = TRUE() GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate G-Name.Validate = "*" G-Name.Validate = "" G-Name.Validate validate V-ApplicationName G-Type.Validate G-Name.Validate VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateInclude CONTAINER Result SOURCE main validateview labelType labelName VALIDATESTATUS() = 0 "Validate Complete." SEVERITY Warning G-Type.Validate = "All" "Validate All not implemented yet." LISTSTORE _objectvalidate_ G-Type.Validate = "Constant" F-Application.Constant = V-ApplicationName OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Index" F-Application.Index = V-ApplicationName OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Logic" F-Application.Logic = V-ApplicationName OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Record" F-Application.Record = V-ApplicationName OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Table" F-Application.Table = V-ApplicationName OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Thread" F-Application.Thread = V-ApplicationName OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Variable" F-Application.Variable = V-ApplicationName OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "VariableGroup" F-Application.VariableGroup = V-ApplicationName OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ "Object not implemented (yet)." G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) G-Count.Validate = 1 TO G-Hits.Validate THREADEXIT() = TRUE() "Validation Aborted" GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate G-Name.Validate = "*" G-Name.Validate = "" G-Name.Validate 1 validate V-ApplicationName G-Type.Validate G-Name.Validate VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateInclude CONTAINER Result SOURCE main validateview labelType labelName G-IsRunning.Validate = FALSE() "Validation Complete" VALIDATESTATUS() = 0 STOP ValidateRun G-IsRunning.Validate = FALSE() cancel G-Type.Validate = "All" "Validate All not implemented yet." G-IsRunning.Validate = FALSE() LISTSTORE _objectvalidate_ G-Type.Validate = "Constant" F-Application.Constant = V-ApplicationName OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Index" F-Application.Index = V-ApplicationName OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Logic" F-Application.Logic = V-ApplicationName OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Record" F-Application.Record = V-ApplicationName OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Table" F-Application.Table = V-ApplicationName OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Thread" F-Application.Thread = V-ApplicationName OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Variable" F-Application.Variable = V-ApplicationName OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "VariableGroup" F-Application.VariableGroup = V-ApplicationName OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ "Object not implemented (yet)." G-IsRunning.Validate = FALSE() G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) G-Count.Validate = 1 TO G-Hits.Validate THREADEXIT() = TRUE() "Validation Aborted." GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate G-Name.Validate = "*" G-Name.Validate = "" "Validating: " G-Name.Validate 1 validate V-ApplicationName G-Type.Validate G-Name.Validate VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateInclude CONTAINER Result SOURCE main validateview labelType labelName "Validation Finished." G-IsRunning.Validate = FALSE() CONTAINER Result L-Count = G-Count.Validate + 1 G-Count.Validate = L-Count TO G-Hits.Validate GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate G-Name.Validate = "*" G-Name.Validate = "" validate V-ApplicationName G-Type.Validate G-Name.Validate VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateInclude CONTAINER Result SOURCE main validateview labelType labelName G-Count.Validate > G-Hits.Validate "Validate Complete." SEVERITY Info CONTAINER Result G-IsRunning.Validate = FALSE() G-IsRunning.Validate = TRUE() G-Init.Validate = FALSE() START ValidateRun VARGROUP Validate Validate CONTAINER Result FRACTION pbValidate VALUE 0.0 "" "This object has not been implemented yet." LISTSTORE _filter_ ALL G-Init.Validate = TRUE() G-Type.Validate = "All" "Validate All not implemented yet." G-IsRunning.Validate = FALSE() LISTSTORE _objectvalidate_ G-Type.Validate = "Constant" F-Application.Constant = V-ApplicationName OBJECTLIST Constant FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Index" F-Application.Index = V-ApplicationName OBJECTLIST Index FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Logic" F-Application.Logic = V-ApplicationName OBJECTLIST Logic FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Record" F-Application.Record = V-ApplicationName OBJECTLIST Record FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Table" F-Application.Table = V-ApplicationName OBJECTLIST Table FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Thread" F-Application.Thread = V-ApplicationName OBJECTLIST Thread FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "Variable" F-Application.Variable = V-ApplicationName OBJECTLIST Variable FILTER G-Filter.Validate LISTSTORE _objectvalidate_ G-Type.Validate = "VariableGroup" F-Application.VariableGroup = V-ApplicationName OBJECTLIST VariableGroup FILTER G-Filter.Validate LISTSTORE _objectvalidate_ "Object not implemented (yet)." G-IsRunning.Validate = FALSE() G-Hits.Validate = LISTROWCOUNT(_objectvalidate_) G-Fraction.Validate = 0.00 G-FractionStep.Validate = 100.00 / G-Hits.Validate * 0.01 G-Init.Validate = TRUE() L-Count = 1 L-Count = G-Count.Validate + 1 G-Count.Validate = L-Count TO G-Hits.Validate THREADEXIT() = TRUE() "Validation Aborted." GET _objectvalidate_ VALUE G-Name.Validate COLNO 1 ROWNO G-Count.Validate G-Name.Validate = "*" G-Name.Validate = "" "Validating: " G-Name.Validate G-Fraction.Validate = G-Fraction.Validate + G-FractionStep.Validate G-Fraction.Validate > 1 G-Fraction.Validate = 1 FRACTION pbValidate VALUE G-Fraction.Validate validate V-ApplicationName G-Type.Validate G-Name.Validate VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateInclude CONTAINER Result SOURCE main validateview labelType labelName G-Count.Validate >= G-Hits.Validate G-Fraction.Validate = 1.0 FRACTION pbValidate VALUE 1.0 "Validation Finished." "Press Edit to modify, Continue to proceed or Stop to cancel." G-IsRunning.Validate = FALSE() V-Accept = "N" G-Name.Object = F-Name.ListStore G-Type.Object = "ListStore" F-Name.ListStore = "" ObjectSave V-Accept = "N" F-Application.ListStore = V-ApplicationName F-Type.ListStore = "ListStore" F-Name.ListStore = G-Name.Object CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" ListFileSaveHeader ListFileSaveData REPOSITORYSTATUS() = CALL SysListStoreWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "ListStore - " F-Name.ListStore G-Name.ListStore = F-Name.ListStore TITLE L-WindowTitle "ListStore Saved." "Error saving list store." TITLE "Logic - untitled" "Created new logic." RECORD Logic F-Application.Logic = V-ApplicationName F-Type.Logic = "Logic" SCREENFIELD SourceCode SCREENFIELD Description SCREENFIELD DetailDescription SCREENFIELD label_name ALL V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Logic" ObjectOpen V-Accept = "Y" L-WindowTitle = "Logic - " F-Name.Logic TITLE L-WindowTitle "Logic opened." S-label_name = F-Name.Logic S-SourceCode = F-SourceCode.Logic S-Description = F-Description.Logic S-DetailDescription = F-DetailDescription.Logic ALL F-Name.Logic = S-label_name F-Name.Logic = "" REPOSITORYSTATUS() = CALL SysLogicTest REPOSITORYSTATUS() <> 0 "Object does not exist and so cannot be deleted." L-TempString = "Delete Logic : " F-Name.Logic " ?" L-TempString SEVERITY Question ERRORRETURN() = 0 REPOSITORYSTATUS() = CALL SysLogicDelete LogicFileNew V-Accept = "N" G-Name.Object = "*" G-Type.Object = "Application" ObjectOpen V-Accept = "Y" CloseObjectEditors appndev G-Name.Object V-ApplicationName = "" V-ApplicationName = G-Name.Object QUITLASTSCREEN() = 1 CLOSE Main MainAppn QUITLASTSCREEN() = 0 V-ApplicationName = G-Name.Object L-WindowTitle = "ProLinga Developer - " V-ApplicationName TITLE L-WindowTitle "Application opened." ObjectPalette "Feature not implemented (yet)" G-IsRunning.Validate = FALSE() G-IsRunning.Validate = TRUE() G-Init.Validate = TRUE() START ValidateRun STOP ValidateRun G-IsRunning.Validate = FALSE() G-Type.Validate G-Name.Object = G-Name.Validate L-LogicName = "Sys" G-Type.Validate "Read" REPOSITORYSTATUS() = CALL L-LogicName REPOSITORYSTATUS() <> 0 "Invalid Object Type" L-WindowTitle = G-Type.Validate " - " G-Name.Validate TITLE L-WindowTitle G-Type.Validate " opened." G-Type.Validate = "Index" IndexEntryGet RECORD Index.IndexEntry G-Type.Validate = "Logic" S-label_name = F-Name.Logic S-SourceCode = F-SourceCode.Logic S-Description = F-Description.Logic S-DetailDescription = F-DetailDescription.Logic G-Type.Validate = "Record" RecordInstanceGet RECORD Record.DataDictionaryEntry G-Type.Validate = "Table" TableRecordEntryGet TableIndexEntryGet RECORD Table.TableRecordEntry RECORD Table.TableIndexEntry G-Type.Validate = "VariableGroup" VgrpVariableEntryGet RECORD VariableGroup.VariableEntry ALL F-Modified.Constant = UTCSTAMP() PUT Constant REPOSITORYSTATUS() F-Modified.DataDictionary = UTCSTAMP() PUT DataDictionary REPOSITORYSTATUS() F-Modified.DataModel = UTCSTAMP() PUT DataModel REPOSITORYSTATUS() F-Modified.DataSource = UTCSTAMP() PUT DataSource REPOSITORYSTATUS() F-Modified.ErrorDialog = UTCSTAMP() PUT ErrorDialog REPOSITORYSTATUS() F-Modified.Index = UTCSTAMP() PUT Index REPOSITORYSTATUS() F-Modified.ListStore = UTCSTAMP() PUT ListStore REPOSITORYSTATUS() F-Modified.Logic = UTCSTAMP() PUT Logic REPOSITORYSTATUS() F-Modified.PickList = UTCSTAMP() PUT PickList REPOSITORYSTATUS() F-Modified.Record = UTCSTAMP() PUT Record REPOSITORYSTATUS() F-Modified.Screen = UTCSTAMP() PUT Screen REPOSITORYSTATUS() F-Modified.Table = UTCSTAMP() PUT Table REPOSITORYSTATUS() F-Modified.TextDocument = UTCSTAMP() PUT TextDocument REPOSITORYSTATUS() F-Modified.Thread = UTCSTAMP() PUT Thread REPOSITORYSTATUS() F-Modified.VariableGroup = UTCSTAMP() PUT VariableGroup REPOSITORYSTATUS() F-Modified.Variable = UTCSTAMP() PUT Variable REPOSITORYSTATUS() F-Modified.XmlDocument = UTCSTAMP() PUT XmlDocument REPOSITORYSTATUS() V-Accept = "N" G-Type.Object = "Constant" F-Name.Constant = "" ObjectSave V-Accept = "N" F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" F-Name.Constant = G-Name.Object REPOSITORYSTATUS() = CALL SysConstantWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Constant - " F-Name.Constant TITLE L-WindowTitle validate V-ApplicationName "Constant" F-Name.Constant VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Constant: " F-Name.Constant TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Constant Saved." "Error saving constant." V-Accept = "N" G-Name.Object = F-Name.Constant G-Type.Object = "Constant" F-Name.Constant = "" ObjectSave V-Accept = "N" F-Application.Constant = V-ApplicationName F-Type.Constant = "Constant" F-Name.Constant = G-Name.Object REPOSITORYSTATUS() = CALL SysConstantWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Constant - " F-Name.Constant TITLE L-WindowTitle validate V-ApplicationName "Constant" F-Name.Constant VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Constant: " F-Name.Constant TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Constant Saved." "Error saving constant." V-Accept = "N" G-Name.Object = F-Name.DataDictionary G-Type.Object = "DataDictionary" F-Name.DataDictionary = "" ObjectSave V-Accept = "N" F-Application.DataDictionary = V-ApplicationName F-Type.DataDictionary = "DataDictionary" F-Name.DataDictionary = G-Name.Object REPOSITORYSTATUS() = CALL SysDataDictionaryWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "DataDictionary - " F-Name.DataDictionary TITLE L-WindowTitle label_modified_data "DataDictionary Saved." "Error saving data dictionary." V-Accept = "N" G-Type.Object = "DataDictionary" F-Name.DataDictionary = "" ObjectSave V-Accept = "N" F-Application.DataDictionary = V-ApplicationName F-Type.DataDictionary = "DataDictionary" F-Name.DataDictionary = G-Name.Object REPOSITORYSTATUS() = CALL SysDataDictionaryWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "DataDictionary - " F-Name.DataDictionary TITLE L-WindowTitle label_modified_data "DataDictionary Saved." "Error saving data dictionary." V-Accept = "N" G-Name.Object = F-Name.DataModel G-Type.Object = "DataModel" F-Name.DataModel = "" ObjectSave V-Accept = "N" F-Application.DataModel = V-ApplicationName F-Type.DataModel = "DataModel" F-Name.DataModel = G-Name.Object REPOSITORYSTATUS() = CALL SysDataModelWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "DataModel - " F-Name.DataModel TITLE L-WindowTitle label_modified_data "DataModel Saved." "Error saving data model." V-Accept = "N" G-Type.Object = "DataModel" F-Name.DataModel = "" ObjectSave V-Accept = "N" F-Application.DataModel = V-ApplicationName F-Type.DataModel = "DataModel" F-Name.DataModel = G-Name.Object REPOSITORYSTATUS() = CALL SysDataModelWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "DataModel - " F-Name.DataModel TITLE L-WindowTitle label_modified_data "DataModel Saved." "Error saving data model." V-Accept = "N" G-Name.Object = F-Name.DataSource G-Type.Object = "DataSource" F-Name.DataSource = "" ObjectSave V-Accept = "N" F-Application.DataSource = V-ApplicationName F-Type.DataSource = "DataSource" F-Name.DataSource = G-Name.Object REPOSITORYSTATUS() = CALL SysDataSourceWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Data Source - " F-Name.DataSource TITLE L-WindowTitle label_modified_data "Data Source Saved." "Error saving data source." V-Accept = "N" G-Type.Object = "DataSource" F-Name.DataSource = "" ObjectSave V-Accept = "N" F-Application.DataSource = V-ApplicationName F-Type.DataSource = "DataSource" F-Name.DataSource = G-Name.Object REPOSITORYSTATUS() = CALL SysDataSourceWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Data Source - " F-Name.DataSource TITLE L-WindowTitle label_modified_data "Data Source Saved." "Error saving data source." V-Accept = "N" G-Name.Object = F-Name.ErrorDialog G-Type.Object = "ErrorDialog" F-Name.ErrorDialog = "" ObjectSave V-Accept = "N" F-Application.ErrorDialog = V-ApplicationName F-Type.ErrorDialog = "ErrorDialog" F-Name.ErrorDialog = G-Name.Object REPOSITORYSTATUS() = CALL SysErrorDialogWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog TITLE L-WindowTitle label_modified_data "ErrorDialog Saved." "Error saving error dialog." V-Accept = "N" G-Type.Object = "ErrorDialog" F-Name.ErrorDialog = "" ObjectSave V-Accept = "N" F-Application.ErrorDialog = V-ApplicationName F-Type.ErrorDialog = "ErrorDialog" F-Name.ErrorDialog = G-Name.Object REPOSITORYSTATUS() = CALL SysErrorDialogWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "ErrorDialog - " F-Name.ErrorDialog TITLE L-WindowTitle label_modified_data "ErrorDialog Saved." "Error saving error dialog." V-Accept = "N" G-Name.Object = F-Name.Index G-Type.Object = "Index" F-Name.Index = "" ObjectSave V-Accept = "N" F-Application.Index = V-ApplicationName F-Type.Index = "Index" F-Name.Index = G-Name.Object L-Hits = LISTROWCOUNT("_index_") L-Count = 0 CLEARINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _index_ VALUE F-DataDictionaryName.Index.IndexEntry COLNO 1 ROWNO L-Count GET _index_ VALUE F-Sort.Index.IndexEntry COLNO 2 ROWNO L-Count PUTINSTANCE Index.IndexEntry INSTANCE "OccurrencesIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysIndexWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Index - " F-Name.Index TITLE L-WindowTitle validate V-ApplicationName "Index" F-Name.Index VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Index: " F-Name.Index TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Index Saved." "Error saving Index." V-Accept = "N" G-Type.Object = "ListStore" F-Name.ListStore = "" ObjectSave V-Accept = "N" F-Application.ListStore = V-ApplicationName F-Type.ListStore = "ListStore" F-Name.ListStore = G-Name.Object CLEARINSTANCE ListStore.ListColumnHeader INSTANCE "OccurrencesListColumnHeader" CLEARINSTANCE ListStore.ListData INSTANCE "OccurrencesListData" ListFileSaveHeader ListFileSaveData REPOSITORYSTATUS() = CALL SysListStoreWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "ListStore - " F-Name.ListStore G-Name.ListStore = F-Name.ListStore TITLE L-WindowTitle "ListStore Saved." LISTSTORE F-Name.ListStore ListStoreView label_modified_data "Error saving list store." V-Accept = "N" F-Name.Logic = S-label_name G-Name.Object = F-Name.Logic G-Type.Object = "Logic" F-Name.Logic = "" ObjectSave V-Accept = "N" F-Application.Logic = V-ApplicationName F-Type.Logic = "Logic" F-Name.Logic = G-Name.Object S-label_name = F-Name.Logic F-SourceCode.Logic = S-SourceCode F-Description.Logic = S-Description F-DetailDescription.Logic = S-DetailDescription REPOSITORYSTATUS() = CALL SysLogicWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Logic - " F-Name.Logic TITLE L-WindowTitle validate V-ApplicationName "Logic" F-Name.Logic VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Logic: " F-Name.Logic TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject S-label_name = F-Name.Logic label_modified_data "Logic Saved." "Error saving logic." F-Name.Logic = S-label_name V-Accept = "N" G-Type.Object = "Logic" F-Name.Logic = "" ObjectSave V-Accept = "N" F-Application.Logic = V-ApplicationName F-Type.Logic = "Logic" F-Name.Logic = G-Name.Object F-SourceCode.Logic = S-SourceCode F-Description.Logic = S-Description F-DetailDescription.Logic = S-DetailDescription REPOSITORYSTATUS() = CALL SysLogicWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Logic - " F-Name.Logic TITLE L-WindowTitle validate V-ApplicationName "Logic" G-Name.Object VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Logic: " F-Name.Logic TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject S-label_name = F-Name.Logic label_modified_data "Logic Saved." "Error saving logic." V-Accept = "N" G-Name.Object = F-Name.PickList G-Type.Object = "PickList" F-Name.PickList = "" ObjectSave V-Accept = "N" F-Application.PickList = V-ApplicationName F-Type.PickList = "PickList" F-Name.PickList = G-Name.Object L-Hits = LISTROWCOUNT("_picklist_") L-Count = 0 CLEARINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 ROWNO L-Count PUTINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysPickListWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "PickList - " F-Name.PickList TITLE L-WindowTitle label_modified_data "PickList Saved." "Error saving PickList." V-Accept = "N" G-Type.Object = "PickList" F-Name.PickList = "" ObjectSave V-Accept = "N" F-Application.PickList = V-ApplicationName F-Type.PickList = "PickList" F-Name.PickList = G-Name.Object L-Hits = LISTROWCOUNT("_picklist_") L-Count = 0 CLEARINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _picklist_ VALUE F-Value.PickList.PickListEntry COLNO 1 ROWNO L-Count PUTINSTANCE PickList.PickListEntry INSTANCE "OccurrencesPickListEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysPickListWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "PickList - " F-Name.PickList TITLE L-WindowTitle label_modified_data "PickList Saved." "Error saving PickList." V-Accept = "N" G-Name.Object = F-Name.Record G-Type.Object = "Record" F-Name.Record = "" ObjectSave V-Accept = "N" F-Application.Record = V-ApplicationName F-Type.Record = "Record" F-Name.Record = G-Name.Object L-Hits = LISTROWCOUNT("_record_") L-Count = 0 CLEARINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 ROWNO L-Count PUTINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysRecordWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Record - " F-Name.Record TITLE L-WindowTitle validate V-ApplicationName "Record" F-Name.Record VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Record: " F-Name.Record TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Record Saved." "Error saving Record." V-Accept = "N" G-Type.Object = "Record" F-Name.Record = "" ObjectSave V-Accept = "N" F-Application.Record = V-ApplicationName F-Type.Record = "Record" F-Name.Record = G-Name.Object L-Hits = LISTROWCOUNT("_record_") L-Count = 0 CLEARINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _record_ VALUE F-DataDictionaryName.Record.DataDictionaryEntry COLNO 1 ROWNO L-Count PUTINSTANCE Record.DataDictionaryEntry INSTANCE "OccurrencesDataDictionaryEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysRecordWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Record - " F-Name.Record TITLE L-WindowTitle validate V-ApplicationName "Record" F-Name.Record VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Record: " F-Name.Record TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Record Saved." "Error saving Record." V-Accept = "N" G-Name.Object = F-Name.Screen G-Type.Object = "Screen" F-Name.Screen = "" ObjectSave V-Accept = "N" F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-Name.Screen = G-Name.Object REPOSITORYSTATUS() = CALL SysScreenWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Screen - " F-Name.Screen TITLE L-WindowTitle label_modified_data "Screen Saved." "Error saving screen." text_screen V-Accept = "N" G-Type.Object = "Screen" F-Name.Screen = "" ObjectSave V-Accept = "N" F-Application.Screen = V-ApplicationName F-Type.Screen = "Screen" F-Name.Screen = G-Name.Object REPOSITORYSTATUS() = CALL SysScreenWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Screen - " F-Name.Screen TITLE L-WindowTitle label_modified_data "Screen Saved." "Error saving screen." text_screen V-Accept = "N" G-Name.Object = F-Name.Table G-Type.Object = "Table" F-Name.Table = "" ObjectSave V-Accept = "N" F-Application.Table = V-ApplicationName F-Type.Table = "Table" F-Name.Table = G-Name.Object L-Hits = LISTROWCOUNT("_tablerecord_") L-Count = 0 CLEARINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 ROWNO L-Count GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 ROWNO L-Count GET _tablerecord_ VALUE F-Default.Table.TableRecordEntry COLNO 3 ROWNO L-Count PUTINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count L-Hits = LISTROWCOUNT("_tableindex_") L-Count = 0 CLEARINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 ROWNO L-Count GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 ROWNO L-Count GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 ROWNO L-Count GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 ROWNO L-Count PUTINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysTableWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Table - " F-Name.Table TITLE L-WindowTitle validate V-ApplicationName "Table" F-Name.Table VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Table: " F-Name.Table TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Table Saved." "Error saving table." V-Accept = "N" G-Type.Object = "Table" F-Name.Table = "" ObjectSave V-Accept = "N" F-Application.Table = V-ApplicationName F-Type.Table = "Table" F-Name.Table = G-Name.Object L-Hits = LISTROWCOUNT("_tablerecord_") L-Count = 0 CLEARINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _tablerecord_ VALUE F-RecordName.Table.TableRecordEntry COLNO 1 ROWNO L-Count GET _tablerecord_ VALUE F-Reiterate.Table.TableRecordEntry COLNO 2 ROWNO L-Count GET _tablerecord_ VALUE F-Default.Table.TableRecordEntry COLNO 3 ROWNO L-Count PUTINSTANCE Table.TableRecordEntry INSTANCE "OccurrencesTableRecordEntry" SEQUENCE L-Count L-Hits = LISTROWCOUNT("_tableindex_") L-Count = 0 CLEARINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _tableindex_ VALUE F-IndexName.Table.TableIndexEntry COLNO 1 ROWNO L-Count GET _tableindex_ VALUE F-Primary.Table.TableIndexEntry COLNO 2 ROWNO L-Count GET _tableindex_ VALUE F-Unique.Table.TableIndexEntry COLNO 3 ROWNO L-Count GET _tableindex_ VALUE F-Sort.Table.TableIndexEntry COLNO 4 ROWNO L-Count PUTINSTANCE Table.TableIndexEntry INSTANCE "OccurrencesTableIndexEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysTableWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Table - " F-Name.Table TITLE L-WindowTitle validate V-ApplicationName "Table" F-Name.Table VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Table: " F-Name.Table TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Table Saved." "Error saving table." V-Accept = "N" G-Name.Object = F-Name.TextDocument G-Type.Object = "TextDocument" F-Name.TextDocument = "" ObjectSave V-Accept = "N" F-Application.TextDocument = V-ApplicationName F-Type.TextDocument = "TextDocument" F-Name.TextDocument = G-Name.Object REPOSITORYSTATUS() = CALL SysTextDocumentWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "TextDocument - " F-Name.TextDocument TITLE L-WindowTitle label_modified_data "TextDocument Saved." "Error saving text document." V-Accept = "N" G-Type.Object = "TextDocument" F-Name.TextDocument = "" ObjectSave V-Accept = "N" F-Application.TextDocument = V-ApplicationName F-Type.TextDocument = "TextDocument" F-Name.TextDocument = G-Name.Object REPOSITORYSTATUS() = CALL SysTextDocumentWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "TextDocument - " F-Name.TextDocument TITLE L-WindowTitle label_modified_data "TextDocument Saved." "Error saving text document." V-Accept = "N" G-Name.Object = F-Name.Thread G-Type.Object = "Thread" F-Name.Thread = "" ObjectSave V-Accept = "N" F-Application.Thread = V-ApplicationName F-Type.Thread = "Thread" F-Name.Thread = G-Name.Object REPOSITORYSTATUS() = CALL SysThreadWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Thread - " F-Name.Thread TITLE L-WindowTitle validate V-ApplicationName "Thread" F-Name.Thread VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Thread: " F-Name.Thread TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Thread Saved." "Error saving thread." V-Accept = "N" G-Type.Object = "Thread" F-Name.Thread = "" ObjectSave V-Accept = "N" F-Application.Thread = V-ApplicationName F-Type.Thread = "Thread" F-Name.Thread = G-Name.Object REPOSITORYSTATUS() = CALL SysThreadWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Thread - " F-Name.Thread TITLE L-WindowTitle validate V-ApplicationName "Thread" F-Name.Thread VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Thread: " F-Name.Thread TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Thread Saved." "Error saving thread." V-Accept = "N" G-Name.Object = F-Name.Variable G-Type.Object = "Variable" F-Name.Variable = "" ObjectSave V-Accept = "N" F-Application.Variable = V-ApplicationName F-Type.Variable = "Variable" F-Name.Variable = G-Name.Object REPOSITORYSTATUS() = CALL SysVariableWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Variable - " F-Name.Variable TITLE L-WindowTitle validate V-ApplicationName "Variable" F-Name.Variable VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Variable: " F-Name.Variable TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Variable Saved." "Error saving variable." V-Accept = "N" G-Type.Object = "Variable" F-Name.Variable = "" ObjectSave V-Accept = "N" F-Application.Variable = V-ApplicationName F-Type.Variable = "Variable" F-Name.Variable = G-Name.Object REPOSITORYSTATUS() = CALL SysVariableWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "Variable - " F-Name.Variable TITLE L-WindowTitle validate V-ApplicationName "Variable" F-Name.Variable VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings Variable: " F-Name.Variable TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Variable Saved." "Error saving variable." V-Accept = "N" G-Name.Object = F-Name.VariableGroup G-Type.Object = "VariableGroup" F-Name.VariableGroup = "" ObjectSave V-Accept = "N" F-Application.VariableGroup = V-ApplicationName F-Type.VariableGroup = "VariableGroup" F-Name.VariableGroup = G-Name.Object L-Hits = LISTROWCOUNT("_vargroup_") L-Count = 0 CLEARINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 ROWNO L-Count GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 ROWNO L-Count PUTINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysVariableGroupWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "VariableGroup - " F-Name.VariableGroup TITLE L-WindowTitle validate V-ApplicationName "VariableGroup" F-Name.VariableGroup VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings VariableGroup: " F-Name.VariableGroup TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Variable Group Saved." "Error saving Variable Group." V-Accept = "N" G-Type.Object = "VariableGroup" F-Name.VariableGroup = "" ObjectSave V-Accept = "N" F-Application.VariableGroup = V-ApplicationName F-Type.VariableGroup = "VariableGroup" F-Name.VariableGroup = G-Name.Object L-Hits = LISTROWCOUNT("_vargroup_") L-Count = 0 CLEARINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" L-Count = L-Hits L-Count = L-Count + 1 GET _vargroup_ VALUE F-DataDictionaryName.VariableGroup.VariableEntry COLNO 1 ROWNO L-Count GET _vargroup_ VALUE F-InitialValue.VariableGroup.VariableEntry COLNO 2 ROWNO L-Count PUTINSTANCE VariableGroup.VariableEntry INSTANCE "OccurrencesVariableEntry" SEQUENCE L-Count REPOSITORYSTATUS() = CALL SysVariableGroupWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "VariableGroup - " F-Name.VariableGroup TITLE L-WindowTitle validate V-ApplicationName "VariableGroup" F-Name.VariableGroup VALIDATESTATUS() <> 0 VALIDATESTATUS() = 50001 "Validate service not available." " (" VALIDATESTATUS() ")" ValidateObject L-WindowTitle = "Validate Errors/Warnings VariableGroup: " F-Name.VariableGroup TITLE L-WindowTitle TARGET ValidateObject CLOSE ValidateObject label_modified_data "Variable Group Saved." "Error saving Variable Group." V-Accept = "N" G-Name.Object = F-Name.XmlDocument G-Type.Object = "XmlDocument" F-Name.XmlDocument = "" ObjectSave V-Accept = "N" F-Application.XmlDocument = V-ApplicationName F-Type.XmlDocument = "XmlDocument" F-Name.XmlDocument = G-Name.Object REPOSITORYSTATUS() = CALL SysXmlDocumentWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "XmlDocument - " F-Name.XmlDocument TITLE L-WindowTitle label_modified_data "XmlDocument Saved." "Error saving xml document." V-Accept = "N" G-Type.Object = "XmlDocument" F-Name.XmlDocument = "" ObjectSave V-Accept = "N" F-Application.XmlDocument = V-ApplicationName F-Type.XmlDocument = "XmlDocument" F-Name.XmlDocument = G-Name.Object REPOSITORYSTATUS() = CALL SysXmlDocumentWrite REPOSITORYSTATUS() = 0 L-WindowTitle = "XmlDocument - " F-Name.XmlDocument TITLE L-WindowTitle label_modified_data "XmlDocument Saved." "Error saving xml document." TITLE "DataDictionary - untitled" "Created new data dictionary." RECORD DataDictionary F-Application.DataDictionary = V-ApplicationName F-Type.DataDictionary = "DataDictionary" F-MaximumLength.DataDictionary = 1 F-MinimumLength.DataDictionary = 1 F-ArrayLength.DataDictionary = 1 F-DataType.DataDictionary = P-DataType(1) F-ExternalStorageType.DataDictionary = P-ExternalStorageType(1) F-Justification.DataDictionary = P-Justification(1) F-DateFormat.DataDictionary = P-DateFormat(1) F-BlankWhenZero.DataDictionary = P-TrueFalse(2) ALL G-Name.Object = S-entryObject G-Name.Object = "*" "Please enter a valid object name." G-Name.Object = "" "Please enter a valid object name." L-LogicName = "Sys" G-Type.Object "Read" REPOSITORYSTATUS() = CALL L-LogicName REPOSITORYSTATUS() = 0 V-Accept = "Y" commit "Object does not exist!" GET _filter_ VALUE G-Name.Object COLNO 1 entryObject G-Name.Object = S-entryObject G-Name.Object = "" "Please enter a valid name." SEVERITY Error L-LogicName = "Sys" G-Type.Object "Test" REPOSITORYSTATUS() = CALL L-LogicName REPOSITORYSTATUS() = 0 "Object already exists. Overwrite?" SEVERITY Question ERRORRETURN() <> 0 V-Accept = "Y" commit True ExtPreviewImage GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False True True True 0.02 0.03 0 0 True True New Screen ... GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE True True False True True False 0 True GTK_BUTTONBOX_END True True True gtk-cancel True GTK_RELIEF_NORMAL 0 True True True gtk-ok True GTK_RELIEF_NORMAL 0 0 False True GTK_PACK_END 10 True 0 0.5 GTK_SHADOW_ETCHED_IN True False 0 5 True True Window True GTK_RELIEF_NORMAL False False True 0 False False 5 True True Dialog True GTK_RELIEF_NORMAL False False True radiobutton1 0 False False True Screen Type False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 label_item 0 True True False True ExtPreviewText GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False True True True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT 5 True True True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 True True dialog1 GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False True False True True False 0 True GTK_BUTTONBOX_END True True True gtk-cancel True GTK_RELIEF_NORMAL -6 True True True gtk-ok True GTK_RELIEF_NORMAL -5 0 False True GTK_PACK_END False 500 200 True Validate Errors/Warnings GTK_WINDOW_TOPLEVEL GTK_WIN_POS_MOUSE False True False True False 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True 0 True True 5 True GTK_BUTTONBOX_END 0 True True True gtk-close True GTK_RELIEF_NORMAL 0 False True False True ProLinga Developer GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False 400 200 True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True False 0 True True _Application True True gtk-open True True True _Logout True True gtk-quit True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-open True True False False True True gtk-quit True True False False True 0 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True False False False True 0 True True True True 0 False False False True ProLinga Developer GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False 400 200 True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True False 0 True True _Application True True gtk-open True True gtk-close True True True _Logout True True gtk-quit True True _View True True Show Object _Palette True True gtk-properties 1 0.5 0.5 0 0 True _Tools True True _Validate True True gtk-spell-check 1 0.5 0.5 0 0 True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-open True True False False True True Object _Palette True gtk-properties True True False False True True _Validate True gtk-spell-check True True False False True True gtk-quit True True False False True 0 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True False False False True 0 True True True True 0 False False False True Validate Progress GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True False 0 True GTK_PROGRESS_LEFT_TO_RIGHT 0.05 0.01 hello 50 False False True True 0 False False False True Object Palette GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True 10 2 False 0 0 True True _Blob True GTK_RELIEF_NORMAL True 0 1 0 1 True True _Data Dictionary True GTK_RELIEF_NORMAL True 0 1 1 2 True True D_ata Source True GTK_RELIEF_NORMAL True 0 1 2 3 True True I_ndex True GTK_RELIEF_NORMAL True 0 1 3 4 True True _Logic True GTK_RELIEF_NORMAL True 0 1 4 5 True True _Record True GTK_RELIEF_NORMAL True 0 1 5 6 True True _Screen True GTK_RELIEF_NORMAL True 0 1 6 7 True True Text Doc_ument True GTK_RELIEF_NORMAL True 0 1 7 8 True True _Constant True GTK_RELIEF_NORMAL True 1 2 0 1 True True Data _Model True GTK_RELIEF_NORMAL True 1 2 1 2 True True _Error Dialog True GTK_RELIEF_NORMAL True 1 2 2 3 True True L_ist Store True GTK_RELIEF_NORMAL True 1 2 3 4 True True Pic_k List True GTK_RELIEF_NORMAL True 1 2 4 5 True True Re_port True GTK_RELIEF_NORMAL True 1 2 5 6 True True _Table True GTK_RELIEF_NORMAL True 1 2 6 7 True True T_hread True GTK_RELIEF_NORMAL True 1 2 7 8 True True _Variable True GTK_RELIEF_NORMAL True 1 2 8 9 True True Tree St_ore True GTK_RELIEF_NORMAL True 0 1 8 9 True True Variable _Group True GTK_RELIEF_NORMAL True 0 1 9 10 True True _XML Document True GTK_RELIEF_NORMAL True 1 2 9 10 False 500 300 True Validate Errors/Warnings GTK_WINDOW_TOPLEVEL GTK_WIN_POS_MOUSE False True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True 0 0.5 GTK_SHADOW_NONE True False 0 5 True 3 2 False 5 5 True Object Type: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 0 1 1 2 fill True Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 0 1 2 3 fill True label5 False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 1 2 1 2 True label6 False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 1 2 2 3 0 False True 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True 0 True True 5 True GTK_BUTTONBOX_END 0 True True True GTK_RELIEF_NORMAL True True 0.5 0.5 0 0 0 0 0 0 True False 2 True gtk-go-forward 4 0.5 0.5 0 0 0 False False True C_ontinue True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 0 False False True True True GTK_RELIEF_NORMAL True True 0.5 0.5 0 0 0 0 0 0 True False 2 True gtk-justify-fill 4 0.5 0.5 0 0 0 False False True _Edit True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 0 False False True True True gtk-clear True GTK_RELIEF_NORMAL True 0 False True False 5 True Validate GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 600 400 True False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True False 0 5 True False 0 5 True 3 2 False 5 5 True Object: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 0 1 0 1 fill True Filter: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 0 1 1 2 fill True True True True 0 True * False 1 2 1 2 True 1 2 0 1 fill fill True Progress: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 0 1 2 3 fill True GTK_PROGRESS_LEFT_TO_RIGHT 0 0 1 2 2 3 fill 0 True True 5 True GTK_BUTTONBOX_START 5 True True True _Start/Stop True GTK_RELIEF_NORMAL True True True True gtk-close True GTK_RELIEF_NORMAL True 0 False True 0 False True 5 True 0 0.5 GTK_SHADOW_ETCHED_IN True Result False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 label_item 0 True True True True 0 False False False True Constant GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 2 2 False 5 0 True Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True True True 0 True * False 1 2 1 2 True Data Dictionary Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False 5 True True True True 0 True * False 0 True True True True gtk-find True GTK_RELIEF_NORMAL True 0 False False 1 2 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True GDK_EXPOSURE_MASK True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 True True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:33:12Z True DataDictionary GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 14 2 False 5 0 True Data Type: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 4 5 fill True Array Length: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True Minimum Length: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True Maximum Length: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True 1 0 False GTK_UPDATE_ALWAYS False False 1 1 9999 1 10 10 1 2 3 4 True True 1 0 False GTK_UPDATE_ALWAYS False False 1 1 999999 1 10 10 1 2 2 3 True True 1 0 False GTK_UPDATE_ALWAYS False False 1 1 999999 1 10 10 1 2 1 2 True External Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Blank When Zero: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 13 14 fill True Pad Character: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 12 13 fill True Justification: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 11 12 fill True Pick List: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 10 11 fill True True True True 1 True * False 1 2 12 13 True False 5 True True True True 0 True * False 0 True True True True gtk-find True GTK_RELIEF_NORMAL True 0 False False 1 2 10 11 fill fill True Maximum Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 9 10 fill True Minimum Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 8 9 fill True Date Format: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 7 8 fill True Decimal Places: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 6 7 fill True External Storage Type: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 5 6 fill True True True True 0 True * False 1 2 9 10 True True True True 0 True * False 1 2 8 9 True True 1 0 False GTK_UPDATE_ALWAYS False False 0 0 9 1 10 10 1 2 6 7 True False True 1 2 4 5 fill fill True False True 1 2 5 6 fill fill True False True 1 2 7 8 fill fill True False True 1 2 11 12 fill fill True True togglebutton1 True GTK_RELIEF_NORMAL True False False 1 2 13 14 fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:36:03Z True DataModel GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 1 2 False 5 0 True Auto Clear: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True togglebutton1 True GTK_RELIEF_NORMAL True False False 1 2 0 1 False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE 0 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 True True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:38:55Z True DataSource GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 6 2 False 5 0 True External Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True User Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True Password: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True Read Only Connection: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True SQL Identifiers Case Sensitive: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 4 5 fill True Thread Safe: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 5 6 fill True True True True 0 True * False 1 2 1 2 True True True False 0 True * False 1 2 2 3 True True True True 0 True * False 1 2 0 1 True True togglebutton1 True GTK_RELIEF_NORMAL True False False 1 2 3 4 fill True True togglebutton2 True GTK_RELIEF_NORMAL True False False 1 2 4 5 fill True True togglebutton3 True GTK_RELIEF_NORMAL True False False 1 2 5 6 fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:40:21Z True ErrorDialog GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 2 2 False 5 0 True Severity: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True Error Text: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True True True 0 True * False 1 2 1 2 True False True 1 2 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:41:04Z True Index GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 1 2 False 5 0 True External Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 2 True 2 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True 3 3 False 5 5 True Data Dictionary Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Sorting: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill 5 True True gtk-add True GTK_RELIEF_NORMAL True 0 3 2 3 fill True True gtk-find True GTK_RELIEF_NORMAL True 2 3 0 1 fill True False True 1 2 1 2 fill fill 1 2 1 2 fill fill 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill False True True _Entries True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:42:19Z True ListStore GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True False True False 0 True GTK_PACK_DIRECTION_LTR GTK_PACK_DIRECTION_LTR True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 2 2 False 5 0 True Number of Columns: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True Maximum Number of Rows: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True 1 0 False GTK_UPDATE_ALWAYS False False 1 1 99999 1 10 10 1 2 1 2 True False 0 True True 1 0 False GTK_UPDATE_ALWAYS False False 1 1 999 1 10 10 0 True True 1 2 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 2 True 3 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill True True True True GTK_POS_TOP False False 5 True 6 2 False 5 0 True Column Id: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False 0 True True 1 0 False GTK_UPDATE_ALWAYS False False 3 0 100 1 10 10 0 True True 1 2 0 1 fill fill True True gtk-apply True GTK_RELIEF_NORMAL True 0 2 5 6 fill True Sort Direction: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 4 5 fill True Type: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True Label: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True True True True 0 True * False 1 2 2 3 True False 0 5 True GTK_BUTTONBOX_END 0 True True True gtk-goto-first True GTK_RELIEF_NORMAL True True True True gtk-go-back True GTK_RELIEF_NORMAL True True True True gtk-go-forward True GTK_RELIEF_NORMAL True True True True gtk-goto-last True GTK_RELIEF_NORMAL True 0 True True True GTK_BUTTONBOX_START 0 True True True gtk-copy True GTK_RELIEF_NORMAL True 0 True True 1 2 1 2 fill True False True 1 2 4 5 fill fill True False True 1 2 3 4 fill fill False True True _Column True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 5 True 4 2 False 5 0 True True gtk-apply True GTK_RELIEF_NORMAL True 0 2 3 4 fill fill True Cell Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True True True 0 True * False 1 2 1 2 True Column Id: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False 0 True True 1 0 False GTK_UPDATE_ALWAYS False False 1 0 100 1 10 10 0 True True 1 2 0 1 fill fill False True True _Row True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 1 2 2 3 fill 10 True True GTK_RELIEF_NORMAL True True 0.5 0.5 0 0 0 0 0 0 True False 2 True gtk-add 4 0.5 0.5 0 0 0 False False True _New Row True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 1 2 1 2 fill False True True S_tore True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2008-02-16T01:37:01Z True Pick List GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True 2 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True 2 2 False 5 0 True Value : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True True gtk-add True GTK_RELIEF_NORMAL True 0 2 1 2 fill 1 2 1 2 fill fill 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:46:43Z True Record GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True 2 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True 2 3 False 0 0 True Data Dictionary Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 5 True True gtk-add True GTK_RELIEF_NORMAL True 0 3 1 2 fill 5 True True gtk-find True GTK_RELIEF_NORMAL True 2 3 0 1 fill 1 2 1 2 fill fill 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:47:37Z True Table GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True 2 3 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True 3 3 False 5 5 True Record Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Reiterate: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True gtk-add True GTK_RELIEF_NORMAL True 0 3 2 3 fill True True gtk-find True GTK_RELIEF_NORMAL True 2 3 0 1 fill True True togglebutton1 True GTK_RELIEF_NORMAL True False False 1 2 1 2 fill 1 2 1 2 fill fill 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill 10 True GTK_BUTTONBOX_START 0 True True True GTK_RELIEF_NORMAL True True 0.5 0.5 0 0 0 0 0 0 True False 2 True gtk-apply 4 0.5 0.5 0 0 0 False False True _Default True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 2 3 0 1 fill False True True _Record True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab True 2 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill 5 True 5 3 False 5 5 True Index Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Primary: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True Unique: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True Sorting: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True True gtk-find True GTK_RELIEF_NORMAL True 2 3 0 1 fill True True gtk-add True GTK_RELIEF_NORMAL True 0 3 4 5 fill True False True 1 2 3 4 fill fill True True togglebutton2 True GTK_RELIEF_NORMAL True True False 1 2 1 2 fill True True togglebutton3 True GTK_RELIEF_NORMAL True True False 1 2 2 3 fill 1 2 1 2 fill fill False True True Inde_x True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True 3 2 False 5 0 True External Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Data Source Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True Data Interface Type: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True False 5 True True True True 0 True * False 0 True True True True gtk-find True GTK_RELIEF_NORMAL True 0 False False 1 2 2 3 fill fill True False True 1 2 1 2 fill fill False True True _Provider True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 5 True 0 0.5 GTK_SHADOW_ETCHED_IN 10 True 4 2 False 5 0 True Data Source _Host: True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 entry3 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True Data Source _Port: True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 entry4 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True _User Name: True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 entry5 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True _Password: True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 entry6 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True True True True 0 True * False 1 2 0 1 True True True True 0 True * False 1 2 1 2 True True True True 0 True * False 1 2 2 3 True True True True 0 True * False 1 2 3 4 True Connection False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 label_item 0 True True 5 True 0 0.5 GTK_SHADOW_ETCHED_IN 10 True False 5 True True _Build Database Table True GTK_RELIEF_NORMAL True 0 False False True Data Options False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 label_item 0 True True False True True _DataManager True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False aa bb 2005-06-27T12:50:26Z True TextDocument GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 400 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True False 0 10 True 0 0.5 GTK_SHADOW_ETCHED_IN True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT 5 True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 True Contents False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 label_item 0 True True False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False True 2005-06-27T12:51:49Z True Thread GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 1 2 False 5 0 True Logic Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False 5 True True True True 0 True * False 0 True True True True gtk-find True GTK_RELIEF_NORMAL True 0 False False 1 2 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True GDK_EXPOSURE_MASK True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 True True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:52:37Z True Variable GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 2 2 False 5 0 True Data Dictionary Name: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False 5 True True True True 0 True * False 0 True True True True gtk-find True GTK_RELIEF_NORMAL True 0 False False 1 2 0 1 fill fill True Initial Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True True True True 0 True * False 1 2 1 2 False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:53:43Z True VariableGroup GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 420 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True 2 2 False 0 0 5 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 1 2 0 1 5 True 3 3 False 5 0 True Data Dictionary Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 True Initial Value: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill 5 True True gtk-find True GTK_RELIEF_NORMAL True 2 3 0 1 fill True True True True 0 True * False 1 2 1 2 True True gtk-add True GTK_RELIEF_NORMAL True 0 3 2 3 fill 1 2 1 2 fill fill 5 True False 0 5 True GTK_BUTTONBOX_DEFAULT_STYLE 0 True True True gtk-goto-top True GTK_RELIEF_NORMAL True True True True gtk-go-up True GTK_RELIEF_NORMAL True True True True gtk-go-down True GTK_RELIEF_NORMAL True True True True gtk-goto-bottom True GTK_RELIEF_NORMAL True 0 False False True GTK_BUTTONBOX_END 0 True True True gtk-copy True GTK_RELIEF_NORMAL True True True True gtk-delete True GTK_RELIEF_NORMAL True 0 False False GTK_PACK_END 0 1 0 1 fill fill False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True _Description : True False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True De_scription True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:54:36Z True XmlDocument GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 400 300 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False 10 True 1 2 False 5 0 True Root Element Name : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True True True True 0 True * False 1 2 0 1 False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 True True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-06-27T12:55:27Z True Logic GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 400 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True gtk-new True True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True 0 False True True True True True GTK_POS_TOP False False True False 0 10 True False 0 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True 0 True True False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_END -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False True 2005-06-27T13:01:51Z True Screen GTK_WINDOW_TOPLEVEL GTK_WIN_POS_CENTER False 500 400 True True True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True False 0 True True _File True True _New Window True True gtk-new 1 0.5 0.5 0 0 True New _Dialog True True gtk-new 1 0.5 0.5 0 0 True gtk-open True True True gtk-save True True gtk-save-as True True gtk-delete True True True _Painter True True gtk-select-color 1 0.5 0.5 0 0 True _Import True True gtk-jump-to 1 0.5 0.5 0 0 True True gtk-close True True _Edit True True gtk-cut True True gtk-copy True True gtk-paste True True gtk-delete True True _Help True True _About True 0 False False True GTK_SHADOW_OUT GTK_POS_LEFT GTK_POS_TOP True GTK_ORIENTATION_HORIZONTAL GTK_TOOLBAR_BOTH True True True _New Window True gtk-new True True False False True True New _Dialog True gtk-new True True False False True True gtk-open True True False False True True gtk-save True True False False True True True True True False False True _Painter True gtk-select-color True True False False True 0 False True True True True True GTK_POS_TOP False False True False 0 10 True False 0 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True 0 True True False True True _General True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True 1 2 False 5 0 True Allow Multiple Instances: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill True False True 1 2 0 1 fill False True True _Control True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True False 0 True Description : False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True True True True 0 True * False 5 False False True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE True 0 0 0 0 0 0 0 True True True False 0 True Last Modified : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False True False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 False False 0 False True False True True _Description True False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True True True 5 False False False 2005-07-01T03:10:16Z True About... GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE False False False True False False GDK_WINDOW_TYPE_HINT_NORMAL GDK_GRAVITY_NORTH_WEST True True True False 0 True GTK_BUTTONBOX_END True True True True gtk-ok True GTK_RELIEF_NORMAL True -6 0 False True GTK_PACK_END 10 True True True True GTK_POS_TOP False False 5 True False 0 True <span foreground="yellow" background="#b82b11" face="arial" size="30000"><b> Pro</b><span foreground="white" background="#b82b11" face="arial" size="30000"><b><i>Linga </i></b></span></span> False True GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True <big><big><big><big><b>ProLinga Developer</b></big></big></big></big> False True GTK_JUSTIFY_LEFT False False 0.5 0.5 10 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True ProLinga Developer is a development tool for business applications. False True GTK_JUSTIFY_LEFT False False 0.5 0.5 10 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False True <small>(c) 2002-2009 The ProLinga Team.</small> False True GTK_JUSTIFY_LEFT False False 0.5 0.5 10 0 PANGO_ELLIPSIZE_NONE -1 False 0 5 False False GTK_PACK_END False True True About False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 10 True 4 2 False 15 5 True Default Configuration File: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 3 4 fill True Compiled with Components: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 2 3 fill True Version: False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 fill True False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 1 2 3 4 fill True False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 1 2 2 3 fill True False False GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 1 2 1 2 fill True <big><b>ProLinga Runner</b></big> False True GTK_JUSTIFY_LEFT False False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 fill False True True Runner False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT 5 True True False False True GTK_JUSTIFY_LEFT GTK_WRAP_NONE False 5 5 0 5 5 0 Bas Driessen <bas.driessen@xobas.com> False True True Credits False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 tab 0 True True False 2005-07-01T03:11:19Z True Open... GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE True 300 300 True False True False False GDK_WINDOW_TYPE_HINT_DIALOG GDK_GRAVITY_NORTH_WEST True True True False 0 True GTK_BUTTONBOX_END True True True gtk-cancel True GTK_RELIEF_NORMAL True 0 True True True True gtk-ok True GTK_RELIEF_NORMAL True 0 0 False True GTK_PACK_END 10 True False 0 True True GTK_POLICY_ALWAYS GTK_POLICY_ALWAYS GTK_SHADOW_NONE GTK_CORNER_TOP_LEFT True True True False False True False False False 10 True True True 2 2 False 0 0 True False 5 True True True True True 32 True * True 32 0 True True True True gtk-index True GTK_RELIEF_NORMAL True 0 False False 1 2 1 2 fill fill True False False GTK_JUSTIFY_LEFT True False 0 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 1 2 0 1 fill True Object Type: False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 0 1 5 fill True Object Name: False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 0 1 1 2 5 fill 10 False True 0 True True False 2005-07-01T03:30:07Z True Save... GTK_WINDOW_TOPLEVEL GTK_WIN_POS_NONE True True False True False False GDK_WINDOW_TYPE_HINT_DIALOG GDK_GRAVITY_NORTH_WEST True True True False 0 True GTK_BUTTONBOX_END True True True gtk-cancel True GTK_RELIEF_NORMAL True 0 True True True True gtk-ok True GTK_RELIEF_NORMAL True 0 0 False True GTK_PACK_END 10 True False 0 True 0 0.5 0 1 0 0 0 0 True Save Object : False False GTK_JUSTIFY_LEFT False False 0.5 0.5 0 0 PANGO_ELLIPSIZE_NONE -1 False 0 10 False True True 0.5 0.5 1 1 0 0 0 0 True True True True 32 True * True 32 10 False True 0 True True False 2005-07-01T03:35:27Z VariableRepository Variable Table. Variable Repository Table Variable RepositoryObject True Ascending True
ScreenRepository Screen Table Screen Repository Table Screen RepositoryObject True Ascending True
DataDictionaryRepository DataDictionary Table DataDictionary Repository Table DataDictionary RepositoryObject True Ascending True
TableRepository Table Table Table Repository Table Table TableRecordEntry TableIndexEntry RepositoryObject True Ascending True
DataSourceRepository DataSource Table DataSource Repository Table DataSource RepositoryObject True Ascending True
ConstantRepository Constant Table Constant Repository Table Constant RepositoryObject True Ascending True
LogicRepository Logic Table Logic Repository Table Logic RepositoryObject True Ascending True
PickListRepository PickList Table PickList Repository Table PickList PickListEntry RepositoryObject True Ascending True
ErrorDialogRepository ErrorDialog Table ErrorDialog Repository Table ErrorDialog RepositoryObject True Ascending True
RecordRepository Record Table Record Repository Table Record DataDictionaryEntry RepositoryObject True Ascending True
VariableGroupRepository VariableGroup Table VariableGroup Repository Table VariableGroup VariableEntry RepositoryObject True Ascending True
IndexRepository Index Table Index Repository Table Index IndexEntry RepositoryObject True Ascending True
ApplicationRepository Application Table Application Repository Table Application RepositoryObject True Ascending True
TextDocumentRepository TextDocument Table TextDocument Repository Table TextDocument RepositoryObject True Ascending True
XmlDocumentRepository XmlDocument Table XmlDocument Repository Table XmlDocument RepositoryObject True Ascending True
ListStoreRepository ListStore Table ListStore Repository Table ListStore ListColumnHeader ListData RepositoryObject True Ascending True
ThreadRepository Thread Table Thread Repository Table Thread RepositoryObject True Ascending
DataModelRepository DataModel Table DataModel Repository Table 2005-06-27T12:50:36Z DataModel RepositoryObject True Ascending
Dit is lijn 1 en nummer 2 en de laatste dag <glade-interface> <widget class="GtkDialog" id="dialog1"> <property name="visible">True</property> <property name="title" translatable="yes">dialog1</property> <property name="type">GTK_WINDOW_TOPLEVEL</property> <property name="window_position">GTK_WIN_POS_NONE</property> <property name="modal">False</property> <property name="resizable">True</property> <property name="destroy_with_parent">False</property> <property name="decorated">True</property> <property name="skip_taskbar_hint">False</property> <property name="skip_pager_hint">False</property> <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property> <property name="gravity">GDK_GRAVITY_NORTH_WEST</property> <property name="has_separator">True</property> <child internal-child="vbox"> <widget class="GtkVBox" id="dialog-vbox1"> <property name="visible">True</property> <property name="homogeneous">False</property> <property name="spacing">0</property> <child internal-child="action_area"> <widget class="GtkHButtonBox" id="dialog-action_area1"> <property name="visible">True</property> <property name="layout_style">GTK_BUTTONBOX_END</property> <child> <widget class="GtkButton" id="cancelbutton1"> <property name="visible">True</property> <property name="can_default">True</property> <property name="can_focus">True</property> <property name="label">gtk-cancel</property> <property name="use_stock">True</property> <property name="relief">GTK_RELIEF_NORMAL</property> <property name="focus_on_click">True</property> <property name="response_id">-6</property> </widget> </child> <child> <widget class="GtkButton" id="okbutton1"> <property name="visible">True</property> <property name="can_default">True</property> <property name="can_focus">True</property> <property name="label">gtk-ok</property> <property name="use_stock">True</property> <property name="relief">GTK_RELIEF_NORMAL</property> <property name="focus_on_click">True</property> <property name="response_id">-5</property> </widget> </child> </widget> <packing> <property name="padding">0</property> <property name="expand">False</property> <property name="fill">True</property> <property name="pack_type">GTK_PACK_END</property> </packing> </child> <child> <placeholder/> </child> </widget> </child> </widget> </glade-interface> Template empty Dialog Template empty Dialog <glade-interface> <widget class="GtkWindow" id="window1"> <property name="visible">True</property> <property name="title" translatable="yes">window1</property> <property name="type">GTK_WINDOW_TOPLEVEL</property> <property name="window_position">GTK_WIN_POS_NONE</property> <property name="modal">False</property> <property name="resizable">True</property> <property name="destroy_with_parent">False</property> <property name="decorated">True</property> <property name="skip_taskbar_hint">False</property> <property name="skip_pager_hint">False</property> <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property> <property name="gravity">GDK_GRAVITY_NORTH_WEST</property> <child> <placeholder/> </child> </widget> </glade-interface> Template empty screen Template empty screen <glade-interface> <widget class="GtkWindow" id=""> <property name="visible">True</property> <property name="title" translatable="yes">window1</property> <property name="type">GTK_WINDOW_TOPLEVEL</property> <property name="window_position">GTK_WIN_POS_NONE</property> <property name="modal">False</property> <property name="resizable">True</property> <property name="destroy_with_parent">False</property> <property name="decorated">True</property> <property name="skip_taskbar_hint">False</property> <property name="skip_pager_hint">False</property> <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property> <property name="gravity">GDK_GRAVITY_NORTH_WEST</property> <child> <placeholder/> </child> </widget> </glade-interface> Template empty screen Template empty screen <hello> aae </hello> 2005-06-27T12:51:57Z ValidateRun 2005-06-27T12:52:45Z Switch Accept Accept yes/no 2003-02-17T10:51:01 Switch Accept Accept yes/no 2003-02-17T10:51:01 Switch Accept Accept yes/no 2003-02-17T10:51:01 ApplicationName Application Name Application Name Accept Accept Accept yes/no 2005-06-27T13:13:26Z Object Object 2003-02-11T01:54:18 Name NameCurrent Type StoreList Name ColumnId ColumnLabel ColumnType DefaultSort SortDirection Name ColumnId ColumnType NumColumns Name ColumnId ColumnLabel ColumnType DefaultSort SortDirection Value NumColumns Object Object 2003-02-11T01:54:18 Name NameCurrent Type StoreList ee Type All Filter * Hits 0 Count 0 Name IsRunning False Init True Fraction 0.0000 FractionStep 0.0000 2005-06-27T12:54:44Z Name ColumnId ColumnType NumColumns