Histórico da Página

...

field in-evento-programa                   as char format "x(15)"
field nm-ponto-chamada-cpc            as char format "x(15)"
field cd-tip-guia                                 like  like tip-guia.cd-tipo-guia.

Definição campo a campo da tabela de entrada

...

def temp-table tmp-cpc-at0113a-saida no-undo

field lg-erro                                 as  as log
field ds-mensagem                     as char format "x(75)"
field lg-retorna-inicio                   as log.

...