Below is an example of how to code SQL statements to set a working storage field to CURRENT TIMESTAMP in a Easytrieve program.
Easytrieve Report Generator, release 11.6
Pan/SQL 2.4C
PARM SSID(DB00) SQLID('MFL') SQLSYNTAX FULL
DEFINE WS-TIMESTAMP W 0026 A
JOB INPUT NULL
SQL SET :WS-TIMESTAMP = CURRENT TIMESTAMP
DISPLAY 'WS-TIMESTAMP = ' WS-TIMESTAMP
STOP