1       !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        ! Program: INT_DEMO_B_UPDATE_INTOUCH.INT
        ! System : INTOUCH DEMONSTRATION SYSTEM
        ! Author : Daniel James Swain
        ! Date   : 10-JAN-1991
        ! Purpose: Illustrate updating data records
        !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

        declare integer i, r

        open structure customer : name 'tti_run:vendor', &
          datafile "sys$scratch:tti_vendor.tmp", access outin

        extract structure customer
          i = i + 1
          r = r + 1
          if  r = 25  then
            r = 0
            print "On record:"; i
          end if
          customer(balance) = customer(balance) + 50
        end extract
        print 'Records updated:'; _extracted

        close all
        end