Skip to main content

This is documentation for Caché & Ensemble. See the InterSystems IRIS version of this content.

For information on migrating to InterSystems IRIS, see Why Migrate to InterSystems IRIS?

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    
 
Feedback