• Subject: Re: DSP PGM REF Opposite
  • From: Bob Larkin <blarkin@xxxxxx>
  • Date: Thu, 25 Jan 2001 23:40:12 -0600

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
+---

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].