Easclamation mark when I mail and extract

Question

I have a procedure in a package which e-mails me a log of the last 24 hours jobs
  PROCEDURE Email_Log IS
    v_Msg        CLOB;
    v_Recipients Pkg.t_User_Data := Pkg.t_User_Data('[email protected]');
    v_Success    BOOLEAN;
    CURSOR Cur_Log IS
      SELECT Pkg.Pad_To_Length(Al.Log_Date, 11) ||
             Pkg.Pad_To_Length(Al.Log_Category, 45) ||
             Pkg.Pad_To_Length(Al.Log_Value, 55) || Chr(13) Msg_String
        FROM Log Al
       WHERE Log_Date BETWEEN Trunc(SYSDATE) - (24 / 24) AND
             Trunc(SYSDATE) + (3 / 24)
       ORDER BY Al.Log_Date DESC;
  BEGIN
    FOR Each_Record IN Cur_Activity_Log LOOP
      v_Msg := v_Msg || Each_Record.Msg_String;
    END LOOP;
    v_Success := Send_Mail_Pkg.Send_Mail(v_Msg_To          => v_Recipients,
                                         v_Msg_Subject     => 'Log Mail',
                                         v_Msg_Text        => v_Msg,
                                         v_Copy_To_Support => FALSE);
  END Email_Log;It all works fine execpt that I get an esclamation mark ('!') in the mail for some of the logs.
i.e. the information would be correct, but the '!' appears and the next text would be in the line below, rather than the same line.
13-DEC-07  AS_RUN                                       TV: As Run created successfully for: 12-DEC-07
13-DEC-07  AS_RUN      !
                                  TV: As Run created successfull y for: 12-DEC-07 
13-DEC-07  AS_RUN                                       TV: As Run created successfully for: 12-DEC-07All the information come from the same table.
"13-DEC-07" is one column
"AS_RUN" is another column
"TV: As Run created successfully for: 12-DEC-07" is the 3rd column
I have tried to change the Pad to lengh values, but it still returns the same result.
Also, there is a space in "successfull y" between the L and Y, but it is correct in the table I am exporting from.
Any idea, please?

Answer 1

FUNCTION Pad_To_Length(v_Source VARCHAR2,
Pad_Length NUMBER,
v_Pad_Char VARCHAR2) RETURN VARCHAR2 IS
v_Return_String VARCHAR2(2000);
BEGIN
IF Length(TRIM(v_Source)) < Pad_Length
THEN
--length of source is shorter than pad length
v_Return_String := Rpad(TRIM(v_Source), Pad_Length, v_Pad_Char);
ELSE
IF TRIM(v_Source) IS NULL
THEN
v_Return_String := Lpad(' ', Pad_Length, v_Pad_Char);
ELSE
--length is greater than pad length - need to trim
v_Return_String := Lpad(TRIM(v_Source), Pad_Length);
END IF;
END IF;
RETURN v_Return_String;
END Pad_To_lenght;