RE: [EXTERNAL] Trigger and recursion problem -- RPG400-L

Accessing the SQL Table Function STACK_INFO might be easier than using a System_API for retrieving the call stack

Select * from Table(Stack_Info('*'));

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
„Train people well enough so they can leave, treat them well enough so they don't want to.“ (Richard Branson)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Raul Alberto Jager Weiler
Sent: Freitag, 14. August 2020 05:36
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Trigger and recursion problem

RTV stk. Retrive stack, You call the API and it returns all the secuence of programas. Sorry, I do not have the details in My phone.

El jue., 13 de ago. de 2020 21:35, Don Brown via RPG400-L < rpg400-l@xxxxxxxxxxxxxxxxxx> escribió:

Hi Gio,

I remember reading a post some time back about how to retrieve the
name of the program that updated/inserted/deleted the record that
fired the trigger.

I would presume if you knew the name of the program was NOT the
trigger program that you could ascertain what to do in the trigger
program if I am understanding your question.

It may also help if you could provide more information why updating
one record in the file would require updates to other record(s) in the
same file. (I remember doing things like this a hundred years ago to
maintain RRN chains )

Cheers

From: "Alan Shore via RPG400-L" <rpg400-l@xxxxxxxxxxxxxxxxxx>
To: "RPG programming on IBM i" <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: "Alan Shore" <ashore@xxxxxxxx>, "gio.cot" <gio.cot@xxxxxxxxxxx>
Date: 13/08/2020 07:51 PM
Subject: RE: [EXTERNAL] Trigger and recursion problem
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>

Hi Gio
Unless someone says something different, I believe you HAVE to let
this happen A Trigger program captures what is being changed on the
data The suggestions of using a certain language to bypass the trigger
makes no sense You are capturing the data change It shouldn’t matter
what is used to make that data change Anyway, you say that one
particular change could "trigger" a change to a different record on
the same file This should eventually end If it doesn’t, then the logic
that links an update to another record is faulty (in my opinion)

For example
A change to record 1, triggers a change to record 2 A change to record
2, triggers a change to record 3 A change to record 3, triggers a
change to record 4 A change to record 4, triggers a change to record 5
The fault will be if a change to record 5 triggers a change to records
1, 2, 3 or 4 Then the perpetual loop continues If this IS in fact what
needs to happen, I would be asking why?
The jumps HAVE to end sometime

I CAN see that if the jumps are in fact limited, the trigger program
could bog down the system because so may jumps are being created

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf
Of gio.cot via RPG400-L
Sent: Thursday, August 13, 2020 5:31 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Cc: gio.cot <gio.cot@xxxxxxxxxxx>
Subject: [EXTERNAL] Trigger and recursion problem

Hi all

I have this situation:

in the item master data file, i have a trigger ; now i would need add
in the trigger program a change, that in some situation do some
update to another record always in the item master data file , which
however fire again the trigger causing recursive error. How could
menage this situation (trigger that updates another record of the same
file that has fired the
trigger) ?

i have read several post (some one say to use C, other says that i can
use CLP or also Ile with procedure.. and i'm very confused) in this
moment i have a master/mediator trigger program that call one o more
program (reading a file where i have strored the programs to call)
that receive this two parameters

DbTrgDs

DbTrgLen

DbTrgDS DS

DbFil Like( StdNam )

DbLib Like( StdNam )

DbMbr Like( StdNam )

DbTrgAct Like( StdChr )

DbTrgTim Like( StdChr )

DbCmtLck Like( StdChr )

DbReserve1 3

DbCcsId Like( StdBin4)

DbReserve2 8

DbBfrOfs Like( StdBin4)

DbBfrLen Like( StdBin4)

DbBfrNulOf Like( StdBin4)

DbBfrNulLn Like( StdBin4)

DbAftOfs Like( StdBin4)

DbAftLen Like( StdBin4)

DbAftNulOf Like( StdBin4)

DbAftNulLn Like( StdBin4)

DbTrgBuf 1 32767A

DbTrgAry 1A OverLay( DbTrgBuf )

Dim( %Size ( DbTrgBuf ))

DbTrgAry 1 32767 Dim( 32767 )

DbTrgLen S Like( StdBin4 )

Any idea or suggestion ? (P.S. i'm running on V7R2)

Thanks in advance

Gio

--
Questa e-mail è stata controllata per individuare virus con Avast
antivirus.
https://www.avast.com/antivirus
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
______________________________________________________________________

______________________________________________________________________
This email has been scanned for computer viruses. Although MSD has
taken reasonable precautions to ensure no viruses are present in this
email, MSD cannot accept responsibility for any loss or damage arising
from the use of this email or attachments.
______________________________________________________________________
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com