Re: duplicate record error when updating a physical file

Should I use %EQUAL like JJW mentioned earlier?


Frank W. Kany IV
The Law Offices of Burr & Reid
www.burr-reid.org
----- Original Message -----
From: "Booth Martin" <Booth@MartinVT.com>
To: <rpg400-l@midrange.com>
Sent: Wednesday, September 04, 2002 1:46 PM
Subject: Re: duplicate record error when updating a physical file


> --
> --
> [ Picked text/plain from multipart/alternative ]
>
> SETLL doesn't read a record. It just sets the lower limit.  Any %Found
would
> apply to the most recent chain, read, or other event that sets %Found,
which
> likely was in the former cycle.   I'd bet up to 25 cents you are
processing
> the prior record,
>
>
> ---------------------------------------------------------
> Booth Martin   http://www.MartinVT.com
> Booth@MartinVT.com
> ---------------------------------------------------------
>
> -------Original Message-------
>
> From: rpg400-l@midrange.com
> Date: Wednesday, September 04, 2002 12:52:45 PM
> To: RPG Mailing List
> Subject: duplicate record error when updating a physical file
>
> This is a multi-part message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> I get an error when I try to update a physical file. The error is--->
> Attempt to write a duplicate record to file CDEBP"......"RPG procedure
> detected an output record with a duplicate key field"
>
> Can anyone see why I'd be getting this error?
>
>
>
> *duplicate record error when updating CDEBP
> F CDEBP UF A E K DISK
>
> *
> * Get Record
> C CDEB_KEY02 CHAIN CDEBP
>
> *
> * Make sure Record is NOT in CTRNP file
> C CTRN_KEY01 SETLL CTRNP1
> C IF %FOUND(CTRNP1)
> C EVAL CTRNP_FLG = 'Y'
> C ELSE
> C EVAL CTRNP_FLG = 'N'
> C ENDIF
>
> * Move Account "A" record into save fields
> C IF CTRNP_FLG = 'N'
> C EVAL MVEFLG = '01'
> C EXSR MOVE_DATA
> * Move saved Account "B" record into Account "A" fields
> C EVAL MVEFLG = '02'
> C EXSR MOVE_DATA
> C UPDATE CDEB
> C ENDIF
>
> C *INZSR BEGSR
>
> C CTRN_KEY01 KLIST
> C KFLD KF_ALP2
> C KFLD KF_NUM2
> *
> C CDEB_KEY01 KLIST
> C KFLD KF_ALP1
> C KFLD KF_NUM1
> C ENDSR
>
>
> *Physical File DDS
> A UNIQUE
> A R CDEB
> A RP1ALP 5
> A RP1NUM 5S 0
> A BLA1 15
> A BLA2 10
> A K RP1ALP
> A K RP1NUM
>
>
> --
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> .
> --
> [ Content of type image/gif deleted ]
> --
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>