Histórico da Página

...

field in-evento-programa                  as char format "x(10)"
field nm-ponto-chamada-cpc             as  as char format "x(15)"
field cd-modalidade                         like  like propost.cd-modalidade
field cd-plano                                  like   like propost.cd-plano
field cd-tipo-plano                             like propost.cd-tipo-plano
field qt-repasse-cob                         like procguia.qt-repasse-cob
field cd-unid-princ                            like presev.cd-unidade
field cd-prestador-princ                     like  like preserv.cd-prestador
field cd-unid-solic                            like   like presev.cd-unidade
field cd-prestador-solic                     like preserv.cd-prestador
field cd-unid-exec                            like presev.cd-unidade
field cd-prestador-exec                     like preserv.cd-prestador
field r-usuario                                   as rowid
field r-outuni                                    as   as rowid
field cd-procedimento                      as int format "99999999"
field nr-guia-atendimento                 like procguia.nr-guia-atendimento
field aa-guia-atendimento                like procguia.nr-guia-atendimento
field cd-proc-insu                              like like presmovt.cd-proc-insu
field lg-inclui-pacote                          as as log.

Definição campo a campo da tabela de entrada

...

field lg-erro                                     as log
field ds-mensagem                        as char format "x(75)"
field qt-repasse-cob                       like procguia.qt-repasse-cob
field lg-alt-qtd-aut                          as log
field lg-cpc-ant-inc-pacote-restr        as log
field lg-undo-retry                          as log.

...