GDSX Manual

User Exit Descriptions
Extended General Device Support (GDSX) Manual–134303
9-22
USER^STOP
If the SU is configured under a LINE (determined by a nonzero value for dcb.lineno),
TSCODE creates a DEVICE^HANDLER task, stores openid in tcb.openid, and stores
an ITC file number in tcb.term.
status returned value
INT:value
is the returned value. The value of status is one of the following:
dcb input
INT .EXT:ref
is a pointer to the device control block for the file being opened.
openid output
INT(32):ref
is the returned pointer to the device control block for the file being opened.
USER^START is expected to return this address.
Considerations
•
The TSCODE-supported FAULT procedure should only be called from the
USER^START exit with its noretn parameter equal to 0. See the description of
the FAULT procedure on page 8-22.
•
USER^START is an integer function called only by TSCODE, never by USCODE.
USCODE returns function values to TSCODE with the TAL RETURN statement.
The permissible returned values are described under the status variable above.
USER^STOP
This user exit is called when the TSCODE monitor task is ready to stop a
DEVICE^HANDLER task, dynamic or preconfigured, or a LINE^HANDLER task, and
close the associated file. This occurs under any of the following conditions:
•
An SCF STOP SU, ABORT SU, or ABORT LINE command is issued.
•
A task calls FAULT with its noretn parameter equal to 1.
•
A call to the TSCODE STOP^TASK procedure is made from USCODE or
TSCODE.
status := PROC USER^START ( dcb !
i
,openid ); !
o
0 Everything is all right and the SU open is allowed
File error A file error occurred during the open of the SU