Leave the two offending lines commented out... :-)
Ok, on the serious side, try commenting out 1 line at a time...that may help
narrow down exactly which line is hosed.
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: Atwood, Tim (DVM) [SMTP:[log in to unmask]]
> Sent: Friday, May 30, 2003 1:45 PM
> To: [log in to unmask]
> Subject: Need Some COBOL Eyes Please
>
> 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
>
> The COBOL program itself is a huge legacy program (22,000 lines). But the
> change I am making that causes the problem is really very simple. The
> lines
> I am adding are:
>
> * Set up for TAPPI
> MOVE ZERO TO TAPPI-START-POS-CM.
> MOVE CENT-DATE-SYSTEM TO TAPPI-DATE.
>
> When these lines are commented out, the program works fine. When the
> comment
> "*" are removed from the two MOVE statements, the memory protection error
> occurs.
>
> I have tried totally deleting the lines and re-typing them. In case I had
> invisible control characters in there or some such Or a typo I simply was
> not seeing. No change. Program still aborts.
>
> A longer snippet of the code containing these lines follows. As you can
> see
> the prior existing code has periods at the ends of the statements. In
> other
> words, the statements are all "outer level". There is no possibility I can
> see for dropping out of an IF statement, perform loop, etc.
>
> ...
> MOVE 1 TO LB1-TAG-POS.
> * Clear Core Tag buffer..
> MOVE SPACES TO LABEL-STORAGE-DATA.
> MOVE SPACES TO LABEL-STORAGE-TAG.
> * Set up for TAPPI
> MOVE ZERO TO TAPPI-START-POS-CM.
> MOVE CENT-DATE-SYSTEM TO TAPPI-DATE.
>
> PERFORM WITH TEST BEFORE
> UNTIL (WS-POS = WS-NXT-AVL-POS)
> *>> Clear Tag label values
> MOVE SPACES TO WLB-BARC-DATA
> WLB-ROLL-ID
> WLB-WIDTH
> ...
>
> The code before the change looks like:
>
> ...
> MOVE 1 TO LB1-TAG-POS.
> * Clear Core Tag buffer..
> MOVE SPACES TO LABEL-STORAGE-DATA.
> MOVE SPACES TO LABEL-STORAGE-TAG.
>
> PERFORM WITH TEST BEFORE
> UNTIL (WS-POS = WS-NXT-AVL-POS)
> *>> Clear Tag label values
> MOVE SPACES TO WLB-BARC-DATA
> WLB-ROLL-ID
> WLB-WIDTH
> ...
>
> The working storage area being moved to looks is the following. Copied
> from
> the compile listing as it is a Copylib member so the listing shows it
> best.
> Please note simply adding this copy statement does not cause the problem.
> The problem only occurs when the move statements are added.
>
> ...
> 01 LS-TRIM-ITEM-NO PIC X(2).
>
> COPY TAPPI.
> 01 TAPPI-BASE-IPMST PIC X(08).
> 01 TAPPI-ACTION PIC X(02).
> 88 ASSIGN-TAPPI VALUE "AT".
> 88 DELETE-TAPPI VALUE "DT".
> 88 GET-TAPPI VALUE "GT".
> 01 TAPPI-MACHINE-ID PIC X(02).
> 88 TAPPI-PM-WINDER VALUE "01", "02", "03".
> 88 TAPPI-WINDER-1 VALUE "01".
> 88 TAPPI-WINDER-2 VALUE "02".
> 88 TAPPI-WINDER-3 VALUE "03".
> 88 TAPPI-REWINDER VALUE "RW".
> 88 TAPPI-FOLIO VALUE "F?".
> 88 TAPPI-TRIMMER VALUE "T?".
> 01 TAPPI-DATE.
> 05 TAPPI-YEAR PIC 9(04).
> 05 TAPPI-MONTH PIC 9(02).
> 05 TAPPI-DAY PIC 9(02).
> 01 TAPPI-START-POSITION PIC 9(04)V99.
> 01 TAPPI-SET-WIDTH PIC 9(04)V99.
> 01 TAPPI-DVM-ID PIC X(10).
> 01 TAPPI-ID PIC X(20).
> 01 TAPPI-RETURN-STATUS.
> 05 TAPPI-ERROR PIC S9(4) COMP.
> 88 TAPPI-OK VALUE ZER0.
> 88 TAPPI-BAD-ACTION VALUE -9999.
> 88 TAPPI-BAD-MACHINE VALUE -9998.
> 88 TAPPI-BAD-DATE VALUE -9997.
> 88 TAPPI-SEQ-NO-OVERFLOW VALUE -9996.
> 88 TAPPI-MISSING-CTL-VALUES VALUE -9995.
> 88 TAPPI-DUPLICATE-ID VALUE -9994.
> 88 TAPPI-NOT-FOUND VALUE -9993.
> 05 TAPPI-REST-OF-DB-STATUS PIC X(36).
> 01 TAPPI-WORK-FIELDS.
> 05 TAPPI-START-POS-CM PIC S9(5)V9(4) COMP.
>
> PROCEDURE DIVISION USING
> *------------------*
> ...
>
> The only other variable involved is CENT-DATE-SYSTEM. It's definition is:
>
> 01 CURR-DATE-AND-TIME.
> 03 CENT-DATE-SYSTEM.
> 05 DATE-SYSTEM-C PIC 99.
> 05 DATE-SYSTEM.
> 10 DATE-SYSTEM-Y PIC 99.
> 10 DATE-SYSTEM-M PIC 99.
> 10 DATE-SYSTEM-D PIC 99.
> 03 TIME-SYSTEM.
> 05 TIME-SYSTEM-N PIC 9999.
>
> Help! Does anyone have suggestions as to what the heck is going on here???
>
> Thanks.
>
> * 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 *
|
