HP3000-L Archives

August 2001, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"BURNEY,DAVID (Non-A-Singapore,ex1)" <[log in to unmask]>
Reply To:
BURNEY,DAVID (Non-A-Singapore,ex1)
Date:
Thu, 2 Aug 2001 17:08:45 +0900
Content-Type:
text/plain
Parts/Attachments:
text/plain (52 lines)
Hi Jim,

How's Ohio ?

It sounds like you might be getting a bounds violation.
Maybe on a subscript or counter.  Try putting
the BOUNDS statement in the $CONTROL and re-running
it. It should give you a 'stmt' number to look at
in the compile listing.

Hope this helps.

David

-----Original Message-----
From: Jim Phillips [mailto:[log in to unmask]]
Sent: Thursday, August 02, 2001 4:48 AM
To: [log in to unmask]
Subject: [HP3000-L] Internal Trap Error


I'm getting the following error from a DBFIND on a new data set:

 **** INTERNAL TRAP
 Data Memory Protection Trap
 [VSM] Undecoded status.info = -37
 ABORT: MMP000.OBJECT.CUSTOM
 NM USER  288.0054aee0 dbfind+$c8
 NM PUB   12fc.1bb5b3ec mmp813+$236c
 NM PROG  e91.0001af58 mmp000$001$+$69d0

I've looked at the code and can't find anything obvious wrong with it.
There are other data sets in the data base that I can access
programmatically.  Using QUERY to access the offending data set works okay.
Using DISPLAY statements (the code is in COBOL), I have verified that it is,
in fact, failing on the DBFIND call.  The main program is MMP000 which calls
MMP813 which is calling the DBFIND (gee, what a firm grasp of the obvious I
have).  Any ideas on what is going wrong here?

Jim Phillips                            Therm-O-Link, Inc.
MIS Manager                        1295 Henry Brennan
Voice: 915-860-9933             El Paso, Texas
Fax: 915-860-9936                 79936
Email: [log in to unmask]
Web: www.tolwire.com

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2