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

# Subroutine to INSERT a single row into the STAFF table in the SAMPLE

# database

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

 

subroutine InsertStaff() is

 

# Call  EXECUTE_InsertStaff action routine to execute DB/Assist

# generated action routine.

 

 

    action EXECUTE_InsertStaff

    if not (EDB2_ERROR_BV) then

 

# Check for any errors after executing the EXECUTE_InsertStaff action

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

# subroutine to commit changes to the database.

 

           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