Server Guide

Example

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


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]