Progress - Usando Zoom (para pesquisas) em programas para Datasul EMS

Podemos usar um zoom de forma simples em nossos programas desenvolvidos para datasul ems.... segue um exemplo basico....

def var hprogramzoom as handle no-undo.
DEFINE VARIABLE wh-pesquisa    AS HANDLE     NO-UNDO.
DEFINE VARIABLE l-implanta     AS LOGICAL    NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE wh-window        AS HANDLE NO-UNDO.
DEFINE NEW GLOBAL SHARED VARIABLE adm-broker-hdl   AS HANDLE NO-UNDO.              
   
    DEF VAR l-implanta AS LOGICAL.
        assign l-implanta = NO.
            {include/zoomvar.i &prog-zoom=inzoom/z02in172.w
                               &campo=f-item-ini
                               &campozoom=it-codigo
                               &frame={&frame-name}}