Tim, while the link-sec issue is plausible, you would normally get a 'bounds
violation' if your boundaries were not correct (if memory serves me
correctly).  You may want to check the value of zeros being set in the
TAPPI-START-POS-CM since that field's name implies that it's used as a
pointer to some other data structure, and zero as a byte position may be
hosing you up.

Ray Shahan

"There is so much good in the worst of us,
and so much bad in the best of us,
that it behooves none of us
to talk about the rest of us"
                          --Author unknown

> -----Original Message-----
> From: Robert D. Andrew [SMTP:[log in to unmask]]
> Sent: Friday, May 30, 2003 2:02 PM
> To:   [log in to unmask]
> Subject:      Re: Need Some COBOL Eyes Please
>
> Tim,
>
> Did you verify that the items in LINKAGE SECTION match those in the
> PROCEDURE DIVISION USING?
>
> Since the TAPPI-START-POS-CM is the last item in LINKAGE, there's a good
> chance that it's not being passed via the USING clause.
>
> Also, did the COPYLIB definition for TAPPI change recently?
>
> If items are defined in LINKAGE and not passed via the USING clause, you
> will see this error the first time you access them.  Does this process
> access other 'TAPPI' variables?
>
> HTH,
>
> At 02:44 PM 05/30/2003, Atwood, Tim (DVM) wrote:
> >Help. I desperately need someone to look at what is going wrong with a
> COBOL
> >code addition I am doing. It is probably one of those cases where I am
> blind
> >to something obvious. But I do not see what I am doing wrong or why this
> is
> >happening.
> >
> >I add two simple MOVE statements and suddenly the program (XL Subroutine
> >"DYNAMIC") starts aborting with the following memory protection trap
> error:
> >
> >  **** INTERNAL TRAP
> >  Data Memory Protection Trap
> >  [VSM] Undecoded status.info = -37
> >  ABORT: RM2040X.PUB.DVIPM
> >  NM USER  5ac.00221030 rm2050$003$+$1974
> >  NM PROG  399.000078b4 rm2040+$e84
>
>
> Robert D. Andrew
> Computing Options Company
> [log in to unmask]
> 301.662.5592.x13 - Voice
> 301.662.5866     - FAX
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

#####################################################################################
This e-mail message has been scanned for Viruses and Content and cleared
by MailMarshal
#####################################################################################

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