Problem with trigger

Hi guys

I read an arcticle on isersies network and I try to get caller ID in trigger
program
(http://www.iseriesnetwork.com/artarchive/index.cfm?fuseaction=viewarticle&C
O_ContentID=2690&channel=art&subart=issue&issueid=258 )

The problem is that I get always program name as QDBDUR - it seems that
program don't want "go back" and retrieve all call stack entries.

Calling caller (P74CALL) in trigger is:

C                   Call      'P74CALL'                               
C                   Parm                    WhoCalled                 
C                   Parm      @PGM          Caller                    
C*                                                                    
C                   Clear                   Loop                      
C                   Dou       %Subst(WhoCalled:1:1) <> 'Q'            
C                             Or Loop = 11.                           
C                   Eval      Loop = (Loop + 1)                       
C                   Movel(p)  WhoCalled     Caller                    
C                   Movel     *BLANKS       WhoCalled                 
                
C                   Call      'P74CALL'                               
C                   Parm                    WhoCalled                 
C                   Parm                    Caller                    
c                   Enddo                  

Could you help me why it don't work?

P74CALL is:

*************** Beginning of data
*************************************************************************
 * 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                                 *

 ****************************************************************

 

                             
 ****************************************************************

 * Main Program                                                 *

 ****************************************************************

 

 * 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


Regards

Do you have any idea what is wrong?

Tomasz Skorza