Histórico da Página

...

field in-evento-programa                       as  as char format "x(10)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field qt-moeda-insumo                           like preinpr.qt-moeda-insumo
field nr-casas-dec                                  as int.

Definição campo a campo da tabela de entrada

...

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

field lg-undo-retry                                as log
field ds-mensagem-retorno                 as char format "x(75)"
field qt-moeda-insumo                       like  like preinpr.qt-moeda-insumo
field nr-casas-dec                              as   as int.

Definição campo a campo da tabela de saída

...