Histórico da Página

...

field nm-ponto-chamada-cpc                  as char format "x(15)"
field in-evento-programa                        as   as char format "x(10)"
field cd-modalidade                              like     like notaserv.cd-modalidade
field nr-ter-adesao                                    like notaserv.nr-ter-adesao
field cd-contratante                                 like  like notaserv.cd-contratante
field cd-contratante-origem                    like   like notaserv.cd-contratante-origem
field aa-referencia                                   like  like notaserv.aa-referencia
field mm-referencia                                 like notaserv.mm-referencia
field nr-sequencia                                   like  like notaserv.nr-sequencia.

Definição campo a campo da tabela de entrada

...

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

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

...