Deleting Duplicate Record from PF using STRSQL

Few days ago, i faced a problem where my Pf is populated with duplicate records. For that i found a SQL statement and a SOP :-

1) SQL Statement.

Select * From LIB/MEMBER A
Where RRN(A) >
(Select Min(RRN(B)) From LIB/MEMBER B
Where A.LastName = B.LastName)

-------------------------------------------------------------------------------------------------

2) Series of Operation

We can use the simple CPYF (Copy File) command.

1. Create the same file under a different name and define the whole field as key. Also define the key as UNIQUE.
2. CPYF the original file to the new file with ERRLVL(*Nomax).This will copy only the FIRST occurence of duplicate records.
3. After the CPYF finished, you could copy the new file's contents back to the original file with MBROPT(*Replace).
4. After that, the original file WILL NOT contain any duplicate records.

Please Convey your Special Thanks to

Mr Shyam Sunder Reddy, (shyamgssr@gmail.com)