! *** 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
    
    
    ! +
    !  Object Security Service processing flag 
    !  and itemcode definitions.
    ! -
      DECLARE LONG CONSTANT OSS$M_WLOCK = x'00000001'
      DECLARE LONG CONSTANT OSS$M_RELCTX = x'00000002'
      DECLARE LONG CONSTANT OSS$M_LOCAL = x'00000004'
      DECLARE LONG CONSTANT OSS$S_OSSDEF = 1
      record OSSDEF
         group OSS$R_FLAGS_BITS
             !  Maintain Write lock
             !  Release context
             !  update local profile only 
            BYTE WLOCK_bits   ! COMMENT ADDED BY SDL - WLOCK_bits contains bits WLOCK through FILL_48_
         end group OSS$R_FLAGS_BITS
      end record OSSDEF
    
      DECLARE LONG CONSTANT OSS$_ACCESS_NAMES = 1  ! 
      DECLARE LONG CONSTANT OSS$_ACCESS_NAMES_LENGTH = 2  ! 
      DECLARE LONG CONSTANT OSS$_ACL_ADD_ENTRY = 3  ! 
      DECLARE LONG CONSTANT OSS$_ACL_DELETE_ENTRY = 4  ! 
      DECLARE LONG CONSTANT OSS$_ACL_DELETE = 5  ! 
      DECLARE LONG CONSTANT OSS$_ACL_DELETE_ALL = 6  ! 
      DECLARE LONG CONSTANT OSS$_ACL_FIND_ENTRY = 7  ! 
      DECLARE LONG CONSTANT OSS$_ACL_FIND_NEXT = 8  ! 
      DECLARE LONG CONSTANT OSS$_ACL_FIND_TYPE = 9  ! 
      DECLARE LONG CONSTANT OSS$_ACL_GRANT_ACE = 10  ! 
      DECLARE LONG CONSTANT OSS$_ACL_LENGTH = 11  ! 
      DECLARE LONG CONSTANT OSS$_ACL_MODIFY_ENTRY = 12  ! 
      DECLARE LONG CONSTANT OSS$_ACL_POSITION = 13  ! 
      DECLARE LONG CONSTANT OSS$_ACL_POSITION_TOP = 14  ! 
      DECLARE LONG CONSTANT OSS$_ACL_POSITION_BOTTOM = 15  ! 
      DECLARE LONG CONSTANT OSS$_ACL_READ_ENTRY = 16  ! 
      DECLARE LONG CONSTANT OSS$_ACL_READ = 17  ! 
      DECLARE LONG CONSTANT OSS$_MAX_CLASS = 18  ! 
      DECLARE LONG CONSTANT OSS$_MIN_CLASS = 19  ! 
      DECLARE LONG CONSTANT OSS$_NEXT_OBJECT = 20  ! 
      DECLARE LONG CONSTANT OSS$_OWNER = 21  ! 
      DECLARE LONG CONSTANT OSS$_PROTECTION = 22  ! 
      DECLARE LONG CONSTANT OSS$_SYS_PROT = 23  ! 
      DECLARE LONG CONSTANT OSS$_OWN_PROT = 24  ! 
      DECLARE LONG CONSTANT OSS$_GRP_PROT = 25  ! 
      DECLARE LONG CONSTANT OSS$_WOR_PROT = 26  ! 
      DECLARE LONG CONSTANT OSS$_CLASS_NAME = 27  ! 
      DECLARE LONG CONSTANT OSS$_FIRST_TEMPLATE = 28  ! 
      DECLARE LONG CONSTANT OSS$_NEXT_TEMPLATE = 29  ! 
      DECLARE LONG CONSTANT OSS$_OBJECT_NAME = 30  ! 
      DECLARE LONG CONSTANT OSS$_ACCESS_CLASS_NAME = 31  ! 
      DECLARE LONG CONSTANT OSS$_DAMAGED_ACL = 32  ! 
      DECLARE LONG CONSTANT OSS$_IN_TRANSITION = 33  ! 
      DECLARE LONG CONSTANT OSS$_TRANQUILITY_COUNT = 34
      DECLARE LONG CONSTANT OSS$_POSIX_GID = 35  !  Posix Group ID
      DECLARE LONG CONSTANT OSS$_POSIX_GRP_MODE = 36  !  Posix Group Mode Permission
      DECLARE LONG CONSTANT OSS$_POSIX_MODE = 37  !  Posix Mode Permissions (all)
      DECLARE LONG CONSTANT OSS$_POSIX_SGID = 38  !  Posix SETGID Effective Group ID
      DECLARE LONG CONSTANT OSS$_POSIX_SUID = 39  !  Posix SETUID Effective User ID
      DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES = 1
      DECLARE LONG CONSTANT OSS$_ACCESS_BITNAMES_LENGTH = 2
      DECLARE LONG CONSTANT OSS$_ACL_ADDACE = 3
      DECLARE LONG CONSTANT OSS$_ACL_DELACE = 4
      DECLARE LONG CONSTANT OSS$_ACL_FNDACE = 7
      DECLARE LONG CONSTANT OSS$_ACL_FNDNXT = 8
      DECLARE LONG CONSTANT OSS$_ACL_FNDTYP = 9
      DECLARE LONG CONSTANT OSS$_ACL_MODACE = 12
      DECLARE LONG CONSTANT OSS$_ACL_READACE = 16