George,

It was the subclassing of the cursor where I was trying to put some default properties and had buffermodeoveride=0 vs buffermodeoverride=0, and then of course I was consistent in the miss-spelling thoughout, looking at the wrong property. I'm going to watch that syntax coloring better now:)

Thanks...

>Terry,
>
>Here's some code I've generated and tested and it seems to work properly. Maybe sub-classing the cursors is a problem. I don't know.

>* 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
>ENDDEFINE

>I'm still working with the code generator, so all the bells and whistles aren't in yet.
>
>Let me know if you see something here that might be different from what you're doing.
>
>hth,