Thanks Scott.
Sorry i misunderstood initially regarding encoding whole data.
I made
changes in my test program as you suggested but getting
compile time error at below line 34. I couldn't find where to
define JOB CCSID as i tried at H-spec as "ctl-opt
ccsid(*CHAR : *JOBRUN) ; " but no luck.
The error is
coming due to Leftbrace/Rightbrace being defined as UCS-2, I
even tried with hex value but no luck. Now I have tried like
below and it seems to be working. The data is also posted on
webservice. I'll try my complete message and will revert if
still see any issue.
Again, thanks
a lot for all of your help. This learning is very precious for
me.
WEBFORM_setVar(form:
'MessageBody': '{' + ' "Location":"06031" ' + ',' +
'
"UID":"U1234567" ' + '}' ) ;
*RNF0203
30 2723 003400 PARAMETER HAS CCSID 1208; THE JOB CCSID
IS REQUIRED FOR
OPTIONS(*STRING).
D LeftBrace C Const(%UCS2('{'))
D RightBrace C Const(%UCS2('}'))
0031.00
http_setCCSIDs( 1208: 0 );
0032.00
form = WEBFORM_open();
0033.00
WEBFORM_setVar(form: 'Action': 'SendMessage');
0034.00
WEBFORM_setVar(form: 'MessageBody':LeftBrace +
' "Location":"06031" ' + RightBrace);
0035.00
0037.00
'RTI_TRAX_Q?' +
webform_getData(form);
0038.00
WEBFORM_close(form);
Thanks,
Pargat