GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-11
USKELEX Listing
item^name ':=' xlate^user^parm^name [index] for s; ! get table name
IF item^name = s[1] for s THEN ! param name found
BEGIN
@s := @s[s+1] ; ! pt to param value
! assign param value
!set the desired parameter variable to parm value(s[1] FOR s)
goto try^next^param;
END
ELSE
index := index + 15; ! go to next param
END;
drop index;
@s := @s [s+1]; !name not found let us forget it
try^next^param:
!if multiple user parm msgs are in one string
!continue to process, otherwise
RETURN; !return to TSCODE for further processing
END;
!===========================================================================
?Page "PROC USER^ATTRIBUTES"
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way for users to add a new ATTRIBUTE for a
! given SPI command. Unrecognized token for a recognized
! SPI command will be passed to this PROC for further processing.
!
! Inputs: sg^cmd, sg^objtye, sg^obname, token^code, token^value
!
! Output: Return zero if the token is anticipated and token value is right
! SPI retcode token value for error.
!
!***************************************************************************
INT PROC USER^ATTRIBUTES (sg^cmd, sg^objtype, sg^objname, token^code,
token^value);
INT sg^cmd , ! SPI command for this request
sg^objtype , ! object type for this request
.sg^objname , ! object name for this request
.token^value ; ! SPI token value for this token
INT(32) token^code ; ! SPI token code
BEGIN
RETURN 0;
END;
!===========================================================================
?PAGE "PROC USER^BACKUP"
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way for users to pre-process checkpoint
! information for a fault tolerance-related need.
!
! Input: None.
! Output: None.
!
!***************************************************************************
PROC USER^BACKUP;