D30ACBA4fBXPJDHHTGRAY   0
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLERROR GOTO ret_code
WHENEVER SQLWARNING CONTINUE
WHENEVER NOT FOUND CONTINUE
DELETE FROM CUSTOMER          WHERE CU_SSN = 'Name       '
DELETE FROM CUSTOMER          WHERE CU_SSN = 'ssn        '
DELETE FROM BOX          WHERE B_NUMB = 'Nam'
DELETE FROM BOX          WHERE B_NUMB = 'BNU'
DELETE FROM BOX          WHERE B_NUMB = 'BSS'
DELETE FROM BOX          WHERE B_NUMB = 'BRE'
DELETE FROM BOX          WHERE B_NUMB = 'BSI'
SELECT COUNT (*)          INTO :custcnt          FROM CUSTOMER
SELECT COUNT (*)          INTO :boxcnt          FROM BOX
WHENEVER SQLERROR CONTINUE
ROLLBACK WORK
custcnt
bnumb
boxcnt