Is there a way to use the %JSON.Adaptor to project readable JSON when a property is defined as a %Integer but with a DISPLAYLIST ?
Class User.CExampleJSON Extends (%RegisteredObject, %JSON.Adaptor, %XML.Adaptor)
{
Property something As %Integer(DISPLAYLIST = ",OK,Error,Warning", VALUELIST = ",0,1,2") [ InitialExpression = 0 ];
ClassMethod RunMe()
{
set obj = ..%New()
set obj.something = 2
do obj.%JSONExportToString(.string)
write "JSON : " _ string,!!!
write "Content : " _ ..somethingLogicalToDisplay(obj..png)
.png)
.png)
.png)
.png)
.jpg)
.png)
.png)
.png)

.png)




