Histórico da Página

...

field in-evento-programa                  as char format "x(10)"
field nm-ponto-chamada-cpc           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     like propost.cd-tipo-plano
field qt-repasse-cob                       like    like procguia.qt-repasse-cob
field cd-unid-princ                            like   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  like preserv.cd-prestador
field r-usuario                                   as rowid
field r-outuni                                      as as rowid
field cd-procedimento                   as    as int format "99999999".

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    like procguia.qt-repasse-cob. 

...