Histórico da Página

...

field in-evento-programa                         as  as char format "x(06)"
field nm-ponto-chamada-cpc                    as as char format "x(15)"
field cd-modalidade                                  like modalid.cd-modalidade
field cd-plano                                            like pla-mod.cd-plano
field cd-tipo-plano                                    like   like pla-mod.cd-tipo-plano.

Definição campo a campo da tabela de entrada

...

field lg-undo-retry                              as logical
field ds-mensagem-retorno              as   as char format "x(100)"
field nm-tipo-plano                            as char format "x(100)".

...