|
midrange.com
Here is a program that I have used to identify the program that triggered
the trigger:
Identifying Calling Program
CALLERID
*************** Beginning of data
**************************************************************
H DEBUG
H**********************************************************************************************
H* (C) COPYRIGHT edcor DATA SERVICES 2000.
H**********************************************************************************************
H*
H* Program Name: CALLERID
H*
H* Description: Obtain the name of the program that fired the
trigger
H*
H* Written By: Karen Hodge
H*
H* Date Written: 08/13/2002
H*
H* Notes: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
H* XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
H*
H* Modifications: XXX XX/XX/XX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
H* XXX XX/XX/XX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
H* XXX XX/XX/XX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
H*
H***************************************************************************
*
******************************************************************
* System API Error code
d Qusec DS
d QusBPrv 1 4B 0
d QusBAvl 5 8B 0
d Qusei 9 15
d Quserved 16 16
* Type definition for the RCVM0200 format
d RCVM0200 DS 120
d Program 111 120
******************************************************************
* Standalone Field Definitions
******************************************************************
* Program message parameters
d Pm_MsgId S 7 Inz(*BLANKS)
d Pm_MsgF S 20 Inz(*BLANKS)
d Pm_MsgDta S 12 Inz('Who are you?')
d Pm_Length S 9B 0
d Pm_MType S 10 Inz('*INFO')
d Pm_MKey S 4 Inz(*BLANKS)
d Pm_CSEntry S 10 Inz('*')
d Pm_Counter S 9B 0 Inz(5)
d Pm_Format S 8 Inz('RCVM0200')
d Pm_Wait S 9B 0 Inz(0)
d Pm_Action S 10 Inz('*REMOVE')
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* MAIN LINE PROCESSING.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
******************************************************************
* SET UP THE ENTRY PARAMETER LIST.
******************************************************************
C *ENTRY PLIST
C PARM caller 10
******************************************************************
* Set error code structure not to use exceptions
C Z-ADD 16 QusBPrv
* Set length of message data
C Z-ADD 12 PM_Length
* Send program message
C call 'QMHSNDPM'
C PARM PM_MsgID
C PARM PM_MsgF
C PARM PM_MsgDta
C PARM PM_Length
C PARM PM_Mtype
C PARM PM_CSEntry
C PARM PM_Counter
C PARM PM_MKey
C PARM Qusec
*
* Check for errors
C if QusBAvl > 0
C exsr *PSSR
C endif
* Clear return data structure
C clear RCVM0200
* Set length of message information
C Z-ADD 120 PM_Length
* Receive program message
C call 'QMHRCVPM'
C PARM RCVM0200
C PARM PM_Length
C PARM PM_Format
C PARM PM_CSEntry
C PARM PM_Counter
C PARM PM_MType
C PARM PM_MKey
C PARM PM_Wait
C PARM PM_Action
C PARM Qusec
* Check for errors
C if QusBAvl > 0
C exsr *PSSR
C endif
*
C move Program Caller
*
C Return
*************************************************************
* *PSSR - Error Handling Subroutine
**************************************************************
C *PSSR BegSr
*
C Return
*
C EndSr
****************** End of data ********************************
Thank you,
Karen Hodge
Senior System Analyst
Genesys Health System
1000 Healthpark Blvd, Grand Blanc, Mi 48439
Office 810.606.5180, Fax 810.606.7204
khodge@xxxxxxxxxxx
rpg400-l-request@
midrange.com
Sent by: To
rpg400-l-bounces@ rpg400-l@xxxxxxxxxxxx
midrange.com cc
Subject
02/11/2005 01:01 RPG400-L Digest, Vol 4, Issue 188
PM
Please respond to
rpg400-l@midrange
.com
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."
Today's Topics:
1. RE: How to detect what program triggered the trigger?
(GKern@xxxxxxxxxxxxxxxx)
2. RE: How to detect what program triggered the trigger?
(MWalter@xxxxxxxxxxxxxxx)
3. Re: How to detect what program triggered the trigger? (Raul Jager)
----------------------------------------------------------------------
message: 1
date: Fri, 11 Feb 2005 12:45:27 -0500
from: GKern@xxxxxxxxxxxxxxxx
subject: RE: How to detect what program triggered the trigger?
Thanks Scott & Walt. I will search the archives and iSeries network. I
just needed to know what it is exactly that I should be looking for.
Regards, Jerry
Gerald Kern
IBM Certified AS/400 RPG IV Developer & RPG IV Programmer
MIS Project Leader, Lotus Notes/Domino Administrator
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx
*****
This email message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or distribution is
prohibited. If you are not the intended recipient, please contact the
sender by reply email and destroy all copies of the original message.
------------------------------
message: 2
date: Fri, 11 Feb 2005 12:58:55 -0500
from: MWalter@xxxxxxxxxxxxxxx
subject: RE: How to detect what program triggered the trigger?
Jerry,
I would suspect that you are going to be reading back up the call stack.
But I'm not exactly sure. That's one aspect of a trigger that I've never
had to do. Good Luck.
Thanks,
Mark
Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com
GKern@toledoclini
c.com
Sent by: To
rpg400-l-bounces@ rpg400-l@xxxxxxxxxxxx
midrange.com cc
Subject
02/11/2005 12:45 RE: How to detect what program
PM triggered the trigger?
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
Thanks Scott & Walt. I will search the archives and iSeries network. I
just needed to know what it is exactly that I should be looking for.
Regards, Jerry
Gerald Kern
IBM Certified AS/400 RPG IV Developer & RPG IV Programmer
MIS Project Leader, Lotus Notes/Domino Administrator
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx
*****
This email message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or distribution is
prohibited. If you are not the intended recipient, please contact the
sender by reply email and destroy all copies of the original message.--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
------------------------------
message: 3
date: Fri, 11 Feb 2005 14:54:39 -0300
from: Raul Jager <raul@xxxxxxxxxx>
subject: Re: How to detect what program triggered the trigger?
You can get the name of the calling program using the API QWVRCSTK
I can send a sample offline, if you want.
GKern@xxxxxxxxxxxxxxxx wrote:
>Thanks Scott & Walt. I will search the archives and iSeries network. I
>just needed to know what it is exactly that I should be looking for.
>
>Regards, Jerry
>
>Gerald Kern
>IBM Certified AS/400 RPG IV Developer & RPG IV Programmer
>MIS Project Leader, Lotus Notes/Domino Administrator
>The Toledo Clinic, Inc.
>4235 Secor Road
>Toledo, OH 43623-4299
>Phone 419-479-5535
>gkern@xxxxxxxxxxxxxxxx
>
>*****
>This email message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or distribution is
prohibited. If you are not the intended recipient, please contact the
sender by reply email and destroy all copies of the original message.
>
------------------------------
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) digest list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
End of RPG400-L Digest, Vol 4, Issue 188
****************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
