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).