Guardian Application Conversion Guide

Converting Basic Elements of a COBOL85 Program
Converting COBOL85 Applications
096047 Tandem Computers Incorporated 4–7
For example:
* Subvolume defaulting is NOT allowed in a program running
* under the D-series operating system.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MASTER-FILE
ASSIGN TO "$DATA.FY90.MASTER".
Converting Guardian
Procedure Calls
Guardian procedures that you might need to convert are procedures that accept or
return:
A PIN parameter for a high-PIN process
A process-ID parameter
D-series procedures use a process handle (which includes the CPU and PIN values)
rather than a process ID to identify a process.
If you convert your program to run at a high PIN, then you must replace MYPID
procedure calls with calls to the PROCESS_GETINFO_ and
PROCESSHANDLE_DECOMPOSE_ procedures.
“Converting a COBOL85 Program to Run at a High PIN” later in this section, describes
most of the Guardian procedures that need converting.
Convert each C-series procedure to the appropriate D-series procedure. The COBOL85
Programmer’s Guide, the COBOL85 Reference Manual, and the Common Run-Time
Environment Programmer’s Guide provide information about converting TAL procedure
calls to COBOL85.
Converting for New
Reserved Words
FUNCTION is a new reserved word introduced in the D-series COBOL85 compiler. If
you have used the word FUNCTION as a variable name you must replace the name
with a nonreserved word.
Running the
COBOL85 Compiler
When you start the COBOL85 compiler using the TACL RUN command, TACL calls
the PROCESS_CREATE_ procedure to create the COBOL85 compiler process and the
resulting BINSERV and SYMSERV processes at low PINs.
To run the COBOL85 compiler process (and the BINSERV and SYMSERV processes) at
a high PIN, you must use the Binder program to set the HIGHPIN object-file attribute
to ON in the COBOL85 compiler object file (provided you have the proper authority to
change this file). TACL then runs the COBOL85 compiler (and the BINSERV and
SYMSERV processes) at a high PIN if one is available.
Note When running the COBOL85 compiler at a high PIN, there are restrictions on accessing files that reside
on C-series systems for input or output . The compiler returns diagnostic messages if you cannot access
a given C-series file. See Appendix C, “System Compatibility,” for details.