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

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

# UpdateStaff_DB.

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

 

response to Delete_PB in UpdateStaff_DB

 

     action EXECUTE_DeleteCurrentStaff

 

# Check for any errors after executing the EXECUTE_DeleteCurrentStaff

# action routine. If no error occured then continue.

 

     if not (EDB2Error_BV) then

 

# Commit the changes to the database.

 

           call EDB2Commit(Esqlca)

                if not (EDB2Error_BV) then

 

# If there are no errors, then fetch the next row.

 

                     action FETCH_SelectStaffUpdate

                     if not (EDB2Error_BV) then

 

# If EDB2_Error is false, set up the dialog box.

 

                          action SetupUpdateStaff_DB

                     end if

                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

 

response to Cancel in UpdateStaff_DB

     action CLOSE_SelectStaffUpdate

     make UpdateStaff_DB invisible