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

# This response is executed when the user clicks on the Update_PB in

# UpdateStaff_DB.

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

 

response to Update_PB in UpdateStaff_DB

 

# Query information in the UpdateStaff_DB by executing the user

# written action routine QueryUpdateStaff_DB.  This action routine

# will query the information from the entry fields into the ESL host

# variables. Execute DB/Assist generated action routine to perform

# update on the STAFF table.

 

    action QueryUpdateStaff_DB

    action EXECUTE_UpdateCurrentStaff

 

# Check for any errors after executing the EXECUTE_UpdateCurrentStaff

# action routine. If no errors occured then continue. Call EDB2Commit

# subroutine to commit changes to the database.

 

     if not(EDB2Error_BV) then

         call EDB2Commit(Esqlca)

    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