$Context

Determine if string is name of open file or group

Note: Most Sirius $functions have been deprecated in favor of Object Oriented methods. There is no OO equivalent for the $Context function.

The $Context function allows a user to determine if a string contains the name of an open file or group.

$Context accepts one argument and returns a numeric code.

The only argument is the name to be tested. This name can be either:

• An unqualified name, in which case the standard Model 204 search order (TEMP GROUP, PERM GROUP, FILE) is used to identify the file or group.
• A qualified name that explicitly indicates whether $Context is to act on a file or group.

If this name is not specified, the default file or group at compile time is used.

Some examples of qualified names follow:

'TEMP GROUP FOO' 'FILE HOHO' 'PERM GROUP CHUCKLES' 'GROUP KRUSTY'

Note that the last example is not fully qualified, so $Context first looks for a temporary group and then a permanent group. If the specified entity is a file that is only open as a member of a group, $Context returns a 0 indicating that the file is not open as an individual file.

Syntax

%result = $Context(fgname)

%result is set to indicate the success of the function.

0 - String does not specify an open file or group 1 - String specifies an open group 2 - String specifies an open file

$Context return codes

Examples

1. In the following example, %RC is set to 1 if file KRUSTY is open:

   %RC = $Context( 'FILE KRUSTY' )

2. In the following example, %RC is set to 1 if BURNS identifies an open file, 2 if BURNS identifies an open group, and 0 if it identifies neither:

   %RC = $Context( 'BURNS' )

3. In the following example, %RC is set to 2 if NUKEM is open as a temporary group, and set to 0 otherwise:

   %RC = $Context( 'TEMP GROUP NUKEM' )

Products authorizing $Context

• Sirius functions
• Fast/Unload User Language Interface
• Janus Open Client
• Janus Open Server
• Janus Sockets
• Janus Web Server
• Japanese functions
• Sir2000 Field Migration Facility