MultiValue Quick Start Tutorial
Loading PROTOCLASS Programmatically
[Back] 
   
Server:docs1
Instance:LATEST
User:UnknownUser
 
-
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