2001-08-23 如何刪除檔案中所有欄位值一樣的重複記錄(DUPLICATE RECORDS)？

如何刪除檔案中所有欄位值一樣的重複記錄(DUPLICATE RECORDS)？


1. 複製包含重複記錄的 DBFILE 至一 WRKFILE，但不複製資料。
     CRTDUPOBJ DBFILE  MYLIB  *FILE  TOLIB(MYLIB) +
     NEWOBJ(WRKFILE) DATA(*NO)

2. 啟動 SQL，從 DBFILE 複製資料至 WRKFILE。
     STRSQL
     ===>   INSERT INTO MYLIB/WRKFILE
            SELECT DISTINCT * FROM MYLIB/DBFILE

3. 從 WRKFILE 複製資料回至 DBFILE 。
     CPYF FROMFILE(MYLIB/WRKFILE) +
     TOFILE(MYLIB/DBFILE) MBROPT(*REPLACE)