[RESOLVIDO] Chamada do programa Z01DI341 (Zoom Cidades)

Olá pessoal,
desenvolvi uma tela no EMS2.06 e nela contem o campo Cidade.
Ao clicar duas vezes nesse campo gostaria que abri-se o zoom das cidades "Z01DI341".

Abaixo segue codigo de como estou chamando:

DO:
{include/zoomvar.i &prog-zoom = dizoom/z01di341.w
&campo = c-cidade
&campozoom = cidade}
END.

Quando executo o programa e clico duas vezes no campo cidade aparece esta mensagem,
"Procedure dizoom/z01di341.w has no entry point for pi-entry. (6456)"

e quando seleciono a cidade desejada aparece esta outra,
"Handle inválido. Não inicializado ou aponta para um objeto excluído. (3135)"

E os dados da cidade não alimenta o meu programa.

Alguem sabe como solucionar este caso?

Fabricio, boa tarde. blz.

Segue abaixo como fazer no evento MOUSE-SELECT-DBLCLICK:

Código:

    apply 'F5':u to self.

Segue abaixo como fazer no evento F5 caso queira que funcione a tecla de atalho. segue um exemplo, é somente você fazer a adaptação ao seu caso ai.

Código:

  {include/zoomvar.i &prog-zoom=adzoom/z01ad107.w
                     &campo=esp_param_import_nfe.cod-estabel
                     &frame=f-main
                     &campozoom=cod-estabel}  

vlw rhemati muito obrigado pela atenção,

mas esse é igual ao que eu tenho aqui.
Só não tinha o $frame sendo informado.
Mas mesmo colocando o $frame ainda está sendo apresentado a mesma mensagem.

Consegui a solução com um amigo!
Para quem precisar segue:

DO:

DEFINE VARIABLE hProgramZoom AS HANDLE NO-UNDO.

{method/ZoomFields.i &ProgramZoom="dizoom/z01di341.w"
&FieldZoom1="cidade"
&FieldScreen1="c-cidade"
&Frame1="f-cad"
&EnableImplant="YES"}

END.