Hi,
I am experiencing an error with trying to build a tree grid using VVDSTREE1 data structure and vvOut_toJSON.
I built the data via a FOR...LOOP into an array (dsTree)
The error appeared to come from the procedure EXTRACTVALUE of VVOUT in VVSRVPGM.
VVError.PNG
The line in error:
When checking deeper, I noticed that the value in IN_ATTR.TYPE is not recognizable.
vverror2.png
But interestingly enough, the definition of the value should have been TYPE_ZONED:
How can this be fixed?
Is there any tree grid example (on the Ext.js side using VVDSTREEx) that I can look at?
I see only RPG example but not the corresponding javascript.
Thanks,
I am experiencing an error with trying to build a tree grid using VVDSTREE1 data structure and vvOut_toJSON.
I built the data via a FOR...LOOP into an array (dsTree)
Code:
for nCnt = 1 to nTtlRecs; eval-corr dsTree(nCnt) = dsData(nCnt); dsTree(nCnt).VVLEVEL = 1; dsTree(nCnt).VVQTIP = ' '; dsTree(nCnt).VVTEXT = %trim(dsData(nCnt).SKUNUM); dsTree(nCnt).VVID = %trim(dsData(nCnt).SKUNUM); dsTree(nCnt).VVLEAF = IIf(bNode:'true':'false'); endfor; vvOut.noNullChildren = IIf(bNode:'0':'1'); vvOut.object='VVDSTREE1'; vvOut_toJSON(vvOut:%addr(dsTree):nCnt);
VVError.PNG
The line in error:
Code:
Program: VVSRVPGM Library: VALENCE41 Module: VVOUT 3447 LBCPYNV(%addr(BigZoned):out_attr:dtaPtr:in_attr); 3448 if BigZoned=0; 3449 inValue='0'; 3450 else; 3451 inValue=%trim(%editc(BigZoned:'P')); 3452 inValue=%trim(%xlate('0':' ':inValue:%checkr('0':inValue)));
vverror2.png
But interestingly enough, the definition of the value should have been TYPE_ZONED:
Code:
d TYPE_ZONED c const(x'02')
Is there any tree grid example (on the Ext.js side using VVDSTREEx) that I can look at?
I see only RPG example but not the corresponding javascript.
Thanks,
Comment