!*** MODULE $LIBDTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Interface definitions for LIB$DT (date/time) package
 ! 
 ! 
 !  Request codes for LIB$INIT_DATE_TIME_CONTEXT
 ! 
	PARAMETER LIB$K_MONTH_NAME = '00000000'X  ! Pre-init the month names
	PARAMETER LIB$K_MONTH_NAME_ABB = '00000003'X  ! Pre-init the month names
	PARAMETER LIB$K_WEEKDAY_NAME = '00000006'X  ! Pre-init the week names
	PARAMETER LIB$K_WEEKDAY_NAME_ABB = '00000009'X  ! Pre-init the week names
	PARAMETER LIB$K_MERIDIEM_INDICATOR = '0000000C'X  ! Pre-init the AM/PM names
	PARAMETER LIB$K_OUTPUT_FORMAT = '00000001'X  ! Pre-init the format
	PARAMETER LIB$K_INPUT_FORMAT = '00000002'X  ! Pre-init the format
	PARAMETER LIB$K_RELATIVE_DAY_NAME = '0000000F'X  ! Pre-init "TODAY", etc.
	PARAMETER LIB$K_FORMAT_MNEMONICS = '00000012'X  ! Pre-init MM, DD, YYYY, etc.
	PARAMETER LIB$K_LANGUAGE = '00000004'X	 ! Pre-init user's language
 ! 
 !  Operation codes (flags) for date time conversion routines.
 !  NOTE:  any new operation codes MUST be added just BEFORE MAX_OPERATION
 ! 
	PARAMETER LIB$K_MONTH_OF_YEAR = '00000001'X  !  requests output in units of month of year
	PARAMETER LIB$K_DAY_OF_YEAR = '00000002'X  !  requests output in days of year 1-366
	PARAMETER LIB$K_HOUR_OF_YEAR = '00000003'X  !  requests output in hours of year 1-8784
	PARAMETER LIB$K_MINUTE_OF_YEAR = '00000004'X  !  requests output in minutes of year 1-527040
	PARAMETER LIB$K_SECOND_OF_YEAR = '00000005'X  !  requests output in seconds of year 1-31622400
	PARAMETER LIB$K_DAY_OF_MONTH = '00000006'X  !  request output in days of month 1-31
	PARAMETER LIB$K_HOUR_OF_MONTH = '00000007'X  !  request output in hours of month 1-744
	PARAMETER LIB$K_MINUTE_OF_MONTH = '00000008'X  !  request output in minutes of month 1-44640
	PARAMETER LIB$K_SECOND_OF_MONTH = '00000009'X  !  requests output in seconds of month 1-2678400
	PARAMETER LIB$K_DAY_OF_WEEK = '0000000A'X  !  requests output in days of week 1-7 with monday = 1
	PARAMETER LIB$K_HOUR_OF_WEEK = '0000000B'X  !  requests output in hours of week 1-168
	PARAMETER LIB$K_MINUTE_OF_WEEK = '0000000C'X  !  requests in minutes of week 1-10080
	PARAMETER LIB$K_SECOND_OF_WEEK = '0000000D'X  !  requests output in seconds of week 1-604800
	PARAMETER LIB$K_HOUR_OF_DAY = '0000000E'X  !  requests output in hours of day 1-24
	PARAMETER LIB$K_MINUTE_OF_DAY = '0000000F'X  !  requests output in minutes of day 1-1440
	PARAMETER LIB$K_SECOND_OF_DAY = '00000010'X  !  requests output in seconds of day 1-3600
	PARAMETER LIB$K_MINUTE_OF_HOUR = '00000011'X  !  requests output in minutes of hour 1-60
	PARAMETER LIB$K_SECOND_OF_HOUR = '00000012'X  !  requests output in minutes of hour 1-3600
	PARAMETER LIB$K_SECOND_OF_MINUTE = '00000013'X  !  requests output in seconds of minutes 1-60
	PARAMETER LIB$K_JULIAN_DATE = '00000014'X  !  requests output as a julian day number
	PARAMETER LIB$K_DELTA_WEEKS = '00000015'X  !  input/output in terms of delta weeks
	PARAMETER LIB$K_DELTA_DAYS = '00000016'X  !  input/output in terms of delta days
	PARAMETER LIB$K_DELTA_HOURS = '00000017'X  !  input/output in terns of delta hours
	PARAMETER LIB$K_DELTA_MINUTES = '00000018'X  !  input/output in terms of delta minutes
	PARAMETER LIB$K_DELTA_SECONDS = '00000019'X  !  input/output in terms of delta seconds
	PARAMETER LIB$K_DELTA_WEEKS_F = '0000001A'X  !  input/output in terms of fractional delta weeks
	PARAMETER LIB$K_DELTA_DAYS_F = '0000001B'X  !  input/output in terms of fractional delta days
	PARAMETER LIB$K_DELTA_HOURS_F = '0000001C'X  !  input/output in terms of fractional delta hours
	PARAMETER LIB$K_DELTA_MINUTES_F = '0000001D'X  !  input/output in terms of fractional delta minutess
	PARAMETER LIB$K_DELTA_SECONDS_F = '0000001E'X  !  input/output in terms of fractional delta seconds
	PARAMETER LIB$K_MAX_OPERATION = '0000001F'X  !  1+ max # of conversion flags
 ! 
 !  Masks for outputting date or time fields only
 ! 
	PARAMETER LIB$M_TIME_FIELDS = '00000001'X
	PARAMETER LIB$M_DATE_FIELDS = '00000002'X
	STRUCTURE /DT_PRINT_FIELDS/
	    PARAMETER LIB$S_TIME_FIELDS = 1
	    PARAMETER LIB$V_TIME_FIELDS = 0		 !  Force printing of time fields
	    PARAMETER LIB$S_DATE_FIELDS = 1
	    PARAMETER LIB$V_DATE_FIELDS = 1		 !  Force printing of date fields
	BYTE %FILL (1)
	END STRUCTURE	! DT_PRINT_FIELDS
 ! 
 !  Masks for input defaulting flag longword
 ! 
	PARAMETER LIB$M_YEAR = '00000001'X
	PARAMETER LIB$M_MONTH = '00000002'X
	PARAMETER LIB$M_DAY = '00000004'X
	PARAMETER LIB$M_HOUR = '00000008'X
	PARAMETER LIB$M_MINUTE = '00000010'X
	PARAMETER LIB$M_SECOND = '00000020'X
	PARAMETER LIB$M_HUNDREDTHS = '00000040'X
	STRUCTURE /DT_DEFAULT_FIELDS/
	    PARAMETER LIB$S_YEAR = 1
	    PARAMETER LIB$V_YEAR = 0		 !  Allow the year to be defaulted
	    PARAMETER LIB$S_MONTH = 1
	    PARAMETER LIB$V_MONTH = 1		 !  Allow the month to be defaulted
	    PARAMETER LIB$S_DAY = 1
	    PARAMETER LIB$V_DAY = 2			 !  Allow the day to be defaulted
	    PARAMETER LIB$S_HOUR = 1
	    PARAMETER LIB$V_HOUR = 3		 !  Allow the hour to be defaulted
	    PARAMETER LIB$S_MINUTE = 1
	    PARAMETER LIB$V_MINUTE = 4		 !  Allow the minute to be defaulted
	    PARAMETER LIB$S_SECOND = 1
	    PARAMETER LIB$V_SECOND = 5		 !  Allow the second to be defaulted
	    PARAMETER LIB$S_HUNDREDTHS = 1
	    PARAMETER LIB$V_HUNDREDTHS = 6		 !  Allow the fract to be defaulted
	BYTE %FILL (1)
	END STRUCTURE	! DT_DEFAULT_FIELDS
!DEC$ END OPTIONS