*DECK DB$SR41 
USETEXT MD10CTX 
USETEXT SCANTXT 
      PROC DB$SR41; 
      BEGIN 
 #
* *   DB$SR41 - STORE UPDATE LIMIT               PAGE  1
* *   J. G. SERPA                                DATE  07/14/80 
* *   R. M. PAPPE                                DATE  09/11/80 
* 
* DC  PURPOSE 
* 
*     STORE THE UPDATE LIMIT VALUE. 
* 
* DC  ENTRY CONDITIONS
* 
*     CURWORD CONTAINS THE DISPLAY CODE EQUIVALENT OF THE 
*     UPDATE LIMIT VALUE. 
*     DB$CLNG CONTAINS THE LENGTH OF THE LIMIT FIELD IN CHARACTERS. 
* 
* DC  EXIT CONDITIONS 
* 
*     UPDATE LIMIT HAS BEEN STORED INTO UPDLIM. IF IT IS INVALID
*     (E.G. LT 1 OR GT 63) RETURN IS TO DB$NO, OTHERWISE RETURN IS TO 
*     DB$YES. 
* 
* DC  CALLING ROUTINES
* 
*     DB$SNTX - SYNTAX CRACKER (SYNGEN) 
* 
* DC  CALLED ROUTINES 
* 
# 
      XREF
        BEGIN 
        FUNC DB$CBIN U;      # CONVERT DISPLAY CODE TO BINARY FORMAT   #
        PROC DB$NO;          # SYNTAX TABLE DRIVER -NO- RETURN         #
        PROC DB$YES;         # SYNTAX TABLE DRIVER -YES- RETURN        #
        END 
# 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     CALL DB$CBIN TO CONVERT CURWORD FROM DISPLAY CODE TO BINARY FORMAT
*     IF THE VALUE IS INVALID (LESS THAN ONE (1) OR GREATER THAN
*     SIXTY-THREE (63)), RETURN TO DB$NO. OTHERWISE, RETURN TO DB$YES.
* 
 #
  
      CONTROL EJECT;
#     B E G I N     E X E C U T A B L E     C O D E                    #
  
      UPDLIM = DB$CBIN(CURWORD[0],DB$CLNG,10);
      IF UPDLIM GR 0
        AND UPDLIM LQ 63
        THEN
          BEGIN 
          DB$YES; 
  
          END 
      DB$NO;
  
      END 
      TERM
