PROCEDURE [INLINE] nfp$modify_param_value_length
  (VAR parameter_value_length: integer);

  IF parameter_value_length = 0 THEN
    parameter_value_length := 1;
  IFEND;

PROCEND nfp$modify_param_value_length;
