program erase_record (input,output);
    DATABASE PERS = FILENAME 'PERSONNEL';

    begin
    READY PERS;
    START_TRANSACTION READ_WRITE;

    FOR C IN COLLEGES WITH C.COLLEGE_CODE = 'PURD'
       ERASE C;
    END_FOR;

    ROLLBACK;
    FINISH;
    end.