Histórico da Página

...

field in-evento-programa                        as char format "x(15)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field cd-unidade-pres                              like presmovt.cd-unidade-pres
field cd-prestador                                    like presmovt.cd-prestador
field in-tipo-movimento                           like presmovt.in-tipo-movimento
field cd-tipo-insumo                                like   like presmovt.cd-tipo-insumo
field cd-proc-insu                                   like  like presmovt.cd-proc-insu.

Definição campo a campo da tabela de entrada

...

field lg-undo-retry                            as log
field ds-mensagem                         as char format "x(75)"
field in-entidade                                like presmovt.int-2.

...