
  PROCEDURE [INLINE] fip#addl_rjinteger
    (VAR line: ost$string;
         integer_value: integer;
         integer_size: 1 .. osc$max_string_size;
         fill_character: char;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    VAR
      string_p: ^string ( * );

    status.normal := TRUE;
    PUSH string_p: [integer_size];
    clp$convert_integer_to_rjstring (integer_value, 10, FALSE, fill_character,
          string_p^, status);
    IF status.normal THEN
      fip#addl_string (line, string_p^);
    IFEND;

  PROCEND fip#addl_rjinteger;
*copyc fip#addl_string
*copyc clp$convert_integer_to_rjstring
?? POP ??

