######################################################################

# Subroutine to UPDATE a single row in the STAFF table in the SAMPLE  

# database.  

######################################################################

 

subroutine UpdateStaff() is

 

# Call  EXECUTE_UpdateStaff action routine to execute DB/Assist

# generated action routine

 

    action EXECUTE_UpdateStaff

    if not(EDB2Error_BV) then

 

# Check for any errors after executing the EXECUTE_UpdateStaff action

# routine. If no error occured then continue. Call EDB2Commit

# subroutine to commit changes to the database.

 

           call EDB2Commit(Esqlca)

 

           if not(EDB2Error_BV) then

 

# Clear out the list box and reset it by calling SetupList_DB action

# routine. This user written action routine will reset the

# SetupList_DB to reflect any changes that may have occured from the

# execution of the update statement.

 

                clear List_LB

                action SetupList_DB

         end if

     end if    

 

# If the EDB2Error_BV is true call an action routine to display the

# error to the user. Action DisplayError can be any user written

# action routine which can display the appropriate error information

# to the user.

 

    if (EDB2Error_BV) then

          action DisplayError

    end if