Skip to main content
Previous sectionNext section

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    
 
Copy code to clipboard