Here's my current attempt:
Class Testing.PropertyParameters Extends %RegisteredObject
{
Property p1 As %String(MAXLEN = 5, myPropName = "myPropValue");
Method test()
{
set ..p1 = 10
//write ..p1.Parameters
set p1 = ##class(%Dictionary.PropertyDefinition).%OpenId("Testing.PropertyParameters||p1")
zwrite p1
do p1.Parameters.SetAt("myPropValue", "myPropName")
set key = ""
for {
set item = p1.Parameters.GetNext(.key)
if (key = "") {
quit
}
write !,"key: ", key,", Item: ",item
}
do p1.%Save()
write ..p1.%GetParameter("myPropName")
writ




.png)
