RE: Aborted dump

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rob,

I thought this came up a few releases ago... You need change authority to
dump the programs storage.

http://archive.midrange.com/midrange-l/200103/msg00392.html

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Sent: Wednesday, November 26, 2003 8:43 AM
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.