MultiValue Quick Start Tutorial
Loading PROTOCLASS Programmatically
[Home] [Back] 
InterSystems: The power behind what matters   
Class Reference   
Search:    

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