Update Comment/Text from Maintain Session in LN 10.X

Infor 10.x session has new option to add Text on session and Text Area instead of old version of Text Editor. Following is code used to insert/update text field in maintain session:

DAL Code:

function extern long before.save.object(long i.mode)
{
long no.of.text.lines.copied

txinh219.lusr = logname$
txinh219.ludt = utc.num()

on case i.mode
case DAL_NEW:
if txinh219.cmnt <> 0 then
no.of.text.lines.copied = text.copy(
"txinh219.cmnt",
"txinh219.cmnt",
"", |* Keyword 1
"", |* Keyword 2
"", |* Keyword 3
"", |* Keyword 4
"", |* Text Group
"") |* Edit Options
endif
break
case DAL_UPDATE:
with.old.object.values.do(fill.old.values)

select tccom121.clan
from tccom121
where tccom121._index1 = {:txinh219.sfbp}
as set with 1 rows
selectdo
endselect

RETIFNOK(tccom.dll4000.rewrite.keywords.of.text(
"txinh219.cmnt",
txinh219.cmnt,
tccom121.clan,
"", |* KW1
"", |* KW1
"", |* KW2
"", |* KW2
"", |* KW3
"", |* KW3
"", |* KW4
"")) |* KW4

break
endcase

return(0)
}