Histórico da Página

...

field in-evento-programa                   as char format "x(06)"
field nm-ponto-chamada-cpc            as char format "x(15)"
field r-preserv                                    as   as rowid
field r-endpres                               as      as rowid.

Definição campo a campo da tabela de entrada

...

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

field lg-undo-retry                           as  as logical
field ds-mensagem-erro                 as char format "x(75)".

...