Asks for the time. The result, in the ABSTIME parameter, is in packed decimal format. To display the time, use the FORMATTIME command.
| result abstime formattimeResult |
result := CICS asktime exec.
abstime := result abstime.
formattimeResult := CICS formattime
abstime: abstime;
datesep: $/;
timesep: $:;
exec.
Transcript show: (formattimeResult time).