Loading PROTOCLASS Programmatically
Here is the MVBasic code for loading PROTOCLASS:
INSTPATH="%SYSTEM.Util"->InstallDirectory()
SAMPLEDIR=INSTPATH:'dev/mv/samples'
$SYSTEM.OBJ->Load(SAMPLEDIR:'/PROTOCLASS.xml','ck')
OPEN 'VOC' TO VOC ELSE ABORT
READV FLAG FROM VOC,'PROTOCLASS',5 THEN
FLAG:='2D'
WRITEV FLAG ON VOC,'PROTOCLASS',5
END ELSE
STOPM "PROTOCLASS not cataloged"
END
