CLI0109E String Data Right Truncation SQLSTATE=22001

[Brenda]

We are on DB2, AIX fixpak 14

This error happens when running PeopleSoft PeopleCode Application
Engine process.

I have checked other posts out here and it seems like others who have
reported it seem to be saying their is a problem with the way DB2 is
interpreting a string statement with a varchar field.

-- 00.03.40 ..(ZZ_EX_NOTS.SendMail.Send3) (PeopleCode)

-- 00.03.41 Application Engine program ZZ_EX_NOTS ended normally

-- 00.03.41 SQL Error: [IBM][CLI Driver] CLI0109E String data right
truncation. SQLSTATE=22001 (SQLSTATE 22001) -99999
THIS CODE BELOW IS (ZZ_EX_NOTS.SendMail.Send3)
Global boolean &TERM_ASSOC;

&NBR_MAIL_FLAGS = 0;

&STR_MAIL_CC = "";

&STR_MAIL_BCC = "";

&STR_MAIL_FILES = "";

&STR_MAIL_TITLES = "";

&STR_MAIL_SENDER = MsgGetText(22106, 1, "Message not found");

If (Weekday(%Date) = 1) Then

/*Sends email to associates*/

/*Neal NEVER gets an email about this*/

If (ZZ_TEXT_AET.ZZ_ASSOC_EMAIL <"np********@cerner.com" And

(&TERM_ASSOC = False)) Then

&STR_MAIL_SUBJECT = MsgGetText(22106, 2, "Message not found",
DateTimeToLocalizedString(%Date, "MM/dd/y"),
ZZ_TEXT_AET.ZZ_ASSOC_NAME);

&STR_MAIL_TEXT_ASSOC = MsgGetExplainText(22106, 3, "Message not
found", DateTimeToLocalizedString(%Date, "MM/dd/y"),
ZZ_TEXT_AET.EMAIL_TEXTLONG2);

&NBR_RET = SendMail(&NBR_MAIL_FLAGS, ZZ_TEXT_AET.ZZ_ASSOC_EMAIL,
&STR_MAIL_CC, &STR_MAIL_BCC, &STR_MAIL_SUBJECT, &STR_MAIL_TEXT_ASSOC,
&STR_MAIL_FILES, &STR_MAIL_TITLES, &STR_MAIL_SENDER, ";", "Content-
type: text/html; charset=utf8");

If Not (&NBR_RET = 0) Then

MessageBox(0, "", 0, 0, "Return status from mail = " |
&NBR_RET);

End-If;

End-If;

End-If;
The table is called zz_text_aet. On our database I pulled the DDL:

CREATE TABLE PSADM.PS_ZZ_TEXT_AET
(PROCESS_INSTANCE DECIMAL(10, 0) NOT NULL,
EMPLID CHARACTER(11) NOT NULL,
ZZ_ASSOC_NAME CHARACTER(50) NOT NULL,
ZZ_ASSOC_EMAIL CHARACTER(50) NOT NULL,
ZZ_MGR_NAME CHARACTER(50) NOT NULL,
ZZ_MGR_EMAIL CHARACTER(50) NOT NULL,
ZZ_EXEC_NAME CHARACTER(50) NOT NULL,
ZZ_EXEC_EMAIL CHARACTER(50) NOT NULL,
PERIOD_END_DT DATE,
LINE_OF_BUS CHARACTER(50) NOT NULL,
PROJECT_ID CHARACTER(15) NOT NULL,
EMAIL_TEXTLONG LONG VARCHAR,
EMAIL_TEXTLONG1 LONG VARCHAR,
EMAIL_TEXTLONG2 LONG VARCHAR

I believe it is having a problem with the EMAIL_TEXTLONG2 field but
how do I figure out where the problem is? and how to resolve? This is
way over my head. Please help.

Thanks, Brenda