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

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

# database.

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

 

subroutine DeleteStaff() is

 

 

# Call  EXECUTE_DeleteStaff action routine to execute DB/Assist

# generated action routine

 

      action EXECUTE_DeleteStaff

 

# Check for any errors after executing the EXECUTE_DeleteStaff action

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

# subroutine to commit changes to the database.

 

      if not (EDB2Error_BV) then

         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 delete statement.

 

              clear List_TBL

                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