Guardian Application Conversion Guide

Opening and Communicating With a High-PIN Server
Converting TAL Applications
3–32 096047 Tandem Computers Incorporated
Opening a High-PIN Server
Your requester might open the server using the OPEN procedure:
INT .server^name[0:11] := ["$SRV", 10 * [" "]];
...
CALL OPEN (server^name,
server^file^number,
nowait^depth,
sync^depth);
Convert your requester to open the high-PIN server using the FILE_OPEN_
procedure. The FILE_OPEN_ procedure requires a variable-length string for the
server file-name input parameter rather than the 12-word internal-format file name.
Note If the file-name input parameter is incomplete (that is, not fully qualified), FILE_OPEN_ uses the current
settings, including the system name, in the =_DEFAULTS DEFINE for the unspecified parts.
FILE_OPEN_ also accepts a DEFINE name that represents a valid file name in this
format.
FILE_OPEN_ accepts an integer options parameter to specify certain file
characteristics. The options bit positions represent these options:
options
Bit Position Description
.<0> Allow unstructured access for a disk file (must be 0 for other files and devices)
.<1> Execute a nowait open
.<2> Do not execute an update when the file is opened
.<3> Use any available file number for backup open (0 means use the same file number as
in the primary open)
.<4:13> Reserved; must be 0
.<14> Receive C-series system messages ($RECEIVE only)
.<15> Do not receive process open and close system messages ($RECEIVE only)
The ZSYSTAL file contains LITERAL declarations that you can use with the options
parameter.