Skip to main content

This is documentation for Caché & Ensemble.

For information on converting to InterSystems IRIS, see the InterSystems IRIS Adoption Guide and the InterSystems IRIS In-Place Conversion Guide, both available on the WRC Distributions page (login required).

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