THE INS AND OUTS OF *INLR (From Search400)

jj8610

As we all know, the *INLR must be set on in order to shut down a program. That does not necessarily mean the program must terminate. Or, in other words, that the program must close all its files and release itself from memory.

If you have a program that is used often in the call stack, for performance reasons you may wish to keep the program "hot" or active. You may have a central work with style program that most of your users access. Each time a program starts, the system validates security, opens files, and a host of other activities. All of that takes valuable processing time.

If the program returns to the caller with *INLR set on, then the program shuts down and all the files are closed. The next call to the program repeats all the same steps once again to validate security, opening files and everything else. If the same people use the program many times in a day, it could impact the overall performance of your system.

But if the program returns to the caller with *INLR set off, all the files remain open and all subsequent calls to that program are executed much faster. With the files already opened and security validated, there is much less overhead in executing the program.

As with any new technique, there are a few drawbacks. First, if you use an initialized subroutine (*INZSR) in the program, it will only be executed the first time the program is called. That could cause problems, depending on the logic it contains. Next, by leaving the files open, each pointer is right where you left it. Also, the program variables contain the values that were last loaded. In essence you restart the program right where you left off the last time.

Another caveat of the last record indicator is it can be used to end a program without ever executing the mainline. If *INLR is set on during the *INZSR routine, the program ends when the *INZSR subroutine ends and will not execute any of the mainline logic. This is useful in programs that you want to use conditioning logic to see if the program should execute. It's also helpful in programs that have complex mainline logic. You can code the *INZSR to test for reasons you should not execute the mainline and if any are met, turn on *INLR and let the program end.

Those are a couple of coding methodologies that you can introduce into your programs. As with all new styles, be careful in how you implement them until you fully understand their ramifications.

e_server

LR = last record
SR = subroutine