COBOL Load Module Analyzer
If you have any questions about the content of this page, please contact Requests for clarification.
This utility will display many details about COBOL load modules. Date and time of the last compile, the level of the COBOL compiler used, the compile option can all be listed.
This utility can run against an entire load library, or it can be asked to select similarly name load modules. It will analyze CICS as well as batch COBOL modules.
This program is for COBOL modules only. It will give a condition code 8 if asked to fully analyze a non COBOL module.
An example of the short-report follows:
PROGRAM:ABDPRT Date:1988,JUN.24- 9:56:10 OS/VS COBOL Release R1
PROGRAM:NWDATER Date:2000/01/20-10:52:20 COBOL/370 Version 01 Release 02 Mod-Level 02
PROGRAM:NWDUMMY Unknown language type
PROGRAM:NWELAPDS Date:2000/01/13-11:49:43 COBOL/370 Version 01 Release 02 Mod-Level 02
PROGRAM:NWFAWEBN Date:2001/04/05-11:19:18 COBOL/370 Version 01 Release 02 Mod-Level 02
PROGRAM:NWHELPS Date:2001/02/01-12:58:41 COBOL/370 Version 01 Release 02 Mod-Level 02
PROGRAM:NWHEXCHA Date:1994/09/25/-00:11:22 COBOL/2 Version 1. Release 4. Mod-Level 0
The format of the compile date will vary somewhat depending on the age of the module.
The full report is too long to list here. It includes the compile options used, a summary of the types of COBOL instructions used, and CICS pre-compiler options in effect. It is a full two pages in length.
Some examples of this program’s invocation follow:
Full report of all load modules
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='ALL'
Short report of all load modules
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='ALL,S'
Full report on a single load module
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='NWNWPM'
Short report of a single load module
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='NWNWFM,S'
Full report on any module whose name starts with NWNWTM
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='NWNWTM*' Full report on any load module whose name has “NW” in it somewhere
// EXEC NWCOBALZ,LOADLIB=XXX.LOADLIB,PARM='*NW*'
Short report on any load module whose name has “NW” in the 3rd and 4th position
// EXEC NWCOBALZ,LOADLIB=XXR.LOADLIB,PARM='??NW*,S'
To summarize the wild card usage: The “?” represents ANY one character and the “*” represents any one or more characters.