Writing Modern Progress

C1350-LV Its Not Your Father?s 4GL
apresenta??o sobre como aplicar novos m?todos de programa??o no ambiente progress.
gostei principalmente deste bocado de c?digo
Def input parameter tablename as char no-undo.
Def input parameter wherestring as char no-undo.
Def input parameter sortby as char no-undo.
Def var qrystring as char no-undo.
?
Create buffer hbuf for table tablename.
Hqry:add-buffers(hbuf).
Qrystring = ? for each ? + tablename + ?no-lock? +
+ wherestring + sortby.
Hqry:query-prepare(qrystring).
Hqry:query-open.

Writing Modern Progress: Techniques for using the 4GL in OpenEdge.