Re: DSP PGM REF Opposite

As a consultant, I run across this quite often. Working on an unfamiliar
application, you know a problem exists in a given program, but you don't have a
clue how the progeam is executed.  Assuming the user can recreate the problem,
looking at the call stack can provide the answer. the problem in your situation,
is that you do not know at what split second ORD561 is executing. Here is my
solution:

Start debug on the program in question(ORD561) . Make sure to use UPDPROD(*YES).
        (I usually use STRSRVJOB from my workstation over the user's job.
        Using STRSRVJOB the STRDBG command is executed over the serviced job.
        This way you can even use this technique in batch or interactive jobs.)
CHGDBG MAXTRC(1)
ADDTRC
Have user perform the function.
As soon as the program (ORD561) begins, the trace will be full, and the job will
halt.
        a trace full message will be displayed at your workstation.
DSPJOB option 11 on the user's job. You now see the call stack.
ENDDBG
ENDSRVJOB

Not the most elegant way, but it will give you the answer you need.

What do you think, a worthwhile technique.

Bob

MacWheel99@aol.com wrote:

> Is there an IBM command that tells me other direction from DSPPGMREF?
> I would key in some command (I am making this up <G>) like
> DSPCALLME ORD561
>
> snip
>
> Currently my users get ORD561 report every time they do shipping documents
> ORD595 & ORD596 which I am told comes from ORD590 menu option, and they want
> me to modify ORD561 PRTF overrides & I am having a hard time tracing where
> that is in the ORD590 flow, so either the users are mistaken or I am missing
> something.
>
> snip

> MacWheel99@aol.com (Alister Wm Macintyre) (Al Mac)
> AS/400 Data Manager & Programmer for BPCS 405 CD Rel-02 mixed mode (twinax
> interactive & batch) @ http://www.cen-elec.com Central Industries of
> Indiana--->Quality manufacturer of wire harnesses and electrical
> sub-assemblies - fax # 812-424-6838
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---