You can use %SerialObject for that:
Class Utils.Serial Extends %SerialObject
{
Property Payload As %String;
/// zw ##class(Utils.Serial).Test()
ClassMethod Test(input As %String = {$lb(1,2,3,",",5)}) As %String
{
set obj = ##class(Utils.Serial).%New()
set obj.Payload = input
do obj.%SerializeObject(.str)
kill (str)
set obj = ##class(Utils.Serial).%Open(str)
return obj.Payload
}
}For example:
zw ##class(Utils.Serial).Test("1,2,3,,,5")
>"1,2,3,,,5"
zw ##class(Utils.Serial).Test($lb(1,2,3,",",5))
>$lb(1,2,3,",",5)- Log in to post comments