CPC-FP0710I.p

...

field in-evento-programa                        as char format "x(06)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field cd-modalidade                                 like fatueven.cd-modalidade
field cd-contratante                             like      like fatueven.cd-contratante
field cd-contratante-origem                     like fatueven.cd-contratante-origem
field nr-ter-adesao                                   like fatueven.nr-ter-adesao
field aa-referencia                                like     like fatueven.aa-referencia
field mm-referencia                              like     like fatueven.mm-referencia
field nr-sequencia like                                    like fatueven.nr-sequencia
field cd-evento                                         like fatueven.cd-evento
field in-tipo-fatura                                     like fatura.in-tipo-fatura
field in-tipo-nota                                       like notaserv.in-tipo-nota
field aa-validade as                                      as int format "9999"
field mm-validade as                                    as int format "99".

Definição campo a campo da tabela de entrada

...

field lg-undo-retry                               as  as log
field ds-mensagem                             as char format "x(75)"
field ct-codigo                                      like fatgrunp.ct-codigo
field sc-codigo                                      like fatgrunp.sc-codigo
field vl-evento                                      like fatgrunp.vl-evento
field lg-modalid                                    as log.

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

...