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

    begin
    READY PERS;
    START_TRANSACTION READ_ONLY;

    (* perform some actions on the database *)

    COMMIT;
    FINISH;
    end.