IT Answers » Duplicate records

Subfile in As400

Sangay — Fri, 18 Feb 2011 09:20:06 +0000

Hi below pasted is my code which i am running but i am getting an error ‘Attemp to write duplicate records”

DDS

A*
A                                      CF03(03)
A                                      DSPSIZ(24 80 *DS3)
A          R RECSFL                    SFL
A 30                                  SFLNXTCHG
A            UPC           20   B 9 3TEXT(‘UPC 2ND ITEM’)
A 31                                  DSPATR(UL)
A*
A          R RECCTL                    SFLCTL(RECSFL)
A*
A                                      OVERLAY
A                                      SFLSIZ(0010)
A                                      SFLPAG(0005)
A 10                                  SFLDSP
A 12                                  SFLDSPCTL
A 11                                  SFLCLR
A 13                                  SFLINZ
A                                      SFLDROP(CF04)
A                                      SFLFOLD(CF04)
A            #RRNO          4S 0H      SFLRCDNBR
A                                  1 2DATE
A                                      EDTCDE(Y)
A                                  1 12TIME
A                                  5 3′UPC SHORT CODE. .
A                                      COLOR(WHT)
A                                  8 3′UPC 2ND ITEM’
A 31                                  DSPATR(UL)
A                                      COLOR(TRQ)
A            UPCSCD         3A I 5 24TEXT(‘UPC’)
A          R FKEY
A                                       OVERLAY
A                                 23 2′F3 – EXIT’
A                                      COLOR(BLU)

RPGLE code

FSIDDLF    IF   E           K DISK    INFDS(@SIDLF)
FPSIDDPF   IF   E           K DISK
F                                     RENAME(PSIDDPF:@PSIDDPF)
F                                     PREFIX(P)
FD123      CF   E             WORKSTN INFDS(@D123)
F                                     SFILE(RECSFL:I1)
D @D123           DS           500
*
D @SIDLF          DS
D #RRN                 400    402
*
********* MAIN ROUTINE *******************
*
C                   EXSR      LOAD
C                   SETON                                            LR
*
******************* LOAD SUBFILE *********

*
C     LOAD          BEGSR
*
C     *IN03         DOWEQ     ’0′
*
C                   WRITE     FKEY
C                   EXFMT     RECCTL
C                   Z-ADD     0             I1
C                   Z-ADD     0             #RRNO
C*
C     UPCSCD        SETLL     @PSIDDPF
C     UPCSCD        READE     @PSIDDPF                               89
C     *IN89           DOWEQ     ’0′
C                   MOVEL   PUPC          UPC
C                    ADD          1             I1
C     #RRNO         IFEQ      0
C                        ADD       I1            #RRNO
C                        ENDIF
C                        WRITE     RECSFL        <— error here                   C*
C     UPCSCD        READE     @PSIDDPF                               89
C                   ENDDO

*
C                   ENDDO
*
C                   ENDSR
******** INIT ROUTINE *********************
*
C     *INZSR        BEGSR
*
C                   EXSR      SCLR
*
C                   ENDSR
*
******* CLEAR SUBFILE ********************
*
C     SCLR          BEGSR
C                   Z-ADD     0             I1                4 0
C                   Z-ADD     0             #RRNO
C                   MOVE      *ON           *IN11
C                   MOVE      *OFF          *IN10
C                   MOVE      *OFF          *IN12
C                   WRITE     RECCTL   <– Control record
C                   MOVE      *OFF          *IN11
C                   MOVE      *ON           *IN10
C                   MOVE      *ON           *IN12
C                   MOVE      *ON           *IN31
C                   Z-ADD     5             PG                4 0
C                   DO        PG
C                   ADD       1             I1
C                   ADD       1             #RRNO
C                   WRITE     RECSFL    <- subfile record
C                   ENDDO
*
C                   ENDSR
*

Updating common files in different document libraries in Sharepoint 2007

Marcpritchard — Tue, 23 Nov 2010 21:39:52 +0000

Is it possible to have two separate instances of one file in two different document libraries, but when one of them gets updated, have those updates pushed to the other copy in a different document library? If it is, could someone tell me how to accomplish this? Thank you.

Why are duplicate files being created in Lotus Approach 2000?

Yamizite — Wed, 17 Nov 2010 03:43:34 +0000

We work with several employees we just recently noticed that we have been creating files with the same information why would this happen? we search the system by Date of Birth and social Security to avoid it but it still happens I’ve thought we maybe have more than one database or window open at the same time?

Duplicate e-mails in my sent folder – Outlook 2010

Gini — Wed, 10 Nov 2010 18:00:01 +0000

I just started using Outlook 2010. For some reason, I am getting duplicate entries in my sent folder for each e-mail that I send. How do I correct this?

Duplicate Records

lorit — Wed, 30 Dec 2009 20:08:11 +0000

Help – My query is returning duplicate records. How do I eliminate that? In addition, how can I total the adjustment amount and report one record? Here’s the query:

SELECT Distinct “T16.GNAM”.N_NAME, “T16.GNAM”.N_CITY, “T16.CADJ”.AD_TOTAL_ADJUSTMENT, “T16.CRDC”.RD_COMMENT FROM QS36F.”T16.CADJ” AS “T16.CADJ”, QS36F.”T16.CRDC” AS “T16.CRDC”, QS36F.”T16.CPRP” AS “T16.CPRP”, QS36F.”T16.GNAM” AS “T16.GNAM” WHERE “T16.CADJ”.AD_TAXBILL_NO = “T16.CRDC”.RD_TAXBILL_NO AND “T16.CRDC”.RD_TAXBILL_NO = “T16.CPRP”.CP_TAXBILL_NO AND “T16.CPRP”.CP_PRIMARY_TAXPAYER = “T16.GNAM”.N_ID_NR AND “T16.CADJ”.AD_ADJUSTMENT_DATE > 20091106 AND “T16.CADJ”.AD_ADJUSTMENT_DATE < 20091205 AND “T16.CADJ”.AD_TOTAL_ADJUSTMENT > -100.00 and “T16.CADJ”.AD_REASON IN (‘C ‘, ‘R ‘) order BY “T16.GNAM”.N_NAME;

Delete duplicate values in Microsoft Access

Kimidiramana — Fri, 20 Mar 2009 05:15:16 +0000

there was a ms access database in which there 3 to 4 values same so i want to delete the values keeping only one value. so i need a query.

Single Page subfile for duplicate records

S22 — Thu, 19 Feb 2009 07:50:23 +0000

Can you please tell me the how to handle the pageup & pagedown in single page subfile ….(In Physical file keyfield have douplicate records e.g. Douplicate Policy Number )

Microsoft Excel – I need to find rows that match a user entered entries and sum results of column b

Ksaep04 — Thu, 05 Feb 2009 22:28:54 +0000

I have a spread sheet that looks like this

Project Well Hours
Lewis 1 12
Lewis 2 3
Lewis 1 9

I want to find all the rows that match a user inputed name (in this case ‘Lewis’), then add the numbers in column c labeled ‘hours’, if the sum equals 24 then no problem, but if the sum does not equal 24 then highlight those rows in red. Any suggestions?

AS/400 QADBIFLD error Duplicate Record Key?

Rockgirl — Sat, 31 Jan 2009 11:56:47 +0000

The AS400 job QDBSRVXR2 has system error message Duplicate Record in QADBIFLD. I am aware this is a system cross reference file. (System is doing an automatic reply of C and then tries again) Is this file now corrupt ? Would an IPL help ? Reclaim Storage ? What is causing this error. (System is legacy no development tools and is at V5R2.) HELP

How to get the duplicate records using RPG/400

Askt1 — Fri, 16 Jan 2009 07:33:27 +0000

Please advice how to get the duplicate records using rpg/400.