× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Found it. Thanks! Not sure why it was done this way?, but now I know
what it's doing. YIN0010C is the CLP program which I suspected was
called.


CREATE PROCEDURE CCSPROD.ATS_NEW_RECORD (

IN HMYPERSON CHAR(9) )

LANGUAGE CL

SPECIFIC CCSPROD.ATS_NEW_RECORD

NOT DETERMINISTIC

NO SQL

CALLED ON NULL INPUT

EXTERNAL NAME 'CCSPROD/YIN0010C'

PARAMETER STYLE GENERAL ;


-----Original Message-----
From: midrange-l-bounces+larry.leibowitz=ced-concord.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+larry.leibowitz=ced-concord.com@xxxxxxxxxxxx]
On Behalf Of Elvis Budimlic
Sent: Friday, September 28, 2007 3:44 PM
To: 'Midrange Systems Technical Discussion'
Subject: RE: Retrieve SQL Trigger Source

Are you sure it's a CL program and not a stored procedure?
In that same iNav interface, click on Procedures and see if you have one
by
the name ATS_NEW_RECORD. If you do you can Generate SQL for it and see
what
it calls.

Elvis

RPG & DB2 Summit | Minneapolis | October 1-4
Mike Cain - DB2 for i5/OS Temporary Indexes - The Good, The Bad, The
Ugly
October 16
2007 System i Fall Technical Conference | Orlando | November 4-7
Celebrating 10-Years of SQL Performance Excellence on IBM System i,
eServer
iSeries and the server affectionately known as the AS/400

-----Original Message-----
Subject: RE: Retrieve SQL Trigger Source

Great! Got it (see below)...

Now how can I find the program that gets called below: CALL CCSPROD .
ATS_NEW_RECORD

I am pretty sure I know which CLP Program it is, but how can I find out
if it's the ATS_NEW_RECORD?

CREATE TRIGGER CCSPROD.ATS_NEW_APPL

AFTER INSERT ON CCSPROD.CCPYARDI

REFERENCING NEW AS NROW

FOR EACH ROW

MODE DB2SQL

BEGIN ATOMIC DECLARE CPERSON CHAR ( 9 ) ; SET "SQLP_L2" . CPERSON
= QSYS2 . CAST ( NROW . HMYPERSON AS CHAR ( 9 ) ) ; CALL CCSPROD .
ATS_NEW_RECORD ( "SQLP_L2" . CPERSON ) ; END ;



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.