program empupdate;
    DATABASE PERS = FILENAME 'PERSONNEL';
                         .
                         .
                         .
    begin
    READY PERS;
                         .
                         .
                         .

    FINISH PERS;
    end.