Wong, Wilson wrote:

>Does anyone know what causes a program to get a Data Memory Protection
>Trap error?  We are getting them intermittently in some of our screen
>(vplus) and batch programs.  We have replaced the program and it went
>away for awhile and then came back.  We have these same programs running
>on other HP3000 processors and do not get the error.  It seems to be
>isolated to just one of our HP3000s.
>
>
>
To create a bug catcher you can use the SETDUMP command to tell DEBUG
what you would
like to see if the program aborts. See example below.

This method should show if you are in user or system code and help to
isolate which direction to look. If you need further assistance,
feel free to follow up with a call or email.

TGIF,
Mike Hornsby
Beechglen Development Inc.
Support for HP3000s Since 1988
513-922-0509


:SETDUMP;DEBUG="DR;TR,I,D;DC PC-18,8;C;E"
:RUN IABORTP

**** INTERNAL TRAP
Data PAGE Fault
[VSM] Undecoded status.info = -300
ABORT: IABORTP.PUB.HORNSBY

R0 =00000000 00000000 00005193 c3c53800 R4 =ffffffff 41844170 000071e0
00000000
R8 =00000000 00000000 00000000 00000000 R12=00000000 00000000 00000000
00000000
R16=00000000 00000000 00000000 3b9ac9ff R20=4164602f 7cff2a2e 00000058
00000000
R24=00000080 d5b79d50 00000000 41646000 R28=41648000 d5b79d50 41844330
41646010

IPSW=00040b0f=westhlnxbCvmofrQPDI PRIV=3
SAR=2 PCQF=57.516b 57.516f

SR0=0000000a 00000000 00000000 00000000 SR4=00000057 000001e1 0000000b
0000000a
TR0=41849ca4 44617461 00cf6da0 41845370 TR4=41845260 4184541c 00387094
0000000f
PID1=000008f2=00000479(W) PID2=00000000=00000000(W)
PID3=00000000=00000000(W) PID4=00000000=00000000(W)
PID5=00000000=00000000(W) PID6=00000000=00000000(W)
PID7=00000000=00000000(W) PID8=00000000=00000000(W)

RCTR=00000000 ISR=000001e1 IOR=7cff2a2e IIR=62b60000 IVA=00144000
ITMR=e9c465e4
EIEM=ffffffff EIRR=00000000 CCR=c0 SCR=0

PC=57.00005168 iabort+$50
NM* 0) SP=41844330 RP=57.00000000
(end of NM stack)

PROG $57.5150
00005150 iabort+$38 0001c00e BREAK (label)
00005154 iabort+$3c 2000001a ** Stmt 26
00005158 iabort+$40 4b730260 LDW 304(sr0,r27),r19 > #999999999
0000515c iabort+$44 3774005e LDO 47(r27),r20      > BASE OF BYTE-DATA
00005160 iabort+$48 0a740615 ADD r20,r19,r21      > TOO BIG OFFSET
00005164 iabort+$4c 341600b0 LDO 88(r0),r22       > #88 = $54 = "X"
00005168 iabort+$50 62b60000 STB r22,0(sr0,r21)   > ADDRESS CREATES Data
PAGE Fault
0000516c iabort+$54 0800025a OR r0,r0,r26

**** PROCESS ABORT INTERACTIVE DEBUG FACILITY ****
Program terminated in an error state. (CIERR 976)


:COB85XLG IABORT
...
 00014          001000$CONTROL SYMDEBUG
 00015          001100 IDENTIFICATION DIVISION.
 00016          001200 PROGRAM-ID.   IABORT.
 00017          001300 DATA DIVISION.
 00018          001400 WORKING-STORAGE SECTION.
 00019          001500 01 LOGIN-REC.
 00020          001600   05 FULL-REC                  PIC X(256).
 00021          001700   05 BYTE-REC REDEFINES FULL-REC.
 00022          001800       10 BYTE-DATA PIC X OCCURS 256 TIMES.
 00023          001900 01 INDX PIC S9(9) COMP VALUE 999999999.
 00024          002000 PROCEDURE DIVISION.
 00025          002100 0000-MAIN-PROC.
 00026          002200    MOVE "X" TO BYTE-DATA ( INDX ).

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