In the following code, an encoding of 1208 is incorrect; for national items, the encoding should be 1200.
$set nsymbol(national)
01 i1.
05 x1 pic x.
01 i2 pic n(200).
move n'{"i1":{"x1":"£"}}' to i2.
json parse i2 into i1 encoding 1208.