cQCG	;Report from ZZLOG("GSIZE") ;cQCG;
	Q
	;
date	;date
	N %H,%J,%R S %H=1+$H,%J=%H\1461,%R=%H#1461,DJ=%J*4+1841+(%R\365),DD=%R#365,DM=1 I %R=1460 S DD=365,DJ=DJ-1
	F %J=31,(%R>1154)+28,31,30,31,30,31,31,30,31,30 Q:%J'<DD  S DM=DM+1,DD=DD-%J
	S:'DD DJ=DJ-1,DM=12,DD=31 S:DD<10 DD=0_DD S:DM<10 DM=0_DM S DT=DD_"."_DM_"."_$E(DJ,3,4)
datez	Q
time	;time
	N %J,%R S QT=$G(QT),%R=$P($H,",",2)\60,%J=%R\60
	S TD=$J(%J,2)_$P(" u ; h ; h ",";",$S(QT="F":2,QT="E":3,1:1))_(%R#60\10)_(%R#10)
timez	Q
doubleq(X)	;Double quotes in string
	N Y S Y=0 F  S Y=$F(X,"""",Y) Q:'Y  S X=$E(X,0,Y-1)_""""_$E(X,Y,$L(X)),Y=Y+1
doubleqz	K Y Q X
	;
GS(Y,Z)	;Report from ZZLOG("GSIZE") for Year Y into file Z
	N A,B,I,J,K,L,M,N,X
	S $ZT="ERR^"_$T(+0),K=$$DW^cAFD1($H),YEAR=K\1,boot=$ZCVT($ZU(110),"U"),TAB=$C(9),I="",Y=+$G(Y) I 'Y S Y=YEAR
	S Z=$G(Z,"d:\datam\temp\gsize"),Z=$TR(Z,"/","\"),Z=$P(Z,"\",1,$L(Z,"\")-1)_"\"_$P($P(Z,"\",$L(Z,"\")),".") I $E(Z,$L(Z))="\" S Z=Z_"gs"
	F  S I=$O(^ZZLOG("GSIZE",I)) Q:I=""  S K=$P(I,"^",2) I (K=boot)!(K=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:"")) D
	. K ^TEMP(boot,$J) I K=$S($ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U")):$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER","ALIAS")),1:""),$ZCVT($ZU(110),"U")=$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE")),1:$S($L($G(^cLOG($ZU(5),"SYSTEM","MASTER"))):$G(^cLOG($ZU(5),"SYSTEM","MASTER")),1:$ZCVT($ZU(110),"U"))):$S($L($G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS"))):$G(^cLOG($ZU(5),"SYSTEM","SLAVE","ALIAS")),1:""),1:"") S K=boot
	. S L=$P(I,"^",3),X=Z_"_"_boot_"_"_$TR($P(L,"/",4,6),"/","-")_"_"_YEAR_".txt"
	. F J=1:1:53 S K=K_TAB_$J("WK "_$J(J,2),8)_TAB_TAB,L=L_TAB_$J("Nodes",8)_TAB_$J("Bytes",8)_TAB_$J("Bytes+",8)
	. S R=$O(^TEMP(boot,$J,""),-1)+1,^(R)=K,R=$O(^TEMP(boot,$J,""),-1)+1,^(R)=L,J=""
	. F  S J=$O(^ZZLOG("GSIZE",I,J)) Q:J=""  S A=$G(^(J,Y)) I $L(A) S N=J D
	.. F L=1:1:53 D
	... S B=$P(A,"\",L-1) I L=1 S B=$P($G(^ZZLOG("GSIZE",I,J,Y-1)),"\",52)
	... S K=$P($P(A,"\",L),"#",2),M=$P(B,"#",2)
	... S N=N_TAB_$P($P(A,"\",L),"#",1)_TAB_K_TAB_$S('K:"",1:$S('M:"",1:$J(K-M,8)))
	.. S R=$O(^TEMP(boot,$J,""),-1)+1,^(R)=N
	. S ER=$$OW^cQFILE(X),J="" I ER Q
	. F  S J=$O(^TEMP(boot,$J,J)) Q:J=""  S ER=$$WF^cQFILE(X,^(J)_$C(13,10)) Q:ER
	. S ER=$$CF^cQFILE(X)
GSZ	Q
	;
CS(G,S,DB)	;Check if the levels add up to the global
	S G=$G(G),S=$G(S,"TBK-D1"),DB=$G(DB,"^TBAC^d:/datam/database/tbk/g/1/")
	S I=$E(G,1,$L(G)-1)_$C($A(G,$L(G))-1)_"z",(BT,NT,J)=0,K=$$DW^cAFD1($H),YEAR=K\1,WEEK=K#1*100
	F  S I=$O(^ZZLOG("GSIZE",DB,I)) Q:$P(I,"(")'=G  S J=J+1,K=$P(^(I,YEAR),"\",47),NT=NT+$P(K,"#",1),BT=BT+$P(K,"#",2) W !,I," ",K
	S L=$G(^ZZLOG("CHECK","G",S,G,DB))
	W !!,"Nodes on level 2: ",J,!!,L,!?$F(L,"\")-1,NT,"\",BT
	W !!,"Difference in nodes: ",$P(L,"\",2)-NT
	W !,"Difference in bytes: ",$P(L,"\",3)-BT
CSZ	Q
	;
ERR	W !!,$ZE,!! ZQ
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9