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-unidade                                  like titupres.cd-unidade
field cd-unidade-prestador                like   like titupres.cd-unidade-prestador
field cd-tipo-medicina                          like like titupres.cd-tipo-medicina
field cd-prestador                                like titupres.cd-prestador
field cod-esp                                        like titupres.cod-esp
field nr-docto                                        like like titupres.nr-docto
field parcela                                     like    like titupres.parcela
field dt-producao                                  like like titupres.dt-producao
field vl-base-inss-fis                          like titupres.vl-base-inss-calc
field vl-base-inss-jur                          like titupres.vl-base-inss-juridica
field vl-base-inss-ben                        like titupres.vl-base-inss-beneficente
field in-imp-tomador                          as int
field in-categoria                             as    as int.

Definição campo a campo da tabela de entrada

...

FIELD cd-contratante                      LIKE   LIKE contrat.cd-contratante
field cd-unidade-prestador               like titupres.cd-unidade-prestador
field cd-prestador                             like titupres.cd-prestador
field in-cat-trabalhador                    as int format 99
field tt-faturas                                as     as dec
field vl-descontado                           as dec
index tp-valor-prestador-indice         as primary cd-contratante
cd-unidade-prestador
cd-prestador
in-cat-trabalhador.

...