If you've ever had a program fail because of the dreaded CPF4131 level-check error, you know how frustrating this can be. These messages are generated when a called program attempts to access files whose level is different from the level in place when the program was compiled. This problem is easy enough to correct by recompiling the program or by using the LVLCHK(*NO) option when you create the file or write an override statement.
Having said that, these solutions may not always be an option. Wouldn't it be nice if there were an easy way to determine if a program was compiled over a different record format level than the record format level of the file that it's going to be run against? That's where the WRKPGMFLVL command comes in. This utility allows you to compare the record format levels for all files within a given program against the record format levels for the files within a specified library and/or library list.
Why Level Check?
At this point, you may be thinking that the solution is to simply compile all of your files—physicals, logicals, printer files, and display files—with the LVLCHK(*NO) option. While this solution will work in some cases, it won't always work and can, in fact, cause the program to fail as a result of bad data (e.g., decimal data errors). Even worse, the program may execute without a problem, but the data may be read from the file incorrectly.
The Solution
One solution to this problem is to periodically check programs against the environment in which they are run to determine if any potential record format level-check conditions exist. This would normally require you to use the Display Program Reference (DSPPGMREF) command for each program to be checked and then compare the record format level for each file within the program with the actual file on your system. This process would be very laborious and nearly impossible to complete for more than a few programs at a time.
That's where the WRKPGMFLVL command comes in. This utility gives you the ability to determine whether programs have any potential level-check conditions based on a defined library list. This means that, by using this utility, you can check against multiple environments that may exist on your system: test and production, for example. The utility output can be directed to one of multiple locations to meet different requirements. In interactive mode (*), the utility can be run against a single program to display information specific to that program.
In printed output mode (*PRINT), the program can be run against a single program or a group of programs based on a wildcard value or against all programs in a given library or library list. As the name suggests, output from this option is generated as a printed report containing all of the record format level information for each program. Multiple programs can also be selected when the output mode is sent to a physical file (*OUTFILE). This option outputs all of the same information contained within the printed report, but the data is saved in a defined physical file. The final mode, *JOBLOG, allows you to simply send messages to the job log indicating which programs and files within a defined list have level-check conditions. This option can be extremely useful when creating an installation utility to install or upgrade applications on a new system.
Figure 1 below shows the initial prompt screen for the WRKPGMFLVL command.
Figure 1: This is the prompt screen for the WRKPGMFLVL command. (Click images to enlarge.)
In addition to the options described earlier, you'll notice here that the WRKPGMFLVL command contains additional parameters, as described below:
Options: library names, *LIBL for current library list.
OUTFILE output file[only valid when the OUTPUT is *OUTFILE]
Option: Qualified library/file name
EXCEPT list level check exceptions only
Options: *YES, *NO
When this command is executed in interactive mode, the screen displayed gives information about each file and record format used within the program. The output resembles that shown in Figure 2 below.
Figure 2: This is the interactive screen for WRKPGMFLVL command.
Notice that the screen displays a reverse image for record formats where level checks exist or where the record format doesn't exist in the defined library list. You can use the F14 key to toggle between displaying level checks only and all records. There is also a "Position to" field at the top of the screen that allows a user to specify a file name to be positioned to. This is useful when multiple screens of record formats are displayed.
The Code
This utility is made up of several programs and files that can be downloaded here. The table below contains a list of the objects required for the WRKPGMFLVL command.
|
Objects Required for WRKPGMFLVL
|
||
|
Object Name
|
Object Type
|
Description
|
|
WRKPGMFLVL
|
*CMD
|
Work with Program File Levels
|
|
WRKPGMFLVL
|
*RPGLE
|
ILE RPG interface to Work with Program File Levels
|
|
WRKPGMFLCL
|
*CLP
|
CL control portion of Work with Program File Levels
|
|
BLDFRFCL
|
*CLP
|
Build File Reference Data File
|
|
WRKPGMFLFM
|
*DSPF
|
Display file for interactive use (output type = *)
|
|
WRKPGMFLP1
|
*PRTF
|
Printer file for report output (output type = *PRINT)
|
|
WRKPGMFLPF
|
*PF
|
Physical file format for output type = *OUTFILE
|
An Ounce of Prevention
The WRKPGMFLVL utility will do many things to help you to prevent level-check conditions from occurring when you least expect it. There are a few things, however, that this utility won't catch. Files accessed through embedded SQL statements are not returned by the DSPPGMREF command and as a result are not displayed in the WRKPGMFLVL utility. This utility also does not display record format level-check information for externally described data structures. This can be more of a problem than embedded SQL since an undetected change to an external data structure has a greater potential to adversely affect program results.
These shortcomings aside, the WRKGPMFLVL utility can be a lifesaver, and it makes a great addition to your programming toolkit.
Mike Faust is a Business Analyst for Invivo Corp. in Orlando, Florida. Mike is also the author of the books The iSeries and AS/400 Programmer's Guide to Cool Things and Active Server Pages Primer and SQL Built-in Functions and Stored Procedures. You can contact Mike at
Mike Faust is a senior consultant/analyst for Retail Technologies Corporation in Orlando, Florida. Mike is also the author of the books Active Server Pages Primer, The iSeries and AS/400 Programmer's Guide to Cool Things, JavaScript for the Business Developer, and SQL Built-in Functions and Stored Procedures. You can contact Mike at
MC Press books written by Mike Faust available now on the MC Press Bookstore.
 |
||
 |
|
Active Server Pages Primer Learn how to make the most of ASP while creating a fully functional ASP "shopping cart" application. List Price $79.00 Now On Sale
|
|
||
 |
|
JavaScript for the Business Developer Learn how JavaScript can help you create dynamic business applications with Web browser interfaces. List Price $44.95
Now On Sale
|
|
||
 |
|
SQL Built-in Functions and Stored Procedures Unleash the full power of SQL with these highly useful tools. List Price $49.95
Now On Sale
|
More than ever, there is a demand for IT to deliver innovation. Your IBM i has been an essential part of your business operations for years. However, your organization may struggle to maintain the current system and implement new projects. The thousands of customers we've worked with and surveyed state that expectations regarding the digital footprint and vision of the company are not aligned with the current IT environment.
TRY the one package that solves all your document design and printing challenges on all your platforms. Produce bar code labels, electronic forms, ad hoc reports, and RFID tags – without programming! MarkMagic is the only document design and print solution that combines report writing, WYSIWYG label and forms design, and conditional printing in one integrated product. Make sure your data survives when catastrophe hits. Request your trial now! Request Now.
Forms of ransomware has been around for over 30 years, and with more and more organizations suffering attacks each year, it continues to endure. What has made ransomware such a durable threat and what is the best way to combat it? In order to prevent ransomware, organizations must first understand how it works.
Disaster protection is vital to every business. Yet, it often consists of patched together procedures that are prone to error. From automatic backups to data encryption to media management, Robot automates the routine (yet often complex) tasks of iSeries backup and recovery, saving you time and money and making the process safer and more reliable. Automate your backups with the Robot Backup and Recovery Solution. Key features include:
Business users want new applications now. Market and regulatory pressures require faster application updates and delivery into production. Your IBM i developers may be approaching retirement, and you see no sure way to fill their positions with experienced developers. In addition, you may be caught between maintaining your existing applications and the uncertainty of moving to something new.
IT managers hoping to find new IBM i talent are discovering that the pool of experienced RPG programmers and operators or administrators with intimate knowledge of the operating system and the applications that run on it is small. This begs the question: How will you manage the platform that supports such a big part of your business? This guide offers strategies and software suggestions to help you plan IT staffing and resources and smooth the transition after your AS/400 talent retires. Read on to learn:
LATEST COMMENTS
MC Press Online