I want to subclass entire class library. I know I can use Create Class Command to do for each class in the class library. I wonder whether the following coding is a workable solution or not:

copy file original.* to newsubclass.*
use newsubclass.vcx
delete for !empty(parent)
replace class with objname for val(reserved2) > 0
replace classloc with 'original.vcx' for empty(classloc) and val(reserved2) > 0
replace reserved2 with '1' for val(reserved2) > 1
use


Thank you for any suggestion.


Peter