MSMCOMP ;Checksum van global berekenen [ 12/06/2003  3:24 PM ]
 
CRC(Global) 
 New CRCTyp,SomData,SomIndex,Cnt     
 Set CRCTyp=$S($zv["MSM":0,1:1)
 Set (SomData,SomIndex,Cnt)=0
 If $D(@Global)#1 Do
 . Set SomData=SomData+$ZCRC(@Global,CRCTyp)
 . Set SomIndex=SomIndex+$ZCRC(Global,CRCTyp)
 . Set Cnt=Cnt+1
 For  Set Global=$Q(@Global)  Quit:Global=""  Do
 . Set SomData=SomData+$ZCRC(@Global,CRCTyp)
 . Set SomIndex=SomIndex+$ZCRC(Global,CRCTyp)
 . Set Cnt=Cnt+1
 Quit Cnt_"\"_SomData_"\"_SomIndex