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

    begin
    READY PERS;
    START_TRANSACTION READ_ONLY;

    FOR J IN JOBS WITH J.JOB_CODE = 'APGM'
       writeln (J.JOB_TITLE,
                ' $', J.MINIMUM_SALARY: 10 : 2,
                '  $', J.MAXIMUM_SALARY: 10 : 2);
    END_FOR;

    COMMIT;
    FINISH;
    end.