Welcome to Code400.com    Okay...We all like to get free stuff..Right?!? Well thats what we are offering here....Free Stuff Free storage for your source code. Post Your Source Free access to code samples. (site search) Free place to ask questions or just say what you want.  Share your thoughts We are interested in what you have to say. If you can’t find what your’e looking for on this site....   Tell us  We will add it. The small print says: We provide the source code on this site as only a guide. We do not recommend that anyone run any of the code provided on this site without first testing it. If you choose to download source from this site directly onto your production box without testing....Well, YOU are completely to blame and we don’t want to hear about it. Random Quote When your dad is mad and asks you, "Do I look stupid?" don't answer him --Michael, 14 Advice from Kids

Reorganize Physical File Member (RGZPFM)

Records are not physically removed from an Iseries table when using the DELETE opcode. Records are marked as deleted in the tables and the Iseries operating system knows not to allow them to be viewed.
(you can un delete with this freeware tool http://www.wrkdbf.com) Anyway these deleted records stay in your tables and can end of taking up allot of space if not managed. The way this is typically managed is with the IBM command RGZPFM. This command calls a program that looks for all the records in a specific table that have been marked for deletion and removes them. It then resets the relative record numbers (RRN) of all records in the file and rebuilds all the logical's.

That said I put together a program that will write the number of deleted records to a table and also reorganize the table. You are free to download and do with as you wish. Just remember I take no responsibility for you implementing any source on your system. You must test and modify to suit your environment.

OBJECTS
• finddelp.txt - Physical file (table) holds number of deleted records
• finddelr.txt - Does RGZPFM on all tables on the


DOWNLOAD
Download text files
Figure 1.