AW: Duplicate Record Monitoring

Hi,

What about:

 /Free
    Monitor;
      Write MyFileFmt;
    On-Error 01021;   //Duplicate Record
      //Do something
    On-Error;
      //Other Errors
    EndMon;
 /End-Free

or
 /Free
    Write(E) MyFileFmt;
    If %Error
       If %Status = 01021; //Duplicate Record
          //DoSomething
       Else;
          //Other Errors;
       Endif;
    EndIf;
 /End-Free


Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Booth Martin
Gesendet: Freitag, 24. Februar 2006 22:51
An: RPG programming on the AS400 / iSeries
Betreff: Re: Duplicate Record Monitoring


RPG or CL?

This is the RPG list so i expect that is the answer you want?

Look at the idea of using %error.

C     write   newrecord
C     if      %error
C     update  newrecord
C     endif

This may not be enough information for your needs, but %error is very
useful.


Mike Wills wrote:
> I am working on a system that could potentially have a duplicate record. I
> plan on doing a monitor on the write to monitor for the error. Is there a
> list somewhere of error codes so I know what to monitor for?
>
> --
> Mike Wills
> koldark@xxxxxxxxx
> http://mikewills.name
> http://theriverbendpodcast.com
>
> "There are 10 types of people in the world: those who understand binary,
and
> those who don't." -Unknown

--
-----------------------------------
Booth Martin
http://martinvt.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.