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 cd-modalidade                            like     like for-pag.cd-modalidade
field cd-plano                                     like      like for-pag.cd-plano
field cd-tipo-plano                               like    like for-pag.cd-tipo-plano
field cd-forma-pagto                              like for-pag.cd-forma-pagto.

...

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

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

...