RE: MCH3402

>Date: Mon, 11 Oct 1999 09:19:40 -0500
>From: "Leland, David" <dleland@Harter.com>
>
>Unfortunately, there are many other programs being called in the job.
>It's an "async" job which waits for an entry to hit a data queue and
>then calls other programs with the data received.  Looks like I could
>be in for a long hunt here.

Dave, do you know what storage is being corrupted (sorry if I missed
this earlier in the thread)?  If you do, and if you can debug the job
you could put a watch on that storage and know exactly where it gets
corrupted.

If you don't own the storage that's being corrupted (if it appears to be
in some compiler-internal storage), one useful trick is to add some padding
after each one of your declarations - initialize this storage to all 'z' or
something, and check it periodically while your program is running (or check
the values in the formatted dump, or put a watch on all of them if that's
feasible...)  Note that you can't count on your variables being held in
storage in the same order you define them in your program so you can't just
add a big pad area at the end of all your declarations.

Example:

D fld1          s            10a
D ds2           ds
D   sub1                     10a

Change to:

D               ds
D  fld1                      10a
D  fld1_pad                  10a   inz(*all'z')

D ds2           ds
D  sub1                      10a
D  ds2_pad                   10a   inz(*all'z')

You could add some code to print all these pad areas out just before the
line where the error occurs (if it always happens at the same place ...).

Good luck ...
Barbara Morris



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