
  PROCEDURE [INLINE] fip#addl_integer_v2
    (VAR line: ost$string;
         integer_value: integer;
         radix: 2 .. 16;
         include_radix_specifier: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      int_string: ost$string;

    status.normal := TRUE;
    clp$convert_integer_to_string (integer_value, radix,
          include_radix_specifier, int_string, status);
    IF status.normal THEN
      fip#addl_string (line, int_string.value (1, int_string.size));
    IFEND;

  PROCEND fip#addl_integer_v2;
*copyc ost$string
*copyc ost$status
*copyc clp$convert_integer_to_string
*copyc fip#addl_string
?? POP ??


