GDSX Manual

User Exit Descriptions
Extended General Device Support (GDSX) Manual–134303
9-25
USER^VERSION
status returned value
INT:value
is the returned value. The value of status is generated by a TAL RETURN
statement in USCODE and is one of the following:
string input
STRING:ref:6
is the pointer to the six-byte user code version string.
Considerations
The USER^INIT^CONFIG^PARAMS, PROCESS^ASSIGNS,
PROCESS^USER^PARAMS, and USER^VERSION user exits are called very early in
the GDSX initialization process. Buffer pools and task and file management structures
have not been initialized. Consequently, within these exits TSCODE-supported service
procedures should not be called, except for the following:
Wait until USER^INITIALIZE to call other service routines.
Example
This example shows a version date in the user’s code that is returned to TSCODE by
USER^VERSION:
INT PROC USER^VERSION (version^string);
STRING .version^string;
BEGIN
version^string ':=' "050293"; ! May 2, 1993
RETURN 1;
0 A version date is not provided
1 A version date is provided
BIT^MAP INIT[X]LIST
BIT^RESET INIT^SEM
BIT^SET ^SHUTDOWN
BIT^TEST ^TERMINATE