Here is the scenario:
You are a new programmer or consultant and you are assigned a seemingly simple change to an existing program. With your skills it will be a piece of cake. What is the first thing you do? You have to find the source.
Let's make it even more fun and say that the previous programmer(s) left two weeks before you arrived and left vague notes that seem to be printed out with a DBCS font. Apparently there are multiple versions or source in various libraries on the system. Never fear, one thing you can do is use the DSPPGM command (if it's a program). But that does not guarantee the source is there. Maybe the program was compiled on another machine and moved over, maybe the source file has moved or been deleted (in which case you are out of luck, but you would hate to go looking for something that isn't there.) And if it's a display file, forget about finding an easy way to pinpoint the source by looking at the compiled object.
At this point I could probably make a good advertisement for my favorite 'for profit' utility "Pathfinder" by Hawkeye Information Systems, but if you are a consultant you have to be a little more self-sufficient and not always count on your quality utility to be there for you. Remember, there are no answers on the certification test that you can write "just use Hawkeye".
Now what? Endless hours of hunting in each source file you happen to stumble across? Well, if you are like me you think there must be a more logical approach, and you would rather just take the time to find out where the entire source is anyway. Which is going to save you tons of time in the future, and maybe even make you a hero.
Yes, there is something you can do. I created an outfile of all source members by using a simple command and a query tool to filter just the 'source' from my initial findings.
First try "DSPPGM PROGNAME". Look for the source file parameter in the display. See if the source is really there.
If you can't find the source and it's a CL program, you can always RTVCLSRC to get the code (without those helpful comments).
Finally, here is what I did:
1. Source members actually exist in physical files, so you can list information on all physical files and the source files will be in there. Do this by executing the following command -- in batch would be a good idea.
DSPFD FILE(*ALLUSR/*ALL) TYPE(*MBRLIST) OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QGPL/SOURCEMBR)
2. Now you have an outfile named 'SOURCEMBR' with some 32 fields of information in it. One of those fields is MLSEU, which is the "Source Type" field. (There is also an MLSEU2 field for S/38 code) You can filter your selections even further by using your favorite query method of SQL, IBM Query, OPNQRYF, or even CPYF to select field MLSEU not equal to blanks:
OPNQRYF FILE((QGPL/SOURCEMBR)) QRYSLT('MLSEU *NE " "')
You would want to sort by the MLNAME field which is the source member name.
Now you have a file listing of every source member name and the library it exists in. You can now pinpoint EXACTLY where the source is, and if there are multiple copies it will help you determine which is most current. There is other information in this file and I've listed the fields below. You can see how many records (MLNRCD) in the source file as well as the last change date (MLCHGD). Here is a field listing:
Field Name Field Description
MLRCEN Retrieval century: 0=19x
MLRDAT Retrieval date: year/mont
MLRTIM Retrieval time: hour/minu
MLFILE File
MLLIB Library
MLFTYP P=PF, L=LF, R=DDM PF, S=D
MLFILA File attribute: *PHY or *
MLMXD Reserved
MLFATR File attribute: PF, LF,
MLSYSN System Name (Source Syste
MLASP Auxiliary storage pool ID
MLRES Reserved
MLNOMB Number of members
MLNAME Member
MLNRCD Current number of records
MLNDTR Number of deleted records
MLSIZE Data space and index size
MLSEU Source type for S/38 View
MLCCEN Member creation century:
MLCDAT Member creation date: yea
MLCHGC Last change century: 0=19
MLCHGD Last change date: year/mo
MLCHGT Last change time: hour/mi
MLMTXT Text 'description'
MLSEU2 Source type
MLUCEN Last Used Century: 0=19xx
MLUDAT Last Used Date: year/mont
MLUCNT Days Used Count
MLTCEN Usage Data Reset Century:
MLTDAT Usage Data Reset Date: ye
MLSIZ2 Data Space and Index size
MLSTFR Member storage freed Y=Ye
One additional tip: I had multiple iSeries' and was able to do this on each machine, then FTP'd the files to one machine where they were combined and then queried. There is another field in the SOURCEMBR file called MLSYSN, which is the system name.
Good luck! Hope this helps you all out there! - Jeff
==================================
MORE INFORMATION ON THIS TOPIC
==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
