! ********************************************************************************************************************************
!  Created: 12-May-2010 16:25:40 by OpenVMS SDL EV2-3      
!  Source:  12-MAY-2010 16:25:38 DISK$SYSMAN:[LAISHEV.WORK.OBIMP]OBIMPDEF.SDL;27 
! ********************************************************************************************************************************
 
!*** MODULE OBIMPDEF IDENT OBIMPDEF-1-X ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! ++
 ! 
 !  Facility:
 !       Open Instante Messaging Binary Protocol
 ! 
 !  Abstract:
 !       This is an interface module contains data structures definitions,
 !       constants, functions/procedures prototypes based on the:
 ! 	OBIMP Draft 1.0 by Ilgam Z. (c). www.bimoid.com, www.obimp.com
 ! 
 !  Author:
 !       Ruslan R. Laishev
 ! 
 !  Creation Date: 12-MAY-2010
 ! 
 !  Modification History:
 ! 
 ! 
 ! --
	PARAMETER OBIMP$PORT_OBIMP = '00001B6F'X  !  TCP port number, for client server interchange
	PARAMETER OBIMP$PORT_OBIMPCTL = '00001B70'X  !  TCP port number, server management interface
	PARAMETER OBIMP$PORT_OBIMPS = '00001B71'X  !  TCP port number, for client server interchange over T
	PARAMETER OBIMP$PORT_OBIMPCTLS = '00001B72'X  !  TCP port number, server management interface over 
	PARAMETER OBIMP$K_MAXTHDS = '00000020'X
 ! 
 ! 	OBIMP Binary Extension Types (request code)
 ! 
	PARAMETER OBIMP$BEX_COM = '00000000'X	 !  Common. (OBIMP_BEX_COM)
	PARAMETER OBIMP$BEX_CL = '00000001'X	 !  Contact list. (OBIMP_BEX_CL)
	PARAMETER OBIMP$BEX_PRES = '00000002'X	 !  Presence (OBIMP_BEX_PRES)
	PARAMETER OBIMP$BEX_IM = '00000003'X	 !  Instant messaging (OBIMP_BEX_IM)
	PARAMETER OBIMP$BEX_UD = '00000004'X	 !  Users directory (OBIMP_BEX_UD)
	PARAMETER OBIMP$BEX_UA = '00000005'X	 !  User avatars (OBIMP_BEX_UA)
 ! 
 ! 	OBIMP BEX SubTypes
 ! 
	PARAMETER OBIMP$SBEX_HELLO = '00000000'X
	PARAMETER OBIMP$SBEX_LOGIN = '00000001'X
 ! 
 ! 	OBIMP Data Types
 ! 
	STRUCTURE /OBIMP$_DTP/
	UNION
	    MAP
	    BYTE      dt				 !  
	    END MAP
	    MAP
	    INTEGER*2 dt
	    END MAP
	    MAP
	    INTEGER*4 dt
	    END MAP
	    MAP
	    INTEGER*4 dt(2)
	    END MAP
	    MAP
	    INTEGER*4 dt(4)
	    END MAP
	    MAP
	    BYTE      blk(1:1)			 !  
	    END MAP
	END UNION
	END STRUCTURE	! OBIMP$_DTP
 ! 
 ! 
 ! 
	STRUCTURE /OBIMP$_STLD/
	    INTEGER*2 stld$w_type
	    INTEGER*2 stld$w_len
	    RECORD /OBIMP$_DTP/ stld$r_data
	END STRUCTURE	! OBIMP$_STLD
	STRUCTURE /OBIMP$_WTLD/
	    INTEGER*4 stld$l_type
	    INTEGER*4 stld$l_len
	    RECORD /OBIMP$_DTP/ stld$r_data
	END STRUCTURE	! OBIMP$_WTLD
!DEC$ END OPTIONS