Re: duplicate record error when updating a physical file

["JJW" <rpgilejjw@xxxxxxxxxxx>]

Try using %EQUAL with SETLL.  Hope this helps!

On Wed, 4 Sep 2002 12:47:40 -0400
 "Frank W. Kany IV" <frank.kany@burr-reid.org> wrote:
> 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.
<TEXTAREA NAME="Signature" ROWS="4" COLS="60"><TEXTAREA
NAME="Signature" ROWS="4" COLS="60">