Siehe obigen Link für die HTML's.

d MySource s 1000 varying
d MyDest s 2000 varying
d Ind s 5i 0

// grobes Beispiel
MyDest = '';
for Ind=1 to %len(MySource);
select;
when %subst(MySource:1:1) < *blank
or %subst(MySource:1:1) >= x'FE';
MyDest += RoutineHexToHtml(%subst(MySource:1:1)); // #xNNNN, N = 0-9A-F
when %subst(MySource:1:1) = '&';
MyDest += '&';
when %subst(MySource:1:1) = '<';
MyDest += '<';
when %subst(MySource:1:1) = '>';
MyDest += '>';
:
:
other;
MyDest += %subst(MySource:1:1);
endsl;
endfor;