
  PROCEDURE [INLINE] fip#addl_integer
    (VAR line: ost$string;
         integer_value: integer;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      int_string: ost$string;

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

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

