You're probably familiar with the DELET op code in RPG, but you may not know that you can place a key or relative record number in factor 1, the search argument. If the system finds duplicate records, the first record is removed. 7 illustrates a technique I use to delete all records that match a key list value.

You're probably familiar with the DELET op code in RPG, but you may not know that you can place a key or relative record number in factor 1, the search argument. If the system finds duplicate records, the first record is removed. Figure 7 illustrates a technique I use to delete all records that match a key list value.

Search Deletions

Figure 7 Record Deletion Technique

 *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 C *IN99 DOUEQ*OFF C KEYLST DELETRECORD 99 C ENDDO