Re: Function to find the greatest or smallest value

David,

Untested code (but I can't see why it wouldn't work:

P @max B Export
D PI 30P 9
D p1 30P 9 Const
D p2 30P 9 Const
D p3 30P 9 Const Options(*Nopass)
D p4 30P 9 Const Options(*Nopass)
D p5 30P 9 Const Options(*Nopass)
*---------------------------------------------------------------------
D out S 30P 9
*---------------------------------------------------------------------
/free

out = p1;
if p2 > out;
out = p2;
endif;
if %parms > 2;
if p3 > out;
out = p3;
endif;
if %parms > 3;
if p4 > out;
out = p4;
endif;
if %parms > 4;
if p5 > out;
out = p5;
endif;
endif;
endif;
endif;

return out;

begsr *pssr;
return 0;
endsr;

/end-free

This allows up to 5 parameters, so you can use it like this:

myvar = @max( var1 : var2 : var3 );

Almost the exact same code (with > replaced with <) can be used for a @min
function, obviously.

Put it into a module and then bind it into a service program - I have one
with generic functions like this, which is in a 'global' binding directory
so it can be bound to every program that needs it easily.

Rory