!*** MODULE MCS$ROUTINES ***
CDEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)
 ! ----------------------------------------------------------------------------
 ! 
 !   Copyright © 1995, 2005, Oracle Corporation.  All Rights Reserved.
 ! 
 ! ----------------------------------------------------------------------------
 ! 
 !   FACILITY:
 ! 
 !       IPSE - Integrated Project Support Environment
 ! 
 !   ABSTRACT:
 ! 
 !       This module contains all the public definitions for the data
 !       structures, constant definitions and entry points for the MCS
 !       interface.
 ! 
 ! ----------------------------------------------------------------------------
 ! 
 !  Include symbols file generated from nadtagnad and starlet.  These files
 !  contain symbol constants.
 !  
 ! 
 !  True/False values
 !  
	! ** INTEGER*4 MCS$L_BOOLEAN
 ! 
 !  A UNIX-style 32-bit datetime value
 !  
	! ** INTEGER*4 MCS$L_DATETIME
 ! 
 !  A VMS string descriptor
 ! 
	STRUCTURE /MCS$R_STRINGDSC/
	    INTEGER*2 LENGTH
	    BYTE      DTYPE
	    BYTE      CLASS
	    INTEGER*4 POINTER
	END STRUCTURE	! MCS$R_STRINGDSC
	PARAMETER MCS$K_DSC_CLASS_S = '00000001'X
	PARAMETER MCS$K_DSC_CLASS_D = '00000002'X
	PARAMETER MCS$K_DSC_DTYPE_T = '0000000E'X
 ! 
 !  A D floating value
 !  
	! ** REAL*8    MCS$D_DOUBLE
 ! 
 !  A element id in the database
 ! 
	STRUCTURE /MCS$R_ELEMENTID/
	    INTEGER*4 elementid_data(1:2)
	END STRUCTURE	! MCS$R_ELEMENTID
 ! 
 !  An F floating value
 !  
	! ** REAL*4    MCS$F_FLOAT
 !         
 !  A standard 32-bit integral value
 !  
	! ** INTEGER*4 MCS$L_LONGINT
 ! 
 !  MEMBLOCKs are used to store data of arbitrary size.  The contents are not
 !  interpreted.
 !  
	! ** INTEGER*4 MCS$A_MEMBLOCK
 ! 
 !  This is a 64-bit datetime stamp
 ! 
	! ** INTEGER*4 MCS$Q_VMSTIME(2)		 !  Oracle Extension
 ! 
 !  A standard 16-bit integral value
 !  
	! ** INTEGER*2 MCS$W_SMALLINT
 ! 
 !  A status value returned by one of the MCS routines
 !  
	! ** INTEGER*4 MCS$L_STATUS
 ! 
 !  A standard C language NULL terminated string
 !  
	! ** INTEGER*4 MCS$A_STRING
 ! 
 !  A value struct is used to pass values around
 ! 
	STRUCTURE /MCS$R_VALUE/
	    INTEGER*4 value_data(1:4)
	END STRUCTURE	! MCS$R_VALUE
	PARAMETER MCS$K_VALUE_SIZE = '00000010'X
 ! 
 !  This is a union of all the datatypes
 ! 
	STRUCTURE /MCS$R_DATATYPE/
	UNION
	    MAP
	    INTEGER*4 boolean_type  ! type is "MCS$L_BOOLEAN"
	    END MAP
	    MAP
	    INTEGER*4 datetime_type  ! type is "MCS$L_DATETIME"
	    END MAP
	    MAP
	    END MAP
	    MAP
	    REAL*8    double_type  ! type is "MCS$D_DOUBLE"
	    END MAP
	    MAP
	    END MAP
	    MAP
	    REAL*4    float_type  ! type is "MCS$F_FLOAT"
	    END MAP
	    MAP
	    INTEGER*4 longint_type  ! type is "MCS$L_LONGINT"
	    END MAP
	    MAP
	    INTEGER*4 memblock_type
	    END MAP
	    MAP
	    INTEGER*4 vmstime_type(2)  ! type is "MCS$Q_VMSTIME"  !  Oracle Extension
	    END MAP
	    MAP
	    INTEGER*2 smallint_type  ! type is "MCS$W_SMALLINT"
	    END MAP
	    MAP
	    CHARACTER*1 string_type
	    END MAP
	END UNION
	END STRUCTURE	! MCS$R_DATATYPE
 !         
 !  MCS_SUCCESS status
 !   NOTE: THIS IS JUST TEMPORARY
 !  
	PARAMETER MCS$_SUCCESS = '00000001'X
 ! 
 !  Boolean values used by MCS routines
 ! 
	PARAMETER MCS$K_TRUE = '00000001'X
	PARAMETER MCS$K_FALSE = '00000000'X
 ! 
 !  Session handles are processed by the session and transaction routines
 ! 
	STRUCTURE /MCS$R_SESSION/
	    INTEGER*4 session_data(1:2)
	END STRUCTURE	! MCS$R_SESSION
 ! 
 !  Transaction handles are processed by the session and transaction routines
 ! 
	STRUCTURE /MCS$R_TRANSACTION/
	    INTEGER*4 transaction_data(1:2)
	END STRUCTURE	! MCS$R_TRANSACTION
 ! 
 !  read_only_flag for transaction_initiate and session_transaction_init
 ! 
	PARAMETER MCS$K_TRANSACTION_READONLY = '00000001'X
	PARAMETER MCS$K_TRANSACTION_READWRITE = '00000000'X
 ! 
 !  abort_flag for MCS$transaction_terminate
 !  
	PARAMETER MCS$K_TRANSACTION_ABORT = '00000001'X
	PARAMETER MCS$K_TRANSACTION_COMMIT = '00000000'X
 ! 
 !  result for MCS$datatype_compare
 !  
	PARAMETER MCS$K_DATATYPE_EQUAL = '00000000'X
	PARAMETER MCS$K_DATATYPE_GREATER = '00000001'X
	PARAMETER MCS$K_DATATYPE_LESS = 'FFFFFFFF'X
	PARAMETER MCS$K_DATATYPE_NOTEQUAL = 'FFFFFFFF'X
 ! 
 !  copy for MCS$datatype_new
 !  
	PARAMETER MCS$K_DATATYPE_ISCOPY = '00000001'X
	PARAMETER MCS$K_DATATYPE_NOTCOPY = '00000000'X
 ! 
 !  isNull for MCS$elmId_isNull
 !  
	PARAMETER MCS$K_ELMID_NULL = '00000001'X
	PARAMETER MCS$K_ELMID_NOTNULL = '00000000'X
 ! 
 !  equal for MCS$elmId_equal
 !  
	PARAMETER MCS$K_ELMID_EQUAL = '00000001'X
	PARAMETER MCS$K_ELMID_NOTEQUAL = '00000000'X
 ! 
 !  action for MCS$check_notices and MCS$force_notices
 !                  
	PARAMETER MCS$K_NOTICES_CLEAR_LOCAL = '00000001'X
	PARAMETER MCS$K_NOTICES_CLEAR_DOWN = '00000004'X
	PARAMETER MCS$K_NOTICES_CLEAR_UP = '00000002'X
	PARAMETER MCS$K_NOTICES_FORCE_ERASE = '00000001'X
	PARAMETER MCS$K_NOTICES_FORCE_MODIFY = '00000002'X
 ! 
 !  index_number for MCS$list_insert
 ! 
	PARAMETER MCS$K_LIST_END = 'FFFFFFFF'X
 ! 
 !  crash level value for Verfiy method
 !  
	PARAMETER MCS$K_VERIFY_DUMP = '00000000'X
	PARAMETER MCS$K_VERIFY_INTERNAL_STRUCTURE = '00000002'X
	PARAMETER MCS$K_VERIFY_EXTERNAL_STRUCTURE = '00000004'X
	PARAMETER MCS$K_VERIFY_SEMANTICS = '00000008'X
	PARAMETER MCS$K_VERIFY_REPAIR = '00000010'X
 ! 
 !  Merge reasons (why a particular result was chosen)
 ! 
	PARAMETER MCS$K_MERGE_UNCHANGED = '00000000'X
	PARAMETER MCS$K_MERGE_SOURCE_CHANGE = '00000001'X
	PARAMETER MCS$K_MERGE_MERGE_CHANGE = '00000002'X
	PARAMETER MCS$K_MERGE_CONFLICT = '00000003'X
 ! 
 !  Possible ways to store a file
 !  (values of "storeType" on BINARY)
 ! 
	PARAMETER MCS$K_STORETYPE_INTERNAL = '00000000'X
	PARAMETER MCS$K_STORETYPE_EXTERNAL = '00000001'X
 ! 
 !  Possible ways to attach a version to a collection
 !  (values of "defaultAttachment" on COLLECTION_PART, CONTEXT and VERSION)
 ! 
	PARAMETER MCS$K_ATTACH_SPEC_VERSION = '00000000'X
	PARAMETER MCS$K_ATTACH_LAST_CHKIN = '00000001'X
	PARAMETER MCS$K_ATTACH_LATEST = '00000002'X
 ! 
 !  Possible basetypes for a given datatype
 !  (values of "baseType" on DATA_TYPE)
 ! 
	PARAMETER MCS$K_BASETYPE_SMALLINT = '00000007'X
	PARAMETER MCS$K_BASETYPE_LONGINT = '00000008'X
	PARAMETER MCS$K_BASETYPE_BOOLEAN = '00000006'X
	PARAMETER MCS$K_BASETYPE_FLOAT = '0000000A'X
	PARAMETER MCS$K_BASETYPE_DOUBLE = '0000001B'X
	PARAMETER MCS$K_BASETYPE_STRING = '002B0069'X
	PARAMETER MCS$K_BASETYPE_DATETIME = '002B0063'X
	PARAMETER MCS$K_BASETYPE_MEMBLOCK = '002B006C'X
	PARAMETER MCS$K_BASETYPE_SCAN = '002B0068'X
	PARAMETER MCS$K_BASETYPE_LIST = '002B0067'X
	PARAMETER MCS$K_BASETYPE_ARGSPEC = '002B0066'X
	PARAMETER MCS$K_BASETYPE_ELEMENTID = '002B0065'X
	PARAMETER MCS$K_BASETYPE_STRINGDSC = '0000000E'X  !  Oracle Extension
	PARAMETER MCS$K_BASETYPE_VMSTIME = '00000023'X  !  Oracle Extension
	PARAMETER MCS$K_BASETYPE_NOTICE = '002B006B'X  !  Oracle Extension
	PARAMETER MCS$K_BASETYPE_UNSPECIFIED = '002B006D'X  !  Oracle Extension
 ! 
 !  Possible direction in which relations can be traversed
 !  (values of "direction" on HAS_RELATION_PROPERTY)
 ! 
	PARAMETER MCS$K_DIRECTION_NONE = '00000035'X  !  Oracle Extension (Portable)
	PARAMETER MCS$K_DIRECTION_TO_MEMBER = '00000036'X  !  Oracle Extension
	PARAMETER MCS$K_DIRECTION_TO_ALL_MEMBERS = '0000007F'X  !  Oracle Extension
	PARAMETER MCS$K_DIRECTION_TO_OWNER = '00000037'X  !  Oracle Extension
	PARAMETER MCS$K_DIRECTION_TO_ALL_OWNERS = '00000080'X  !  Oracle Extension
 ! 
 !  Possible types of notice
 ! 
	PARAMETER MCS$K_NOTICES_POSSIBLY_INVALID = '00000001'X  !  Oracle Extension
	PARAMETER MCS$K_NOTICES_INVALID = '0000001A'X  !  Oracle Extension
	PARAMETER MCS$K_NOTICES_CHILD_USAGE = '00000002'X  !  Oracle Extension
	PARAMETER MCS$K_NOTICES_RELATED_INVALID = '00000003'X  !  Oracle Extension
	PARAMETER MCS$K_NOTICES_MSG_NEW_VERSION = '00000004'X  !  Oracle Extension
 ! 
 !  Possible types of method functions
 !  (values of "funcType" on METHOD)
 ! 
	PARAMETER MCS$K_METHOD_INTERNAL_CODE = '00000000'X
	PARAMETER MCS$K_METHOD_ILLEGAL = '00000001'X
	PARAMETER MCS$K_METHOD_INTERNAL_SCRIPT = '00000002'X
	PARAMETER MCS$K_METHOD_EXTERNAL_CODE = '00000003'X
	PARAMETER MCS$K_METHOD_EXTERNAL_PROGRAM = '00000004'X
	PARAMETER MCS$K_METHOD_NULL = '00000006'X
	PARAMETER MCS$K_METHOD_TRANSPARENT = '00000007'X
	PARAMETER MCS$K_METHOD_SUPEROP = '00000008'X
 ! 
 !  Names for Atherton Compatibility
 !  
	PARAMETER MCS$K_METHOD_INTERNAL = '00000000'X
	PARAMETER MCS$K_METHOD_SCRIPT = '00000002'X
	PARAMETER MCS$K_METHOD_EXTERNAL = '00000003'X
	PARAMETER MCS$K_METHOD_PGM = '00000004'X
 ! 
 !  Possible ways to set the value of a property
 !  (values of "accessType" on PROPERTY_TYPE)
 ! 
	PARAMETER MCS$K_PROP_ACCESS_READONLY = '00000001'X  !  Oracle Extension
	PARAMETER MCS$K_PROP_ACCESS_READWRITE = '00000002'X  !  Oracle Extension
	PARAMETER MCS$K_PROP_ACCESS_WRITEONCE = '00000003'X  !  Oracle Extension
	PARAMETER MCS$K_PROP_ACCESS_WRITECREATE = '00000004'X  !  Oracle Extension
 ! 
 !  Possible status states for a version
 !  (value of "status" on VERSION)
 ! 
	PARAMETER MCS$K_STS_AVAIL = '00000000'X
	PARAMETER MCS$K_STS_RO = '00000001'X
	PARAMETER MCS$K_STS_GHOST = '00000002'X
	PARAMETER MCS$K_STS_FROZEN = '00000003'X
	PARAMETER MCS$K_STS_GHOST_CONC = '00000004'X
 ! 
 !  Possible passing mechanisms for message arguments
 ! 
	PARAMETER MCS$K_MSGARG_IN = '00000001'X
	PARAMETER MCS$K_MSGARG_OUT = '00000002'X
	PARAMETER MCS$K_MSGARG_INOUT = '00000003'X
 ! 
 !  Possible reservation mode for the closure
 !  
 ! 
	PARAMETER MCS$K_TO_NONE = '00000000'X	 !  Oracle Extension
	PARAMETER MCS$K_TO_TOP = '00000001'X	 !  Oracle Extension
	PARAMETER MCS$K_TO_BOTTOM = '00000002'X	 !  Oracle Extension
	PARAMETER MCS$K_TO_BOTH = '00000003'X	 !  Oracle Extension
	PARAMETER MCS$K_TO_CLOSURE = '00000004'X  !  Oracle Extension 
	PARAMETER MCS$K_TO_ALL = '00000003'X	 !  Oracle Extension - synonym for MCS$K_TO_BOTH
 ! 
 !  File system definitions
 ! 
	PARAMETER MCS$_MAX_FILENAME_LENGTH = '000000FF'X
 ! 
 !  Constants for use by computed scan methods.  These values are passed to the
 !  method to tell it what action to perform on the scan.
 ! 
	PARAMETER MCS$K_COMPUTED_SCAN_RESET = '00000001'X
	PARAMETER MCS$K_COMPUTED_SCAN_NEXT = '00000002'X
	PARAMETER MCS$K_COMPUTED_SCAN_FREE = '00000003'X
 ! 
 !  External definitions
 ! 
 ! 
 !  Elmid to send to dispatch_new for near_elmid that means that the user does
 !  not care what elmid the new elmid is allocated near
 ! 
	STRUCTURE /MCS$r_new_near_any/
	END STRUCTURE	! MCS$r_new_near_any
 ! 
 !  Property Names
 ! 
	STRUCTURE /MCS$r_prop_access/
	END STRUCTURE	! MCS$r_prop_access
	STRUCTURE /MCS$r_prop_accessType/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_accessType
	STRUCTURE /MCS$r_prop_aliases/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_aliases
	STRUCTURE /MCS$r_prop_allCheckouts/
	END STRUCTURE	! MCS$r_prop_allCheckouts
	STRUCTURE /MCS$r_prop_allChildPartitions/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allChildPartitions
	STRUCTURE /MCS$r_prop_allChildren/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allChildren
	STRUCTURE /MCS$r_prop_allDependencies/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allDependencies
	STRUCTURE /MCS$r_prop_allDependents/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allDependents
	STRUCTURE /MCS$r_prop_allDerivedFrom/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allDerivedFrom
	STRUCTURE /MCS$r_prop_allDerives/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allDerives
	STRUCTURE /MCS$r_prop_allElementTypes/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allElementTypes
	STRUCTURE /MCS$r_prop_allHistory/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allHistory
	STRUCTURE /MCS$r_prop_allInstances/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allInstances
	STRUCTURE /MCS$r_prop_allowConcurrent/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allowConcurrent
	STRUCTURE /MCS$r_prop_allParentPartitions/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allParentPartitions
	STRUCTURE /MCS$r_prop_allSubTypes/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allSubTypes
	STRUCTURE /MCS$r_prop_allSuperTypes/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allSuperTypes
	STRUCTURE /MCS$r_prop_allTypes/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_allTypes
	STRUCTURE /MCS$r_prop_alternateNames/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_alternateNames
	STRUCTURE /MCS$r_prop_application/
	END STRUCTURE	! MCS$r_prop_application
	STRUCTURE /MCS$r_prop_argSpec/
	END STRUCTURE	! MCS$r_prop_argSpec
	STRUCTURE /MCS$r_prop_argsSent/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_argsSent
	STRUCTURE /MCS$r_prop_assocValidations/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_assocValidations
	STRUCTURE /MCS$r_prop_attachment/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_attachment
	STRUCTURE /MCS$r_prop_attachmentInContext/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_attachmentInContext
	STRUCTURE /MCS$r_prop_autopurge/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_autopurge
	STRUCTURE /MCS$r_prop_availVersion/
	END STRUCTURE	! MCS$r_prop_availVersion
	STRUCTURE /MCS$r_prop_basePartition/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_basePartition
	STRUCTURE /MCS$r_prop_baseType/
	END STRUCTURE	! MCS$r_prop_baseType
	STRUCTURE /MCS$r_prop_baseTypeSize/
	END STRUCTURE	! MCS$r_prop_baseTypeSize
	STRUCTURE /MCS$r_prop_branchesFrom/
	END STRUCTURE	! MCS$r_prop_branchesFrom
	STRUCTURE /MCS$r_prop_branchesTo/
	END STRUCTURE	! MCS$r_prop_branchesTo
	STRUCTURE /MCS$r_prop_branchName/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_branchName
	STRUCTURE /MCS$r_prop_checkout/
	END STRUCTURE	! MCS$r_prop_checkout
	STRUCTURE /MCS$r_prop_childPartitions/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_childPartitions
	STRUCTURE /MCS$r_prop_compPropDef/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_compPropDef
	STRUCTURE /MCS$r_prop_contAllVersion/
	END STRUCTURE	! MCS$r_prop_contAllVersion
	STRUCTURE /MCS$r_prop_contByRootBranch/
	END STRUCTURE	! MCS$r_prop_contByRootBranch
	STRUCTURE /MCS$r_prop_controlled/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_controlled
	STRUCTURE /MCS$r_prop_contextDir/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_contextDir
	STRUCTURE /MCS$r_prop_contextHavingAsTop/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_contextHavingAsTop
	STRUCTURE /MCS$r_prop_contextName/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_contextName
	STRUCTURE /MCS$r_prop_CPUTime/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_CPUTime
	STRUCTURE /MCS$r_prop_createdDate/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_createdDate
	STRUCTURE /MCS$r_prop_currCollection/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_currCollection
	STRUCTURE /MCS$r_prop_currContext/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_currContext
	STRUCTURE /MCS$r_prop_databaseElement/
	END STRUCTURE	! MCS$r_prop_databaseElement
	STRUCTURE /MCS$r_prop_dataType/
	END STRUCTURE	! MCS$r_prop_dataType
	STRUCTURE /MCS$r_prop_dataTypeUsers/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_dataTypeUsers
	STRUCTURE /MCS$r_prop_datetime/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_datetime
	STRUCTURE /MCS$r_prop_defaultAccess/
	END STRUCTURE	! MCS$r_prop_defaultAccess
	STRUCTURE /MCS$r_prop_defaultAttachment/
	END STRUCTURE	! MCS$r_prop_defaultAttachment
	STRUCTURE /MCS$r_prop_definedLegalMembers/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_definedLegalMembers
	STRUCTURE /MCS$r_prop_definedLegalOwners/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_definedLegalOwners
	STRUCTURE /MCS$r_prop_definedMethods/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_definedMethods
	STRUCTURE /MCS$r_prop_definedPropDef/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_definedPropDef
	STRUCTURE /MCS$r_prop_deltaFile/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_deltaFile
	STRUCTURE /MCS$r_prop_dependencies/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_dependencies
	STRUCTURE /MCS$r_prop_dependents/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_dependents
	STRUCTURE /MCS$r_prop_derivedFrom/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_derivedFrom
	STRUCTURE /MCS$r_prop_derives/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_derives
	STRUCTURE /MCS$r_prop_descending/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_descending
	STRUCTURE /MCS$r_prop_description/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_description
	STRUCTURE /MCS$r_prop_direction/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_direction
	STRUCTURE /MCS$r_prop_elapsedTime/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_elapsedTime
	STRUCTURE /MCS$r_prop_elementName/
	END STRUCTURE	! MCS$r_prop_elementName
	STRUCTURE /MCS$r_prop_elementType/
	END STRUCTURE	! MCS$r_prop_elementType
	STRUCTURE /MCS$r_prop_filePath/
	END STRUCTURE	! MCS$r_prop_filePath
	STRUCTURE /MCS$r_prop_firstVersion/
	END STRUCTURE	! MCS$r_prop_firstVersion
	STRUCTURE /MCS$r_prop_freezeTime/
	END STRUCTURE	! MCS$r_prop_freezeTime
	STRUCTURE /MCS$r_prop_funcType/
	END STRUCTURE	! MCS$r_prop_funcType
	STRUCTURE /MCS$r_prop_groupingRelation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_groupingRelation
	STRUCTURE /MCS$r_prop_hasChildren/
	END STRUCTURE	! MCS$r_prop_hasChildren
	STRUCTURE /MCS$r_prop_hasParents/
	END STRUCTURE	! MCS$r_prop_hasParents
	STRUCTURE /MCS$r_prop_history/
	END STRUCTURE	! MCS$r_prop_history
	STRUCTURE /MCS$r_prop_historyCode/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_historyCode
	STRUCTURE /MCS$r_prop_historyComment/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_historyComment
	STRUCTURE /MCS$r_prop_historyRef/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_historyRef
	STRUCTURE /MCS$r_prop_implementedBy/
	END STRUCTURE	! MCS$r_prop_implementedBy
	STRUCTURE /MCS$r_prop_implementedByInCon/
	END STRUCTURE	! MCS$r_prop_implementedByInCon
	STRUCTURE /MCS$r_prop_implements/
	END STRUCTURE	! MCS$r_prop_implements
	STRUCTURE /MCS$r_prop_implementingMethods/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_implementingMethods
	STRUCTURE /MCS$r_prop_implementsMessage/
	END STRUCTURE	! MCS$r_prop_implementsMessage
	STRUCTURE /MCS$r_prop_implementsMethod/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_implementsMethod
	STRUCTURE /MCS$r_prop_implementsRelation/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_implementsRelation
	STRUCTURE /MCS$r_prop_importedFrom/
	END STRUCTURE	! MCS$r_prop_importedFrom
	STRUCTURE /MCS$r_prop_inherited/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_inherited
	STRUCTURE /MCS$r_prop_inPartition/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_inPartition
	STRUCTURE /MCS$r_prop_instances/
	END STRUCTURE	! MCS$r_prop_instances
	STRUCTURE /MCS$r_prop_instantiable/
	END STRUCTURE	! MCS$r_prop_instantiable
	STRUCTURE /MCS$r_prop_invocationStatus/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_invocationStatus
	STRUCTURE /MCS$r_prop_invocationString/
	END STRUCTURE	! MCS$r_prop_invocationString
	STRUCTURE /MCS$r_prop_invokedBy/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_invokedBy
	STRUCTURE /MCS$r_prop_invokes/
	END STRUCTURE	! MCS$r_prop_invokes
	STRUCTURE /MCS$r_prop_keepHist/
	END STRUCTURE	! MCS$r_prop_keepHist
	STRUCTURE /MCS$r_prop_lastVersion/
	END STRUCTURE	! MCS$r_prop_lastVersion
	STRUCTURE /MCS$r_prop_legalMembers/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_legalMembers
	STRUCTURE /MCS$r_prop_legalOwners/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_legalOwners
	STRUCTURE /MCS$r_prop_logFile/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_logFile
	STRUCTURE /MCS$r_prop_messageId/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_messageId
	STRUCTURE /MCS$r_prop_messageName/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_messageName
	STRUCTURE /MCS$r_prop_methods/
	END STRUCTURE	! MCS$r_prop_methods
	STRUCTURE /MCS$r_prop_messagesHavingMsgarg/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_messagesHavingMsgarg
	STRUCTURE /MCS$r_prop_methodType/
	END STRUCTURE	! MCS$r_prop_methodType
	STRUCTURE /MCS$r_prop_methodUsingPostamble/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_methodUsingPostamble
	STRUCTURE /MCS$r_prop_methodUsingPreamble/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_methodUsingPreamble
	STRUCTURE /MCS$r_prop_methodUsed/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_methodUsed
	STRUCTURE /MCS$r_prop_msgSent/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_msgSent
	STRUCTURE /MCS$r_prop_msgTarget/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_msgTarget
	STRUCTURE /MCS$r_prop_miForMessage/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_miForMessage
	STRUCTURE /MCS$r_prop_miForTarget/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_miForTarget
	STRUCTURE /MCS$r_prop_miUsingMethod/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_miUsingMethod
	STRUCTURE /MCS$r_prop_mutable/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_mutable
	STRUCTURE /MCS$r_prop_name/
	END STRUCTURE	! MCS$r_prop_name
	STRUCTURE /MCS$r_prop_nameInDir/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_nameInDir
	STRUCTURE /MCS$r_prop_nextVersions/
	END STRUCTURE	! MCS$r_prop_nextVersions
	STRUCTURE /MCS$r_prop_node/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_node
	STRUCTURE /MCS$r_prop_notification/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_notification
	STRUCTURE /MCS$r_prop_noticeAction/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_noticeAction
	STRUCTURE /MCS$r_prop_numChildren/
	END STRUCTURE	! MCS$r_prop_numChildren
	STRUCTURE /MCS$r_prop_openedBy/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_openedBy
	STRUCTURE /MCS$r_prop_openedFiles/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_openedFiles
	STRUCTURE /MCS$r_prop_optionsString/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_optionsString
	STRUCTURE /MCS$r_prop_ordering/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_ordering
	STRUCTURE /MCS$r_prop_OSVersion/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_OSVersion
	STRUCTURE /MCS$r_prop_owner/
	END STRUCTURE	! MCS$r_prop_owner
	STRUCTURE /MCS$r_prop_ownsRelation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_ownsRelation
	STRUCTURE /MCS$r_prop_parentInContext/
	END STRUCTURE	! MCS$r_prop_parentInContext
	STRUCTURE /MCS$r_prop_parentPartition/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_parentPartition
	STRUCTURE /MCS$r_prop_participantFlags/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_participantFlags
	STRUCTURE /MCS$r_prop_partitionDir/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_partitionDir
	STRUCTURE /MCS$r_prop_passingMechanism/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_passingMechanism
	STRUCTURE /MCS$r_prop_path/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_path
	STRUCTURE /MCS$r_prop_pattern/
	END STRUCTURE	! MCS$r_prop_pattern
	STRUCTURE /MCS$r_prop_postamble/
	END STRUCTURE	! MCS$r_prop_postamble
	STRUCTURE /MCS$r_prop_ppForCollection/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_ppForCollection
	STRUCTURE /MCS$r_prop_ppForContext/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_ppForContext
	STRUCTURE /MCS$r_prop_preamble/
	END STRUCTURE	! MCS$r_prop_preamble
	STRUCTURE /MCS$r_prop_prevVersions/
	END STRUCTURE	! MCS$r_prop_prevVersions
	STRUCTURE /MCS$r_prop_processingName/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_processingName
	STRUCTURE /MCS$r_prop_propDef/
	END STRUCTURE	! MCS$r_prop_propDef
	STRUCTURE /MCS$r_prop_protocolMajor/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_protocolMajor
	STRUCTURE /MCS$r_prop_protocolMinor/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_protocolMinor
	STRUCTURE /MCS$r_prop_referenceCount/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_referenceCount
	STRUCTURE /MCS$r_prop_related/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_related
	STRUCTURE /MCS$r_prop_relationMember/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_relationMember
	STRUCTURE /MCS$r_prop_relMember/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_relMember
	STRUCTURE /MCS$r_prop_relOwner/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_relOwner
	STRUCTURE /MCS$r_prop_relPropDef/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_relPropDef
	STRUCTURE /MCS$r_prop_required/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_required
	STRUCTURE /MCS$r_prop_rdbRelation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_rdbRelation
	STRUCTURE /MCS$r_prop_reservedBy/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_reservedBy
	STRUCTURE /MCS$r_prop_rootBranch/
	END STRUCTURE	! MCS$r_prop_rootBranch
	STRUCTURE /MCS$r_prop_rootBranchName/
	END STRUCTURE	! MCS$r_prop_rootBranchName
	STRUCTURE /MCS$r_prop_rootBranchInstances/
	END STRUCTURE	! MCS$r_prop_rootBranchInstances
	STRUCTURE /MCS$r_prop_rootVersion/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_rootVersion
	STRUCTURE /MCS$r_prop_rootpath/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_rootpath
	STRUCTURE /MCS$r_prop_scale/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_scale
	STRUCTURE /MCS$r_prop_scalingFactor/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_scalingFactor
	STRUCTURE /MCS$r_prop_simpleName/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_simpleName
	STRUCTURE /MCS$r_prop_status/
	END STRUCTURE	! MCS$r_prop_status
	STRUCTURE /MCS$r_prop_stored/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_stored
	STRUCTURE /MCS$r_prop_storeType/
	END STRUCTURE	! MCS$r_prop_storeType
	STRUCTURE /MCS$r_prop_storedIn/
	END STRUCTURE	! MCS$r_prop_storedIn
	STRUCTURE /MCS$r_prop_subTypes/
	END STRUCTURE	! MCS$r_prop_subTypes
	STRUCTURE /MCS$r_prop_superTypes/
	END STRUCTURE	! MCS$r_prop_superTypes
	STRUCTURE /MCS$r_prop_symbols/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_symbols
	STRUCTURE /MCS$r_prop_system/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_system
	STRUCTURE /MCS$r_prop_tag/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_tag
	STRUCTURE /MCS$r_prop_targetPlatform/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_targetPlatform
	STRUCTURE /MCS$r_prop_textFormat/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_textFormat
	STRUCTURE /MCS$r_prop_toolName/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_toolName
	STRUCTURE /MCS$r_prop_toolVersion/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_toolVersion
	STRUCTURE /MCS$r_prop_top/
	END STRUCTURE	! MCS$r_prop_top
	STRUCTURE /MCS$r_prop_typesHavingProp/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_typesHavingProp
	STRUCTURE /MCS$r_prop_typesUsingMethod/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_typesUsingMethod
	STRUCTURE /MCS$r_prop_userName/
	END STRUCTURE	! MCS$r_prop_userName
	STRUCTURE /MCS$r_prop_users/
	END STRUCTURE	! MCS$r_prop_users
	STRUCTURE /MCS$r_prop_validationAction/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_validationAction
	STRUCTURE /MCS$r_prop_validationApply/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_validationApply
	STRUCTURE /MCS$r_prop_validationQuery/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_validationQuery
	STRUCTURE /MCS$r_prop_validationWhen/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_validationWhen
	STRUCTURE /MCS$r_prop_validationsEnforced/  !  Oracle Extension
	END STRUCTURE	! MCS$r_prop_validationsEnforced
	STRUCTURE /MCS$r_prop_versionable/
	END STRUCTURE	! MCS$r_prop_versionable
	STRUCTURE /MCS$r_prop_versionNum/
	END STRUCTURE	! MCS$r_prop_versionNum
 ! 
 !  Message names
 !  
	STRUCTURE /MCS$r_message_attach/
	END STRUCTURE	! MCS$r_message_attach
	STRUCTURE /MCS$r_message_build/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_build
	STRUCTURE /MCS$r_message_close/
	END STRUCTURE	! MCS$r_message_close
	STRUCTURE /MCS$r_message_control/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_control
	STRUCTURE /MCS$r_message_copy/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_copy
	STRUCTURE /MCS$r_message_demote/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_demote
	STRUCTURE /MCS$r_message_detach/
	END STRUCTURE	! MCS$r_message_detach
	STRUCTURE /MCS$r_message_differences/
	END STRUCTURE	! MCS$r_message_differences
	STRUCTURE /MCS$r_message_duplicate/
	END STRUCTURE	! MCS$r_message_duplicate
	STRUCTURE /MCS$r_message_edit/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_edit
	STRUCTURE /MCS$r_message_export/
	END STRUCTURE	! MCS$r_message_export
	STRUCTURE /MCS$r_message_free/
	END STRUCTURE	! MCS$r_message_free
	STRUCTURE /MCS$r_message_freeze/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_freeze
	STRUCTURE /MCS$r_message_getLNames/
	END STRUCTURE	! MCS$r_message_getLNames
	STRUCTURE /MCS$r_message_getLObjs/
	END STRUCTURE	! MCS$r_message_getLObjs
	STRUCTURE /MCS$r_message_getProp/
	END STRUCTURE	! MCS$r_message_getProp
	STRUCTURE /MCS$r_message_import/
	END STRUCTURE	! MCS$r_message_import
	STRUCTURE /MCS$r_message_merge/
	END STRUCTURE	! MCS$r_message_merge
	STRUCTURE /MCS$r_message_new/
	END STRUCTURE	! MCS$r_message_new
	STRUCTURE /MCS$r_message_open/
	END STRUCTURE	! MCS$r_message_open
	STRUCTURE /MCS$r_message_promote/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_promote
	STRUCTURE /MCS$r_message_purge/
	END STRUCTURE	! MCS$r_message_purge
	STRUCTURE /MCS$r_message_rename/
	END STRUCTURE	! MCS$r_message_rename
	STRUCTURE /MCS$r_message_replace/
	END STRUCTURE	! MCS$r_message_replace
	STRUCTURE /MCS$r_message_reserve/
	END STRUCTURE	! MCS$r_message_reserve
	STRUCTURE /MCS$r_message_setProp/
	END STRUCTURE	! MCS$r_message_setProp
	STRUCTURE /MCS$r_message_translate/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_translate
	STRUCTURE /MCS$r_message_unfreeze/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_message_unfreeze
	STRUCTURE /MCS$r_message_unreserve/
	END STRUCTURE	! MCS$r_message_unreserve
	STRUCTURE /MCS$r_message_update/
	END STRUCTURE	! MCS$r_message_update
	STRUCTURE /MCS$r_message_verify/
	END STRUCTURE	! MCS$r_message_verify
	STRUCTURE /MCS$r_message_writeHistory/
	END STRUCTURE	! MCS$r_message_writeHistory
 ! 
 !  Datatype Names
 !  
	STRUCTURE /MCS$r_datatype_argspec/
	END STRUCTURE	! MCS$r_datatype_argspec
	STRUCTURE /MCS$r_datatype_boolean/
	END STRUCTURE	! MCS$r_datatype_boolean
	STRUCTURE /MCS$r_datatype_datetime/
	END STRUCTURE	! MCS$r_datatype_datetime
	STRUCTURE /MCS$r_datatype_elementid/
	END STRUCTURE	! MCS$r_datatype_elementid
	STRUCTURE /MCS$r_datatype_float/
	END STRUCTURE	! MCS$r_datatype_float
	STRUCTURE /MCS$r_datatype_list/
	END STRUCTURE	! MCS$r_datatype_list
	STRUCTURE /MCS$r_datatype_longint/
	END STRUCTURE	! MCS$r_datatype_longint
	STRUCTURE /MCS$r_datatype_memblock/
	END STRUCTURE	! MCS$r_datatype_memblock
	STRUCTURE /MCS$r_datatype_scan/
	END STRUCTURE	! MCS$r_datatype_scan
	STRUCTURE /MCS$r_datatype_smallint/
	END STRUCTURE	! MCS$r_datatype_smallint
	STRUCTURE /MCS$r_datatype_string/
	END STRUCTURE	! MCS$r_datatype_string
	STRUCTURE /MCS$r_datatype_stringdsc/
	END STRUCTURE	! MCS$r_datatype_stringdsc
	STRUCTURE /MCS$r_datatype_double/
	END STRUCTURE	! MCS$r_datatype_double
	STRUCTURE /MCS$r_datatype_vmstime/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_datatype_vmstime
	STRUCTURE /MCS$r_datatype_notice/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_datatype_notice
	STRUCTURE /MCS$r_datatype_unspecified/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_datatype_unspecified
 ! 
 !  Element Type names
 ! 
	STRUCTURE /MCS$r_elm_element/
	END STRUCTURE	! MCS$r_elm_element
	STRUCTURE /MCS$r_elm_event/
	END STRUCTURE	! MCS$r_elm_event
	STRUCTURE /MCS$r_elm_named_element/
	END STRUCTURE	! MCS$r_elm_named_element
	STRUCTURE /MCS$r_elm_branch/
	END STRUCTURE	! MCS$r_elm_branch
	STRUCTURE /MCS$r_elm_context/
	END STRUCTURE	! MCS$r_elm_context
	STRUCTURE /MCS$r_elm_database/
	END STRUCTURE	! MCS$r_elm_database
	STRUCTURE /MCS$r_elm_partition/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_partition
	STRUCTURE /MCS$r_elm_version/
	END STRUCTURE	! MCS$r_elm_version
	STRUCTURE /MCS$r_elm_aggregate/
	END STRUCTURE	! MCS$r_elm_aggregate
	STRUCTURE /MCS$r_elm_binary/
	END STRUCTURE	! MCS$r_elm_binary
	STRUCTURE /MCS$r_elm_binary_tool/
	END STRUCTURE	! MCS$r_elm_binary_tool
	STRUCTURE /MCS$r_elm_text/
	END STRUCTURE	! MCS$r_elm_text
	STRUCTURE /MCS$r_elm_text_tool/
	END STRUCTURE	! MCS$r_elm_text_tool
	STRUCTURE /MCS$r_elm_collection/
	END STRUCTURE	! MCS$r_elm_collection
	STRUCTURE /MCS$r_elm_composite/
	END STRUCTURE	! MCS$r_elm_composite
	STRUCTURE /MCS$r_elm_message/
	END STRUCTURE	! MCS$r_elm_message
	STRUCTURE /MCS$r_elm_msgarg/
	END STRUCTURE	! MCS$r_elm_msgarg
	STRUCTURE /MCS$r_elm_persistent_process/  !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_persistent_process
	STRUCTURE /MCS$r_elm_tool/
	END STRUCTURE	! MCS$r_elm_tool
	STRUCTURE /MCS$r_elm_method/
	END STRUCTURE	! MCS$r_elm_method
	STRUCTURE /MCS$r_elm_type/
	END STRUCTURE	! MCS$r_elm_type
	STRUCTURE /MCS$r_elm_data_type/
	END STRUCTURE	! MCS$r_elm_data_type
	STRUCTURE /MCS$r_elm_element_type/
	END STRUCTURE	! MCS$r_elm_element_type
	STRUCTURE /MCS$r_elm_relation_type/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_relation_type
	STRUCTURE /MCS$r_elm_property_type/
	END STRUCTURE	! MCS$r_elm_property_type
	STRUCTURE /MCS$r_elm_relation/
	END STRUCTURE	! MCS$r_elm_relation
	STRUCTURE /MCS$r_elm_notification/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_notification
	STRUCTURE /MCS$r_elm_depends_on/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_depends_on
	STRUCTURE /MCS$r_elm_collection_part/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_collection_part
	STRUCTURE /MCS$r_elm_composite_part/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_composite_part
	STRUCTURE /MCS$r_elm_has_property/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_property
	STRUCTURE /MCS$r_elm_has_computed_property/  !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_computed_property
	STRUCTURE /MCS$r_elm_has_relation_property/  !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_relation_property
	STRUCTURE /MCS$r_elm_has_relation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_relation
	STRUCTURE /MCS$r_elm_implements_relation/  !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_implements_relation
	STRUCTURE /MCS$r_elm_relation_member/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_relation_member
	STRUCTURE /MCS$r_elm_c_source_file/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_c_source_file
	STRUCTURE /MCS$r_elm_method_invocation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_method_invocation
	STRUCTURE /MCS$r_elm_atis_method_invoc/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_atis_method_invoc
	STRUCTURE /MCS$r_elm_acas_method_invoc/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_acas_method_invoc
	STRUCTURE /MCS$r_elm_method_parameter/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_method_parameter
	STRUCTURE /MCS$r_elm_method_input/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_method_input
	STRUCTURE /MCS$r_elm_method_output/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_method_output
	STRUCTURE /MCS$r_elm_has_msgarg/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_msgarg
	STRUCTURE /MCS$r_elm_has_msg_sent/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_msg_sent
	STRUCTURE /MCS$r_elm_has_msg_target/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_msg_target
	STRUCTURE /MCS$r_elm_has_method_used/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_has_method_used
	STRUCTURE /MCS$r_elm_diagnostic_file/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_diagnostic_file
	STRUCTURE /MCS$r_elm_analysis_data_file/  !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_analysis_data_file
	STRUCTURE /MCS$r_elm_object_file/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_object_file
	STRUCTURE /MCS$r_elm_listing_file/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_listing_file
	STRUCTURE /MCS$r_elm_executable_file/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_executable_file
	STRUCTURE /MCS$r_elm_validation/	 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_validation
	STRUCTURE /MCS$r_elm_directory/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_directory
	STRUCTURE /MCS$r_elm_log_file/		 !  Oracle Extension
	END STRUCTURE	! MCS$r_elm_log_file
 ! 
 !  Argument Names
 !  
	STRUCTURE /MCS$r_arg_arglist/
	END STRUCTURE	! MCS$r_arg_arglist
	STRUCTURE /MCS$r_arg_ancestor_elmID/
	END STRUCTURE	! MCS$r_arg_ancestor_elmID
	STRUCTURE /MCS$r_arg_ancestor_list/
	END STRUCTURE	! MCS$r_arg_ancestor_list
	STRUCTURE /MCS$r_arg_branch_name/
	END STRUCTURE	! MCS$r_arg_branch_name
	STRUCTURE /MCS$r_arg_closure_relation/	 !  Temp
	END STRUCTURE	! MCS$r_arg_closure_relation
	STRUCTURE /MCS$r_arg_closure/
	END STRUCTURE	! MCS$r_arg_closure
	STRUCTURE /MCS$r_arg_closure_list/
	END STRUCTURE	! MCS$r_arg_closure_list
	STRUCTURE /MCS$r_arg_collection_elmID/
	END STRUCTURE	! MCS$r_arg_collection_elmID
	STRUCTURE /MCS$r_arg_comment/
	END STRUCTURE	! MCS$r_arg_comment
	STRUCTURE /MCS$r_arg_concurrent/
	END STRUCTURE	! MCS$r_arg_concurrent
	STRUCTURE /MCS$r_arg_conflict_routine/
	END STRUCTURE	! MCS$r_arg_conflict_routine
	STRUCTURE /MCS$r_arg_crash_level/
	END STRUCTURE	! MCS$r_arg_crash_level
	STRUCTURE /MCS$r_arg_default_attachment/
	END STRUCTURE	! MCS$r_arg_default_attachment
	STRUCTURE /MCS$r_arg_diff_elmID/
	END STRUCTURE	! MCS$r_arg_diff_elmID
	STRUCTURE /MCS$r_arg_fname/
	END STRUCTURE	! MCS$r_arg_fname
	STRUCTURE /MCS$r_arg_history_record/
	END STRUCTURE	! MCS$r_arg_history_record
	STRUCTURE /MCS$r_arg_in_inst_elmID/
	END STRUCTURE	! MCS$r_arg_in_inst_elmID
	STRUCTURE /MCS$r_arg_inst_elmID/
	END STRUCTURE	! MCS$r_arg_inst_elmID
	STRUCTURE /MCS$r_arg_list/
	END STRUCTURE	! MCS$r_arg_list
	STRUCTURE /MCS$r_arg_list_names/
	END STRUCTURE	! MCS$r_arg_list_names
	STRUCTURE /MCS$r_arg_list_objs/
	END STRUCTURE	! MCS$r_arg_list_objs
	STRUCTURE /MCS$r_arg_merge_elmID/
	END STRUCTURE	! MCS$r_arg_merge_elmID
	STRUCTURE /MCS$r_arg_merge_list/
	END STRUCTURE	! MCS$r_arg_merge_list
	STRUCTURE /MCS$r_arg_merge_successes/
	END STRUCTURE	! MCS$r_arg_merge_successes
	STRUCTURE /MCS$r_arg_merge_conflicts/
	END STRUCTURE	! MCS$r_arg_merge_conflicts
	STRUCTURE /MCS$r_arg_near_elmID/
	END STRUCTURE	! MCS$r_arg_near_elmID
	STRUCTURE /MCS$r_arg_new_inst_elmID/
	END STRUCTURE	! MCS$r_arg_new_inst_elmID
	STRUCTURE /MCS$r_arg_new_name/
	END STRUCTURE	! MCS$r_arg_new_name
	STRUCTURE /MCS$r_arg_old_inst_elmID/
	END STRUCTURE	! MCS$r_arg_old_inst_elmID
	STRUCTURE /MCS$r_arg_orig_type_elmID/
	END STRUCTURE	! MCS$r_arg_orig_type_elmID
	STRUCTURE /MCS$r_arg_out_inst_elmID/
	END STRUCTURE	! MCS$r_arg_out_inst_elmID
	STRUCTURE /MCS$r_arg_output/		 !  reserve/Nooutput
	END STRUCTURE	! MCS$r_arg_output
	STRUCTURE /MCS$r_arg_output_level/
	END STRUCTURE	! MCS$r_arg_output_level
	STRUCTURE /MCS$r_arg_partition_elmID/
	END STRUCTURE	! MCS$r_arg_partition_elmID
	STRUCTURE /MCS$r_arg_property_name/
	END STRUCTURE	! MCS$r_arg_property_name
	STRUCTURE /MCS$r_arg_property_name_list/
	END STRUCTURE	! MCS$r_arg_property_name_list
	STRUCTURE /MCS$r_arg_property_value/
	END STRUCTURE	! MCS$r_arg_property_value
	STRUCTURE /MCS$r_arg_property_value_list/
	END STRUCTURE	! MCS$r_arg_property_value_list
	STRUCTURE /MCS$r_arg_reason_list/
	END STRUCTURE	! MCS$r_arg_reason_list
	STRUCTURE /MCS$r_arg_result_list/
	END STRUCTURE	! MCS$r_arg_result_list
	STRUCTURE /MCS$r_arg_source_list/
	END STRUCTURE	! MCS$r_arg_source_list
	STRUCTURE /MCS$r_arg_tool_name/
	END STRUCTURE	! MCS$r_arg_tool_name
 !  OBSOLETE symbols
 ! 
 ! 
 !  END OBSOLETE symbols
 !  MCS$INITIATE
 ! 
 !  Prepare environment and dictionary 
 ! 
	INTEGER*4 MCS$initiate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$initiate
 !  MCS$TERMINATE
 ! 
 !  End a dictionary session
 ! 
	INTEGER*4 MCS$terminate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$terminate
 !  MCS$TRANSACTION_INITIATE
 ! 
 !  Begin a transaction or sub-transaction
 ! 
	INTEGER*4 MCS$transaction_initiate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$transaction_initiate
 !  MCS$TRANSACTION_TERMINATE
 !  
 !  Commit or abort a transaction
 ! 
	INTEGER*4 MCS$transaction_terminate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$transaction_terminate
 !  MCS$PDEF_ADD
 ! 
 !  Add new property definition to element type
 !  
	INTEGER*4 MCS$pdef_add  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$pdef_add
 !  MCS$PDEF_REMOVE
 ! 
 !  Remove property definition from element type
 !  
	INTEGER*4 MCS$pdef_remove  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$pdef_remove
 !  MCS$SESSION_INITIATE
 ! 
 !  Start a new session
 ! 
	INTEGER*4 MCS$session_initiate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$session_initiate
 !  MCS$SESSION_TERMINATE
 ! 
 !  Free memory associated with session
 ! 
	INTEGER*4 MCS$session_terminate  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$session_terminate
 !  MCS$SESSION_TRANSACTION_INIT
 ! 
 !  Start a session transaction
 ! 
	INTEGER*4 MCS$session_transaction_init  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$session_transaction_init
 !  MCS$SESSION_TRANSACTION_TERM
 ! 
 !  Commit or abort a session transaction
 ! 
	INTEGER*4 MCS$session_transaction_term  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$session_transaction_term
 !  MCS$INITIATE_DATABASE
 ! 
 !  Access a database
 ! 
	INTEGER*4 MCS$initiate_database  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$initiate_database
 !  MCS$ERRORSTACK_CLEAR
 !  
 !  Remove entry from error stack
 ! 
	INTEGER*4 MCS$errorstack_clear  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_clear
 !  MCS$ERRORSTACK_CLEARALL
 ! 
 !  Remove all entries from errorstack
 !  
	INTEGER*4 MCS$errorstack_clearAll  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_clearAll
 !  MCS$ERRORSTACK_FORMAT
 ! 
 !  Format message from error stack
 ! 
	INTEGER*4 MCS$errorstack_format  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_format
 !  MCS$ERRORSTACK_GETCURRENTSIZE
 ! 
 !  Get number of entries on error stack
 ! 
	INTEGER*4 MCS$errorstack_getCurrentSize  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_getCurrentSize
 !  MCS$ERRORSTACK_GETMAXSIZE
 ! 
 !  Get stack's maximum number of entries
 !  
	INTEGER*4 MCS$errorstack_getMaxSize  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_getMaxSize
 !  MCS$ERRORSTACK_GETSTATUS
 ! 
 !  Get status code for error stack entry
	INTEGER*4 MCS$errorstack_getStatus  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_getStatus
 !  MCS$ERRORSTACK_SET
 ! 
 !  Push new entry onto error stack
 !  
	INTEGER*4 MCS$errorstack_set  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_set
 !  MCS$ERRORSTACK_SETMAXSIZE
 ! 
 !  Set maximum number of stack entries 
 !  
	INTEGER*4 MCS$errorstack_setMaxSize  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$errorstack_setMaxSize
 !  MCS$LIST_FREE
 ! 
 !  Free non-shared dynamically allocated items on list.
 ! 
	INTEGER*4 MCS$list_free  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_free
 !  MCS$LIST_GET
 !  
 !  Get a member of a list, given an index 
 ! 
	INTEGER*4 MCS$list_get  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_get
 !  MCS$LIST_GETSIZE
 !  
 !  Get the number of members of a list
 ! 
	INTEGER*4 MCS$list_getSize  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_getSize
 !  MCS$LIST_INSERT
 !  
 !  Add a new member to a list
 ! 
	INTEGER*4 MCS$list_insert  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_insert
 !  MCS$LIST_NEW
 ! 
 !  Create a list
 !  
	INTEGER*4 MCS$list_new  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_new
 !  MCS$LIST_REMOVE
 !  
 !  Remove a new member from a list
 ! 
	INTEGER*4 MCS$list_remove  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_remove
 !  MCS$LIST_SET
 !  
 !  Set the value of an indexed member on a list
 ! 
	INTEGER*4 MCS$list_set  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$list_set
 !  MCS$DATATYPE_COMPARE
 !  
 !  Compare two values of a given datatype
 !  
	INTEGER*4 MCS$datatype_compare  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_compare
 !  MCS$DATATYPE_COPY
 !  
 !  Make a copy of a value struct
 !  
	INTEGER*4 MCS$datatype_copy  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_copy
 !  MCS$DATATYPE_DATATYPE
 ! 
 !  Get the element id for the type of data stored in a value struct
 ! 
	INTEGER*4 MCS$datatype_datatype  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_datatype
 !  MCS$DATATYPE_FREE
 !  
 !  Free any memory associated with the value.
 !  
	INTEGER*4 MCS$datatype_free  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_free
 !  MCS$DATATYPE_LENGTH
 !  
 !  Get the length of the data in the value struct
 !  
	INTEGER*4 MCS$datatype_length  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_length
 !  MCS$DATATYPE_NEW
 ! 
 !  Initialize fields of value struct
 ! 
	INTEGER*4 MCS$datatype_new  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_new
 !  MCS$DATATYPE_READ
 !  
 !  Get value into format useful to client
 !  
	INTEGER*4 MCS$datatype_read  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$datatype_read
 !  MCS$DB_CLOSE
 ! 
 !  Close a repository
 ! 
	INTEGER*4 MCS$db_close  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$db_close
 !  MCS$DB_FREE
 ! 
 !  Delete a repository
 ! 
	INTEGER*4 MCS$db_free  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$db_free
 !  MCS$DB_NEW
 ! 
 !  Create a repository
 ! 
	INTEGER*4 MCS$db_new  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$db_new
 !  MCS$ELEMENT_GETBYNAME
 ! 
 !  Get an element, given name and type
 !  
	INTEGER*4 MCS$element_getByName  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$element_getByName
 !  MCS$ELEMENT_GETNAME
 ! 
 !  Get the name of an element
 !  
	INTEGER*4 MCS$element_getName  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$element_getName
 !  MCS$ELEMENT_GETSUBTYPELIST
 ! 
 !  Get list of subtypes of element
 !  
	INTEGER*4 MCS$element_getSubTypeList  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$element_getSubTypeList
 !  MCS$ELEMENT_GETSUPERTYPELIST
 ! 
 !  Get list of supertypes of element
 !  
	INTEGER*4 MCS$element_getSuperTypeList  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$element_getSuperTypeList
 !  MCS$ELEMENT_GETTYPE
 ! 
 !  Get the type of an element
 !  
	INTEGER*4 MCS$element_getType  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$element_getType
 !  MCS$ELMID_COPY
 ! 
 !  Copy one elmID to another
 !  
	INTEGER*4 MCS$elmid_copy  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_copy
 !  MCS$ELMID_GETCONTEXT
 ! 
 !  Given an elmID, return the current context
 ! 
	INTEGER*4 MCS$elmid_getContext  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_getContext
 !  MCS$ELMID_GETPERSISTENTPROCESS
 ! 
 !  Given an elmID, return the current persistent process
 ! 
	INTEGER*4 MCS$elmid_getPersistentProcess  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_getPersistentProcess
 !  MCS$ELMID_GETSESSION
 ! 
 !  Given an elmID, return the current session
 ! 
	INTEGER*4 MCS$elmid_getSession  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_getSession
 !  MCS$ELMID_EQUAL
 ! 
 !  Return true if two element ids are equal
 !  
	INTEGER*4 MCS$elmid_equal  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_equal
 !  MCS$ELMID_ISNULL
 ! 
 !  Is element identity null
 !  
	INTEGER*4 MCS$elmid_isNull  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_isNull
 !  MCS$ELMID_ISSUBTYPE
 ! 
 !  Is one element a subtype of the other
 !  
	INTEGER*4 MCS$elmid_isSubtype  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_isSubtype
 !  MCS$ELMID_EXPORT_PERSISTENT
 ! 
 !  Given an elmID, return the persistent elmID
 ! 
	INTEGER*4 MCS$elmid_export_persistent  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_export_persistent
 !  MCS$ELMID_IMPORT_PERSISTENT
 ! 
 !  Adds a persistent elmID to the specified session or the current session
 ! 
	INTEGER*4 MCS$elmid_import_persistent  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$elmid_import_persistent
 !  MCS$FILEOP_COPY
 ! 
 !  Perform journalled file copy
 ! 
	INTEGER*4 MCS$fileop_copy  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_copy
 !  MCS$FILEOP_DELETE
 !  
 !  Perform journalled file deletion
 ! 
	INTEGER*4 MCS$fileop_delete  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_delete
 !  MCS$FILEOP_JOURNAL_CREATE
 ! 
 !  Write file creation journal record
 ! 
	INTEGER*4 MCS$fileop_journal_create  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_journal_create
 !  MCS$FILEOP_JOURNAL_MODIFY
 ! 
 !  Write file modification journal record
 ! 
	INTEGER*4 MCS$fileop_journal_modify  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_journal_modify
 !  MCS$FILEOP_MKDIR
 ! 
 !  Perform a journalled directory creation
 ! 
	INTEGER*4 MCS$fileop_mkdir  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_mkdir
 !  MCS$FILEOP_RENAME
 ! 
 !  Perform a journalled file rename
 ! 
	INTEGER*4 MCS$fileop_rename  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_rename
 !  MCS$FILEOP_RMDIR
 ! 
 !  Perform a journalled directory deletion
 ! 
	INTEGER*4 MCS$fileop_rmdir  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_rmdir
 !  MCS$FILEOP_RMLINK
 ! 
 !  Perform a journalled file system link removal
 ! 
	INTEGER*4 MCS$fileop_rmlink  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_rmlink
 !  MCS$FILEOP_SYMLINK
 ! 
 !  Perform a journalled file system link creation
 ! 
	INTEGER*4 MCS$fileop_symlink  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_symlink
 !  MCS$FILEOP_UNJOURNAL_CREATE
 ! 
 !  Remove journal entry for file creation.
 !  Deletes the journal record for the most recent journalled file operation.
 ! 
	INTEGER*4 MCS$fileop_unjournal_create  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$fileop_unjournal_create
 !  MCS$SCAN_DIR
 ! 
 !  Get scan based on name and type
 ! 
	INTEGER*4 MCS$scan_dir  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_dir
 !  MCS$SCAN_FREE
 ! 
 !  Free a scan
 ! 
	INTEGER*4 MCS$scan_free  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_free
 !  MCS$SCAN_GETBYNAME
 ! 
 !  Find element with given name in scan
 ! 
	INTEGER*4 MCS$scan_getByName  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_getByName
 !  MCS$SCAN_GETCURRENT
 ! 
 !  Get the current element in the scan
 ! 
	INTEGER*4 MCS$scan_getCurrent  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_getCurrent
 !  MCS$SCAN_GETFIRST
 ! 
 !  Get the first element in the scan
 ! 
	INTEGER*4 MCS$scan_getFirst  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_getFirst
 !  MCS$SCAN_GETNEXT
 ! 
 !  Get the next element in the scan
 ! 
	INTEGER*4 MCS$scan_getNext  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_getNext
 !  MCS$SCAN_INSERT
 ! 
 !  Insert an element into the scan
 ! 
	INTEGER*4 MCS$scan_insert  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_insert
 !  MCS$SCAN_INSERT_WITH_ARGS
 ! 
 !  Insert an element into the scan
 ! 
	INTEGER*4 MCS$scan_insert_with_args  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_insert_with_args
 !  MCS$SCAN_NEW
 ! 
 !  Create a new scan
 ! 
	INTEGER*4 MCS$scan_new  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_new
 !  MCS$SCAN_REMOVE
 ! 
 !  Remove an element from the scan
 ! 
	INTEGER*4 MCS$scan_remove  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_remove
 !  MCS$SCAN_RESET
 ! 
 !  Reset a scan so that it is set at the beginning
 ! 
	INTEGER*4 MCS$scan_reset  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_reset
 !  MCS$SCAN_QUERY
 ! 
 !  Create a scan based on a query expression
 ! 
	INTEGER*4 MCS$scan_query  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$scan_query
 !  MCS$ARGLIST_ADDARG
 !  
 !  Initialize new argument and append to list
 ! 
	INTEGER*4 MCS$arglist_addArg  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$arglist_addArg
 !  MCS$ARGLIST_FINDARG
 !  
 !  Get information from named argument 
 ! 
	INTEGER*4 MCS$arglist_findArg  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$arglist_findArg
 !  MCS$ARGLIST_GETARG
 !  
 !  Get information from indexed argument 
 ! 
	INTEGER*4 MCS$arglist_getArg  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$arglist_getArg
 !  MCS$ARGLIST_SETINDEXVALUE
 !  
 !  Set information in indexed argument 
 ! 
	INTEGER*4 MCS$arglist_setIndexValue  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$arglist_setIndexValue
 !  MCS$ARGLIST_SETNAMEVALUE
 !  
 !  Set information in named argument 
 ! 
	INTEGER*4 MCS$arglist_setNameValue  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$arglist_setNameValue
 ! *************************************************************************
 !  MCS$DISPATCH_OP
 !  
 !  Dispatch message to listed elements 
 ! 
	INTEGER*4 MCS$dispatch_op  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$dispatch_op
 !  MCS$DISPATCH_SUPEROP
 !  
 !  Dispatch message to supertype of listed elements 
 ! 
	INTEGER*4 MCS$dispatch_superOp  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$dispatch_superOp
 !  MCS$SET_DEFAULT
 !  
 !  Set default directory for MCS session
 ! 
	INTEGER*4 MCS$set_default  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$set_default
 !  MCS$CHECK_NOTICES
 !  
 !  Get notices sent to specified element
 ! 
	INTEGER*4 MCS$check_notices  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$check_notices
 !  MCS$CLEAR_NOTICES
 !  
 !  Clear notices from a set of elements
 ! 
	INTEGER*4 MCS$clear_notices  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$clear_notices
 !  MCS$FORCE_NOTICES
 !  
 !  Send notice to specified element
 ! 
	INTEGER*4 MCS$force_notices  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$force_notices
 !  MCS$READ_NOTICE
 !  
 !  Reads a notice datatype 
 ! 
	INTEGER*4 MCS$read_notice  ! type is "MCS$L_STATUS"
	EXTERNAL  MCS$read_notice
CDEC$ END OPTIONS