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-pr0112t-saida no-undo

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

...