HP3000-L Archives

January 2005, Week 2

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:
Re: Cobol Errors
From:
Wyell Grunwald <[log in to unmask]>
Reply To:
Wyell Grunwald <[log in to unmask]>
Date:
Wed, 12 Jan 2005 09:53:17 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (46 lines) 
The key is the line:

$$$$ The variable 101 > 100 (limit)

which means that you have a table set up in working storage that has an
OCCURS 100 TIMES on it, and you refrence the 101st entry, which is
outside the tables size !

If you compile your source code with $CONTROL MAP, VERBS at the top, it
will give you the address of all the variables in working storage, so
you can take the address buried below to point to the correct variable,
but my guess is that it would be easier for you to just look for the
OCCURS 100 TIMES.


>>> Jacqueline Savinon <[log in to unmask]> Wednesday, January
12, 2005 9:19:54 AM >>>
Can someone please tell me what these errors mean?  TIA

Program file: CPP0550.PROGXL.AIH
Trap type = 00080000 (12,00), at pc = 00000514.00253BD7
range error
DEBUG/iX C.45.05
HPDEBUG Intrinsic at: 1c2.00270304 cob_trap.print_message+$5ec
$$$$ Trap occurred at: cls0651$001$+$6120, at ????
PC=514.00253bd4 cls0651$001$+$6120
* 0) SP=41a99770 RP=514.0023f5d4 ?cls0651+$8
(423/464) Continue?
export stub: 514.01033644 cls0599$001$+$4e14
1) SP=41a5f2f0 RP=514.01021b20 ?cls0599+$8
export stub: 249.000085c8 _start+$a98
2) SP=41a5c370 RP=249.00000000
(end of NM stack)
$$$$ The variable 101 > 100 (limit)
============================================================
**** COB_QUIT 751 ****

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


IMPORTANT WARNING: The information in this message (and the documents attached to it, if any) is confidential and may be legally privileged. It is intended solely for the addressee. Access to this message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken, or omitted to be taken, in reliance on it is prohibited and may be unlawful. If you have received this message in error, please delete all electronic copies of this message (and the documents attached to it, if any), destroy any hard copies you may have created and notify me immediately by replying to this email. Thank you.

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

ATOM RSS1 RSS2