code is in my last reply
this is the class:
Class REST.Test.Sample.AllItems Extends (%JSON.Adaptor, Ens.Response)
{ Property ItemtId As %String;
Property itemName As %String(MAXLEN = 100);
Property itemStockNumber As %String(MAXLEN = 150);
Property itemType As %String;
Property itemPriority As %String;
Property itemDetailData As %String(MAXLEN = 10000);
}
ClassMethod getItemData() As %Status [ PublicList = (U, ItemDetails, RESULTS) ]
{
Set tSC = $$$OK
s results=""
s AllItems=##class(REST.Test.Sample.ItemDetails).%New()
S (STATUS,XX)=0 F S STATUS=$O(^GMR(123,"D",STATUS)) Q:STATUS'>0 f s XX=$O(^GMR(123,"D",STATUS,XX)) Q:XX'>0 d
.s CONERR=""
.d GETS^DIQ(123,XX,"*","IE","ItemDetails","CONERR")
.Q:"5,6"'[STATUS
.Q:$P(^GMR(123,XX,0),"^",5)'=9
.s Item=..%New()
.s Item.ItemId=XX
.s CONID=XX_","
.s itemId=$g(ItemDetails(123,CONID,.02,"I"))
.s ien=XX_","
.s Item.ItemName=$g(ItemDetails(123,CONID,.02,"E"))
.s Item.itemStockNumber=$G(ItemDetails(123,CONID,10,"I"))
.s Item.itemType=$G(ItemDetails(123,CONID,10,"I"))
.s Item.itemPriorty=$G(ItemDetails(123,CONID,11,"I"))
.S X2=0 F S X2=$O(ItemDetails(123,CONID,20,X2)) q:X2'>0 D
..s results=$g(results)_"|"_ItemDetails(123,CONID,20,X2)
..s Item.ItemData=$g(results)
.;d Item.Consult.SetAt(XX,XX)
.s AllItems.ItemId=XX
.d AllItems.Item.SetAt(Item.ItemName,"ItemName")
d AllItems.%JSONExport()
q 200




This fixed it. Thanks Ashok.