Am einfachsten ist es so:

/exec sql
set :myfield = current date
/end-exec

"myfield" muss als Timestamp "pic x(26)" declariert sein.

Noch einfacher ist es, wenn man das Feld beim Insert bzw. Update direkt mit der Funktion füllt:

/exec sql
update myfile set myfield = current date, ....
/end-exec

/exec sql
insert into my file (f1, f2, f3, ...)
values (:f1, current date, :f2, :f3, ...)
/end-exec