Posts by Lorenzo Scalese on InterSystems Developer Community

Question

Lorenzo Scalese · Aug 26, 2023

How to store $lb representation in a string ?

Hi !

I'm looking for a simple way to store in a string a list in $lb representation. Ex :

Set list = $ListBuild("data2", "data2", "data3")
ZWrite list
/* show : list=$lb("data1","data2","data3") */

With the ZWrite command, we can display the $lb representation but I would like to store it in a string variable.

#ObjectScript #InterSystems IRIS

2 6

2 195

Question

Lorenzo Scalese · Aug 7, 2023

How to unzip journal file?

Hi!

Currently, I'm working on a script using %SYS.Journal API.

My journal files are compressed, following the documentation the compression is zstd.

I tried to unzip a file with zstd tool, ex:

apt-get update
apt-get install zstd

zstd -d 20230806.001z -o 20230806.001

20230806.001z        : 92.03%   (909312 => 836859 bytes, 20230806.001)

Unfortunately, the unzipped file is invalid:

Write ##class(%SYS.Journal.File).IsValidJournal("/usr/irissys/mgr/journal/20230806.001")

#Databases #Journaling #InterSystems IRIS

1 2

0 190

Question

Lorenzo Scalese · Jun 14, 2023

How to know if a class is not up to date

Hello!

I would like to find all classes not up to date in a namespace programmatically.

With IRIS Studio, we can see the single "+", but I don't know how to do that with a script.

Set sql = "SELECT ID, Name FROM %Dictionary.ClassDefinition WHERE NOT ID %STARTSWITH ?"
Set params($Increment(params)) = "%"
Set tResult = ##class(%SQL.Statement).%ExecDirect(, sql, params...)

If (tResult.%SQLCODE'=0)&&(tResult.%SQLCODE'=100) Set sc = $$$ERROR($$$SQLError, tResult.%SQLCODE, tResult.%Message) Quit sc

While tResult.%Next() {
    // if class not up to date ??
}