*---------------------------------------------------
*--- If a data environment class has been specified,
*--- instantiate the class.
*---------------------------------------------------
IF !EMPTY(This.cDataEnvironment)
This.oDataEnvironment = CREATEOBJECT(This.cDataEnvironment)
wait wind "The type is " + TYPE('This.oDataEnvironment')
llRetVal = (TYPE('This.oDataEnvironment') == 'O')
IF llRetVal
Wait wind "Success"
ELSE
Wait wind "Failure"
endif
ENDIF