iX Computer Systems - Edition 1 (32715-90001)

3- 44

Parameter type correspondence for numeric arrays is the same as that for

scalar numeric parameters. The corresponding formal parameter for string

array parameters in the procedure or function header for the procedure or

function must be a string array that conforms to the type expected by An

HP Business BASIC/XL procedure or function.

All arrays are passed by reference.

Examples

If the external HP Pascal/XL function func is defined:

function func (c: color;

var s: str5;

var i1: int1;

var i2: integer;

r: real;

var l: longreal): real;

And the types color, str5, and int1 are defined:

color = (red,blue,yellow);

str5 = packed array [1..5] of char;

int1 = shortint;

int2 = integer;

Then the following EXTERNAL statement is correct:

100 EXTERNAL PASCAL SHORT REAL FNFunc ALIAS "func" &

(BYTE VALUE C, BYTE S$, SHORT INTEGER I1, INTEGER I2, &

SHORT REAL VALUE R, REAL L)