>Look at Message#
592548 for an example of how to do what you want.
Hi Albert,
I looked at Message#
592548 and found it very enlightening
BUT, did you see Joel Leaches response to my question? He seems to have found an even better way of having a class use a Private DataSession.
Define Class myCustom as Custom
oDS = .null.
Procedure Init()
This.oDS = CreateObject('session')
Set DataSession to (This.oDS.DataSessionID)
EndProc
Procedure Destroy()
This.oDS = .null.
EndProc
EndDefine
I tried it and it seems to work.
Would you comment please?
TIA
Bill Morris