Guardian Application Conversion Guide

Converting a COBOL85 Program to Run at a High PIN
Converting COBOL85 Applications
4–10 096047 Tandem Computers Incorporated
Setting the HIGHPIN
Object-File Attribute
The HIGHPIN object-file attribute directs the system to run a program at a high PIN if
one is available. If a high PIN is not available, the program runs at a low PIN if one is
available. You set the HIGHPIN object-file attribute either during compilation using a
compiler directive or after compilation using the Binder program.
To set the attribute when you compile your program, specify the HIGHPIN directive
in your source code or as a compiler option in the TACL RUN command for the
COBOL85 compiler. The BINSERV program then sets the HIGHPIN attribute in the
object file. An example of this directive (with the ENV directive) in a source file is:
?ENV COMMON
?HIGHPIN
An example of this directive as a compiler option is:
10> COBOL85 / ... / cobobj; ENV COMMON; HIGHPIN
You need to specify the HIGHPIN directive only once during a compilation.
However, you can specify it any number of times and the compiler will not generate
an error.
Note If you compile with the HIGHPIN directive but do not specify COMMON or LIBRARY for the ENV directive,
the COBOL85 compiler generates a warning message and ignores the HIGHPIN directive.
If you do not set the HIGHPIN attribute when you compile your program, you can set
it after compilation using the Binder program.
If you are binding more than one object file into a single target object file, the Binder
program sets the HIGHPIN object-file attribute in the target file only if all constituent
files have the HIGHPIN object-file attribute set. If necessary, use the Binder CHANGE
command to set the attribute in the target object file:
@CHANGE HIGHPIN ON IN cobobj
Using a Library File If your existing program uses a library file, the library file must also have its HIGHPIN
object-file attribute set. To determine the current setting of the HIGHPIN attribute for
a library file, use the Binder SHOW command:
@SHOW SET HIGHPIN FROM libfile
If necessary, set this attribute as described in the previous step (provided the library
file has been converted to support a high-PIN process).