! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    ! 
    !  Interface definitions for LIB$DT (date/time) package
    ! 
    ! 
    !  Request codes for LIB$INIT_DATE_TIME_CONTEXT
    ! 
      DECLARE LONG CONSTANT LIB$K_MONTH_NAME = 0  ! Pre-init the month names
      DECLARE LONG CONSTANT LIB$K_MONTH_NAME_ABB = 3  ! Pre-init the month names
      DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME = 6  ! Pre-init the week names
      DECLARE LONG CONSTANT LIB$K_WEEKDAY_NAME_ABB = 9  ! Pre-init the week names
      DECLARE LONG CONSTANT LIB$K_MERIDIEM_INDICATOR = 12  ! Pre-init the AM/PM names
      DECLARE LONG CONSTANT LIB$K_OUTPUT_FORMAT = 1  ! Pre-init the format
      DECLARE LONG CONSTANT LIB$K_INPUT_FORMAT = 2  ! Pre-init the format
      DECLARE LONG CONSTANT LIB$K_RELATIVE_DAY_NAME = 15  ! Pre-init "TODAY", etc.
      DECLARE LONG CONSTANT LIB$K_FORMAT_MNEMONICS = 18  ! Pre-init MM, DD, YYYY, etc.
      DECLARE LONG CONSTANT LIB$K_LANGUAGE = 4  ! 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
    ! 
      DECLARE LONG CONSTANT LIB$K_MONTH_OF_YEAR = 1  !  requests output in units of month of year
      DECLARE LONG CONSTANT LIB$K_DAY_OF_YEAR = 2  !  requests output in days of year 1-366
      DECLARE LONG CONSTANT LIB$K_HOUR_OF_YEAR = 3  !  requests output in hours of year 1-8784
      DECLARE LONG CONSTANT LIB$K_MINUTE_OF_YEAR = 4  !  requests output in minutes of year 1-527040
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_YEAR = 5  !  requests output in seconds of year 1-31622400
      DECLARE LONG CONSTANT LIB$K_DAY_OF_MONTH = 6  !  request output in days of month 1-31
      DECLARE LONG CONSTANT LIB$K_HOUR_OF_MONTH = 7  !  request output in hours of month 1-744
      DECLARE LONG CONSTANT LIB$K_MINUTE_OF_MONTH = 8  !  request output in minutes of month 1-44640
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_MONTH = 9  !  requests output in seconds of month 1-2678400
      DECLARE LONG CONSTANT LIB$K_DAY_OF_WEEK = 10  !  requests output in days of week 1-7 with monday = 1
      DECLARE LONG CONSTANT LIB$K_HOUR_OF_WEEK = 11  !  requests output in hours of week 1-168
      DECLARE LONG CONSTANT LIB$K_MINUTE_OF_WEEK = 12  !  requests in minutes of week 1-10080
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_WEEK = 13  !  requests output in seconds of week 1-604800
      DECLARE LONG CONSTANT LIB$K_HOUR_OF_DAY = 14  !  requests output in hours of day 1-24
      DECLARE LONG CONSTANT LIB$K_MINUTE_OF_DAY = 15  !  requests output in minutes of day 1-1440
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_DAY = 16  !  requests output in seconds of day 1-3600
      DECLARE LONG CONSTANT LIB$K_MINUTE_OF_HOUR = 17  !  requests output in minutes of hour 1-60
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_HOUR = 18  !  requests output in minutes of hour 1-3600
      DECLARE LONG CONSTANT LIB$K_SECOND_OF_MINUTE = 19  !  requests output in seconds of minutes 1-60
      DECLARE LONG CONSTANT LIB$K_JULIAN_DATE = 20  !  requests output as a julian day number
      DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS = 21  !  input/output in terms of delta weeks
      DECLARE LONG CONSTANT LIB$K_DELTA_DAYS = 22  !  input/output in terms of delta days
      DECLARE LONG CONSTANT LIB$K_DELTA_HOURS = 23  !  input/output in terns of delta hours
      DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES = 24  !  input/output in terms of delta minutes
      DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS = 25  !  input/output in terms of delta seconds
      DECLARE LONG CONSTANT LIB$K_DELTA_WEEKS_F = 26  !  input/output in terms of fractional delta weeks
      DECLARE LONG CONSTANT LIB$K_DELTA_DAYS_F = 27  !  input/output in terms of fractional delta days
      DECLARE LONG CONSTANT LIB$K_DELTA_HOURS_F = 28  !  input/output in terms of fractional delta hours
      DECLARE LONG CONSTANT LIB$K_DELTA_MINUTES_F = 29  !  input/output in terms of fractional delta minutess
      DECLARE LONG CONSTANT LIB$K_DELTA_SECONDS_F = 30  !  input/output in terms of fractional delta seconds
      DECLARE LONG CONSTANT LIB$K_MAX_OPERATION = 31  !  1+ max # of conversion flags
    ! 
    !  Masks for outputting date or time fields only
    ! 
      DECLARE LONG CONSTANT LIB$M_TIME_FIELDS = x'00000001'
      DECLARE LONG CONSTANT LIB$M_DATE_FIELDS = x'00000002'
      DECLARE LONG CONSTANT LIB$S_DT_PRINT_FIELDS = 1
      record DT_PRINT_FIELDS
          !  Force printing of time fields
          !  Force printing of date fields
         BYTE TIME_FIELDS_bits   ! COMMENT ADDED BY SDL - TIME_FIELDS_bits contains bits TIME_FIELDS through FILL_0_
      end record DT_PRINT_FIELDS
    
    ! 
    !  Masks for input defaulting flag longword
    ! 
      DECLARE LONG CONSTANT LIB$M_YEAR = x'00000001'
      DECLARE LONG CONSTANT LIB$M_MONTH = x'00000002'
      DECLARE LONG CONSTANT LIB$M_DAY = x'00000004'
      DECLARE LONG CONSTANT LIB$M_HOUR = x'00000008'
      DECLARE LONG CONSTANT LIB$M_MINUTE = x'00000010'
      DECLARE LONG CONSTANT LIB$M_SECOND = x'00000020'
      DECLARE LONG CONSTANT LIB$M_HUNDREDTHS = x'00000040'
      DECLARE LONG CONSTANT LIB$S_DT_DEFAULT_FIELDS = 1
      record DT_DEFAULT_FIELDS
          !  Allow the year to be defaulted
          !  Allow the month to be defaulted
          !  Allow the day to be defaulted
          !  Allow the hour to be defaulted
          !  Allow the minute to be defaulted
          !  Allow the second to be defaulted
          !  Allow the fract to be defaulted
         BYTE YEAR_bits   ! COMMENT ADDED BY SDL - YEAR_bits contains bits YEAR through FILL_1_
      end record DT_DEFAULT_FIELDS