********************************************************************************
*
*	Support of PR1ME INFORMATION Subroutine '!TIMDAT'
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*       04/18/91 8241  MAA Port to wyse.
*	03/11/90 6917  JWT SCO unix port
*	07/11/89   -   DTW New file
*
*******************************************************************************

$OPTIONS DEFAULT

subroutine PR1ME(var.name)


$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME


*************************************************************************
*									*
*	Support of PR1ME INFORMATION subroutine !TIMDAT			*
*
*	Returns a dynamic array containing time, data, and user information.
*	Information about system usage is not supported.
*		Field 1 ...  month (2 digits)
*		Field 2 ...  day of month (2 digits)
*		Field 3 ...  year (2 digits)
*		Field 4 ...  minutes since midnight
*		Field 5 ...  seconds since midnight
*		Field 6 ...  ticks in last second (zero on system V machines)
*		Field 7 ...  CPU seconds since login
*		Field 8 ...  not supported, contains zero
*		Field 9 ...  not supported, contains zero
*		Field 10 ... not supported, contains zero
*		Field 11 ... number of ticks per second (unit used to measure
*					real time
*		Field 12 ... user number
*		Field 13 ... login ID
*									*
*************************************************************************

	EQU AM TO CHAR(254)

	no.days = date()
*
*	number of month
*
	var.name = oconv(oconv(no.days, "DM"), "MR%2") : AM
*
*	number of day
*
	var.name = var.name : oconv(oconv(no.days, "DD"), "MR%2") : AM
*
*	number of year
*
	var.name = var.name : oconv(no.days, "D2Y") : AM

	no.minutes = time()
*
*	number of minutes since midnight
*
	var.name = var.name : int(no.minutes/60) : AM
*
*	number of seconds since midnight
*
	var.name = var.name : int(no.minutes) : AM
*
*	number of ticks of last second
*
	var.name = var.name : mod(no.minutes, 1) : AM
*
*	CPU seconds used
*
	var.name = var.name : SYSTEM(9) : AM
*
*	3 not supported values
*
	var.name = var.name : 0 : AM : 0 : AM : 0 : AM
*
*	number of ticks per second
*
	if CT386 or MAGNUM or ATT3B2 or ATT3B15 or SCO386 or WYSE
		then var.name = var.name : 100 : AM
		else var.name = var.name : 60 : AM
*
*	user number
*
	var.name = var.name : @USERNO : AM
*
*	login id
*
	var.name = var.name : @LOGNAME
	return