*COMDECK CSLCMDCLS
  
# THIS DECK PLACES THE CST LOCK TABLES IN LABELED COMMON.              #
  
      COMMON DB$PVCM; 
      BEGIN 
*CALL CSTLKDCLS 
      END  # DB$PVCM #
