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

ManualsBrandsHP ManualsSoftwareMPE/iX 6.5 Operating System

Table Of Contents

Chapter 4 133

NetIPC Examples

Example 1

• sends a “termination conﬁrmation message” in response to the

termination request;

• receives a

result

parameter value of 64 (“REMOTE ABORTED

CONNECTION”) in response to a receive request;

• releases its VC socket.

Program 1A

$standard_level 'HP3000', uslinit$

program connection_example1 (input,output);

const

maxdata = 2000;

maxmsg = maxdata + 2;

maxname = 20;

maxloc = 20;

type

smallint = -32768..32767;

datatype = record;

len : smallint;

msg : packed array[1..maxdata] of char;

end;

timeval type =

record case boolean of

true : (int : smallint);

false : (chars : packed array [1..30] of char);

end;

nametype = packed array[1..maxname] of char;

loctype = packed array[1..maxloc] of char;

var calldesc : integer; {2-word integer}

vcdesc : integer;

protocol : integer;

socket_kind : integer;

dest : integer;

result : integer;

data : datatype;

name : nametype;

location : loctype;

y_len : integer;

y_data : char;

num_msgs : integer;

strdata : string[maxdata];

i : integer;

timeval : timeval type;

procedure terminate; intrinsic;

{NetIPC intrinsic declarations}

procedure ipccreate; intrinsic;

procedure ipclookup; intrinsic;