Re: Trigger question

[James Lampert <jamesl@xxxxxxxxxxxxxxxxx>]

Elvis Budimlic wrote:
> Google "trigger QWVRCSTK" and you'll get one possible solution.

Interesting, but I can't guarantee that QWVRCSTK will be available on 
customer boxes (and it CERTAINLY isn't available on most of ours!)

But that did lead me to Richard Ecuyer's example from February 2006:

   http://archive.midrange.com/midrange-l/200602/msg00666.html

The only problem with that is that it doesn't work: it climbs past the 
caller, all the way to QUICMD, QUOCMD, or whatever. In the example, we have:

> D Pm_CSEntry      S             10    Inz('*')
> D Pm_Counter      S              9B 0
. . .
> c                   Eval      pm_counter=5

which looks like it just climbs 5 levels back from the trigger itself. 
Why 5 levels? Wouldn't it make more sense (as in the CL examples I 
looked at that work on the same principle) to look for whatever called 
QDBUDR or QDBPUT?