Histórico da Página

...

field in-evento-programa                          as char format "x(06)"
field nm-ponto-chamada-cpc              as       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        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 evendesp.lg-internado
field cd-grupo-tipo                                      like evendesp.cd-grupo-tipo
field cd-proc-insumo                                 like evendesp.cd-proc-insumo
field ct-codigo-ini                                       like evendesp.ct-codigo
field ct-codigo-fim                                      like evendesp.ct-codigo
field sc-codigo-ini                                      like evendesp.sc-codigo
field sc-codigo-fim                            like           like evendesp.sc-codigo
field cd-unidade-carteira                           like moviproc.cd-unidade-carteira
field cd-unidade-pagamento              like         like moviproc.cd-unidade-pagamento
field lg-plano-base                                     as log
field cd-modalidade                                  like usuario.cd-modalidade
field nr-ter-adesao                                    like usuario.nr-ter-adesao
field cd-usuario                                  like         like usuario.cd-usuario
field r-movipres                                        as rowid
field r-movto                                   as            as recid

Definição campo a campo da tabela de entrada

...

field lg-undo-retry                              as log
field ds-mensagem                           as char format "x(75)"
field lg-fora-intervalo                        as   as log
field ct-codigo                                   like  like evendesp.ct-codigo
field sc-codigo                                   like evendesp.sc-codigo
field lg-continua                                 as log.

...