[Progress Communities] [Progress OpenEdge ABL] dynamic find method: do not throw error when record does not exist

[Stefan Drissen]

define temp-table tt field cc as char. def var hb as handle. hb = temp-table tt:default-buffer-handle. /* should be sufficient, but is not due to error 565 ... */ if hb:find-first( 'where cc > ""' ) then do: /* something */ end. /* ... so clunky code required */ def var lok as logical. lok = hb:find-first( 'where cc > ""' ) no-error. if lok then do: /* something */ end. Errors should only be thrown when there is an error in the query, the find-first / find-unique methods are already returning true or false if the record was found.

Continue reading...