*DECK UPDATE
USETEXT TENVIRN 
USETEXT TSBASIC 
USETEXT TXSTD 
      PROC UPDATE;
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     UPD40                        PROCESS *UPDATE* WITH NO PARAMETERS #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
      XREF ITEM UPDATING     B;    # TRUE IF SOME KIND OF UPDATE       #
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC UPD40;
 PROC UPD40;  BEGIN 
 # PROCESS UPDATE WITH NO PARAMS, AT EOT #
      IF RECORDFLAG  THEN STDNO;
      NEXTXMISSN = TRUE;
      UPDATING = TRUE;             # TRUE--UPDATE OPERATION            #
      IF IFFLAG  THEN STDYES; 
      STDNO;
         END
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
