Histórico da Página

...

field in-evento-programa                 as char format "x(06)"
field nm-ponto-chamada-cpc         as  as char format "x(15)"
field cd-modalidade                       like    like for-pag.cd-modalidade
field cd-plano                                    like for-pag.cd-plano
field cd-tipo-plano                            like   like for-pag.cd-tipo-plano
field cd-forma-pagto                     like    like for-pag.cd-forma-pagto.

Definição campo a campo da tabela de entrada

...

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

...