Jeff,
Shouldn't it be ">= '0' " (zero in quotes)?
Regards,
Luis
Sent from my Moto G phone. Please excuse my brevity.
On Jul 28, 2017 14:02, "Jeff Young" <jyoung0950@xxxxxxxxx> wrote:
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
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
http://amzn.to/2dEadiD
midrange.com
