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.S endMail.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.Sen dMail.Send3)
Global boolean &TERM_ASSOC;

&NBR_MAIL_FL AGS = 0;

&STR_MAIL_CC = "";

&STR_MAIL_BC C = "";

&STR_MAIL_FI LES = "";

&STR_MAIL_TITLE S = "";

&STR_MAIL_SENDE R = MsgGetText(2210 6, 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********@ce rner.com" And

(&TERM_ASSOC = False)) Then

&STR_MAIL_SUBJE CT = MsgGetText(2210 6, 2, "Message not found",
DateTimeToLocal izedString(%Dat e, "MM/dd/y"),
ZZ_TEXT_AET.ZZ_ ASSOC_NAME);

&STR_MAIL_TEXT_ ASSOC = MsgGetExplainTe xt(22106, 3, "Message not
found", DateTimeToLocal izedString(%Dat e, "MM/dd/y"),
ZZ_TEXT_AET.EMA IL_TEXTLONG2);

&NBR_RET = SendMail(&NBR_M AIL_FLAGS, ZZ_TEXT_AET.ZZ_ ASSOC_EMAIL,
&STR_MAIL_CC , &STR_MAIL_BC C, &STR_MAIL_SUBJE CT, &STR_MAIL_TEXT_ ASSOC,
&STR_MAIL_FILES , &STR_MAIL_TITLE S, &STR_MAIL_SENDE R, ";", "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_TEX T_AET
(PROCESS_INSTAN CE 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