NetIPC 3000/XL Programmer's Reference Manual (5958-8600)

148 Chapter4
NetIPC Examples
Example 3
Example 3
Example 3 includes a pair of programs designated requester
(X25CHECK) and server (X25SERV) using direct access to X.25 at
level 3. These programs must be compiled in compatibility mode. The
X.25 features used in these programs are the set supported on MPE-V.
Example 4 uses the additional X.25 features supported on MPE XL.
The program functions are described in the comments included with
the program listings.
Program 3A (X25CHECK)
{*************************************************************}
{ Declarations for X52CHECK and X25SERVR }
{*************************************************************}
CONST
c_prot_addr_x25chk = 31000; {X25CHECK protocol address}
c_prot_addr_server = 31001; {X25SERV protocol address}
{These decimal addresses are in the range 30767..32767 where PM }
{ is not required }
c_patern='abcdefghijklmnopqrstuvwxyz0123456789';
c_buffer_len = 36;
c_nb_loop =10;
c_calling_add_code = 141;
c_prot_add_code = 128;
c_net_name_code = 140;
c_clear_rcvd = 67; {SOCKERR for a CLEAR packet received}
TYPE
shint = -32768..32767;
nibble = 0..15;
byte = 0..255;
rc_type = (done,
error,
no_vc_desc,
no_dest_desc,
no_call_desc);
event_type = (i_addopt,
i_create,
i_dest,
i_connect,
i_recv_call_conf,
i_send,
i_recv,
i_shut_source,
i_shut_dest,
i_shut_connection);
event_msg_type = array [event_type] of string[80];
opt_type = packed record { }
length : shint; { }
num_entries : shint; {Declarations}