date (2) --- return time, date and other system information  02/24/82


            _C_a_l_l_i_n_g _I_n_f_o_r_m_a_t_i_o_n

                 subroutine date (item, str)
                 integer item
                 character str (ARB)

                 Library:  vswtlb (standard Subsystem library)


            _F_u_n_c_t_i_o_n

                 'Date'  is used to return several interesting pieces of data
                 that Primos keeps for the user.  The  first  argument  is  a
                 switch  to  select the data returned; the second is a string
                 for receiving the data.  The following values of  the  first
                 argument are defined:

                     SYS_DATE     1  date, in format mm/dd/yy
                     SYS_TIME     2  time, in format hh:mm:ss
                     SYS_USERID   3  user's login name
                     SYS_PIDSTR   4  user's three digit process id
                     SYS_DAY      5  day  of the week (e.g.  "monday", "tues-
                                     day", etc.)
                     SYS_PID      6  process id as a binary  integer  in  str
                                     (1)
                     SYS_LDATE    7  name of day, name of month, day, year
                     SYS_MINUTES  8  number  of  minutes past midnight in str
                                     (1..2)
                     SYS_SECONDS  9  number of seconds past midnight  in  str
                                     (1..2)
                     SYS_MSEC    10  number  of milliseconds past midnight in
                                     str (1..2)

                 If the first argument is not one of these values,  an  empty
                 string is returned.


            _I_m_p_l_e_m_e_n_t_a_t_i_o_n

                 'Date'  calls the Primos routine TIMDAT to fetch time, date,
                 process id, and login name information.  This information is
                 then reformatted as needed.


            _A_r_g_u_m_e_n_t_s _M_o_d_i_f_i_e_d

                 str


            _C_a_l_l_s

                 Primos timdat, encode (2), mapup (2), ptoc (2), wkday (2)






            date (2)                      - 1 -                      date (2)