* Test Session Class DEFINE CLASS MySession AS SESSION oDE = .NULL. PROCEDURE Init LPARAMETER pcfile, pcname SET PROCEDURE TO (pcfile) ADDITIVE This.oDE = CREATEOBJECT(pcname) RELEASE PROCEDURE (pcfile) * This will open the tables This.oDE.OpenTables RETURN ENDPROC ENDDEFINE * Generated by my code generator. DEFINE CLASS WARPDATADE AS DataEnvironment InitialSelectedAlias = "warpdata" PROCEDURE Init This.AddObject("Cursor1", "cursor") WITH This.Cursor1 .CursorSource = "warpdata" .Alias = "warpdata" .BufferModeOverride = 5 .Order = "date" .Database = "warping.dbc" ENDWITH This.AddObject("Cursor2", "cursor") WITH This.Cursor2 .CursorSource = "stylgrps" .Alias = "stylgrps" .Order = "style" .Database = "warping.dbc" ENDWITH This.AddObject("Cursor3", "cursor") WITH This.Cursor3 .CursorSource = "operator" .Alias = "operator" .Order = "operator" .Database = "warping.dbc" ENDWITH This.AddObject("Cursor4", "cursor") WITH This.Cursor4 .CursorSource = "warp_std" .Alias = "warp_std" .Order = "style" .Database = "warping.dbc" ENDWITH ENDPROC PROCEDURE Destroy This.CloseTables RETURN ENDPROC ENDDEFINEI'm still working with the code generator, so all the bells and whistles aren't in yet.