Histórico da Página

...

field in-evento-programa                  as   as char format "x(06)"
field lg-mensagem-na-tela                as log
field cd-modalidade-tit                       like usuario.cd-modalidade
field nr-proposta-tit                              like like usuario.nr-proposta
field cd-usuario-tit                           like    like usuario.cd-usuario
field nm-usuario                              like     like usuario.nm-usuario.

Definição campo a campo da tabela de entrada

...

field lg-tem-mensagem              as logical
Field lg-continua                      as     as logical init yes
field ds-mensagem-retorno        as char format "x(75)".

...