! 
! *************************************************************************
! *                                                                       *
! * © Copyright 2010, Hewlett-Packard Development Company, L.P.           *
! *                                                                       *
! * Confidential computer software.  Valid license from HP and/or         *
! * its subsidiaries required for possession, use, or copying.            *
! *                                                                       *
! * Consistent with FAR 12.211 and 12.212, Commercial Computer Software,  *
! * Computer Software Documentation, and Technical Data for Commercial    *
! * Items are licensed to the U.S. Government under vendor's standard     *
! * commercial license.                                                   *
! *                                                                       *
! * Neither HP nor any of its subsidiaries shall be liable for technical  *
! * or editorial errors or omissions contained herein.  The information   *
! * in this document is provided "as is" without warranty of any kind and *
! * is subject to change without notice.  The warranties for HP products  *
! * are set forth in the express limited warranty statements accompanying *
! * such products.  Nothing herein should be construed as constituting an *
! * additional warranty.                                                  *
! *                                                                       *
! *************************************************************************
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:39 by OpenVMS SDL EV3-3      
!  Source:  FINITIONS.LIS; 
! ********************************************************************************************************************************
 
!*** MODULE NETEXTERNALS IDENT X-7 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  binabstimedef - DEC Binary Absolute Time.
 ! 
 ! -
	PARAMETER babst$m_tdf = '00000FFF'X
	PARAMETER babst$m_version = '0000F000'X
	PARAMETER net$c_binabstime_len = '00000010'X
	STRUCTURE /NET$binabstime/
	    INTEGER*4 babst$q_time(2)		 !  Scalar time value
	    BYTE      babst$g_inacc(1:6)		 !  Inaccuracy associated with this time
	        PARAMETER babst$S_tdf = 12
	        PARAMETER babst$V_tdf = 0		 !  Time Zone             
	        PARAMETER babst$S_version = 4
	        PARAMETER babst$V_version = 12
	        BYTE %FILL (2)				 !  Version Number
	END STRUCTURE	! NET$binabstime
 ! +
 !  binreltime - DEC Binary Relative Time.
 ! 
 ! -
	PARAMETER brelt$m_reserved = '00000FFF'X
	PARAMETER brelt$m_version = '0000F000'X
	PARAMETER net$c_binreltime_len = '00000010'X
	STRUCTURE /NET$binreltime/
	    INTEGER*4 brelt$q_time(2)		 !  Scalar time value
	    BYTE      brelt$g_inacc(1:6)		 !  Inaccuracy associated with this time
	        PARAMETER brelt$S_reserved = 12
	        PARAMETER brelt$V_reserved = 0		 !  Reserved           
	        PARAMETER brelt$S_version = 4
	        PARAMETER brelt$V_version = 12
	        BYTE %FILL (2)				 !  Version number
	END STRUCTURE	! NET$binreltime
 !  Time service external data sme

	STRUCTURE /NET$entityiddef/
	    INTEGER*2 eid$w_id
	END STRUCTURE	! NET$entityiddef
	STRUCTURE /NET$eventtypeiddef/
	    INTEGER*4 evtid$l_evtid
	END STRUCTURE	! NET$eventtypeiddef
	STRUCTURE /NET$eventinfodef/
	    INTEGER*4 evtinfo$l_event_information
	END STRUCTURE	! NET$eventinfodef
 !  Entity external data structures
	PARAMETER net$c_nid_len = '00000006'X
	STRUCTURE /NET$nodei3eaddr/
	    BYTE      naddr$g_addr(1:6)
	END STRUCTURE	! NET$nodei3eaddr
 !  Node Address external data structures
 !  read UID symbols
 ! +
 !    General constant values for the phase IV relay
 ! -
	PARAMETER EVD$K_MBX_MESSAGE_SZ = '00000080'X  ! Size of mailbox buffer
	PARAMETER EVD$K_MBX_QUOTA = '00000080'X	 ! Mailbox quota         
	PARAMETER EVD$K_NET_MESSAGE_SZ = '00000400'X  ! Size of network buffer
	PARAMETER EVD$K_RELAY_OBJ_NUM = '0000001A'X  ! Relay object number      
	PARAMETER EVD$K_SINK_OBJ_NUM = '0000003C'X  ! Sink object number      
 ! +
 !    Definition of the QIO buffer's header
 ! -
	STRUCTURE /NET$RELAY_QIO_BUF/
	    INTEGER*4 EVD$L_CHANNEL			 ! Network channel number
	    INTEGER*2 EVD$W_IOSB			 ! First word of the IOSB (Condition)
	    INTEGER*2 EVD$W_TRANS_CNT		 ! Second word of the IOSB (Transfer count)
	    INTEGER*4 EVD$L_INFO			 ! Second long od the IOSB (Information)	
	    INTEGER*4 EVD$L_MBX_CHANNEL		 ! Mailbox channel number
	    BYTE      EVD$B_BUF			 ! First byte of data
	END STRUCTURE	! NET$RELAY_QIO_BUF
 ! +                                                                                 
 !    Definition of the Mailbox messages 
 ! -
	STRUCTURE /NET$RELAY_MBX_BUF/
	    INTEGER*2 EVD$W_MSGTYPE			 ! Mailbox message type
	    INTEGER*2 EVD$W_UNIT			 ! Mailbox unit number
	    INTEGER*4 EVD$L_NAME			 ! Device name
	    BYTE      EVD$B_INFO_SZ			 ! NCB size
	    BYTE      EVD$B_INFO			 ! First byte of the NCB
	END STRUCTURE	! NET$RELAY_MBX_BUF
 ! +
 !  LEVTDEF - Local Event Record data structure
 ! 
 ! 	Definition of the data structure used to record local event 
 !       information.
 ! -
	PARAMETER LEVT$K_LENGTH = '0000004A'X	 !  Size of Event
	STRUCTURE /NET$localeventreport/
	    INTEGER*2 LEVT$W_EVENTTYPELEN
	    INTEGER*2 LEVT$W_EVENTTYPETAG
	    INTEGER*4 LEVT$L_EVENTTYPE
	    INTEGER*2 LEVT$W_ENTITYUIDLEN
	    INTEGER*2 LEVT$W_ENTITYUIDTAG
	    INTEGER*4 LEVT$O_ENTITYUID(4)
	    INTEGER*2 LEVT$W_EVENTTIMELEN
	    INTEGER*2 LEVT$W_EVENTTIMETAG
	    INTEGER*4 LEVT$O_EVENTTIME(4)
	    INTEGER*2 LEVT$W_EVENTUIDLEN
	    INTEGER*2 LEVT$W_EVENTUIDTAG
	    INTEGER*4 LEVT$O_EVENTUID(4)
	    INTEGER*2 LEVT$W_ENTITYNAMELEN
	    INTEGER*2 LEVT$W_ENTITYNAMETAG
	    INTEGER*2 LEVT$W_ENTITYNAME
	END STRUCTURE	! NET$localeventreport
 ! +
 !  EVTDEF - Event Record data structure
 ! 
 ! 	Definition of the data structure used to record local event 
 !       information.
 ! -
	PARAMETER EVT$M_DEALLOCATE = '00000001'X
	PARAMETER EVT$K_EVENTREPORTHDR = '00000018'X  !  Size of Event Report Header
	PARAMETER EVT$K_GLOBALEVENTREPORTHDR = '0000002C'X  !  Size of Event Report Header
	PARAMETER EVT$K_LENGTH = '00000074'X	 !  Size of fixed event portion Event
	STRUCTURE /NET$eventreport/
	    INTEGER*4 EVT$L_FLINK			 !  forward link
	    INTEGER*4 EVT$L_BLINK			 !  backward link
	    INTEGER*2 EVT$W_LENGTH			 !  structure length
	    BYTE      EVT$B_TYPE			 !  DYN$C_DECNET	
	    BYTE      EVT$B_SUBTYPE			 !  DYN$C_EVD_EVT
	    INTEGER*2 EVT$W_ACCESS_COUNT		 !  Access Count (Interlocked)
	    UNION
	        MAP
	        INTEGER*2 EVT$W_FLAGWORD
	        END MAP
	        MAP
	            PARAMETER EVT$S_DEALLOCATE = 1
	            PARAMETER EVT$V_DEALLOCATE = 0
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 EVT$W_EBCNT			 !  Block Count Charged  
	    INTEGER*2 EVT$W_RESERVED		 !  Reserved for future use
	    INTEGER*2 EVT$W_EVENTLENGTH		 !  Total Size of Event
	    INTEGER*2 EVT$W_USERPROTOCOL		 !  User Protocol Header
	        INTEGER*2 EVT$W_STREAMUIDLEN
	        INTEGER*2 EVT$W_STREAMUIDTAG
	        CHARACTER*16 EVT$G_STREAMUID		 !  Outbound Stream Uid
	        INTEGER*2 EVT$W_EVENTTYPELEN
	        INTEGER*2 EVT$W_EVENTTYPETAG
	        INTEGER*4 EVT$L_EVENTTYPE
	        INTEGER*2 EVT$W_ENTITYUIDLEN
	        INTEGER*2 EVT$W_ENTITYUIDTAG
	        CHARACTER*16 EVT$G_ENTITYUID
	        INTEGER*2 EVT$W_EVENTTIMELEN
	        INTEGER*2 EVT$W_EVENTTIMETAG
	        CHARACTER*16 EVT$G_EVENTTIME
	        INTEGER*2 EVT$W_EVENTUIDLEN
	        INTEGER*2 EVT$W_EVENTUIDTAG
	        CHARACTER*16 EVT$G_EVENTUID
	        INTEGER*2 EVT$W_ENTITYNAMELEN
	        INTEGER*2 EVT$W_ENTITYNAMETAG
	    INTEGER*2 EVT$W_ENTITYNAME
	END STRUCTURE	! NET$eventreport
 ! 
 !  Event structure for an EVD lost events message.
 ! 
	PARAMETER PELE$M_DEALLOCATE = '00000001'X
	PARAMETER PELE$K_EVENTREPORTHDR = '00000018'X  !  Size of Event Report Header
	PARAMETER PELE$K_GLOBALEVENTREPORTHDR = '0000002C'X  !  Size of Event Report Header
	PARAMETER PELE$K_LENGTH = '0000008C'X	 !  Size of Event 
	STRUCTURE /NET$PELost/
	    INTEGER*4 PELE$L_FLINK			 !  forward link
	    INTEGER*4 PELE$L_BLINK			 !  backward link
	    INTEGER*2 PELE$W_LENGTH			 !  structure length
	    BYTE      PELE$B_TYPE			 !  DYN$C_NET	
	    BYTE      PELE$B_SUBTYPE		 !  DYN$C_EVD_EVT
	    INTEGER*2 PELE$W_ACCESS_COUNT		 !  Access Count (Interlocked)
	    UNION
	        MAP
	        INTEGER*2 PELE$W_FLAGWORD
	        END MAP
	        MAP
	            PARAMETER PELE$S_DEALLOCATE = 1
	            PARAMETER PELE$V_DEALLOCATE = 0
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 PELE$W_EBCNT			 !  Block Count Charged  
	    INTEGER*2 PELE$W_RESERVED		 !  Reserved for future use
	    INTEGER*2 PELE$W_EVENTLENGTH		 !  Total Size of Event
	    INTEGER*2 PELE$W_USERPROTOCOL		 !  User Protocol Header
	        INTEGER*2 PELE$W_STREAMUIDLEN
	        INTEGER*2 PELE$W_STREAMUIDTAG
	        CHARACTER*16 PELE$G_STREAMUID		 !  Outbound Stream Uid
	    INTEGER*2 PELE$W_EVENTTYPELEN
	    INTEGER*2 PELE$W_EVENTTYPETAG
	    INTEGER*4 PELE$L_EVENTTYPE
	    INTEGER*2 PELE$W_ENTITYUIDLEN
	    INTEGER*2 PELE$W_ENTITYUIDTAG
	    CHARACTER*16 PELE$G_ENTITYUID
	    INTEGER*2 PELE$W_EVENTTIMELEN
	    INTEGER*2 PELE$W_EVENTTIMETAG
	    CHARACTER*16 PELE$G_EVENTTIME
	    INTEGER*2 PELE$W_EVENTUIDLEN
	    INTEGER*2 PELE$W_EVENTUIDTAG
	    CHARACTER*16 PELE$G_EVENTUID
	    INTEGER*2 PELE$W_ENTITYNAMELEN
	    INTEGER*2 PELE$W_ENTITYNAMETAG
	    INTEGER*2 PELE$W_ENTITYCLASSLEN
	    INTEGER*2 PELE$W_ENTITYCLASSTAG
	    INTEGER*4 PELE$L_ENTITYCLASS
	    INTEGER*2 PELE$W_ENTITYINSTLEN
	    INTEGER*2 PELE$W_ENTITYINSTTAG
	    INTEGER*2 PELE$W_EVENTARGLEN
	    INTEGER*2 PELE$W_EVENTARGTAG
	    INTEGER*2 PELE$W_NUMBERLEN
	    INTEGER*2 PELE$W_NUMBERTAG
	    INTEGER*4 PELE$L_NUMBER
	END STRUCTURE	! NET$PELost
 !  Task Suspension status codes
	PARAMETER EVD$K_SUSPENSION_NORMAL = '00000001'X  !  Normal Task Suspension
	PARAMETER EVD$K_SUSPENSION_NOVM = '00000002'X  !  No Virtual Memory Available
	PARAMETER EVD$K_SUSPENSION_NOQENTRY = '00000003'X  !  No Queue Entry Available
 !  Task Suspension status
	PARAMETER EVD$K_SIGNAL_DELETETASK = '00000001'X  !  Delete Task
	PARAMETER EVD$K_SIGNAL_QUEUEDEVENT = '00000002'X  !  Event Queued to Task
	PARAMETER EVENT$K_MAXSEVENT = '0000000A'X
	PARAMETER EVENT$K_MAXGEVENT = '0000000A'X
	STRUCTURE /NET$SFiltrElmt/
	    INTEGER*4 SFILTERELEMENT$L_TYPETAG	 !  Element type tag class
	    BYTE      SFILTERELEMENT$B_EVENTS(1:10)	 !  Events associated with this
 !  instance. Pass, Block,
 !  and Ignore are the only
 !  legitimate values for events.
	END STRUCTURE	! NET$SFiltrElmt
	STRUCTURE /NET$SFilter/
	    INTEGER*4 SFILTER$A_FCHILD		 !  F link to next level of class or instance
	    INTEGER*4 SFILTER$A_BCHILD		 !  B link to last level of class or instance
	    INTEGER*2 SFILTER$W_SIZE		 !  Size of Specific Filter tree element
	    BYTE      SFILTER$B_TYPE		 !  Type of structure DYN$C_NET
	    BYTE      SFILTER$B_SUBTYPE		 !  SubType of stucture DYN$C_SPECIFIC_FILTER
	    CHARACTER*402 SFILTER$g_ENTITY
	    CHARACTER*14 SFILTER$g_FITEM
	    INTEGER*4 SFILTER$A_FPEERS		 !  F link to peer class or instance
	    INTEGER*4 SFILTER$A_BPEERS		 !  B link to peer class or instance
	END STRUCTURE	! NET$SFilter
	STRUCTURE /NET$GFiltrElmt/
	    INTEGER*4 GfilterElement$L_TypeTag	 !  Element type tag class
	    INTEGER*4 GfilterElement$L_Entity	 !  Entity class number
	    BYTE      GfilterElement$B_Events(1:10)	 !  Events associated with this
 !  instance. Pass, Block,
 !  and Ignore are the only
 !  legitimate values for events.
	END STRUCTURE	! NET$GFiltrElmt
	STRUCTURE /NET$GFilter/
	    INTEGER*4 GFilter$a_fChild		 !  F link to next level of class
	    INTEGER*4 GFilter$a_bChild		 !  B link to last level of class
	    INTEGER*2 GFilter$W_Size		 !  Size of Global Filter tree element
	    BYTE      GFilter$B_Type		 !  Type of structure DYN$C_NET
	    BYTE      GFilter$B_SubType		 !  SubType of stucture DYN$C_GLOBAL_FILTER
	    CHARACTER*18 GFilter$g_Fitem
	    INTEGER*4 GFilter$a_fPeers		 !  F link to peer class
	    INTEGER*4 GFilter$a_bPeers		 !  B link to peer class
	END STRUCTURE	! NET$GFilter
 !  Filter Type Codes
	PARAMETER FILTERTYPE$K_SPECIFIC = '00000001'X  !  Specific Filter Match
	PARAMETER FILTERTYPE$K_GLOBAL = '00000002'X  !  Global Filter Match
	PARAMETER FILTERTYPE$K_CATCHALL = '00000004'X  !  CatchAll Filter Match
 !  Filter Action Codes
	PARAMETER FILTERACTION$K_IGNORE = '00000001'X  !  Ignore Event
	PARAMETER FILTERACTION$K_PASS = '00000002'X  !  Pass Event
	PARAMETER FILTERACTION$K_BLOCK = '00000003'X  !  Block Event
 !  Search State Codes
	PARAMETER SEARCHSTATE$K_ANCESTOR = '00000001'X  !  Ancestor Matches
	PARAMETER SEARCHSTATE$K_PARENT = '00000002'X  !  Parent Matches
	PARAMETER SEARCHSTATE$K_SIBLING = '00000003'X  !  Sibling Matches
	PARAMETER SEARCHSTATE$K_SELF = '00000004'X  !  Self Match
	PARAMETER EVD$K_READY = '00000001'X	 !  Able to accept next request Event 
	PARAMETER EVD$K_INITIALIZE_USER = '00000002'X  !  User Client Initialization 
	PARAMETER EVD$K_REQUEST_EVENT = '00000003'X  !  User Client is ready for an Event
	PARAMETER EVD$K_PROTOCOL_ERROR = '00000004'X  !  Unexpected Packet Type
	PARAMETER EVD$K_EVENT_PACKET = '00000005'X  !  Contains Formatted/Unformatted Event Record
	PARAMETER EVD$K_USER_SHUTDOWN = '00000006'X  !  User Client Shutdown
	PARAMETER EVD$K_CLIENT_BUSY = '00000007'X  !  User Client Cannot process request
	PARAMETER EVD$K_CLIENT_RESERVED = '00000008'X
	PARAMETER EVD$M_CLIENT_FORMATTED = '00000100'X
	PARAMETER EVD$M_CLIENT_UID = '00000200'X
	PARAMETER EVD$M_CLIENT_LASTLINE = '00000400'X
	STRUCTURE /NET$UserClientProtocol/
	        PARAMETER EVD$S_PACKET_TYPE_LOWBYTE = 8
	        PARAMETER EVD$V_PACKET_TYPE_LOWBYTE = 0
 !  User Client Protocol Types
	        PARAMETER EVD$S_CLIENT_FORMATTED = 1
	        PARAMETER EVD$V_CLIENT_FORMATTED = 8
	        PARAMETER EVD$S_CLIENT_UID = 1
	        PARAMETER EVD$V_CLIENT_UID = 9
	        PARAMETER EVD$S_CLIENT_LASTLINE = 1
	        PARAMETER EVD$V_CLIENT_LASTLINE = 10
	BYTE %FILL (2)
	END STRUCTURE	! NET$UserClientProtocol
 !  EVD service external data structure

!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:42 by OpenVMS SDL EV3-3      
!  Source:  26-MAY-1994 18:29:48 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.SRC]NET_IPC_S= 
! ********************************************************************************************************************************
 
!*** MODULE $IPCBDEF IDENT X-3 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !   IPC Function code constants.
 ! 
 !   NOTE:  All new function codes should be added at the end of the
 !          list to insure backward compatibility.
 ! 
	PARAMETER IPC$K_FC_NOP = '00000000'X	 !  Null Operation 
 !  Association Services
	PARAMETER IPC$K_FC_OPEN_ASSOCIATION = '00000001'X  !  Open Association
	PARAMETER IPC$K_FC_SHUT_ASSOCIATION = '00000002'X  !  Shut Association
	PARAMETER IPC$K_FC_CLOSE_ASSOCIATION = '00000003'X  !  Close Association
 !  Connection Services
	PARAMETER IPC$K_FC_CONNECT_INITIATE = '00000004'X  !  Connect Initiate
	PARAMETER IPC$K_FC_GET_CONNECTION = '00000005'X  !  Get Connection
	PARAMETER IPC$K_FC_CONNECT_HANDOFF = '00000006'X  !  Connection Handoff
	PARAMETER IPC$K_FC_CONNECT_ACCEPT = '00000007'X  !  Accept Connection
	PARAMETER IPC$K_FC_CONNECT_REJECT = '00000008'X  !  Reject Connection
	PARAMETER IPC$K_FC_DISCONNECT_CONNECTION = '00000009'X  !  Disconnect Connection
	PARAMETER IPC$K_FC_ABORT_CONNECTION = '0000000A'X  !  Abort Connection
 !  Data Transfer Services
	PARAMETER IPC$K_FC_TRANSMIT = '0000000B'X  !  Transmit Data
	PARAMETER IPC$K_FC_RECEIVE = '0000000C'X  !  Receive Data
 !  General Services
	PARAMETER IPC$K_FC_RESOLVE_NAME = '0000000D'X  !  Resolve Name
	PARAMETER IPC$K_FC_GET_PORT_INFORMATION = '0000000E'X  !  Get information on current port
	PARAMETER IPC$K_FC_ENUMERATE_LOCAL_TOWERS = '0000000F'X  !  Get supported local towers
	PARAMETER IPC$K_FC_BACKTRANSLATE_ADDRESS = '00000010'X  !  Back Translate address to name
	PARAMETER IPC$K_FC_REGISTER_OBJECT = '00000011'X  !  Register Object
	PARAMETER IPC$K_FC_DEREGISTER_OBJECT = '00000012'X  !  Deregister Object
 !  CTI only function codes - Return Unsupported in IPC
	PARAMETER IPC$K_FC_TRANSCEIVE = '00000013'X  !  Transmit/receive (RR)
	PARAMETER IPC$K_FC_REPLY = '00000014'X	 !  Reply (RR)
	PARAMETER IPC$K_FC_GET_BUFFER = '00000015'X  !  Get Buffer
	PARAMETER IPC$K_FC_FREE_BUFFER = '00000016'X  !  Free Buffer
	PARAMETER IPC$K_FC_INCOMING_CONNECT = '00000017'X  !  Incoming Connect
	PARAMETER IPC$K_FC_INCOMING_DISCONNECT = '00000018'X  !  Incoming Disconnect
	PARAMETER IPC$K_FC_INCOMING_EXPEDITED = '00000019'X  !  Incoming Expedited Data
 !  Event Services
	PARAMETER IPC$K_FC_RECEIVE_EVENT = '0000001A'X  !  Receive Event notification
 !  Verification Services
	PARAMETER IPC$K_FC_VERIFY_NODENAME = '0000001B'X  !  NodeName Verification 
 !  Declare Server Services
	PARAMETER IPC$K_FC_DECLARE_SERVER = '0000001C'X  !   Declare Server
 !  Backtranslate function
	PARAMETER IPC$K_FC_BACKTRANSLATE = '0000001D'X
 !  Parsenodename function
	PARAMETER IPC$K_FC_PARSE_NODENAME = '0000001E'X
 !  CDI functions
	PARAMETER IPC$K_FC_CDIFlushCache = '0000001F'X
	PARAMETER IPC$K_FC_CDIInitialize = '00000020'X
	PARAMETER IPC$K_FC_CDISetSearchPath = '00000021'X
 !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED6 = '00000022'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED7 = '00000023'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED8 = '00000024'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED9 = '00000025'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED10 = '00000026'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED11 = '00000027'X  !  Reserved for future use
	PARAMETER IPC$K_FC_RESERVED12 = '00000028'X  !  Reserved for future use
 !  Maximum function implemented
	PARAMETER IPC$K_FC_MAXIMUM = '00000029'X
 ! 
 !   Inter-Process Communication Block (IPCB)
 ! 
	PARAMETER IPCB$M_FLAGS_MULT = '00000001'X
	PARAMETER IPCB$M_FLAGS_EXPEDITED = '00000002'X
	PARAMETER IPCB$M_FLAGS_SYNC = '00000004'X
	PARAMETER IPCB$M_FLAGS_NOPROXY = '00000008'X
	PARAMETER IPCB$M_FLAGS_NOAUTHENTICATE = '00000010'X
	PARAMETER IPCB$M_FLAGS_AUTODISCONNECT = '00000020'X
	PARAMETER IPCB$M_FLAGS_NOVERIFY_NODENAME = '00000040'X
	PARAMETER IPCB$M_FLAGS_NOAUTOTPSELECT = '00000080'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED9 = '00000100'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED10 = '00000200'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED11 = '00000400'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED12 = '00000800'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED13 = '00001000'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED14 = '00002000'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED15 = '00004000'X
	PARAMETER IPCB$M_FLAGS_IPC_RESERVED16 = '00008000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED17 = '00010000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED18 = '00020000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED19 = '00040000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED20 = '00080000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED21 = '00100000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED22 = '00200000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED23 = '00400000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED24 = '00800000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED25 = '01000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED26 = '02000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED27 = '04000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED28 = '08000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED29 = '10000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED30 = '20000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED31 = '40000000'X
	PARAMETER IPCB$M_FLAGS_SSRV_RESERVED32 = '80000000'X
	PARAMETER IPCB$K_DTXLENGTH = '00000038'X  !  Data Transfer Request Length
	PARAMETER IPCB$K_LENGTH = '00000066'X	 !  KEEP THIS LAST PLEASE!
	STRUCTURE /NET$IPCBDEF/
	    INTEGER*4 IPCB$L_STATUS			 !  Completion status of request
	    INTEGER*4 IPCB$L_STATUS1		 !  Function specific additional information
	    UNION
	        MAP
	        INTEGER*4 IPCB$L_FLAGS			 !  Function Flags
	        END MAP
	        MAP
	            PARAMETER IPCB$S_FLAGS_MULT = 1
	            PARAMETER IPCB$V_FLAGS_MULT = 0		 !  This is a single segment of a larger message
	            PARAMETER IPCB$S_FLAGS_EXPEDITED = 1
	            PARAMETER IPCB$V_FLAGS_EXPEDITED = 1	 !  Send/Receive Expedited Data
	            PARAMETER IPCB$S_FLAGS_SYNC = 1
	            PARAMETER IPCB$V_FLAGS_SYNC = 2		 !  Allow IPC to return a synchronous completion if po
	            PARAMETER IPCB$S_FLAGS_NOPROXY = 1
	            PARAMETER IPCB$V_FLAGS_NOPROXY = 3	 !  Override Session outgoing proxy characteristics
	            PARAMETER IPCB$S_FLAGS_NOAUTHENTICATE = 1
	            PARAMETER IPCB$V_FLAGS_NOAUTHENTICATE = 4  !  Bypass all user authentication on incomin
 !   and allow anyone to connect to this server.
	            PARAMETER IPCB$S_FLAGS_AUTODISCONNECT = 1
	            PARAMETER IPCB$V_FLAGS_AUTODISCONNECT = 5  !  Allow transport to automatically disconne
 !   the connection
	            PARAMETER IPCB$S_FLAGS_NOVERIFY_NODENAME = 1
	            PARAMETER IPCB$V_FLAGS_NOVERIFY_NODENAME = 6  !  Do not Verify Received Node Name on In
	            PARAMETER IPCB$S_FLAGS_NOAUTOTPSELECT = 1
	            PARAMETER IPCB$V_FLAGS_NOAUTOTPSELECT = 7  !  Bypass Session selection of optimum trans
 !   for connection.
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED9 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED9 = 8  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED10 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED10 = 9  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED11 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED11 = 10  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED12 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED12 = 11  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED13 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED13 = 12  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED14 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED14 = 13  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED15 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED15 = 14  !  Reserved for use by $IPC system service
	            PARAMETER IPCB$S_FLAGS_IPC_RESERVED16 = 1
	            PARAMETER IPCB$V_FLAGS_IPC_RESERVED16 = 15  !  Reserved for use by $IPC system service
 ! 
 !  The flags below are used and defined by session services.  Use of these flags is 
 !  prohibited, unless corresponding changes are made in session services.
 ! 
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED17 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED17 = 16  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED18 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED18 = 17  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED19 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED19 = 18  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED20 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED20 = 19  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED21 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED21 = 20  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED22 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED22 = 21  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED23 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED23 = 22  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED24 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED24 = 23  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED25 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED25 = 24  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED26 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED26 = 25  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED27 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED27 = 26  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED28 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED28 = 27  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED29 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED29 = 28  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED30 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED30 = 29  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED31 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED31 = 30  !  Reserved for use by session services
	            PARAMETER IPCB$S_FLAGS_SSRV_RESERVED32 = 1
	            PARAMETER IPCB$V_FLAGS_SSRV_RESERVED32 = 31
	            BYTE %FILL (4)				 !  Reserved for use by session services
	        END MAP
	    END UNION
	    INTEGER*4 IPCB$L_ASSOCIATIONID		 !  Id of the association to which the incoming
 !   connection has been assigned
	    INTEGER*4 IPCB$L_CONNECTIONID		 !  Id assigned by Session to the incoming connection.
 !   This field is only required if multiple connections
 !   were enabled on the Open Association.
	    INTEGER*4 IPCB$L_RET_BUFFER_LENGTH	 !  Returned length of received data.
	    INTEGER*4 IPCB$L_BUFFER_LENGTH		 !  Length of the Transmit/Receive buffer
	    INTEGER*4 IPCB$A_BUFFER			 !  Address of the transmit buffer on a Send or the
 !   Receive buffer on a Receive
	    INTEGER*4 IPCB$L_RQSTID			 !  Request Id., only used for Request/Response Transfers.
	    INTEGER*4 IPCB$L_RET_REPLY_LENGTH	 !  Returned length of the Reply data.
	    INTEGER*4 IPCB$L_REPLY_LENGTH		 !  Length of the Reply buffer, only used for 
 !   Request/Response Transfers.
	    INTEGER*4 IPCB$A_REPLY_BUFFER		 !  Address of the Reply buffer, only used for
 !  Request/Response Transfers.
	    INTEGER*4 IPCB$L_ASSOCIATION_CONTEXT	 !  User Specified Association Context
	    INTEGER*4 IPCB$L_CONNECTION_CONTEXT	 !  User Specified Connection Context
	    CHARACTER*16 IPCB$T_RESERVED		 !  Reserved for future use
	    INTEGER*4 IPCB$L_EVENT_TYPE		 !  Incoming event function code
	    UNION
	        MAP
	        INTEGER*4 IPCB$Q_INPUTLST_DESC(2)	 !  Input Item List Descriptor
	        END MAP
	        MAP
	            INTEGER*2 IPCB$W_INPUTLST_LENGTH	 !  Size of Input Itemlist
	            INTEGER*2 IPCB$W_RESERVED1		 !  Reserved
	            INTEGER*4 IPCB$A_INPUTLST_POINTER	 !  Address of Input Item List.
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 IPCB$Q_TEMPLATELST_DESC(2)	 !  TEMPLATE Item List Descriptor
	        END MAP
	        MAP
	            INTEGER*2 IPCB$W_TEMPLATELST_LENGTH	 !  Size of TEMPLATE Itemlist
	            INTEGER*2 IPCB$W_RESERVED2		 !  Reserved
	            INTEGER*4 IPCB$A_TEMPLATELST_POINTER	 !  Address of TEMPLATE Item List.
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 IPCB$Q_OUTPUTLST_DESC(2)	 !  OUTPUT Item List Descriptor
	        END MAP
	        MAP
	            INTEGER*2 IPCB$W_OUTPUTLST_LENGTH	 !  Size of OUTPUT Itemlist
	            INTEGER*2 IPCB$W_RESERVED3		 !  Reserved
	            INTEGER*4 IPCB$A_OUTPUTLST_POINTER	 !  Address of OUTPUT Item List.
	        END MAP
	    END UNION
	    INTEGER*2 IPCB$W_RET_OUTPUTLST_LENGTH	 !  Length data returned in output itemlist.
	END STRUCTURE	! NET$IPCBDEF
!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:45 by OpenVMS SDL EV3-3      
!  Source:  09-OCT-2008 16:37:07 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.SRC]NET_ITEMLG 
! ********************************************************************************************************************************
 
!*** MODULE $NETITEMDEF IDENT X-8 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !   Network itemlist tags
 ! 
 ! 
 !  IPC defined Itemlist codes
 ! 
	PARAMETER NET$K_TAG_FIRSTTAG = '00000001'X  !  THIS TAG MUST BE FIRST
	PARAMETER NET$K_TAG_ADDRESS = '00000002'X  !  Address tower defining complete destination protocol
 !   tower
	PARAMETER NET$K_TAG_AUTODISCONNECT = '00000003'X  !  Notify Transport that a disconnect is to be au
 !   generated if the remote connection disconnects
	PARAMETER NET$K_TAG_CLIENTNAME = '00000004'X  !  Character string client name associated with a con
 !  for network management purposes
	PARAMETER NET$K_TAG_CONNECTDATA = '00000005'X  !  Data to be sent with transport connect message
	PARAMETER NET$K_TAG_CONNECTIONCOUNT = '00000006'X  !  Number of simultaneous connections to be acce
					!  Number of simultaneous connections to be accepted (longword
	PARAMETER NET$K_TAG_CONNECTIONTYPE = '00000007'X  !  Types of connections to accept (longword of fl
	PARAMETER NET$K_TAG_DESTINATIONACCOUNT = '00000008'X  !  Destination account, used for access verif
					!  Destination account, used for access verification (Char str
	PARAMETER NET$K_TAG_DESTINATIONADDRESS = '00000009'X  !  Destination NSAP 
	PARAMETER NET$K_TAG_DESTINATIONPASSWORD = '0000000A'X  !  Access verification password  (Char string)
	PARAMETER NET$K_TAG_DESTINATIONUSER = '0000000B'X  !  Destination User name (Char string)
	PARAMETER NET$K_TAG_DESTTOWERSET = '0000000C'X  !  Tower structure defining the destination protoco
					!  Tower structure defining the destination protocol elements 
 !   supported at source and destination nodes (DNA$Towers)
	PARAMETER NET$K_TAG_DIRECTION = '0000000D'X  !  Indicates whether connection is ingoing or outgoing
					!  Indicates whether connection is ingoing or outgoing (longwo
	PARAMETER NET$K_TAG_DISCONNECTDATA = '0000000E'X  !  Disconnect data received or sent by Transport 
					!  Disconnect data received or sent by Transport (octet string
	PARAMETER NET$K_TAG_DNSOBJECTNAME = '0000000F'X  !  DNS fullname in external format for a DNS appli
					!  DNS fullname in external format for a DNS application objec
	PARAMETER NET$K_TAG_ENDUSERID_NAME = '00000010'X  !  DNS Fullname in internal format - id of target
	PARAMETER NET$K_TAG_ENDUSERID_NUMBER = '00000011'X  !  Numeric id of target application (Phase IV o
					!  Numeric id of target application (Phase IV object number) (
	PARAMETER NET$K_TAG_ENDUSERID_TASK = '00000012'X  !  String id of the target application (Phase IV 
 !   name. (char string)
	PARAMETER NET$K_TAG_EXPEDITEDDATA = '00000013'X  !  Expedited data tag (tranport specific)
	PARAMETER NET$K_TAG_HANDOFFTIMER = '00000014'X  !  Longword timer value in units of seconds (longwo
	PARAMETER NET$K_TAG_IV_ADDRESS = '00000015'X  !  Phase IV network address (word)
	PARAMETER NET$K_TAG_LOCALTSEL = '00000016'X  !  Local node Transport Selector (TSAP)
	PARAMETER NET$K_TAG_NODENAME = '00000017'X  !  DECnet Nodename in external format (Phase IV or Phas
	PARAMETER NET$K_TAG_NODENAME_IV = '00000018'X  !  Phase IV 6 character node alias name (char string)
	PARAMETER NET$K_TAG_PID = '00000019'X	 !  EPID Of process (longword)
	PARAMETER NET$K_TAG_REASON = '0000001A'X  !  Disconnect Reason Code (defined in DNA Architecture)
	PARAMETER NET$K_TAG_REMOTETSEL = '0000001B'X  !  Remote Node Transport Selector (TSAP)
	PARAMETER NET$K_TAG_SCLFLAGS = '0000001C'X  !  Session VCI port flags
	PARAMETER NET$K_TAG_SERVICE = '0000001D'X  !  Type of service requested (longword of flags)
	PARAMETER NET$K_TAG_SERVERCOUNT = '0000001E'X  !  Number of simultaneous server processes to be act
					!  Number of simultaneous server processes to be active (longw
	PARAMETER NET$K_TAG_SOURCEADDRESS = '0000001F'X  !  Local Node NSAP
	PARAMETER NET$K_TAG_SOURCETOWER = '00000020'X  !  Source Protocol tower specifiying protocol elemen
					!  Source Protocol tower specifiying protocol elements of sour
	PARAMETER NET$K_TAG_SOURCETOWERSET = '00000021'X  !  Tower set describing source protocol elements 
 !   supported at source and target nodes (DNA$Towers)
	PARAMETER NET$K_TAG_TEMPLATE = '00000022'X  !  Id of OSI management template to be used
	PARAMETER NET$K_TAG_TPAPPLICATION = '00000023'X  !  Transport Application (?)
	PARAMETER NET$K_TAG_TPCHARACTERISTICS = '00000024'X  !  Transport Specific Characteristics
	PARAMETER NET$K_TAG_UID = '00000025'X	 !  Name space UID (Hex data - UID format)
	PARAMETER NET$K_TAG_USERDATA = '00000026'X  !  User data to be transmitted with connection request 
					!  User data to be transmitted with connection request (Hex da
	PARAMETER NET$K_TAG_USERNAME = '00000027'X  !  User name to be sent for proxy (not for $IPC user)
	PARAMETER NET$K_TAG_USERTOWER = '00000028'X  !  Address tower structure indicating protocol element
					!  Address tower structure indicating protocol elements to be 
 !   above session
 ! ++
 !  NOTE:
 ! 		The following tags are not supported in this version of
 ! 		IPC.
 ! 
	PARAMETER NET$K_TAG_EVENTROUTINE = '00000029'X  !  Address of event routine to be called
	PARAMETER NET$K_TAG_MAXBUFCOUNT = '0000002A'X  !  Maximum number of outstanding buffers
	PARAMETER NET$K_TAG_RECBUFSIZE = '0000002B'X  !  Maximum receive buffer size
	PARAMETER NET$K_TAG_XMTBUFSIZE = '0000002C'X  !  Maximum transmit buffer size
	PARAMETER NET$K_TAG_EVENTMASK = '0000002D'X  !  Event mask for use with the event
 !  routine
	PARAMETER NET$K_TAG_TRANSPORT = '0000002E'X  !  Transport that a connection came in over.
 !  END Unsupported tags.
 ! --
	PARAMETER NET$K_TAG_REQUESTPROXY = '0000002F'X  !  Proxy Requested flag
	PARAMETER NET$K_TAG_SERVERDATA = '00000030'X  !  Server data 
	PARAMETER NET$K_TAG_SERVERDATA_SIZE = '00000031'X  !  Server data size 
	PARAMETER NET$K_TAG_SOURCENUMBER = '00000032'X  !  Source User Application number (byte)
	PARAMETER NET$K_TAG_SOURCENAME = '00000033'X  !  Source User Full name (Internal name)
	PARAMETER NET$K_TAG_SOURCEUIC = '00000034'X  !  Source UIC (longword)
	PARAMETER NET$K_TAG_DESTINATIONTOWER = '00000035'X  !  Destination Protocol Tower specifying protoc
					!  Destination Protocol Tower specifying protocol elements of 
	PARAMETER NET$K_TAG_DESTINATIONTOWERSET = '00000036'X  !  Don't use this. Session uses DestTowerSet
	PARAMETER NET$K_TAG_MENUVER = '00000037'X  !  MenuVer field supplied with connect data 
	PARAMETER NET$K_TAG_ADD_INFO = '00000038'X  !  Transport Additional info Disconnect 
	PARAMETER NET$K_TAG_VOTS_DESTADDR_ASCII = '00000039'X  !  VOTS addressing backward compatibility
	PARAMETER NET$K_TAG_VOTS_DESTADDR_HEX = '0000003A'X  !  VOTS addressing backward compatibility
	PARAMETER NET$K_TAG_LOCALENTITYNAME = '0000003B'X  !  Local Entity Name (set)
	PARAMETER NET$K_TAG_NODENAME_INT = '0000003C'X  !  Phase V Nodename in DNS Internal Format (Fullname)
	PARAMETER NET$K_TAG_NODESYNONYM = '0000003D'X  !  DECnet Node Synonym (6 characters or less)
	PARAMETER NET$K_TAG_SOURCEUSER = '0000003E'X  !  Source User name (Char string)
	PARAMETER NET$K_TAG_DNSOBJECTNAME_INT = '0000003F'X  !  DNS Fullname in internal format for a DNS a
					!  DNS Fullname in internal format for a DNS application objec
	PARAMETER NET$K_TAG_PORTNAME = '00000040'X  !  Character string lower port name associated with a c
					!  Character string lower port name associated with a connecti
 !  for network management purposes
	PARAMETER NET$K_TAG_ALIASID = '00000041'X  !  Alias ID number (byte)
	PARAMETER NET$K_TAG_TEMPLATE_TYPE = '00000042'X  !  Transport Template Type
	PARAMETER NET$K_TAG_CONTEXT = '00000043'X  !  Context tag. For mapping to
 !  OSIT$K_ITEM_CONTEXT.
	PARAMETER NET$K_TAG_TRANSPORT_REASON = '00000044'X  !  Transport Specific Disconnect Reason Code 
	PARAMETER NET$K_TAG_COMPRESSEDNAME = '00000045'X  !  Compressed node name
	PARAMETER NET$K_TAG_MOSTSIGNIFICANT = '00000046'X  !  Most significant part of node name
	PARAMETER NET$K_TAG_NETWORKPRIORITY_OUT = '00000047'X  !  Outgoing network priority
	PARAMETER NET$K_TAG_NETWORKPRIORITY_IN = '00000048'X  !  Incoming network priority
	PARAMETER NET$K_TAG_VOTS_SrcAddr_ASCII = '00000049'X  !  VOTS addressing backward compatibility
 !  Used for inbound
	PARAMETER NET$K_TAG_CACHEITEM = '0000004A'X  ! 
	PARAMETER NET$K_TAG_SEARCHPATH = '0000004B'X
	PARAMETER NET$K_TAG_BACKSEARCHPATH = '0000004C'X
	PARAMETER NET$K_TAG_IP_NODENAME = '0000004D'X  !  IP Nodename used for RFC1006
	PARAMETER NET$K_TAG_NAMESERVICE = '0000004E'X
	PARAMETER NET$K_TAG_PORT_FORWARD = '0000004F'X  !  Port for DECnet/IP port forwarding
	PARAMETER NET$K_TAG_LASTTAG = '00000050'X  !  KEEP THIS TAG LAST
 ! 
 !       |-----------------|
 !       | Network Service |<--------- CTI$K_CLNS, CTI$K_CONS, CTI$K_ANY, 
 !       |-----------------|	      CTI$K_RFC1006
 ! 
	PARAMETER NET$K_NETWORKSERVICE_CONS = '00000000'X
	PARAMETER NET$K_NETWORKSERVICE_CLNS = '00000001'X
	PARAMETER NET$K_NETWORKSERVICE_ANY = '00000002'X
	PARAMETER NET$K_NETWORKSERVICE_RFC1006 = '00000003'X
 !  
 !  The items that make up the TPCHARACTERISTICS itemlist set
 !  
	PARAMETER NET$K_TPCHAR_FIRST = '00000001'X
	PARAMETER NET$K_TPCHAR_KEEPALIVE = '00000002'X
	PARAMETER NET$K_TPCHAR_REXMTTHRESH = '00000003'X
	PARAMETER NET$K_TPCHAR_CRTIMEOUT = '00000004'X
	PARAMETER NET$K_TPCHAR_ERTIMEOUT = '00000005'X
	PARAMETER NET$K_TPCHAR_NETWORKSERVICE = '00000006'X
	PARAMETER NET$K_TPCHAR_SECURITY = '00000007'X
	PARAMETER NET$K_TPCHAR_CLASS = '00000008'X
	PARAMETER NET$K_TPCHAR_CHECKSUM = '00000009'X
	PARAMETER NET$K_TPCHAR_MAXNSDU = '0000000A'X
	PARAMETER NET$K_TPCHAR_EXPEDITED = '0000000B'X
	PARAMETER NET$K_TPCHAR_CONSTEMPLATE = '0000000C'X
	PARAMETER NET$K_TPCHAR_INIT_RETRANTIME = '0000000D'X
	PARAMETER NET$K_TPCHAR_LOOPBACK = '0000000E'X
	PARAMETER NET$K_TPCHAR_ACK_DELAY = '0000000F'X
	PARAMETER NET$K_TPCHAR_LOCALNSAP = '00000010'X
	PARAMETER NET$K_TPCHAR_CLNS_INACT_AREA = '00000011'X
	PARAMETER NET$K_TPCHAR_INBOUND = '00000012'X
	PARAMETER NET$K_TPCHAR_CLNS_ERROR_REPORT = '00000013'X
	PARAMETER NET$K_TPCHAR_EXTENDED_FORMAT = '00000014'X
	PARAMETER NET$K_TPCHAR_FLOW_CONTROL = '00000015'X
	PARAMETER NET$K_TPCHAR_SENDIMPLEMENTATION = '00000016'X
	PARAMETER NET$K_TPCHAR_RFC1006_Port = '00000017'X
	PARAMETER NET$K_TPCHAR_LAST = '00000018'X
 ! 
 !   NET$K_TAG_TEMPLATE_TYPE values
 !   
	PARAMETER TEMPLATE$K_TYPE_CONS = '00000000'X
	PARAMETER TEMPLATE$K_TYPE_CLNS = '00000001'X
	PARAMETER TEMPLATE$K_TYPE_RFC1006 = '00000003'X
 ! 
 !   NET$K_TPCHAR_NETWORKSERVICE values
 !  
	PARAMETER NET$M_NETWORKSERVICECONS = '00000001'X
	PARAMETER NET$M_NETWORKSERVICECLNS = '00000002'X
	STRUCTURE /NET$NETSERVICEFLAGS/
	UNION
	    MAP
	    INTEGER*4 NET$L_NETSERVICEBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_NETWORKSERVICECONS = 1
	        PARAMETER NET$V_NETWORKSERVICECONS = 0
	        PARAMETER NET$S_NETWORKSERVICECLNS = 1
	        PARAMETER NET$V_NETWORKSERVICECLNS = 1
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! NET$NETSERVICEFLAGS
 ! 
 !   NET$K_TPCHAR_CLASS values
 !  
	PARAMETER NET$M_CLASS_0 = '00000001'X
	PARAMETER NET$M_CLASS_1 = '00000002'X
	PARAMETER NET$M_CLASS_2 = '00000004'X
	PARAMETER NET$M_CLASS_3 = '00000008'X
	PARAMETER NET$M_CLASS_4 = '00000010'X
	STRUCTURE /NET$CLASSFLAGS/
	UNION
	    MAP
	    INTEGER*4 NET$L_CLASSBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_CLASS_0 = 1
	        PARAMETER NET$V_CLASS_0 = 0
	        PARAMETER NET$S_CLASS_1 = 1
	        PARAMETER NET$V_CLASS_1 = 1
	        PARAMETER NET$S_CLASS_2 = 1
	        PARAMETER NET$V_CLASS_2 = 2
	        PARAMETER NET$S_CLASS_3 = 1
	        PARAMETER NET$V_CLASS_3 = 3
	        PARAMETER NET$S_CLASS_4 = 1
	        PARAMETER NET$V_CLASS_4 = 4
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! NET$CLASSFLAGS
 ! 
 !   NET$K_TAG_CONNECTIONTYPE item 
 ! 
	PARAMETER NET$M_CONNECTIONTYPE_GETALL = '00000001'X
	PARAMETER NET$M_CONNECTIONTYPE_NOREMOTE = '00000002'X
	PARAMETER NET$M_CONNECTIONTYPE_NOHANDOFF = '00000004'X
	STRUCTURE /NET$CONNECTIONTYPEFLAGS/
	UNION
	    MAP
	    INTEGER*4 NET$L_CONNECTIONTYPEBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_CONNECTIONTYPE_GETALL = 1
	        PARAMETER NET$V_CONNECTIONTYPE_GETALL = 0  !  All forms of connections are requested (defau
	        PARAMETER NET$S_CONNECTIONTYPE_NOREMOTE = 1
	        PARAMETER NET$V_CONNECTIONTYPE_NOREMOTE = 1  !  Remote Connections not allowed
	        PARAMETER NET$S_CONNECTIONTYPE_NOHANDOFF = 1
	        PARAMETER NET$V_CONNECTIONTYPE_NOHANDOFF = 2  !  Handed off connections not allowed
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! NET$CONNECTIONTYPEFLAGS
 ! 
 !   NET$K_TAG_SERVICE item 
 !   NOTE: THESE FLAGS MUST REMAIN THE SAME AS THE SCLFLAGS BELOW
 ! 
	PARAMETER NET$M_SERVICE_DNASESSION = '00000001'X
	PARAMETER NET$M_SERVICE_MINIMUM = '00000002'X
	STRUCTURE /NET$SERVICEFLAGS/
	UNION
	    MAP
	    INTEGER*4 NET$L_SERVICEBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_SERVICE_DNASESSION = 1
	        PARAMETER NET$V_SERVICE_DNASESSION = 0	 !  All semantics associated with DNA session should
 !   with this association
	        PARAMETER NET$S_SERVICE_MINIMUM = 1
	        PARAMETER NET$V_SERVICE_MINIMUM = 1	 !  DNA session semantics should be ignored.
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! NET$SERVICEFLAGS
 ! 
 !   NET$K_TAG_SCLFLAGS item 
 !   NOTE: THESE FLAGS MUST REMAIN THE SAME AS THE SERVICE FLAGS ABOVE
 ! 
	PARAMETER NET$M_SCLFLAGS_DNASESSION = '00000001'X
	PARAMETER NET$M_SCLFLAGS_MINIMUM = '00000002'X
	STRUCTURE /NET$SCLBITS/
	UNION
	    MAP
	    INTEGER*4 NET$L_SCLFLAGBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_SCLFLAGS_DNASESSION = 1
	        PARAMETER NET$V_SCLFLAGS_DNASESSION = 0	 !  All semantics associated with DNA session shoul
 !   with this association
	        PARAMETER NET$S_SCLFLAGS_MINIMUM = 1
	        PARAMETER NET$V_SCLFLAGS_MINIMUM = 1	 !  DNA session semantics should be ignored.
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! NET$SCLBITS
 ! 
 !   NET$K_TAG_EVENTMASK values:
 ! 
	PARAMETER NET$M_EVENT_INCOMING = '00000001'X
	PARAMETER NET$M_EVENT_LINK_MSG = '00000002'X
	PARAMETER NET$M_EVENT_EXPEDITED = '00000004'X
	PARAMETER NET$M_EVENT_DATA = '00000008'X
	PARAMETER NET$M_EVENT_MULT = '00000010'X
	PARAMETER NET$M_EVENT_DISCONNECTS = '00000020'X
	STRUCTURE /EVENTBITS/
	UNION
	    MAP
	    INTEGER*4 NET$L_EVENTFLAGBITS
	    END MAP
	    MAP
	        PARAMETER NET$S_EVENT_INCOMING = 1
	        PARAMETER NET$V_EVENT_INCOMING = 0	 !  Set if incoming
 !  connection events are
 !  enabled
	        PARAMETER NET$S_EVENT_LINK_MSG = 1
	        PARAMETER NET$V_EVENT_LINK_MSG = 1	 !  Set if incoming link
 !  events are enabled
	        PARAMETER NET$S_EVENT_EXPEDITED = 1
	        PARAMETER NET$V_EVENT_EXPEDITED = 2	 !  Set if incoming
 !  expedited events are
 !  enabled
	        PARAMETER NET$S_EVENT_DATA = 1
	        PARAMETER NET$V_EVENT_DATA = 3		 !  Set if data events
 !  are enabled
	        PARAMETER NET$S_EVENT_MULT = 1
	        PARAMETER NET$V_EVENT_MULT = 4		 !  Set if segmented data
 !  events are enabled
	        PARAMETER NET$S_EVENT_DISCONNECTS = 1
	        PARAMETER NET$V_EVENT_DISCONNECTS = 5	 !  Set if incoming
 !  disconnect events are
 !  enabled.
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! EVENTBITS
 ! 
 !  Transport types 
 ! 
	PARAMETER NET$K_LCL = '00000000'X
	PARAMETER NET$K_NSP = '00000001'X
	PARAMETER NET$K_SCS = '00000002'X
	PARAMETER NET$K_OSI = '00000003'X
	PARAMETER NET$K_TCP = '00000004'X
	PARAMETER NET$K_MIN_TRANS = '00000000'X
	PARAMETER NET$K_MAX_TRANS = '00000004'X
!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:47 by OpenVMS SDL EV3-3      
!  Source:  11-MAY-2001 14:38:08 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.SRC]NET_MGMT_? 
! ********************************************************************************************************************************
 
!*** MODULE NCLCMLITEMLIST IDENT X-35 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  The CML IOSB format:
	STRUCTURE /CMLSTATUS/
	    INTEGER*4 CMLSB$L_CALLSTATUS		 !  CML call completion status
	    INTEGER*4 CMLSB$L_RESPONSESTATUS	 !  CMIP response code
	    INTEGER*4 CMLSB$L_RESPONSEDETAIL	 !  CMIP response detail
	END STRUCTURE	! CMLSTATUS
 !  The function codes supported at the CML$Send interface:
	PARAMETER NET$K_CML_FUNCMINIMUM = '00000001'X  !  Minimum function code assigned
	PARAMETER NET$K_CML_FUNCGET = '00000002'X  !  Read attribute values
	PARAMETER NET$K_CML_FUNCSET = '00000003'X  !  Modify attribute values
	PARAMETER NET$K_CML_FUNCADD = '00000004'X  !  Add values to a list
	PARAMETER NET$K_CML_FUNCREMOVE = '00000005'X  !  Remove values from a list
	PARAMETER NET$K_CML_FUNCACTION = '00000006'X  !  Perform some action directive
	PARAMETER NET$K_CML_FUNCCLEAR = '00000007'X  !  Clear values from a list
	PARAMETER NET$K_CML_FUNCMAXIMUM = '00000008'X  !  Maximum function code assigned
 !  The following are all the itemlist tags we should be using at the NCL/CML
 !  and CML/EMAA interface.  Care should be taken to ensure that the tags don't
 !  overlap at any point:
 !  Some datatypes.  When dealing with attributes and their values, the
 !  datatype is usually implied by the attribute number.  In other cases,
 !  the type of a datum is specified by using one of the following definitions
 !  in the item's tag field.  Some of these cases include: Instance name in an
 !  entity/instance specifier, an attribute who's value type is "CML_DTRecord",
 !  and filter operand.
	PARAMETER NET$K_TAG_CML_BOOLEAN = '00000001'X  !  True or false
	PARAMETER NET$K_TAG_CML_UNSIGNEDINT16 = '00000002'X  !  Unsigned 16 bit integer
	PARAMETER NET$K_TAG_CML_UNSIGNEDINT32 = '00000003'X  !  Unsigned 32 bit integer
	PARAMETER NET$K_TAG_CML_UNSIGNEDINT64 = '00000004'X  !  Unsigned 64 bit integer
	PARAMETER NET$K_TAG_CML_SIGNEDINT16 = '00000005'X  !  Signed 16 bit integer
	PARAMETER NET$K_TAG_CML_SIGNEDINT32 = '00000006'X  !  Signed 32 bit integer
	PARAMETER NET$K_TAG_CML_SIGNEDINT64 = '00000007'X  !  Signed 64 bit integer
	PARAMETER NET$K_TAG_CML_OCTET = '00000008'X  !  Unsigned 8 bit integer
	PARAMETER NET$K_TAG_CML_OCTETSTRING = '00000009'X  !  A string of octets
	PARAMETER NET$K_TAG_CML_ENUMERATION = '0000000A'X  !  An enumeration
	PARAMETER NET$K_TAG_CML_NULL = '0000000B'X  !  No value
	PARAMETER NET$K_TAG_CML_NUMERICSTRING = '0000000C'X  !  A numeric Latin1String
	PARAMETER NET$K_TAG_CML_BITSET = '0000000D'X  !  A string of bits
	PARAMETER NET$K_TAG_CML_RECORD = '0000000E'X  !  A sequence of fields
	PARAMETER NET$K_TAG_CML_SEQUENCE = '0000000F'X  !  A sequence of a single type
	PARAMETER NET$K_TAG_CML_CHARABSOLUTETIME = '00000010'X  !  Character absolute time
	PARAMETER NET$K_TAG_CML_BINABSOLUTETIME = '00000011'X  !  Binary absolute time
	PARAMETER NET$K_TAG_CML_CHARRELATIVETIME = '00000012'X  !  Character relative time
	PARAMETER NET$K_TAG_CML_BINRELATIVETIME = '00000013'X  !  Binary relative time
	PARAMETER NET$K_TAG_CML_LATIN1STRING = '00000014'X  !  Generic printable strings
	PARAMETER NET$K_TAG_CML_SET = '00000015'X  !  Set of some datatype
	PARAMETER NET$K_TAG_CML_UNSIGNEDINT8 = '00000016'X  !  Unsigned 8 bit integer
	PARAMETER NET$K_TAG_CML_SIGNEDINT8 = '00000017'X  !  Signed 8 bit integer
	PARAMETER NET$K_TAG_CML_SIMPLENAME = '0000001A'X  !  DNS simple name string
	PARAMETER NET$K_TAG_CML_FULLNAME = '0000001B'X  !  DNS full name string
	PARAMETER NET$K_TAG_CML_UID = '0000001C'X  !  Unique identifier
	PARAMETER NET$K_TAG_CML_KNOWN = '0000001D'X  !  Matches any entity name
	PARAMETER NET$K_TAG_CML_FULLENTITYNAME = '0000001E'X  !  Full entity name
	PARAMETER NET$K_TAG_CML_LOCALENTITYNAME = '0000001F'X  !  Local entity name
	PARAMETER NET$K_TAG_CML_DEFAULT = '00000020'X  !  Default value
	PARAMETER NET$K_TAG_CML_VERSIONNUMBER = '00000021'X  !  Version number
	PARAMETER NET$K_TAG_CML_LANADDRESS = '00000022'X  !  48 bit 802.3 address
	PARAMETER NET$K_TAG_CML_DTEADDRESS = '00000023'X  !  X.25 DTE address
	PARAMETER NET$K_TAG_CML_FILESPECIFICATION = '00000024'X  !  File specification string
	PARAMETER NET$K_TAG_CML_NSAPADDRESS = '00000025'X  !  Complete NSAP address
	PARAMETER NET$K_TAG_CML_NET = '00000026'X  !  Network Entity Title: NSAP minus the last octet
	PARAMETER NET$K_TAG_CML_AREAADDRESS = '00000027'X  !  NSAP minus the last 7 bytes
	PARAMETER NET$K_TAG_CML_COUNTER16 = '00000028'X  !  16 bit counter
	PARAMETER NET$K_TAG_CML_COUNTER32 = '00000029'X  !  32 bit counter
	PARAMETER NET$K_TAG_CML_COUNTER64 = '0000002A'X  !  64 bit counter
	PARAMETER NET$K_TAG_CML_COUNTER = '0000002A'X  !  Generic counter is a 64 bit counter
	PARAMETER NET$K_TAG_CML_ADDRESSPREFIX = '0000002B'X  !  Leading substring of an AreaAddress
	PARAMETER NET$K_TAG_CML_TOWERSET = '0000002C'X  !  A protocol tower set
	PARAMETER NET$K_TAG_CML_ENDUSERSPEC = '0000002D'X  !  An end user specification
	PARAMETER NET$K_TAG_CML_TRANSPORTSELECTOR = '0000002E'X  !  Transport selector byte
	PARAMETER NET$K_TAG_CML_PHASE4NAME = '0000002F'X  !  A Phase IV node name
	PARAMETER NET$K_TAG_CML_PHASE4ADDRESS = '00000030'X  !  A Phase IV 16 bit node number
	PARAMETER NET$K_TAG_CML_IMPLEMENTATION = '00000031'X  !  Software implementation specification
	PARAMETER NET$K_TAG_CML_VERSIONEDITNUMBER = '00000032'X  !  Version number with edit
	PARAMETER NET$K_TAG_CML_COMPONENT = '00000033'X  !  Component name
	PARAMETER NET$K_TAG_CML_DNSUID = '00000034'X  !  DNS unique identifier
	PARAMETER NET$K_TAG_CML_ENTITYCLASS = '00000035'X  !  Identifies the entity's class
	PARAMETER NET$K_TAG_CML_HEXSTRING = '00000036'X  !  A string of hexadecimal digits
	PARAMETER NET$K_TAG_CML_EIB = '00000037'X  !  Entity Information Block
	PARAMETER NET$K_TAG_CML_EAB = '00000038'X  !  Entity Access Block
	PARAMETER NET$K_TAG_CML_ENTITYCLASSEVENT = '00000039'X  !  Event filter entity class/event code
	PARAMETER NET$K_TAG_CML_EVENTCLASS = '00000039'X
	PARAMETER NET$K_TAG_CML_ENTITYINSTEVENT = '0000003A'X  !  Event filter entity instance/event code
	PARAMETER NET$K_TAG_CML_EVENTINSTANCE = '0000003A'X
	PARAMETER NET$K_TAG_CML_SUBRANGE = '0000003B'X  !  Subrange descriptor (internal use only)
	PARAMETER NET$K_TAG_CML_RANGE = '0000003C'X  !  A range of integers
	PARAMETER NET$K_TAG_CML_CMIPMESSAGE = '0000003D'X  !  CMIP message value
	PARAMETER NET$K_TAG_CML_IPADDRESS = '0000003E'X  !  An IP Address
	PARAMETER NET$K_TAG_CML_ID802_SNAP = '0000003F'X  !  sub net access protocol id
	PARAMETER NET$K_TAG_CML_IDENETV2_TYPE = '00000040'X  !  V2 ethernet protocol ID
	PARAMETER NET$K_TAG_CML_FDDITIMER = '00000041'X  !  FDDI timer
	PARAMETER NET$K_CML_MAXIMUMDATATYPE = '00000042'X  !  Maximum datatype
	PARAMETER NET$K_CML_LASTDATATYPE = '000000C8'X  !  The highest data type tag allowed
 !  Some related constants for dealing with the above datatypes:
 !  (These probably won't be around here for too long.  As soon as NCL is 
 !  modified to call the Name Server Clerk to encode/decode FullNames and
 !  SimpleNames, it'll be the clerk's responsibility for worrying about this
 !  sort of thing.)
	PARAMETER NET$K_CML_FULLNAMEMAX = '00000190'X  !  The maximum length of a FullName string
	PARAMETER NET$K_CML_SIMPLENAMEMAX = '000000FF'X  !  The maximum length of a SimpleName string
 !  The tag fields for items found in the InputItemlist, OutputTemplate 
 !  and OutputItemlist itemlists in a CML$ call.  Note that all items in
 !  those itemlists will contain a tag from the following list, but not
 !  necessarily all sub-items in those lists.  (This means that things 
 !  like attribute numbers come from another numbering space, and quite
 !  possibly another universe.)
 !  First, the service interface input and output itemlist tags:
	PARAMETER NET$K_CML_FIRSTSERVICETAG = '000000C9'X
	PARAMETER NET$K_TAG_CML_ADDRESS = '000000C9'X  !  Destination node address
	PARAMETER NET$K_TAG_CML_DESTUSER = '000000CA'X  !  Destination node username
	PARAMETER NET$K_TAG_CML_DESTPASSWORD = '000000CB'X  !  Destination node password string
	PARAMETER NET$K_TAG_CML_DESTACCOUNT = '000000CC'X  !  Destination node account string
	PARAMETER NET$K_TAG_CML_LINKID = '000000CD'X  !  Logical link channel number
	PARAMETER NET$K_TAG_CML_NODENAME = '000000CE'X  !  Destination node name or alias
	PARAMETER NET$K_TAG_CML_USERDATA = '000000CF'X  !  User supplied data on connection
	PARAMETER NET$K_TAG_CML_DESTNODE = '000000D0'X  !  * TEMP * ASCII node name for QIO connect block
	PARAMETER NET$K_TAG_CML_DESTPROXY = '000000D1'X  !  Request remote proxy ?
	PARAMETER NET$K_TAG_CML_DESTTOWER = '000000D2'X  !  Destination tower address string
	PARAMETER NET$K_TAG_CML_MAXIMUMSERVICE = '000000D3'X  !  First free service interface tag
 !  The management directives input and output itemlist tags:
 !  These are for sub item lists tags 
	PARAMETER NET$K_CML_FIRSTMANAGEMENTTAG = '000000DD'X
	PARAMETER NET$K_TAG_CML_ACTION = '000000DD'X  !  Action code longword
	PARAMETER NET$K_TAG_CML_ACTIONARG = '000000DE'X  !  Action argument sub itemlist
	PARAMETER NET$K_TAG_CML_ACTIONRESPONSEARG = '000000DF'X  !  List of action response arguments
	PARAMETER NET$K_TAG_CML_ACTIONRESPONSECOD = '000000E0'X  !  Action response or exception code
	PARAMETER NET$K_TAG_CML_ATTRIBUTEERRORS = '000000E1'X  !  Attribute error sub-itemlist
	PARAMETER NET$K_TAG_CML_ATTRIBUTES = '000000E2'X  !  Attribute sub-itemlist
	PARAMETER NET$K_TAG_CML_DNAGROUPS = '000000E3'X  !  DNA attribute group sub-itemlist
	PARAMETER NET$K_TAG_CML_ENTITYGROUPS = '000000E4'X  !  Entity attribute group sub-itemlist
	PARAMETER NET$K_TAG_CML_ENTITYINSTANCE = '000000E5'X  !  Class/instance pairs of the entity being a
	PARAMETER NET$K_TAG_CML_FILTER = '000000E6'X  !  Filter specification
	PARAMETER NET$K_TAG_CML_INVOKEID = '000000E7'X  !  Per-invokation request handle
	PARAMETER NET$K_TAG_CML_LOCALCONTEXT = '000000E8'X  !  Context pointer for local node operations
	PARAMETER NET$K_TAG_CML_EVENTARG = '000000E9'X
	PARAMETER NET$K_TAG_CML_EVENTTYPE = '000000EA'X
	PARAMETER NET$K_TAG_CML_EVENTUID = '000000EB'X
	PARAMETER NET$K_TAG_CML_STREAMUID = '000000EC'X
	PARAMETER NET$K_TAG_CML_REASONDETAIL = '000000ED'X  !  Eg reason for InvalidFilter, action code
 !  for NoSuchAction, reason for InvalidWildCard
 !  Action result Response code to go with Action response
 !  this is misc place holder.
	PARAMETER NET$K_TAG_CML_EVENTCODE = '000000EE'X  !  Event code
	PARAMETER NET$K_TAG_CML_EVENTDNAGROUP = '000000EF'X  !  Event DNA group code
	PARAMETER NET$K_TAG_CML_EVENTENTITYGROUP = '000000F0'X  !  Event entity specific group code
	PARAMETER NET$K_TAG_CML_MAXIMUMMANAGEMENT = '000000F1'X  !  Highest management tag in use
 !  Management interface tags that overlap data type tags in function (and,
 !  possibly, use):
	PARAMETER NET$K_TAG_CML_TIME = '00000011'X  !  Request completion timestamp
 !  Itemlist tags used at the CML/EMAA interface entry points:
	PARAMETER NET$K_CML_FIRSTEMAATAG = '0000012D'X
	PARAMETER NET$K_TAG_CML_FUNCTION = '0000012D'X  !  Function that needs to be done by EMAA
	PARAMETER NET$K_TAG_CML_COROUTINE = '0000012E'X  !  Call back Routine for EMAA
	PARAMETER NET$K_TAG_CML_CORTNPARAMETER = '0000012F'X  !  Parameter to be supplied by EMAA on a call
	PARAMETER NET$K_TAG_CML_INPIL = '00000130'X  !  EMAA - Input parameter subitem list
	PARAMETER NET$K_TAG_CML_OUTIL = '00000131'X  !  EMAA - Outputparameter subitem list (value = Descri
	PARAMETER NET$K_TAG_CML_TMPIL = '00000132'X  !  EMAA - Template parameter subitem list
	PARAMETER NET$K_TAG_CML_ERRORSTATUS = '00000133'X  !  EMAA - CMIP Specified Error status
	PARAMETER NET$K_TAG_CML_CONTEXT = '00000134'X  !  EMAA's caller context (type of NET$K_CML_Context_?)
	PARAMETER NET$K_TAG_CML_ENTITY = '00000135'X  !  Entity specification for EMAA
	PARAMETER NET$K_TAG_CML_REQUESTSTATUS = '00000136'X  !  generic status of results {success, moreent
					!  generic status of results {success, moreentities,failure,ov
	PARAMETER NET$K_TAG_CML_EMAAHANDLE = '00000137'X  !  EMAA"s handle each request. 
	PARAMETER NET$K_TAG_CML_RESULTIL = '00000138'X  !  The result itemlist containing all results of th
	PARAMETER NET$K_TAG_CML_OVERFLOWLEN = '00000139'X  !  Specified if the status is overflow.  indicat
					!  Specified if the status is overflow.  indicates the size of
	PARAMETER NET$K_TAG_CML_REMOTEUSER = '0000013A'X  !  Source user of the request
	PARAMETER NET$K_TAG_CML_REMOTENODE = '0000013B'X  !  Source node of the request
	PARAMETER NET$K_TAG_CML_EMAACOMMAND = '0000013C'X  !  Send a command to EMAA, not an entity
	PARAMETER NET$K_TAG_CML_BYTLIM = '0000013D'X  !  Byte limit to be used for this request.
	PARAMETER NET$K_TAG_CML_MAXIMUMEMAATAG = '0000013E'X  !  Highest EMAA tag in use
 !  Duplicate management interface tags:
	PARAMETER NET$K_TAG_CML_ATTRIBUTEVALUES = '000000E2'X  !  Attribute values sub-itemlist
	PARAMETER NET$K_TAG_CML_EVENTENTITY = '00000135'X
	PARAMETER NET$K_TAG_CML_ENTITYUID = '0000001C'X
	PARAMETER NET$K_TAG_CML_EVENTTIME = '00000011'X
 ! 
 !  valid values for the NET$K_TAG_CML_EMAACommand TAG
 ! 
	PARAMETER NET$K_TAG_CML_EMAACMDABORT = '00000000'X
	PARAMETER NET$K_TAG_CML_EMAACMDINCRBYTLIM = '00000001'X
 !  Error returns from EMAA and from CML Calls
 !  FOR CONVENIENCE, these are twice the value of the CMIP code for this error
	PARAMETER NET$K_CMLERR_NOSUCHOBJINS = '00000002'X  !  No such object instance (no such entity)
	PARAMETER NET$K_CMLERR_ACCESSDENIED = '00000004'X  !  Access denied
	PARAMETER NET$K_CMLERR_INVALIDFILTER = '00000008'X  !  Invalid filter
	PARAMETER NET$K_CMLERR_NOSUCHATTRID = '0000000A'X  !  No such attribute id
	PARAMETER NET$K_CMLERR_INVALIDATTRVAL = '0000000C'X  !  No such attribute value
	PARAMETER NET$K_CMLERR_GETLIST = '0000000E'X  !  Get list error
	PARAMETER NET$K_CMLERR_SETLIST = '00000010'X  !  Set list error
	PARAMETER NET$K_CMLERR_NOSUCHACTION = '00000012'X  !  No such action
	PARAMETER NET$K_CMLERR_PROCESSFAIL = '00000014'X  !  Process failure
	PARAMETER NET$K_CMLERR_NORESOURCEAVAIL = '0000001A'X  !  No resource available
	PARAMETER NET$K_CMLERR_INVALIDARGVALUE = '0000001E'X  !  Invalid argument value 
	PARAMETER NET$K_CMLERR_DIRECTIVENOTSUPP = '00000040'X  !  Directive not supported
	PARAMETER NET$K_CMLERR_ENTCLSNOTSUPP = '00000042'X  !  Entity class not supported
	PARAMETER NET$K_CMLERR_INVUSEWILDCARD = '00000044'X  !  Invalid use of wild card
	PARAMETER NET$K_CMLERR_NOSUCHARG = '00000046'X  !  No such argument
	PARAMETER NET$K_CMLERR_CONSTRAINTVIOLAT = '00000048'X  !  Constraint violation
	PARAMETER NET$K_CMLERR_WRITEONLYATTR = '0000004A'X  !  Write only attribute
	PARAMETER NET$K_CMLERR_READONLYATTR = '0000004C'X  !  Read only attribute
	PARAMETER NET$K_CMLERR_DUPLICATEATTR = '0000004E'X  !  Duplicate attribute
	PARAMETER NET$K_CMLERR_DUPLICATEARG = '00000050'X  !  Duplicate argument
	PARAMETER NET$K_CMLERR_INVALIDOPER = '00000052'X  !  Invalid operator
	PARAMETER NET$K_CMLERR_REQARGOMITTED = '00000054'X  !  Required argument omitted
	PARAMETER NET$K_CMLERR_FILTERINVACT = '00000056'X  !  Filter invalid for action
	PARAMETER NET$K_CMLERR_LASTNOSUCHOBJINS = '00000058'X  !  Internal EMAA code, indicating last simple
 !  name has been parsed, but we have not found
 !  our entity.
	PARAMETER NET$K_CMLERR_NOMOREOBJINS = '00000058'X  !  Same as LastNoSuchObjIns
	PARAMETER NET$K_CMLERR_ASYNCHNOTCOMPLETE = '0000005A'X
	PARAMETER NET$K_CMLERR_LESSTHAN = '0000005C'X  !  The comparison was less than
	PARAMETER NET$K_CMLERR_GREATERTHAN = '0000005E'X  !  The comparison was greater than
 !  Some response detail values.  Sort of taken from the same numbering space 
 !  as the above CMIP errors, but definitely not reported in the same place.
 !  Those that follow will be reported in the NET$K_Tag_CML_ReasonDetail item:
 !  Response detail for NET$K_CMLerr_InvUseWildCard:
	PARAMETER NET$K_CMLERR_CREATEWITHWILD = '0000005A'X  !  Create with wildcard
	PARAMETER NET$K_CMLERR_INVALIDDIRECTIVE = '0000005C'X  !  Invalid directive
	PARAMETER NET$K_CMLERR_NOTUNIVERSALGROUP = '0000005E'X  !  Not a universal attribute group
	PARAMETER NET$K_CMLERR_WILDCLASS = '00000060'X  !  Filter specified with wildcarded class
	PARAMETER NET$K_CMLERR_NOTATLOWESTLEVEL = '00000062'X  !  Wildcard specified on other than lowest l
					!  Wildcard specified on other than lowest level entity/instan
 ! 
 !  Other error codes that may be returned by EMAA which are NOT CMIP codes (except for Wrong State)
 !  
	PARAMETER NET$K_CMLERR_FAILURE = '00000064'X  !  Operation failure
	PARAMETER NET$K_CMLERR_INVALIDITMLST = '00000066'X  !  Invalid itemlist format
	PARAMETER NET$K_CMLERR_OVERFLOW = '00000068'X  !  Overflow while filling bugffer
	PARAMETER NET$K_CMLERR_WRONGSTATE = '0000006A'X  !  Wrong State			    ****NOTE****This *is* a CMIP 
					!  Wrong State			    ****NOTE****This *is* a CMIP error messag
	PARAMETER NET$K_CMLERR_ENTITYEXISTS = '0000006C'X  !  The entity exists (bad on create)
	PARAMETER NET$K_CMLERR_INVALIDINVOKEID = '0000006E'X  !  Invalid invokation identifier
	PARAMETER NET$K_CMLERR_ENTITYHASCHILD = '00000070'X  !  Entity has a child
	PARAMETER NET$K_CMLERR_ACCVIO = '00000072'X  !  EMAA Can't access the buffers
	PARAMETER NET$K_CMLERR_NORESPONSESREADY = '00000074'X  !  EMAA has no responses ready for the user
	PARAMETER NET$K_CMLERR_EXCEEDEDQUOTA = '00000076'X  !  The entity needs more quota from the user.    
	PARAMETER NET$K_CMLERR_INSUFFBYTLIM = '00000078'X  !  The user does not have enough quota
	PARAMETER NET$K_CMLERR_OVERFLOWBYTLIM = '0000007A'X  !  The user has enough, but emaa has to deallo
 !   Following Symbols have CMIP archtected values and are for CML'S use for CMIP encodig/decoding
 !   EMAA or NCL or any other user should never use them.
 !   For every CMIPerr there will be a corresponding CMLerr. 
 !   EMAA and NCL/users should only use CMLerr.
 !   CML will do the mapping between the two symbols...
 !   CML will not assume CMLerr to be double of CMIPerr as it origianlly started out to be.
	PARAMETER NET$K_CMIPERR_NOSUCHOBJINS = '00000001'X  !  No such object instance (no such entity)
	PARAMETER NET$K_CMIPERR_ACCESSDENIED = '00000002'X  !  Access denied
	PARAMETER NET$K_CMIPERR_INVALIDFILTER = '00000004'X  !  Invalid filter
	PARAMETER NET$K_CMIPERR_NOSUCHATTRID = '00000005'X  !  No such attribute id
	PARAMETER NET$K_CMIPERR_INVALIDATTRVAL = '00000006'X  !  No such attribute value
	PARAMETER NET$K_CMIPERR_GETLIST = '00000007'X  !  Get list error
	PARAMETER NET$K_CMIPERR_SETLIST = '00000008'X  !  Set list error
	PARAMETER NET$K_CMIPERR_NOSUCHACTION = '00000009'X  !  No such action
	PARAMETER NET$K_CMIPERR_PROCESSFAIL = '0000000A'X  !  Process failure
	PARAMETER NET$K_CMIPERR_NORESOURCEAVAIL = '0000000D'X  !  No resource available
	PARAMETER NET$K_CMIPERR_INVALIDARGVALUE = '0000000F'X  !  Invalid argument value 
	PARAMETER NET$K_CMIPERR_DIRECTIVENOTSUPP = '00000020'X  !  Directive not supported
	PARAMETER NET$K_CMIPERR_ENTCLSNOTSUPP = '00000021'X  !  Entity class not supported
	PARAMETER NET$K_CMIPERR_INVUSEWILDCARD = '00000022'X  !  Invalid use of wild card
	PARAMETER NET$K_CMIPERR_NOSUCHARG = '00000023'X  !  No such argument
	PARAMETER NET$K_CMIPERR_CONSTRAINTVIOLAT = '00000024'X  !  Constraint violation
	PARAMETER NET$K_CMIPERR_WRITEONLYATTR = '00000025'X  !  Write only attribute
	PARAMETER NET$K_CMIPERR_READONLYATTR = '00000026'X  !  Read only attribute
	PARAMETER NET$K_CMIPERR_DUPLICATEATTR = '00000027'X  !  Duplicate attribute
	PARAMETER NET$K_CMIPERR_DUPLICATEARG = '00000028'X  !  Duplicate argument
	PARAMETER NET$K_CMIPERR_INVALIDOPER = '00000029'X  !  Invalid operator
	PARAMETER NET$K_CMIPERR_REQARGOMITTED = '0000002A'X  !  Required argument omitted
	PARAMETER NET$K_CMIPERR_FILTERINVACT = '0000002B'X  !  Filter invalid for action
 !  Reasons for invalid use of wild cards...
	PARAMETER NET$K_CMIPERR_CREATEWITHWILD = '00000000'X  !  Create with wildcard
	PARAMETER NET$K_CMIPERR_INVALIDDIRECTIVE = '00000001'X  !  Invalid directive
	PARAMETER NET$K_CMIPERR_NOTUNIVERSALGROUP = '00000002'X  !  Not a universal attribute group
	PARAMETER NET$K_CMIPERR_WILDCLASS = '00000003'X  !  Filter specified with wildcarded class
	PARAMETER NET$K_CMIPERR_NOTATLOWESTLEVEL = '00000004'X  !  Wildcard specified on other than lowest 
 ! 
 !  Success codes from EMAA
 ! 
	PARAMETER NET$K_CMLRSP_SUCCESS = '00000065'X  !  Successful completion
	PARAMETER NET$K_CMLRSP_ALREADYREGISTERED = '00000067'X  !  Already registered
	PARAMETER NET$K_CMLRSP_MOREENTITIES = '00000069'X  !  More entities coming
	PARAMETER NET$K_CMLRSP_TERMINATERESP = '0000006B'X  !  Terminate this call, there is no more data.
	PARAMETER NET$K_CMLRSP_NOFILTERMATCH = '0000006D'X  !  EIB doesn't match filter
	PARAMETER NET$K_CMLRSP_WILDCARDEDSUCCESS = '0000006F'X  !  The match was successful, but matched wi
	PARAMETER NET$K_CMLRSP_AsyncMrcpResp = '00000071'X  !  ** INTERNAL EMAA CODE ** This code identifie
 !   as one requiring an asyncronous response.  The entity
 !   will call back when the fnct is completed
 !  Constants which are the legal values for the parameter CONTEXT on input to EMAA.
	PARAMETER NET$K_CML_CONTEXT_SYSTEM = '00000000'X  !  In system context
	PARAMETER NET$K_CML_CONTEXT_PROCESS = '00000001'X  !  In process context
 !  CML needs EMAA to guess this buffer size .....this is just a guess for now.
	PARAMETER NET$K_CML_MSGBUFFSIZE = '000001F4'X  !  Item list buffer size to be given to EMAA
 !  CML needs EMAA to guess this BYT LIMIT size .....this is just a guess for now.
	PARAMETER NET$K_CML_DEFAULTBYTLIM = '0000FA00'X  !  Byte limit size to be given to EMAA
 ! 
 !  constant defining the minimum allowed output buffer size for emaa
 ! 
	PARAMETER NET$K_CML_MINIMUMOUTIL = '00000020'X
 !  Some item tags used to request bits of data from the data dictionary
 !  access routines:
 !  Tags used in the input itemlist on calls to NCL$DictLookup.  Note that
 !  all items other than those of tag NET$K_Dict_EntityClass will have as their
 !  value the addressed dictionary entity's code value only.  This is in 
 !  contrast to the CML service interface itemlists, such as NET$K_CML_Attributes
 !  which has a sub-itemlist of attributes as its value.  Since only one 
 !  dictionary entity can be queried for each call to NCL$DictLookup, it makes
 !  little sense to dictate that the value to NET$K_CML_DictAttributeCodea be an
 !  itemlist containing one item.  Thus, we create different itemlist tags to
 !  remind everyone, and keep them honest:
 !  (The argument to NET$K_Dict_EntityClass is of the same format as that of 
 !  NET$K_CML_ENTITYINSTANCE, however)
	PARAMETER NET$K_DICT_FIRSTINPUTTAG = '00000191'X
	PARAMETER NET$K_TAG_DICT_EVENTCODE = '00000191'X  !  The event number to be queried
	PARAMETER NET$K_TAG_DICT_EXCEPTIONCODE = '00000192'X  !  The action exception number to be queried
	PARAMETER NET$K_TAG_DICT_RESPONSECODE = '00000193'X  !  The action response number to be queried
	PARAMETER NET$K_TAG_DICT_MAXIMUMINPUTTAG = '00000194'X  !  Last input itemlist tag for the dictionary
 !  Other item tags used in the input itemlist on a call to the dictionary
 !  ACCESS, with tag values duplicated elsewhere:
	PARAMETER NET$K_TAG_DICT_ACTIONCODE = '000000DD'X  !  The action number to be queried
	PARAMETER NET$K_TAG_DICT_ARGUMENTCODE = '000000DE'X  !  The action/response/exception/event argumen
	PARAMETER NET$K_TAG_DICT_ATTRIBUTECODE = '000000E2'X  !  The attribute number to be queried
	PARAMETER NET$K_TAG_DICT_DNAGROUPCODE = '000000E3'X  !  The DNA attribute group number to be queried
	PARAMETER NET$K_TAG_DICT_ENTITYCLASS = '000000E5'X  !  The entity class to be queried
	PARAMETER NET$K_TAG_DICT_ENTITYGROUPCODE = '000000E4'X  !  The entity group number to be queried
 !  Tags for the template and output itemlists, detailing the information 
 !  requested or returned on a call to NCL$DictLookup:
	PARAMETER NET$K_DICT_FIRSTOUTPUTTAG = '0000019B'X
	PARAMETER NET$K_TAG_DICT_DATATYPE = '0000019B'X  !  The attribute or argument's datatype
	PARAMETER NET$K_TAG_DICT_ERRORTEXT = '0000019C'X  !  The reponse/exception/event text string
	PARAMETER NET$K_TAG_DICT_MEMBERS = '0000019D'X  !  The attribute group's member list
	PARAMETER NET$K_TAG_DICT_NAME = '0000019E'X  !  The dictionary entity's name
	PARAMETER NET$K_TAG_DICT_SELECTOR = '0000019F'X  !  Variant record selector field information
	PARAMETER NET$K_TAG_DICT_FIELDNUMBER = '000001A0'X  !  Record field number
	PARAMETER NET$K_TAG_DICT_DESCRIPTOR = '000001A1'X  !  Record desctiptor (one per record)
	PARAMETER NET$K_TAG_DICT_MAXIMUMTAG = '000001A2'X  !  Highest tag value in use for dictionary outpu
 !  THE ATTRIBUTE GROUP CODES, gratuitously hardcoded here so NCL can sort
 !  its SHOW output:
	PARAMETER NET$K_CML_GROUPALL = '00000000'X  !  "All Attributes"
	PARAMETER NET$K_CML_GROUPIDENT = '00000001'X  !  "All Identifiers"
	PARAMETER NET$K_CML_GROUPSTATUS = '00000002'X  !  "All Status"
	PARAMETER NET$K_CML_GROUPCOUNTERS = '00000003'X  !  "All Counters"
	PARAMETER NET$K_CML_GROUPCHAR = '00000004'X  !  "All Characteristics"
	PARAMETER NET$K_CML_GROUPINTERNAL = '00000005'X  !  "All internal characteristics"
 !  Some filter sub-itemlist tag values.  The format of a filter is some
 !  (infix) hierarchy of operand-operator-operand.  Currently, there's
 !  only one level of this hierarchy allowed in a filter.  Furthermore,
 !  the first operator must be an attribute (tag given as the value of
 !  the operand's sub-itemlist entry), and the second operator must be
 !  a literal value.  Perhaps this will be expanded upon in the future.
 !  In the case of a literal value operand, the sub-itemlist tag will be
 !  the generic datatype tag (as defined above) for the literal's type.
 !  This implies that the following definitions lie well outside of th
 !  numbering space for datatype tags:
	PARAMETER NET$K_CML_FIRSTFILTERTAG = '000001F5'X
	PARAMETER NET$K_TAG_CML_FILTERATTRIBUTE = '000001F5'X  !  The item is an attribute operand
	PARAMETER NET$K_TAG_CML_FILTEROPERATOR = '000001F6'X  !  The item is an operator
	PARAMETER NET$K_TAG_CML_FITERMAXIMUMTAG = '000001F7'X  !  The highest filter tag
 !  The following are operator values that'll appear in the CML_FilterOperator
 !  sub-item:
	PARAMETER NET$K_CML_FILTEROPMINIMUM = '00000000'X  !  The lowest assigned operator number
	PARAMETER NET$K_CML_FILTEROPEQUAL = '00000001'X  !  Test for operand equality
	PARAMETER NET$K_CML_FILTEROPNOTEQUAL = '00000002'X  !  Test for operand inequality
	PARAMETER NET$K_CML_FILTEROPLESS = '00000003'X  !  Test for operand 1 < operand 2
	PARAMETER NET$K_CML_FILTEROPLESSEQUAL = '00000004'X  !  Test for operand 1 <= operand 2
	PARAMETER NET$K_CML_FILTEROPGREATER = '00000005'X  !  Test for operand 1 > operand 2
	PARAMETER NET$K_CML_FILTEROPGREATEREQUAL = '00000006'X  !  Test for operand 1 >= operand 2
	PARAMETER NET$K_CML_FILTEROPMAXIMUM = '00000007'X  !  The highest assigned operator number
 !  Setability flags for an attribute's field from the data dictionary (these
 !  should match the equivalent MCC data dictionary values):
	PARAMETER NET$K_CML_SETTABLE = '00000000'X  !  Attribute can be set or read
	PARAMETER NET$K_CML_READONLY = '00000001'X  !  Attribute is read only
	PARAMETER NET$K_CML_WRITEONLY = '00000002'X  !  Attribute is write only
 !  Error status returned by CML. This may later appear in some message file
	PARAMETER CML$_SUCCESSLAST = '00000065'X  !  success return
	PARAMETER CML$_SUCCESSMORE = '00000069'X  !  Success, with more responses coming
!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:49 by OpenVMS SDL EV3-3      
!  Source:  22-MAR-2010 04:19:32 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.OBJ]NET_NET_M6 
! ********************************************************************************************************************************
 
!*** MODULE $NETDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER NET$_FACILITY = '000001F5'X
	PARAMETER NET$_NORMAL = '01F58001'X
	PARAMETER NET$_ALRDYSTRT = '01F58009'X
	PARAMETER NET$_ALRDYSTPPD = '01F58011'X
	PARAMETER NET$_CANCELCOMPLETE = '01F58019'X
	PARAMETER NET$_CONNACCEPTED = '01F58021'X
	PARAMETER NET$_CONNECTED = '01F58029'X
	PARAMETER NET$_CONNINIT = '01F58031'X
	PARAMETER NET$_DISCCOMPLETE = '01F58039'X
	PARAMETER NET$_DISCEVENTLCL = '01F58041'X
	PARAMETER NET$_DISCEVENTREM = '01F58049'X
	PARAMETER NET$_DISCEVENT3RD = '01F58051'X
	PARAMETER NET$_INCCONEVENT = '01F58059'X
	PARAMETER NET$_MOREDATA = '01F58061'X
	PARAMETER NET$_NOMOREDATA = '01F58069'X
	PARAMETER NET$_MOREEVENTS = '01F58071'X
	PARAMETER NET$_RCVDATAEVENT = '01F58079'X
	PARAMETER NET$_SYNCH = '01F58323'X
	PARAMETER NET$_RDBADDMSG = '01F5832B'X
	PARAMETER NET$_CONTINUE = '01F58333'X
	PARAMETER NET$_GRANTMSGU = '01F5833B'X
	PARAMETER NET$_GRANTMSG = '01F58343'X
	PARAMETER NET$_LOADED = '01F5834B'X
	PARAMETER NET$_DISCDATATRUNC = '01F58353'X
	PARAMETER NET$_UNLOADED = '01F5835B'X
	PARAMETER NET$_ALREADYDISC = '01F58640'X
	PARAMETER NET$_ASSOCALREADYCLOSING = '01F58648'X
	PARAMETER NET$_ASSOCALREADYSHUTTING = '01F58650'X
	PARAMETER NET$_BUFFEROVF = '01F58658'X
	PARAMETER NET$_CONDATATRUNC = '01F58660'X
	PARAMETER NET$_ENTITYALREADYENAB = '01F58668'X
	PARAMETER NET$_ENTITYDISABINITTED = '01F58670'X
	PARAMETER NET$_RCVNODATA = '01F58678'X
	PARAMETER NET$_USERDATATRUNC = '01F58680'X
	PARAMETER NET$_RDBDUPID = '01F58688'X
	PARAMETER NET$_RDBIDVAL = '01F58690'X
	PARAMETER NET$_RDBREMMSG = '01F58698'X
	PARAMETER NET$_ASSOCWRONGSTATE = '01F58962'X
	PARAMETER NET$_ASSOCCLOSING = '01F5896A'X
	PARAMETER NET$_ASSOCSHUTTING = '01F58972'X
	PARAMETER NET$_BADASSOCMODE = '01F5897A'X
	PARAMETER NET$_FUNCREQASSOC = '01F58982'X
	PARAMETER NET$_BADCONTEXTVALUE = '01F5898A'X
	PARAMETER NET$_DUPLICATESERVER = '01F58992'X
	PARAMETER NET$_INVASSOCFORMAT = '01F5899A'X
	PARAMETER NET$_INVASSOCID = '01F589A2'X
	PARAMETER NET$_MAXASSOCEXCEEDED = '01F589AA'X
	PARAMETER NET$_NOASSOCIDAVAIL = '01F589B2'X
	PARAMETER NET$_WRONGASSOC = '01F589BA'X
	PARAMETER NET$_WRONGPROCESS = '01F589C2'X
	PARAMETER NET$_CONNREJECTED = '01F589CA'X
	PARAMETER NET$_CANNOTHANDOFF = '01F589D2'X
	PARAMETER NET$_CONWRONGSTATE = '01F589DA'X
	PARAMETER NET$_INVCONNECTFORMAT = '01F589E2'X
	PARAMETER NET$_INVCONID = '01F589EA'X
	PARAMETER NET$_MAXCONNECTEXCEEDED = '01F589F2'X
	PARAMETER NET$_NOCONNECTIDAVAIL = '01F589FA'X
	PARAMETER NET$_NOREMCONNECTID = '01F58A02'X
	PARAMETER NET$_NOMATCHINGINCCONNECT = '01F58A0A'X
	PARAMETER NET$_OBSOLETECONNECTID = '01F58A12'X
	PARAMETER NET$_BADINPLSTITEMFORMAT = '01F58A1A'X
	PARAMETER NET$_BADPARAM = '01F58A22'X
	PARAMETER NET$_INPLSTITEMNOTALLOWED = '01F58A2A'X
	PARAMETER NET$_INPLSTINCOMPLETE = '01F58A32'X
	PARAMETER NET$_INPLSTNOMEM = '01F58A3A'X
	PARAMETER NET$_INPLSTCNFLTPARMS = '01F58A42'X
	PARAMETER NET$_INSFARG = '01F58A4A'X
	PARAMETER NET$_INVEFN = '01F58A52'X
	PARAMETER NET$_INVINPLST = '01F58A5A'X
	PARAMETER NET$_INVTMPLST = '01F58A62'X
	PARAMETER NET$_OUTLSTTOOSMALL = '01F58A6A'X
	PARAMETER NET$_CTXALLFAIL = '01F58A72'X
	PARAMETER NET$_DATAOVERRUN = '01F58A7A'X
	PARAMETER NET$_DCBLOCKED = '01F58A82'X
	PARAMETER NET$_EXQUOTA = '01F58A8A'X
	PARAMETER NET$_ILLXMTVCRP = '01F58A92'X
	PARAMETER NET$_INVATBSIZE = '01F58A9A'X
	PARAMETER NET$_INVTCTBSIZE = '01F58AA2'X
	PARAMETER NET$_DUPLVCID = '01F58AAA'X
	PARAMETER NET$_NOVCIPORT = '01F58AB2'X
	PARAMETER NET$_ILLVCIREQ = '01F58ABA'X
	PARAMETER NET$_INVPORTMGMTREQ = '01F58AC2'X
	PARAMETER NET$_INVCTLSYNCHREQ = '01F58ACA'X
	PARAMETER NET$_INVCTLINITREQ = '01F58AD2'X
	PARAMETER NET$_INVTRANSMITREQ = '01F58ADA'X
	PARAMETER NET$_INVRECEIVEREQ = '01F58AE2'X
	PARAMETER NET$_INVREPORTEVENTREQ = '01F58AEA'X
	PARAMETER NET$_ILLREQPORTDISA = '01F58AF2'X
	PARAMETER NET$_ILLREQENTDISA = '01F58AFA'X
	PARAMETER NET$_INVREQFORMAT = '01F58B02'X
	PARAMETER NET$_ENTITYNOTENABLED = '01F58B0A'X
	PARAMETER NET$_IDOUTOFRANGE = '01F58B12'X
	PARAMETER NET$_IDDOESNOTMAP = '01F58B1A'X
	PARAMETER NET$_INCOMPATIBLETOWERS = '01F58B22'X
	PARAMETER NET$_INSFSYSMEM = '01F58B2A'X
	PARAMETER NET$_INSFVIRMEM = '01F58B32'X
	PARAMETER NET$_INVALIDTOWER = '01F58B3A'X
	PARAMETER NET$_INVFUNCTION = '01F58B42'X
	PARAMETER NET$_EXPEDITEDUNAVAILABLE = '01F58B4A'X
	PARAMETER NET$_INVNODENAME = '01F58B52'X
	PARAMETER NET$_NOSUCHOBJ = '01F58B5A'X
	PARAMETER NET$_NOSUCHAPPL = '01F58B62'X
	PARAMETER NET$_NOPRIV = '01F58B6A'X
	PARAMETER NET$_TIMEOUT = '01F58B72'X
	PARAMETER NET$_TOWERSNOTFOUND = '01F58B7A'X
	PARAMETER NET$_TRANSPORTNOTFOUND = '01F58B82'X
	PARAMETER NET$_WRONGSTATE = '01F58B8A'X
	PARAMETER NET$_RDBADDERR = '01F58B92'X
	PARAMETER NET$_CONNOTPASSED = '01F58B9A'X
	PARAMETER NET$_GRANTERR = '01F58BA2'X
	PARAMETER NET$_RDBREMERR = '01F58BAA'X
	PARAMETER NET$_ABORT = '01F58C84'X
	PARAMETER NET$_ABORTRCV = '01F58C8C'X
	PARAMETER NET$_ABORTXMIT = '01F58C94'X
	PARAMETER NET$_AUTODISCONN = '01F58C9C'X
	PARAMETER NET$_BADSTACKPOP = '01F58CA4'X
	PARAMETER NET$_BADSTACKPUSH = '01F58CAC'X
	PARAMETER NET$_CONTIMEOUT = '01F58CB4'X
	PARAMETER NET$_DISCONTIMEOUT = '01F58CBC'X
	PARAMETER NET$_INVALIDDCB = '01F58CC4'X
	PARAMETER NET$_NETINTERR = '01F58CCC'X
	PARAMETER NET$_NOLOCALNSAP = '01F58CD4'X
	PARAMETER NET$_NOREMOTENSAP = '01F58CDC'X
	PARAMETER NET$_PROTOCOLERROR = '01F58CE4'X
	PARAMETER NET$_REMOTEDISCONN = '01F58CEC'X
	PARAMETER NET$_REJECT = '01F58CF4'X
	PARAMETER NET$_THIRDPARTYABORT = '01F58CFC'X
	PARAMETER NET$_TIMEDOUT = '01F58D04'X
	PARAMETER NET$_TOOMUCHINTDATA = '01F58D0C'X
	PARAMETER NET$_TOOMUCHCONNDATA = '01F58D14'X
	PARAMETER NET$_TOOMUCHDISCDATA = '01F58D1C'X
	PARAMETER NET$_USERDISCONN = '01F58D24'X
	PARAMETER NET$_UNREACHABLE = '01F58D2C'X
	PARAMETER NET$_USERABORT = '01F58D34'X
	PARAMETER NET$_NODISCREASON = '01F58D3C'X
	PARAMETER NET$_LOADFAIL = '01F58D44'X
	PARAMETER NET$_UNLOADFAIL = '01F58D4C'X
	PARAMETER NET$_TOOMUCHDATA = '01F58D54'X
	PARAMETER NET$_NODATA = '01F58D5C'X
	PARAMETER NET$_CHECKSUMFAIL = '01F58D64'X
	PARAMETER NET$_UNKNOWNTSAP = '01F58D6C'X
	PARAMETER NET$_SECURITYFAIL = '01F58D74'X
	PARAMETER NET$_REMINSFSYSMEM = '01F58D7C'X
	PARAMETER NET$_INVTPDUSIZE = '01F58D84'X
	PARAMETER NET$_INVTPDUPARAM = '01F58D8C'X
	PARAMETER NET$_INVTPDUFORMAT = '01F58D94'X
	PARAMETER NET$_INVDATALENGTH = '01F58D9C'X
	PARAMETER NET$_INVTPDU = '01F58DA4'X
	PARAMETER NET$_ILLSPLIT = '01F58DAC'X
	PARAMETER NET$_MISMATCHREF = '01F58DB4'X
	PARAMETER NET$_ILLCLASSNEGOTIATION = '01F58DBC'X
	PARAMETER NET$_ERRECEIVED = '01F58DC4'X
	PARAMETER NET$_ERUNACKED = '01F58DCC'X
	PARAMETER NET$_NETWORKDISC = '01F58DD4'X
	PARAMETER NET$_NETWORKRESET = '01F58DDC'X
	PARAMETER NET$_UNKNOWNTEMPLATE = '01F58DE4'X
	PARAMETER NET$_INVPROTCLASSREQ = '01F58DEC'X
	PARAMETER NET$_INVCHKREQ = '01F58DF4'X
	PARAMETER NET$_INVEXPREQ = '01F58DFC'X
	PARAMETER NET$_INVEXTREQ = '01F58E04'X
	PARAMETER NET$_INVDATREQ = '01F58E0C'X
	PARAMETER NET$_INVNETREQ = '01F58E14'X
	PARAMETER NET$_UNSPECIFIED = '01F58E1C'X
	PARAMETER NET$_INVPROTCLASS = '01F58E24'X
	PARAMETER NET$_ILLC0DATA = '01F58E2C'X
	PARAMETER NET$_ILLNEGOTIATION = '01F58E34'X
	PARAMETER NET$_NOLINK = '01F58E3C'X
	PARAMETER NET$_NOTRANSPORTRESOURCES = '01F58E44'X
	PARAMETER NET$_NODEUNKNOWN = '01F58E4C'X
	PARAMETER NET$_REMOTESHUTDOWN = '01F58E54'X
	PARAMETER NET$_NOAPPLICATION = '01F58E5C'X
	PARAMETER NET$_INVALIDAPPLICATION = '01F58E64'X
	PARAMETER NET$_APPLICATIONTOOBUSY = '01F58E6C'X
	PARAMETER NET$_NOSCRESOURCES = '01F58E74'X
	PARAMETER NET$_NOUSERRESOURCES = '01F58E7C'X
	PARAMETER NET$_BADUSER = '01F58E84'X
	PARAMETER NET$_BADACCOUNT = '01F58E8C'X
	PARAMETER NET$_REFOVERFLOW = '01F58E94'X
	PARAMETER NET$_UNKNOWNADDR = '01F58E9C'X
	PARAMETER NET$_DUPLICATEREF = '01F58EA4'X
	PARAMETER NET$_NONZERODSTADR = '01F58EAC'X
	PARAMETER NET$_INVDSTLINK = '01F58EB4'X
	PARAMETER NET$_ZEROSRCADR = '01F58EBC'X
	PARAMETER NET$_INVFCVAL = '01F58EC4'X
	PARAMETER NET$_MISMATCHLLSRV = '01F58ECC'X
	PARAMETER NET$_SEGSIZSMALL = '01F58ED4'X
	PARAMETER NET$_LOSTDATA = '01F58EDC'X
	PARAMETER NET$_NOCRYPTKEY = '01F58EE4'X
	PARAMETER NET$_EXPCRYPTKEY = '01F58EEC'X
	PARAMETER NET$_INTEGCHKFAIL = '01F58EF4'X
	PARAMETER NET$_MISMATCHCRYPTSRV = '01F58EFC'X
	PARAMETER NET$_CRYPTVERFAIL = '01F58F04'X
	PARAMETER NET$_CRYPTSEQSPACE = '01F58F0C'X
	PARAMETER NET$_PATHLOST = '01F58F14'X
	PARAMETER NET$_CONNECTFAIL = '01F58F1C'X
	PARAMETER NET$_NAMESERVCOMMERR = '01F58F24'X
	PARAMETER NET$_ACCVIO = '01F58F2C'X
	PARAMETER NET$_NETWORKSHUT = '01F58F34'X
	PARAMETER NET$_NETWORKRESTRICTED = '01F58F3C'X
	PARAMETER NET$_NETWORKDISABLED = '01F58F44'X
	PARAMETER NET$_REQNOTCOMPLETE = '01F592C2'X
	PARAMETER NET$_CDI_SUCCESS = '01F592C9'X
	PARAMETER NET$_FAILURE = '01F592D4'X
	PARAMETER NET$_NOTIMPLEMENTED = '01F592DA'X
	PARAMETER NET$_NOSUCHOBJECT = '01F592E2'X
	PARAMETER NET$_NOSUCHATTR = '01F592EA'X
	PARAMETER NET$_VALUETOOLARGE = '01F592F2'X
	PARAMETER NET$_MEMALLOCFAIL = '01F592FA'X
	PARAMETER NET$_FILENOTFOUND = '01F59302'X
	PARAMETER NET$_BUFFERTOOSMALL = '01F5930A'X
	PARAMETER NET$_INVALIDNAME = '01F59312'X
	PARAMETER NET$_NOTINITIALIZED = '01F5931A'X
	PARAMETER NET$_NOTAVAILABLE = '01F59322'X
	PARAMETER NET$_INVALIDADDR = '01F5932A'X
	PARAMETER NET$_NOTSUPPORTED = '01F59332'X
	PARAMETER NET$_DSERROR = '01F5933A'X
	PARAMETER NET$_NORESOURCES = '01F59344'X
	PARAMETER NET$_INVALIDPATH = '01F5934A'X
	PARAMETER NET$_CACHETIMEOUT = '01F59352'X
!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:51 by OpenVMS SDL EV3-3      
!  Source:  22-MAR-2010 04:19:34 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.OBJ]NET_CML_M: 
! ********************************************************************************************************************************
 
!*** MODULE $CMLDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER CML$_FACILITY = '00000462'X
	PARAMETER CML$_ALLOCFAILURE = '0462800C'X
	PARAMETER CML$_ABORT = '04628014'X
	PARAMETER CML$_MISSINGDATA = '0462801A'X
	PARAMETER CML$_EXTRADATA = '04628022'X
	PARAMETER CML$_DUPLICATEDATA = '0462802A'X
	PARAMETER CML$_OVERFLOW = '04628032'X
	PARAMETER CML$_NORESOURCES = '0462803A'X
	PARAMETER CML$_INVALIDFUNC = '04628042'X
	PARAMETER CML$_EMAAPROB = '0462804A'X
	PARAMETER CML$_CMIPPROB = '04628052'X
	PARAMETER CML$_NCLPROB = '0462805A'X
	PARAMETER CML$_SESSPROB = '04628062'X
	PARAMETER CML$_FATAL = '0462806A'X
	PARAMETER CML$_ILVNOTIMPLYET = '04628072'X
	PARAMETER CML$_ILVIMPLICIT = '0462807A'X
	PARAMETER CML$_ILVNOTATVALUE = '04628082'X
	PARAMETER CML$_ILVNOTYPEFOUND = '0462808A'X
	PARAMETER CML$_ILVSYNTAXERROR = '04628092'X
	PARAMETER CML$_ILVBUILDORPARSE = '0462809A'X
	PARAMETER CML$_ILVNOTINCONS = '046280A2'X
	PARAMETER CML$_ILVENCODING = '046280AA'X
	PARAMETER CML$_ILVBUFTOOBIG = '046280B2'X
	PARAMETER CML$_ILVTNF = '046280BA'X
	PARAMETER CML$_ILVEOC = '046280C2'X
	PARAMETER CML$_INV_DESC = '046280CA'X
	PARAMETER CML$_INSUF_BUF = '046280D2'X
	PARAMETER CML$_INVALID_PDU = '046280DA'X
	PARAMETER CML$_INVALID_PROB = '046280E2'X
	PARAMETER CML$_INVALID_ERROR = '046280EA'X
	PARAMETER CML$_ILVNOTCONS = '046280F2'X
	PARAMETER CML$_ILVTOOBIG = '046280FA'X
	PARAMETER CML$_ILVMISTYPED = '04628102'X
	PARAMETER CML$_ILVTAG = '0462810A'X
	PARAMETER CML$_ILVALREADYDONE = '04628112'X
	PARAMETER CML$_ILVNORTSQRBRKT = '0462811A'X
	PARAMETER CML$_ILVTOOMNYRPAREN = '04628122'X
	PARAMETER CML$_ILVUNRECTOKEN = '0462812A'X
	PARAMETER CML$_ILVWANTEDTAG = '04628132'X
	PARAMETER CML$_ILVWANTEDVALUE = '0462813A'X
	PARAMETER CML$_CMIPERROR = '04628140'X
	PARAMETER CML$_CMIPREJECT = '04628148'X
	PARAMETER CML$_NOTYET = '04628150'X
	PARAMETER CML$_VALIDATIONERROR = '04628158'X
	PARAMETER CML$_XLATETOITEM = '04628160'X
	PARAMETER CML$_XLATETOCMIP = '04628168'X
	PARAMETER CML$_DICTDAWN = '04628173'X
	PARAMETER CML$_DICTARUN = '0462817B'X
	PARAMETER CML$_NOT_IMPLEMENTED = '04628183'X
	PARAMETER CML$_SUCCESS = '04628189'X
	PARAMETER CML$_CMIPRESPONSE = '04628191'X
	PARAMETER CML$_NORMAL = '04628199'X
	PARAMETER CML$_ILVIMPLDEFAULT = '046281A1'X
	PARAMETER CML$_DICTPRIVATE = '046281A9'X
	PARAMETER CML$_DICTEMPTY = '046281B4'X
	PARAMETER CML$_DICTNOTFOUND = '046281BC'X
	PARAMETER CML$_DICTBUFFEROVERFLOW = '046281C2'X
	PARAMETER CML$_DICTINVALIDARGUMENTS = '046281CA'X
	PARAMETER CML$_DICTINVALIDCOMBINATION = '046281D2'X
	PARAMETER CML$_DICTINVALIDCLASS = '046281DA'X
	PARAMETER CML$_DICTINVALIDTEMPLATE = '046281E2'X
	PARAMETER CML$_DICTNOAFI = '046281EA'X
	PARAMETER CML$_DICTNOENTITY = '046281F2'X
	PARAMETER CML$_DICTNOPROTOCOL = '046281FA'X
	PARAMETER CML$_DICTNOTOPEN = '04628202'X
	PARAMETER CML$_TIMEOUT = '0462820A'X
	PARAMETER CML$_NOCONNECTION = '04628212'X
	PARAMETER CML$_UNSUPPORTVER = '0462821A'X
	PARAMETER CML$_NODATA = '04628222'X
!DEC$ END OPTIONS
! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:19:53 by OpenVMS SDL EV3-3      
!  Source:  22-MAR-2010 04:19:35 JEDI_AXP_JEDI_RESD$:[PHASE5COMMON.OBJ]SCL_IPC_M6 
! ********************************************************************************************************************************
 
!*** MODULE $IPCDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER IPC$_FACILITY = '000003B0'X
	PARAMETER IPC$_NORMAL = '03B08961'X
	PARAMETER IPC$_MOREDATA = '03B08969'X
	PARAMETER IPC$_INCEXPEVENT = '03B08971'X
	PARAMETER IPC$_INCCONEVENT = '03B08979'X
	PARAMETER IPC$_INCDISCEVENT = '03B08981'X
	PARAMETER IPC$_MOREEVENTS = '03B08989'X
	PARAMETER IPC$_DATAOVERRUN = '03B08C80'X
	PARAMETER IPC$_NODECNETACCESS = '03B08322'X
	PARAMETER IPC$_NOREGISTERDNSOBJECT = '03B0832A'X
	PARAMETER IPC$_NODECLAREOBJECT = '03B08332'X
	PARAMETER IPC$_BADARGCNT = '03B0833A'X
	PARAMETER IPC$_NOBIOCNT = '03B08342'X
	PARAMETER IPC$_INTRLERROR = '03B0834A'X
	PARAMETER IPC$_INPLSTACCVIO = '03B08352'X
	PARAMETER IPC$_INPLSTNOMEM = '03B0835A'X
	PARAMETER IPC$_INPLSTNOBYTLIM = '03B08362'X
	PARAMETER IPC$_TMPLSTACCVIO = '03B0836A'X
	PARAMETER IPC$_TMPLSTNOMEM = '03B08372'X
	PARAMETER IPC$_TMPLSTNOBYTLIM = '03B0837A'X
	PARAMETER IPC$_OUTLSTACCVIO = '03B08382'X
	PARAMETER IPC$_OUTLSTNOMEM = '03B0838A'X
	PARAMETER IPC$_OUTLSTNOBYTLIM = '03B08392'X
	PARAMETER IPC$_IPCBACCVIO = '03B0839A'X
	PARAMETER IPC$_IPCBINCOMPLETE = '03B083A2'X
	PARAMETER IPC$_IPCBMISSING = '03B083AA'X
	PARAMETER IPC$_ASTNOQUOTA = '03B083B2'X
	PARAMETER IPC$_INVBUF = '03B083BA'X
	PARAMETER IPC$_BUFACCVIO = '03B083C2'X
	PARAMETER IPC$_BUFNOMEM = '03B083CA'X
	PARAMETER IPC$_BUFNOBYTLIM = '03B083D2'X
	PARAMETER IPC$_INVREPLYBUF = '03B083DA'X
	PARAMETER IPC$_REPLYBUFACCVIO = '03B083E2'X
	PARAMETER IPC$_REPLYBUFNOMEM = '03B083EA'X
	PARAMETER IPC$_REPLYBUFNOBYTLIM = '03B083F2'X
	PARAMETER IPC$_NONONPAGPOOL = '03B083FA'X
	PARAMETER IPC$_INVEFN = '03B08402'X
	PARAMETER IPC$_INVFUNCTION = '03B0840A'X
	PARAMETER IPC$_UNSUPPORTED = '03B08412'X
	PARAMETER IPC$_INVINPLST = '03B0841A'X
	PARAMETER IPC$_INPLSTITEMNOTALLOWED = '03B08422'X
	PARAMETER IPC$_BADINPLSTITEMFORMAT = '03B0842A'X
	PARAMETER IPC$_INPLSTINCOMPLETE = '03B08432'X
	PARAMETER IPC$_INPLSTREQSYSNAM = '03B0843A'X
	PARAMETER IPC$_INPLSTCNFLTPARMS = '03B08442'X
	PARAMETER IPC$_INPLSTBLDERR = '03B0844A'X
	PARAMETER IPC$_INVTMPLST = '03B08452'X
	PARAMETER IPC$_TMPLSTITEMNOTALLOWED = '03B0845A'X
	PARAMETER IPC$_TMPLSTINCOMPLETE = '03B08462'X
	PARAMETER IPC$_TMPLSTCNFLTPARMS = '03B0846A'X
	PARAMETER IPC$_INVIPCBFLAG = '03B08472'X
	PARAMETER IPC$_INVASSOCID = '03B0847A'X
	PARAMETER IPC$_INVCONNID = '03B08482'X
	PARAMETER IPC$_BADASSOCMODE = '03B0848A'X
	PARAMETER IPC$_BCKTRNSFAIL = '03B08492'X
	PARAMETER IPC$_CONNINITFAIL = '03B0849A'X
	PARAMETER IPC$_GETCONNFAIL = '03B084A2'X
	PARAMETER IPC$_CONNACCFAIL = '03B084AA'X
	PARAMETER IPC$_CONNREJFAIL = '03B084B2'X
	PARAMETER IPC$_CONNHNDFAIL = '03B084BA'X
	PARAMETER IPC$_DISCCONNFAIL = '03B084C2'X
	PARAMETER IPC$_ABORTCONNFAIL = '03B084CA'X
	PARAMETER IPC$_CNCLFAIL = '03B084D2'X
	PARAMETER IPC$_TRANSMITFAIL = '03B084DA'X
	PARAMETER IPC$_RCVFAIL = '03B084E2'X
	PARAMETER IPC$_RCVEXPFAIL = '03B084EA'X
	PARAMETER IPC$_DLVINCMGFAIL = '03B084F2'X
	PARAMETER IPC$_DEREGOBJFAIL = '03B084FA'X
	PARAMETER IPC$_ENUMLCLTWRSFAIL = '03B08502'X
	PARAMETER IPC$_GETPORTINFOFAIL = '03B0850A'X
	PARAMETER IPC$_GETVCRPFAIL = '03B08512'X
	PARAMETER IPC$_FREEVCRPFAIL = '03B0851A'X
	PARAMETER IPC$_VALASSOCFAIL = '03B08522'X
	PARAMETER IPC$_VALCONNFAIL = '03B0852A'X
	PARAMETER IPC$_RUNDWNASSOCFAIL = '03B08532'X
	PARAMETER IPC$_RCVEVENTFAIL = '03B0853A'X
	PARAMETER IPC$_REGOBJFAIL = '03B08542'X
	PARAMETER IPC$_RSLVNAMEFAIL = '03B0854A'X
	PARAMETER IPC$_OPENASSOCFAIL = '03B08552'X
	PARAMETER IPC$_CLOSEASSOCFAIL = '03B0855A'X
	PARAMETER IPC$_SHUTASSOCFAIL = '03B08562'X
	PARAMETER IPC$_VERNODENAMEFAIL = '03B0856A'X
	PARAMETER IPC$_USERDISCONNECT = '03B08572'X
	PARAMETER IPC$_USERREJECT = '03B0857A'X
	PARAMETER IPC$_NOTRANSPORTRESOURCES = '03B08582'X
	PARAMETER IPC$_NODEUNKNOWN = '03B0858A'X
	PARAMETER IPC$_REMOTESHUTDOWN = '03B08592'X
	PARAMETER IPC$_NOAPPLICATION = '03B0859A'X
	PARAMETER IPC$_INVALIDAPPLICATION = '03B085A2'X
	PARAMETER IPC$_APPLICATIONTOOBUSY = '03B085AA'X
	PARAMETER IPC$_THIRDPARTYABORT = '03B085B2'X
	PARAMETER IPC$_USERABORT = '03B085BA'X
	PARAMETER IPC$_INVALIDNODENAME = '03B085C2'X
	PARAMETER IPC$_NOSCRESOURCES = '03B085CA'X
	PARAMETER IPC$_NOUSERRESOURCES = '03B085D2'X
	PARAMETER IPC$_BADUSER = '03B085DA'X
	PARAMETER IPC$_BADACCOUNT = '03B085E2'X
	PARAMETER IPC$_TIMEDOUT = '03B085EA'X
	PARAMETER IPC$_NODEUNREACHABLE = '03B085F2'X
	PARAMETER IPC$_CONNECTTOOBIG = '03B085FA'X
	PARAMETER IPC$_NOLINK = '03B08602'X
	PARAMETER IPC$_PATHLOST = '03B0860A'X
	PARAMETER IPC$_CONNECTFAIL = '03B08612'X
	PARAMETER IPC$_NONZERODSTADR = '03B08FA2'X
	PARAMETER IPC$_INVDSTLINK = '03B08FAA'X
	PARAMETER IPC$_ZEROSRCADR = '03B08FB2'X
	PARAMETER IPC$_INVFCVAL = '03B08FBA'X
	PARAMETER IPC$_MISMATCHLLSRV = '03B08FC2'X
	PARAMETER IPC$_SEGSIZSMALL = '03B08FCA'X
	PARAMETER IPC$_LOSTDATA = '03B08FD2'X
	PARAMETER IPC$_NOCRYPTKEY = '03B08FDA'X
	PARAMETER IPC$_EXPCRYPTKEY = '03B08FE2'X
	PARAMETER IPC$_INTEGCHKFAIL = '03B08FEA'X
	PARAMETER IPC$_MISMATCHCRYPTSRV = '03B08FF2'X
	PARAMETER IPC$_CRYPTVERFAIL = '03B08FFA'X
	PARAMETER IPC$_CRYPTSEQSPACE = '03B09002'X
	PARAMETER IPC$_UNKNOWNENTRY = '03B0900A'X
	PARAMETER IPC$_PARSENODENAMEFAIL = '03B09012'X
	PARAMETER IPC$_CDIFUNCTIONFAIL = '03B0901A'X
	PARAMETER IPC$_NETWORKSHUT = '03B09022'X
	PARAMETER IPC$_NETWORKRESTRICTED = '03B0902A'X
	PARAMETER IPC$_NETWORKDISABLED = '03B09032'X
	PARAMETER IPC$_DCLSRVRFAIL = '03B08644'X
!DEC$ END OPTIONS