Re: no display/accept to retrieve date, time, workstation id, user in cobol400

In ILE COBOL (source member type CBLLE) you can get the date and time 
using intrinsic functions, e.g,:

working-storage section.
01  Date-and-time. 
    05  Current-date            format date '%Y%m%d'.
    05  Current-time            format time '%H%M%S'.
01  Date-usa                    format date '%m/%d/%Y'.

procedure division.
begin-here.
    move function current-date to Date-and-time
    move Current-date to Date-usa

For the current user however, there is no native function of which I'm 
aware.

Michael Quigley
AS/400 Programming Coordinator
The Way International
www.TheWay.org

Original message:
------------------------------


date: Mon, 11 Apr 2005 17:17:39 +0800
from: cobol400-l@xxxxxxxxxxxx
subject: [COBOL400-L]            no display/accept to retrieve date, time,
                 workstation id, user in                 cobol400


hi all!!!

is it possible to retrieve DATE, TIME, WORKSTATION ID ,and USER without
using accept/display?

many thanks in advance!!!

Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.6 - Release Date: 4/11/2005