cQVGCOP	;Copy globals from sys S to sys T ;cQVGCOP;
	Q
	;
CPY(S,T,db,set)	; Copy globals
	;
	S S=$G(S),T=$G(T),db=$G(db),set=$G(set,0) Q:S=""  Q:T=""  Q:db=""
	S dbase="d:\datam\database\"_db_"\g\1\"
	D GD^cQVGGLO("^^"_dbase,.A)
	S G="",$ZT="ERR"
	F  S G=$O(A(G)) Q:G=""  D
	. W !,G
	. S from="^[""^"_S_"^"_dbase_"""]"_$E(G,2,$L(G))
	. S to="^[""^"_T_"^"_dbase_"""]"_$E(G,2,$L(G))
	. S X="M "_to_"="_from
	. W !,X
	. I set X X
	;
YZ	Q
	;
ERR	W !,$ZE Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9