Re: Suggested technique

[rob@xxxxxxxxx]

May I suggest that you combine a %status with the %error?  Just to handle 
some obscure possibilities:
- You are manually opening the file, and forgot to.
- If the file is totally empty do you get a different situation?
- If your write fails because someone added a trigger and throws an 
exception if certain criteria are not met...
- If your write fails because of a constraint error.
...

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Tony Carolla <carolla@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/31/2005 01:36 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: Suggested technique






Thanks Ron.  I finalized on:

Dou Not %Error;

    // Find next memo seq# for member
    SetGT(E)  (CI.Family#:CI.Member#) Mmemo_I;
    ReadPE(E) (CI.Family#:CI.Member#) Mmemo_I MI;

    If %Found(Mmemo_I);
       MO.Mmseq#=MI.Mmseq#+1;
    Else;
       MO.Mmseq#=1;
    EndIf;

    Write(E) Mmorec MO;
EndDo;

Immediately after the Write, the condition for the Dou is checked, so
this will work.


-- 
"Enter any 11-digit prime number to continue..."
-- 
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.