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

    var EMP_UPDATE : [volatile] integer := 0;

    begin

    READY PERS;
    START_TRANSACTION (TRANSACTION_HANDLE EMP_UPDATE) READ_WRITE;

    FOR (TRANSACTION_HANDLE EMP_UPDATE) E IN EMPLOYEES
       WITH E.EMPLOYEE_ID = '00178'
          MODIFY E USING
             E.LAST_NAME := 'Brannon';
          END_MODIFY;
    END_FOR;

    COMMIT (TRANSACTION_HANDLE EMP_UPDATE);
    FINISH;
    end.