Helen,

> if (param1='GOOD' ) then <--- if you use char(8) test for 'GOOD '

'GOOD' will do, strings are padded for comparison AFAIK.

> retparam = 100;
> else
> retparam = 0;

doesn't he need a suspend statement or is it unnecessary because the
parameters are returned anyway on exit?
Ciao
--
____
_/\/ando