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

    begin
    READY PERS;
    START_TRANSACTION READ_ONLY;

    FOR E IN EMPLOYEES
       REDUCED TO E.STATE
       SORTED BY E.STATE
          writeln (E.STATE);
    END_FOR;

    COMMIT;
    FINISH;
    end.