gtps1m25System Macros

CROSC-Cross-Subsystem Access Service Request

Use this system macro to obtain various types of functional access to a user's program base or database. The access types are:

In a multiple database function (MDBF) environment, the CROSC macro is the interface between common or user-shared TPF programs and unique user-associated data and programs. Through the macro services facilities, user-sensitive TPF programs can access programs and databases that are necessarily user-dependent.

Required Authorizations
Key0 Restricted System Common Storage

X

Format




Notes:

  1. accesstype

label
A symbolic name can be assigned to the macro statement.

accesstype
A positional parameter specifying the access type to be defined or obtained. This is required in all macro calls.

ENTDC
Enter a program and release all previous programs attached to the ECB.

ENTNC
Enter a program with no return expected.

ENTRC
Enter a program with return expected (not allowed from control program (CP) when EXEC=NORM is specified).

GLBAC
Obtain subsystem global area update service (not allowed from the control program (CP)).

PROGRAM
The program name that is to be accessed when the access type is ENTDC, ENTNC, or ENTRC.

prog
The name of the program that is to be entered.

(Rx)
A register (R0-R7) that contains the address of where the program name can be found.

IDLOC
A keyword operand specifying the location of the identifier to be used in selecting the table access definitions. This is required in all macro calls.

DBI
Use database ID field (CE1DBI)

PBI
Use program base ID field (CE1PBI)

Ry
Use the value in the specified register. When Ry is coded, it must be the symbolic name of (R0-R7) that contains the 2-byte MDBF identifier if the accesstype was GLBAC. Otherwise, it contains the 2-byte MDBF identifier for the target PBI. Note that not all valid MDBF identifiers are valid PBIs.

BSS
Use the BSS (Basic Subsystem) program base.

INVAL=proglab1
A keyword operand identifying the routine label to be given control if the identifier fails the MDBF ID integrity check (ordinal number plus complement not equal to X'FF'), if the designated subsystem was not included in the last IPL, or if the designated subsystem is inactive. This operand is required if IDLOC=Rx and EXEC=OPTN are specified in the macro call. The operand is optional in other macro calls, but if it is omitted and an error condition is raised, the ECB will be exited with a system error (for integrity check failure, or for inactive or not included in last IPL).

NOTAVL=proglab2
A keyword operand identifying the routine label to be given control if the CROSC global interface program, GLBL, has not been locked in storage by segment GOGO. If not defined and the condition is raised, a system error with exit is taken.

EP=entry
A keyword operand specifying the desired entry point into the global area update program. This operand is required in macro calls requesting global access (access type GLBAC). Entry point equates are defined in the equate macro GLBEQ.

EXEC
Specify one of the following:

OPTN
OPTN specifies that optional servicing of the specified access request is needed in lieu of normal servicing. This is optional in macro calls requesting program base access. If OPTN is specified, control is returned to the caller with R14 containing the address of the enter expansion; the enter expansion is not processed.

OPTN is not available when doing a global area database access.

NORM
If NORM is specified or left to default and the program is a form of Enter, the requested function is activated.

Entry Requirements

Return Conditions

Programming Considerations

Examples

None.