>loTest=CREATEOBJECT('Test') >MESSAGEBOX('Data session after having created Test: '+STR(SET('DATASESSION'))) > >loPrivateData=CREATEOBJECT('PrivateData') >SET DATASESSION TO loPrivateData.DataSessionID >MESSAGEBOX('Data session now switched to 2: '+STR(SET('DATASESSION'))) > >loTest.Go() > >DEFINE CLASS Test AS Custom >FUNCTION GO >MESSAGEBOX('Data session inside method is switched back to 1: '+STR(SET('DATASESSION'))) >ENDFUNC >ENDDEFINE > >DEFINE CLASS PrivateData AS Session >ENDDEFINE >>