Histórico da Página

...

field in-evento-programa                    as char format "x(06)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field r-preserv                                     as rowid
field lg-corres-eletr-aux                    as   as log
field int-10                                      like       like preserv.int-10
field en-rua                                         like preserv.en-rua
field en-compl                                 like    like preserv.char-15
field en-bairro                                    like preserv.en-bairro
field en-cep                                       like  like preserv.en-cep
field en-uf                                           like preserv.en-uf
field cd-cidade                                   like preserv.cd-cidade
field nm-email                                   like preserv.nm-email
field nr-telefone-1                              like preserv.nr-telefone[1]
field nr-telefone-2                              like preserv.nr-telefone[2]
field nr-telefone-3                              like preserv.char-16
field nr-telefone-4                             like  like preserv.char-18
field nr-ramal-1                                 like preserv.nr-ramal[1]
field nr-ramal-2                                 like preserv.nr-ramal[2]
field nr-ramal-3                                 like preserv.char-17
field nr-ramal-4                                 like preserv.char-19
field dt-exclusao                               like preserv.dt-exclusao
field cd-grupo-prestador                     like gruppres.cd-grupo-prestador.
field dt-exclusao                               like preserv.dt-exclusao
field cd-motivo                                 like  like preserv.cd-motivo-cancel
field cd-retorno-cpc                          as int format 99.

...

field lg-permit-manut                         as log
field lg-undo-retry                              as logical
field ds-mensagem-erro                      as as char format "x(75)"
field cd-grupo-prestador                     like gruppres.cd-grupo-prestador.
field lg-continua                                as log
field cd-retorno-cpc                            as int format 99.

...