This program lists all fields contained within all files within one library.
The program is called from the command line with the following parameter:
The program call looks like this:
call cp1170c (CPANDO)
The program is very simple. The CL program performs a DSPFD for all files in the library to an outfile. It then reads each record in the outfile (one for each file in the library) and then call CP1170R, which retrieves the record format (with the API QUSLRCD), and, using that information, retrieves field information (with API QUSLFLD). Each record in CP1170F contains the following information:
The following link takes you to the source code, written in beautiful /free ILE/RPG. The source is
distributed under a creative commons license.