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 If I were asked to enumerate ten educational stupidities, the giving of grades would head the list... If I can't give a child a better reason for studying than a grade on a report card, I ought to lock my desk and go home and stay there. --Dorothy De Zouche

FFD

This example program will, when passed a physical/logical file name, give a list of fields in that file.   This list will include field attributes and relative position in the file.   (please see images below)  You will also have the ability to print a report by pressing the function key F8.  By pressing function key F7 (provided you enter a physical and not a logical) you will be presented with a display of all logicals over that physical file.  

Another benifit of this application is the large amount of system API’s you will be exposed to.   Please download the source as either a text file or as a Iseries save file below.

OBJECTS
• ffd.cmd - Text file with ffd command
• ffddsp.dsp - Text file with ffd display file
• ffdrpg.rpg - Text file with ffd RPG
• pthcmd.cmd - Text file with PATH command
• pthdsp.dsp - Text file with PATH display file
• pthrpg.rpg - Text file with PATH RPG


API’s USED
• QUSCRTUS - Create user space
• QUSROBJD - Retrieve object description
• QUSLFLD - List fields in a file
• QUSRTVUS - Retrieve user space
• QDBRTVFD - Retrieve database file description
• QMHSNDPM - Send error message
• QDBLDBR - Retrieve data base relations