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 This world is run with far too tight a rein for luck to interfere. Fortune sells her wares; she never gives them In some form or other, we pay for her favors; or we go away empty --Amelia Barr

Find all versions of a source file

This is program will use system file QADBXREF and locate all source files on the system.   It then takes the source file name that you passed in and does a check object.  If found it writes it to a subfile display.  Once the search is complete you will be able to copy;display;edit(strsda if Display file).   A nice modification would be a generic search function. ex. PROGR*
Once again modifications are encouraged and Please send back new version and I will place your modification mark on the source and the website.

OBJECTS FIND CMD Find where source is located. FNDSRCD DSPF Find Source Member Location. FNDSRCR SQLRPGLE Find Source Member Location.

API’s USED

QUSRMBRD   - Retrieve member description
QCMDEXC    - Run CLP commands in RPG

SYSTEM FILE(s) QADBXREF - This file contains all files in all libraries on the ISeries.