dbf_status.prg