This invocation of CEEPIPI adds an entry for the environment represented
by token in the Language Environment-maintained table. If a routine entry
address is not provided, the routine name is used to dynamically load
the routine and add it to the PreInit table. The PreInit table index
for the new entry is returned to the calling routine.
Syntax
>>-CALL--CEEPIPI--(--add_entry--,--token--,--routine_name--,---->
>--routine_entry--,--ceexptbl_index--)-------------------------><
- add_entry (input)
- A fullword function code (integer value = 6) containing the
add_entry request.
- token (input)
- A fullword with the value of the token associated with the environment
that adds this new routine. This token is returned by a (init_main),
(init_main_dp), (init_sub), or (init_sub_dp) request.
The token must
identify a previously preinitialized environment that is dormant at
the time of the call.
- routine_name (input)
- A character string of length 8, left-justified and padded right
with blanks, containing the name of the routine. To indicate the absence
of the name, this field should be blank. If routine_entry is
zero, this is used as the load name.
- routine_entry (input/output)
- The routine entry address that is added to the PreInit table.
If routine_entry is zero on input, routine_name is
used as the load name. On output, routine_entry is set to
the load address of routine_name.
The high-order bit of
the entry_point address must be set to indicate the addressing mode
for the routine. If the high-order bit is OFF, the routine is called
in 24 bit addressing mode and the address must be a valid 24 bit address.
If the high-order bit is ON, the routine is called in 31 bit addressing
mode and the address must be a valid 31 bit address.
- ceexptbl_index (output)
- The index to the PreInit table where this routine was added.
If the return code is nonzero, this value is indeterminate. The index
starts at zero.
Note: The environment that was preinitialized
can be an XPLINK environment or a non-XPLINK environment. If the routine
being added is an XPLINK routine, then the previously initialized environment
must also be XPLINK.