Histórico da Página

...

field in-evento-programa                    as   as char format "x(06)"
field nm-ponto-chamada-cpc              as char format "x(15)"
field cd-evento                                     like evendesp.cd-evento
field cd-grupo-prestador                      like evendesp.cd-grupo-prestador
field in-movto                                       like evendesp.in-movto
field cd-mod-plano-tipo-modulo          like evendesp.cd-mod-plano-tipo-modulo
field cd-forma-pagto                             like evendesp.cd-forma-pagto
field in-tipo-ato                                like       like evendesp.in-tipo-ato
field aa-validade                              like       like evendesp.aa-validade
field mm-validade                             like    like evendesp.mm-validade
field lg-internado                                 like  like evendesp.lg-internado
field cd-grupo-tipo                           like      like evendesp.cd-grupo-tipo
field cd-proc-insumo                        like     like evendesp.cd-proc-insumo
field ct-codigo-ini                                 like evendesp.ct-codigo
field ct-codigo-fim                                like like evendesp.ct-codigo
field sc-codigo-ini                             like    like evendesp.sc-codigo
field sc-codigo-fim                           like    like evendesp.sc-codigo
field cd-unidade-carteira                  like     like moviproc.cd-unidade-carteira
field cd-unidade-pagamento               like moviproc.cd-unidade-pagamento
field lg-plano-base                          as       as log
field cd-modalidade                             like usuario.cd-modalidade
field nr-ter-adesao                                like usuario.nr-ter-adesao
field cd-usuario                                    like usuario.cd-usuario
field r-movto                                        as recid.

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 lg-fora-intervalo                   as log
field ct-codigo                             like  like evendesp.ct-codigo
field sc-codigo                              like like evendesp.sc-codigo.

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

...