GDSX Manual

USKELEX and USKELEXC Listings
Extended General Device Support (GDSX) Manual–134303
B-13
USKELEX Listing
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way for users to initialize desired
! configuration parameter values.
!
! Input: None.
!
! Output: None. Assign desired configuration parameter values. This will
! apply to both primary and backup.
!***************************************************************************
PROC user^init^config^params;
BEGIN
END;
!===========================================================================
?PAGE "PROC USER^REPLIES"
!===========================================================================
!***************************************************************************
!
! Function: This PROC serves as a way for users to participate in processing
! a SPI inquiry command.
!
! Input: sg^cmd is the SPI command for the response request.
! sg^objtype and sg^objname is the object for the response request.
! sg^buf is the pointer for SPI response buffer.
!
! Output: users may put as many as response token into SPI response
! via a call to
! ssput (sg^buf, desired^user^token^code, user^token^value
!
! Return zero if every thing is ok
! Return SPI error number for an error.
!
!***************************************************************************
INT PROC USER^REPLIES (sg^cmd, sg^objtype, sg^objname, sg^buf);
INT sg^cmd , ! SPI command for this request
sg^objtype , ! object type for this request
sg^objname , ! object name for this request
.sg^buf ; ! SPI response buffer
BEGIN
RETURN 0;
END ;
!===========================================================================
?PAGE "PROC USER^TAKEOVER"
!===========================================================================
!***************************************************************************
! Function: This PROC serves as a way for users to pre-process after a
! TAKEOVER in fault tolerance-related processing.
!
! Input: None.
!
! Output: None. User could update anything they want (optional).
!
!***************************************************************************
PROC user^takeover;
BEGIN
INT .EXT dcb(dcb^TEMPLATE) ;
USE d;