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

    begin
    READY PERS;
    START_TRANSACTION READ_ONLY;

    FOR CI IN CURRENT_INFO
       SORTED BY CI.SALARY
          writeln (CI.LAST_NAME, ' $', CI.SALARY :10:2);
    END_FOR;

    COMMIT;
    FINISH;
    end.