|
>From my compile listing: Optimization level . . . . . . . : *NONE Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin darryl.mavin@xxxxxxxxxxxxxx Sent by: rpg400-l-bounces@xxxxxxxxxxxx 11/26/2003 10:03 AM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> To rpg400-l@xxxxxxxxxxxx cc Fax to Subject RE: Aborted dump You get the error 'Error occurred while retrieving variable data. Dump terminated.' when the program/module is compiled with OPTIMIZE(*FULL). -----Original Message----- From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx] Sent: 26 November 2003 14:43 To: RPG400-L@xxxxxxxxxxxx Subject: Aborted dump I have a program that is now blowing up. RNX0100 - Length or start position is out of range for the string operation. CPF9999 - Function check. RNX0100 unmonitored by EXCLEIACT at statement 0000001286, instruction X'0000'. RNQ0100 - Length or start position is out of range for the string operation (C G D F). When I take the D option all I see are the indicator variables: ... Internal Indicators: LR '0' MR '0' RT '0' 1P '0' Error occurred while retrieving variable data. Dump terminated. >From the compile: Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY *EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT *DEBUGIO *EVENTF Debugging views . . . . . . . . : *LIST ... 1286 C dow ExceptionId=*blanks and 1287 C %subst(DataRead:1:DataLen)<>'*SHUTDOWN' I think I figured out the error on 1286. The read of the data queue containing DataRead, DataLen, etc has not occurred. Why this ever worked is beyond me. I am changing that to: // changed the following from a dow to a dou because DataLen was equal to // zero and that is a problem. Seemed to work earlier, but a recompile // and attempt to run it always ended in an RNX0100 message. Odd. // Using the DOU means it will only check it at end of the loop time. At // that time the field should be initialized. Well hopefully if it ever finds // an exception id then it doesn't bother to check the rest of the dou // statement. Because at that point we could have problems. Hmm, hows about // me initializing DataLen? You got a problem with that? C/free DataRead=' '; DataLen=1; /end-free C dou ExceptionId<>*blanks or C %subst(DataRead:1:DataLen)='*SHUTDOWN' However, why did the dump abort? Rob Berendt -- "They that can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety." Benjamin Franklin _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l. ------------------------------------------------------------------------------ The opinions expressed within this email represent those of the individual and not necessarily those of Gullivers Travel Associates (GTA). This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify postmaster@xxxxxxxxxxxxxxx Should you wish to use email as a form of communication, GTA are unable to guarantee the security of email content outside of our own computer systems. ________________________________________________________________________ This email has been scanned for all viruses by the MessageLabs Email Security System. For more information on a proactive email security service working around the clock, around the globe, visit http://www.messagelabs.com ________________________________________________________________________ _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/rpg400-l or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.