Histórico da Página

...

field nm-ponto-chamada-cpc                  as char
field in-evento-programa                         as char
field cd-modalidade                                 like modalid.cd-modalidade
field nr-proposta                                       like propost.nr-proposta
field cd-usuario                                        like usuario.cd-usuario
field cd-modalidade-fim                            like modalid.cd-modalidade
field nr-proposta-fim                                  like propost.nr-proposta
field cd-usuario-fim                                 like usuario.cd-usuario
field cd-cid                                               like dzdeccid.cd-cid
field cd-cid-fim                                        like dzdeccid.cd-cid
field cd-condicao-saude                       like    like dzdeccid.cd-condicao-saude
field cd-condicao-saude-fim                  like dzdeccid.cd-condicao-saude
field nr-carencia-cpt                                 like dzdeccid.nr-carencia-cpt
field lg-verifica-procedimento                like  like dzdeccid.lg-verifica-procedimento
field ds-observacao1                              as char
field ds-observacao2                              as char
field ds-observacao3                              as char.

Definição campo a campo da tabela de entrada

...

fields cd-cid                                    as     as char
fields cd-procedimento                     as inte
fields ds-procedimento                     like ambproce.ds-procedimento-reduz
fields nr-carencia-cpt                        as inte
fields ds-observacao                        as char extent 3
fields lg-elimina                               as  as log.

Definição campo a campo da tabela temporaria

...

fields lg-erro                                   as      as logical
fields ds-mensagem-retorno              as char format "x(75)".

...