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 nr-recid-contrat                                       as recid
field nr-recid-benef                                         as recid
field cd-cidade-ini                                           like dzcidade.cd-cidade
field cd-cidade-fim                                          like dzcidade.cd-cidade
field lg-importa-termo                                     as log
field in-classificacao                                       as int
field ds-diretorio-arquivo                                 as char
field ds-diretorio-arquivo-erro                          as char
field cd-modulo-aux                             like            like mod-cob.cd-modulo
field lg-todosben-aux                                     as log
field lg-opcional-aux                                       as log
field dt-inicio-aux                                            like pro-pla.dt-inicio
field dt-ini-modulo-aux                                    like pro-pla.dt-inicio
field cd-forma-pagto-aux                                like formpaga.cd-forma-pagto
field lg-pea-aux                                              as log
field lg-imp-usuario-aux                                  as log
field lg-modulo-excluido-aux                           as log
field in-param1-aux                                        as int
field l-saida                                                    as log
field in-saida                                                  as int
field c-opcao                                                  as char
field lg-simula-aux                                          as log.

Definição campo a campo da tabela de entrada

...

def temp-table tmp-cpc-vp0310d-saida no-undo

field lg-undo-retry                              as logical
field lg-next                                       as logical
field ds-mensagem-relatorio              as char format "x(75)"
field cd-cidade-ini                              like dzcidade.cd-cidade
field cd-cidade-fim                             like dzcidade.cd-cidade
field lg-imp-arquivo                            as log
field ds-mensagem                           as char format "x(30)"

...