! ********************************************************************************************************************************
!  Created: 22-Mar-2010 04:21:38 by OpenVMS SDL EV3-3      
!  Source:  11-OCT-1996 17:06:44 JEDI_AXP_JEDI_RESD$:[QIO.SRC]OSIT.SDL;1 
! ********************************************************************************************************************************
 !  COPYRIGHT (c) 1991 BY
 !  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 ! 
 !  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
 !  ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
 !  INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
 !  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
 !  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
 !  TRANSFERRED.
 ! 
 !  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
 !  AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
 !  CORPORATION.
 ! 
 !  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
 !  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
 
!*** MODULE $osit$constants ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER OSIT$K_ENAME_MAX_LENGTH = '00000055'X
	PARAMETER OSIT$K_MAX_TSAP = '00000020'X
	PARAMETER OSIT$K_MAX_CALLING_TSAP = '00000078'X
	PARAMETER OSIT$K_INET_MAX_DESTINATION = '00000028'X
	PARAMETER OSIT$K_MAX_NCB = '000000F8'X
	PARAMETER OSIT$K_MAX_MBXMSG = '000000FD'X
!DEC$ END OPTIONS
 
!*** MODULE $osit$itemdef ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER OSIT$K_ITEM_PROTOCOL_TYPE = -3
	PARAMETER OSIT$K_ITEM_PID = '00000000'X
	PARAMETER OSIT$K_ITEM_TC_ID = '00000001'X
	PARAMETER OSIT$K_ITEM_CONTEXT = '00000002'X
	PARAMETER OSIT$K_ITEM_PROTOCOL_VERSION = '00000003'X
	PARAMETER OSIT$K_ITEM_NCB = '00000004'X
	PARAMETER OSIT$K_ITEM_USER_DATA = '00000005'X
	PARAMETER OSIT$K_ITEM_CLASS = '00000006'X
	PARAMETER OSIT$K_ITEM_OPTIONS = '00000007'X
	PARAMETER OSIT$K_ITEM_EXTRA = '00000008'X
	PARAMETER OSIT$K_ITEM_SECURITY = '00000009'X
	PARAMETER OSIT$K_ITEM_NULL = '0000000A'X
	PARAMETER OSIT$K_ITEM_ADDRESS = '0000000B'X
	PARAMETER OSIT$K_ITEM_CALLED_TSAP = '0000000C'X
	PARAMETER OSIT$K_ITEM_CALLING_TSAP = '0000000D'X
	PARAMETER OSIT$K_ITEM_SNAP = '0000000E'X
	PARAMETER OSIT$K_ITEM_NSAP = '0000000F'X
	PARAMETER OSIT$K_ITEM_STATISTICS = '00000010'X
	PARAMETER OSIT$K_ITEM_EXTENDED = '00000011'X
	PARAMETER OSIT$K_ITEM_CHECKSUM = '00000012'X
	PARAMETER OSIT$K_ITEM_EXPEDITED = '00000013'X
	PARAMETER OSIT$K_ITEM_DESTINATION_NSAP = '00000014'X
	PARAMETER OSIT$K_ITEM_NETWORK_SERVICE = '00000015'X
	PARAMETER OSIT$K_ITEM_SEND_IMPLEMENTATION = '00000016'X
	PARAMETER OSIT$K_ITEM_NETWORKPRIORITY_OUT = '00000017'X
	PARAMETER OSIT$K_ITEM_NETWORKPRIORITY_IN = '00000018'X
	PARAMETER OSIT$K_ITEM_RFC1006_RemotePort = '00000019'X
	PARAMETER OSIT$K_MIN_ITEM = '00000000'X
	PARAMETER OSIT$K_MAX_ITEM = '00000019'X
	PARAMETER OSIT$K_NETWORK_SERVICE_CONS = '00000000'X
	PARAMETER OSIT$K_NETWORK_SERVICE_CLNS = '00000001'X
	PARAMETER OSIT$K_NETWORK_SERVICE_ANY = '00000002'X
	PARAMETER OSIT$K_NETWORK_SERVICE_RFC1006 = '00000003'X
	PARAMETER OSIT$M_EXTENDED = '00000001'X
	PARAMETER OSIT$M_CHECKSUM = '00000002'X
	PARAMETER OSIT$M_EXPEDITED = '00000004'X
	PARAMETER OSIT$M_FLOW_CONTROL = '00000008'X
	PARAMETER OSIT$M_SEND_IMPLEMENTATION = '00000010'X
	STRUCTURE /osit_optmsk/
	    PARAMETER osit$S_extended = 1
	    PARAMETER osit$V_extended = 0
	    PARAMETER osit$S_checksum = 1
	    PARAMETER osit$V_checksum = 1
	    PARAMETER osit$S_expedited = 1
	    PARAMETER osit$V_expedited = 2
	    PARAMETER osit$S_flow_control = 1
	    PARAMETER osit$V_flow_control = 3
	    PARAMETER osit$S_SEND_IMPLEMENTATION = 1
	    PARAMETER osit$V_SEND_IMPLEMENTATION = 4
	BYTE %FILL (1)
	END STRUCTURE	! osit_optmsk
	PARAMETER OSIT$M_MULTIPLE = '00000100'X
	STRUCTURE /osit_mult/
	    PARAMETER osit$S_multiple = 1
	    PARAMETER osit$V_multiple = 8
	BYTE %FILL (1)
	END STRUCTURE	! osit_mult
	PARAMETER OSIT$M_CLASS_0 = '00000001'X
	PARAMETER OSIT$M_CLASS_1 = '00000002'X
	PARAMETER OSIT$M_CLASS_2 = '00000004'X
	PARAMETER OSIT$M_CLASS_3 = '00000008'X
	PARAMETER OSIT$M_CLASS_4 = '00000010'X
	PARAMETER OSIT$K_OSI_PROTOCOL = '00000001'X
	STRUCTURE /osit_item/
	    INTEGER*2 osit$w_item_length
	    INTEGER*2 osit$w_item_type
	    UNION
	        MAP
	        BYTE      osit$b_item_byte
	        END MAP
	        MAP
	        INTEGER*2 osit$w_item_word
	        END MAP
	        MAP
	        INTEGER*4 osit$l_item_long
	        END MAP
	        MAP
	        CHARACTER*32 osit$t_item_string
	        END MAP
	        MAP
	        INTEGER*4 osit$q_item_quadword(2)
	        END MAP
	        MAP
	            INTEGER*4 osit$l_item_quad_lo
	            INTEGER*4 osit$l_item_quad_hi
	        END MAP
	        MAP
	            BYTE      osit$b_bcs_length
	            CHARACTER*247 osit$t_bcs_text
	        END MAP
	        MAP
	            INTEGER*2 osit$w_wcs_length
	            CHARACTER*246 osit$t_wcs_text
	        END MAP
	    END UNION
	END STRUCTURE	! osit_item
	PARAMETER OSIT$K_ITEM_HEADER_SIZE = '00000004'X
	PARAMETER OSIT$K_MAX_ITEM_SIZE = '000000F8'X
	PARAMETER OSIT$K_MAX_OUTPUT_ITEM_LIST = '00000161'X
 !  COPYRIGHT (c) 1991 BY
 !  DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
 ! 
 !  THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
 !  ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
 !  INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
 !  COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
 !  OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
 !  TRANSFERRED.
 ! 
 !  THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
 !  AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
 !  CORPORATION.
 ! 
 !  DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
 !  SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!DEC$ END OPTIONS
 
!*** MODULE $osit$NETFC ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER NFB$C_FC_ATTACH_TSAP = '00000027'X
!DEC$ END OPTIONS