RE: Aborted dump -- RPG400-L

ok ... I found this in the Club Tech iSeries Programming Tips Newsletter:

<snip>
Unlike RPG III which requires only *Use authority to successfully
complete a Dump operation, RPG IV requires the user to have either
*Change authority to the program or special authority *Service. If the
user has less authority (e.g., *Use without *Service), the system
produces only the indicator portion of the dump, failing with error
message "Error occurred while retrieving variable data. Dump
terminated". 
</snip>

-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: 26 November 2003 15:31
To: RPG programming on the AS400 / iSeries
Subject: RE: Aborted dump


>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.


_______________________________________________
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.


________________________________________________________________________
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
________________________________________________________________________