C   ---------------------------------------------------------------------------
C   JPILGINTM.FOR - The function of this routine is return the time that the
C	the current process logged in to the system as a character string.
C
C	dd-mmm-yyyy:hh:mm:ss.cc
C   ---------------------------------------------------------------------------
	CHARACTER*(*) FUNCTION JPI_LOGINTIM ( LOGINTIM, LOGINTIM_S )
C
	IMPLICIT INTEGER*4 (A-Z)
C
	PARAMETER	ITEMLIST_2Z=8
	PARAMETER	ITEMLIST_4Z=ITEMLIST_2Z/2
	PARAMETER	BLANK=' ', COLON=':'
C
	INTEGER*4	LOGINTIM(2), LOGINTIM_S
C
	INTEGER*2	ITEMLIST_2(ITEMLIST_2Z)
	INTEGER*4	ITEMLIST_4(ITEMLIST_4Z)
C
	EQUIVALENCE	(ITEMLIST_2, ITEMLIST_4)
C
	INCLUDE	'SYS$LIBRARY:FORSYSDEF($JPIDEF)/NOLIST'
C
C   ---------------------------------------------------------------------------
C		      ITEMLIST
C	+----------------+----------------+
C	: JPI$_LOGINTIM  :        8       :
C	+----------------+----------------+
C	:        ADDRESS OF BUFFER        :
C	+----------------+----------------+
C	:                0                :
C	+----------------+----------------+
C	:                0                :
C	+----------------+----------------+
C   ---------------------------------------------------------------------------
C
C   Build the Item list.
C
	ITEMLIST_2(1) = 8
	ITEMLIST_2(2) = JPI$_LOGINTIM
C
	ITEMLIST_4(2) = %LOC(LOGINTIM)
	ITEMLIST_4(3) = 0
	ITEMLIST_4(4) = 0
C
C   Get the processes login time.
C
	STATUS = SYS$GETJPI (,,,ITEMLIST_4,,,)
C
C   Format for return.
C
	LOGINTIM_S = LEN( JPI_LOGINTIM )
	STATUS = SYS$ASCTIM 
	1	( LOGINTIM_S, JPI_LOGINTIM(1:LOGINTIM_S), LOGINTIM, )
C
	JPI_LOGINTIM(12:12) = COLON
C
C   Return.
C
	RETURN
	END