routine file_chmod (
    chmod_file: file_t;
    RPT
    new_mode: mode_t);

Change mode bits.