SQL Trigger not executing

All,
I have a SQL Trigger setup at follows:
Create Trigger UPC_File_DL
After Delete
On FInUPC
Referencing Old as O
For Each Row Mode DB2Row
When (SubStr(O.InUPC, 1, 1) >= 0
and Character_Length(Trim(O.InUPC)) between 12 and 14)
Begin
Declare DQ_Name Char (10);
Declare DQ_Lib Char (10);
Declare DQ_Len Dec (5) ;
Declare DQ_DATA CHAR (128);
Declare Record_Id Char (10);
Set Record_Id = 'ITEM';
Set DQ_Name = 'LUCAS_EXP';
Set DQ_Lib = '*LIBL';
Set DQ_Data = Record_Id || O.InItem;
Set DQ_Len = Character_Length(Trim(DQ_Data));
Call Send_DataQ (DQ_Name, DQ_Lib, DQ_Len, DQ_Data);
End
;

In my RPG program, I am deleting some records, but the trigger does not
appear to execute.
I have a journal setup on the data queue, and when I issue the DSPJRN
command for it, it does not show any entries.

Is there a way to determine why this is not working?

TIA
Jeff Young
Sr. Programmer Analyst