*!* This example program will create a textbox object and then create a table for "storing" the object. *!* This is only intended to be an example of the tools available to accomplish the task. *!* LOCAL loTextBox, laTextBox(1), lci, _val, lcType CLEAR ALL *!* Create an object to use as an example loTextBox = CREATEOBJECT('textbox') *!* Create an array of the object's properties AMEMBERS( laTextBox, loTextBox ) *!* Create a structural cursor CREATE TABLE TextBoxStructure ( field_name C(128), ; field_type C(1), ; field_len N(3,0),; field_dec N(3,0) ) *!* Loop through the array of object properties, adding a record for each in the structural table FOR EACH lci IN laTextBox _val = 'loTextBox .' + lci lcType = TYPE( _val ) DO CASE CASE lcType = 'C' INSERT INTO TextBoxStructure (field_name, field_type, field_len, field_dec) ; VALUES (lci, 'C', 128, 0) CASE lcType = 'L' INSERT INTO TextBoxStructure (field_name, field_type, field_len, field_dec) ; VALUES (lci, 'L', 1, 0) CASE lcType = 'N' INSERT INTO TextBoxStructure (field_name, field_type, field_len, field_dec) ; VALUES (lci, 'N', 12, 3) OTHERWISE ENDCASE NEXT lci *!* Now, create a table that maps the object structure CREATE TEXTBOX FROM TextBoxStructure *!* Store the object in the table APPEND BLANK GATHER NAME loTextBoxHTH