Is there an option to export globals in archive?

Question

Question

Evgeny Shvarov · Apr 1, 2017

#Continuous Integration #Globals #Development Environment #Terminal #Caché

Hi, Community!

Is there an option to get an archived file of globals in one command. Say for:

Do $System.OBJ.Export("Class1*D.GBL,Class2*D.GBL","data_gbl.xml")

get something like:

Do $System.OBJ.Export("Data*D.GBL","data_gbl.gz","gzip")

And also to have the convenient one click way to import it to the namespace via terminal or Control Panel?

If anyone already has this module, share please?

It would be very convenient for import/export/continuous integration purposes cause globals can be really heavy.

Discussion (8)3

Log in or sign up to continue

Sean Connelly · Apr 1, 2017

Hi Evgeny,

Not exactly one command, but it can be done on one line...

set file="foo.zip" do $System.OBJ.ExportToStream("foo*.GBL",.s) open file:("WNS":/GZIP=1) use file Do s.OutputToDevice() close file do s.Clear()

This should work in reverse opening the file with the GZIP flag, read the contents to a temporary binary stream and then using the $System.OBJ.LoadStream on the temp binary stream.

Sean.

1 0

score 1 · Answer 1 · 2017-04-01T07:45:46-04:00

It can be done with Gzip stream directly:

set ^dbg=123
set s=##class(%Stream.FileBinaryGzip).%New()
do s.LinkToFile("1.xml")
do $System.OBJ.ExportToStream("dbg*.GBL", s)
do s.%Save()
kill
kill ^dbg
set s=##class(%Stream.FileBinaryGzip).%New()
do s.LinkToFile("1.xml")
do $System.OBJ.LoadStream(s)
write ^dbg
>123

score 0 · Answer 2 · 2017-04-01T10:16:23-04:00

Finally, have the following for globals export/import in gzip:

// export gbl
set gbl="foo*D.GBL,boo*D.GBL"
set s=##class(%Stream.FileBinaryGzip).%New() do s.LinkToFile("1.xml.gz") do $System.OBJ.ExportToStream(gbl,s) do s.%Save() kill s
// gbl import
set s=##class(%Stream.FileBinaryGzip).%New() do s.LinkToFile("1.xml.gz") do $System.OBJ.LoadStream(s) kill s

score 0 · Answer 3 · 2017-04-01T09:03:25-04:00

Alexey Maslov · Apr 1, 2017

Don't you think that naming the file "1.xml.gz" would be more clear?

0 0

score 0 · Answer 4 · 2017-04-01T09:51:40-04:00

Eduard Lebedyuk · Apr 1, 2017

Dot would be unrequired and even misleading here.

0 0

score 0 · Answer 5 · 2017-04-01T10:00:21-04:00

Evgeny Shvarov · Apr 1, 2017

You are right, no dot is needed here.

0 0

score 0 · Answer 6 · 2017-04-01T09:48:09-04:00

Thanks, Sean, Ed, Alexey!

That works perfectly! Ed, please add a dot to s in ExportToStream?

I'm using it in one line, and think would add in some "Dev.Utils" class to make it shorter.

score 0 · Answer 7 · 2017-04-01T09:50:33-04:00

kill ^dbg

BTW, kill ^dbg is not mandatory here, cause import from XML format everytime kills the global first.