! *** 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
    
    
    ! +
    ! 
    !  Set Process Properties Data Identifier Definitions
    ! 
    !  **** NOTE ****
    ! 
    !         New items must always be added to the END of each item list
    !         (preceeding the ENDlistname item) so that users will not have
    !         to relink.
    ! -
    !  Property definitions
      DECLARE LONG CONSTANT PPROP$C_PARSE_STYLE_TEMP = 0  !  Change the parse style for the life of an image
      DECLARE LONG CONSTANT PPROP$C_PARSE_STYLE_PERM = 1  !  Change the parse style for the life of the process
      DECLARE LONG CONSTANT PPROP$C_HOME_RAD = 2  !  Change the home rad of the thread
      DECLARE LONG CONSTANT PPROP$C_CASE_LOOKUP_TEMP = 3  !  Change the case lookup mode for the life of an image
      DECLARE LONG CONSTANT PPROP$C_CASE_LOOKUP_PERM = 4  !  Change the case lookup mode for the life of the process
      DECLARE LONG CONSTANT PPROP$C_MEDDLE_ENABLE = 5  !  Record the fact of alterations to process logical
    !    names or symbols
      DECLARE LONG CONSTANT PPROP$C_MEDDLE = 6  !  Process logical names or symbols have been altered
      DECLARE LONG CONSTANT PPROP$C_UNITS = 7  !  Change the units for the life of the process (blocks/bytes)
      DECLARE LONG CONSTANT PPROP$C_SS_LOG_ENABLE = 8  !  Enable system service logging for the process
      DECLARE LONG CONSTANT PPROP$C_SS_LOG_DISABLE = 9  !  Disable system service logging for the process
      DECLARE LONG CONSTANT PPROP$C_SS_LOG_UNLOAD = 10  !  Stop system service logging ? delete buffers
      DECLARE LONG CONSTANT PPROP$C_TOKEN = 11  !  Change the DCL token size for the life of the process
      DECLARE LONG CONSTANT PPROP$C_DEADLOCK_WAIT = 12  !  Change per-process deadlock wait (in 10msec units)
      DECLARE LONG CONSTANT PPROP$C_SEARCH_SYMLINK_TEMP = 13  !  Change the symlink search mode for the life of an image
      DECLARE LONG CONSTANT PPROP$C_SEARCH_SYMLINK_PERM = 14  !  Change the symlink search mode for the life of the process
      DECLARE LONG CONSTANT PPROP$C_KERNEL_THREAD_LIMIT = 15  !  Change per-process kernel thread limit
    !  Parse style definitions
      DECLARE LONG CONSTANT PARSE_STYLE$C_ODS2 = 0  !  Values for the above properties (old name)
      DECLARE LONG CONSTANT PARSE_STYLE$C_ODS5 = 1  !  Values for the above properties (old name)
      DECLARE LONG CONSTANT PARSE_STYLE$C_TRADITIONAL = 0  !  Values for the above properties (new name)
      DECLARE LONG CONSTANT PARSE_STYLE$C_EXTENDED = 1  !  Values for the above properties (new name)
    !  case lookup definitions
      DECLARE LONG CONSTANT PPROP$K_CASE_BLIND = 0  !  case blind operation
      DECLARE LONG CONSTANT PPROP$K_CASE_SENSITIVE = 1  !  case sensitive operation
    !  symlink search mode definitions
    !  NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,
    !  $LIBFILDEF, $PPROPDEF, and $NAMLDEF.
      DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_NONE = 1  !  use no symlinks
      DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_ALL = 2  !  use symlinks always
      DECLARE LONG CONSTANT PPROP$K_SEARCH_SYMLINK_NOELLIPS = 3  !  use symlinks except in ellipsis