Go to the bottom.

!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	LOCKS_WPRSU_RETLIS.SDDL
!
! Purpose:      This SDDL file defines the locks_wprsu_retlis relation.
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 10/27/95   29724      NLC   Original implementation
! 10/01/01   44572      sss   Added index
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
!
 
LANGUAGE	C, SQL

INCLUDE 	ZSPSS_USER_TYPES.SDDL

RECORD  LCKWPRSU_TYPE
 
!------------------------------------------------------------------------------
!
!   RECORD INFORMATION
!
!------------------------------------------------------------------------------

   DESCRIPTION    "This is the relation used to implement locking for the
		   WPRSU_RETLIS relation.  Only 1 record is written to this 
                   table.  

                   Processes which want a lock on the WPRSU_RETLIS table will
                   call a locking routine, which will update this relation.
                   The process will release the lock after it has completed
                   all updates to the WPRSU_RETLIS table.  No other processes 
                   will be allowed to update this relation until the lock 
                   is released; thus, access to the WPRSU_RETLIS table 
                   is serialized. "

!------------------------------------------------------------------------------
!
!   FIELD INFORMATION
!
!------------------------------------------------------------------------------
 

    FIELD  lock_field
        TYPE LOCK_FIELD_TYPE
	DESCRIPTION	"This field is used for updating the 
			 table.  It's value does not matter."
    END_FIELD

END_RECORD

!------------------------------------------------------------------------------
!
!   RELATION DECLARATION
!
!------------------------------------------------------------------------------
 
RELATION  locks_wprsu_retlis
 
    TYPE             LCKWPRSU_TYPE
 
    DESCRIPTION      "Wprsu_retlis Locking Relation"
 
    SUBSYSTEM_USING  "SPSS"
 
    RELATED_FIELDS  "wprsu_retlis.*" "locks_wgrequests.*" "locks_wgacquis.*" "locks_wresp.*"

 
    INDEX  locks_wprsu_retlis_1
        TYPE         clustered
        FIELDS       lock_field
    END_INDEX
END_RELATION
 
!------------------------------------------------------------------------------
!
!   INSTANCE DECLARATION
!
!------------------------------------------------------------------------------
 
 
INSTANCE  wprsu_retlis_locks
 
    GLOBAL
 
    TYPE        LCKWPRSU_TYPE
 
END_INSTANCE

Go to the top.