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 in-est-civil like usuario.in-est-civil
field cd-grau-parentesco like usuario.cd-grau-parentesco
field cd-modalidade like propost.cd-modalidade
field nr-proposta like like propost.nr-proposta
field cd-usuario like like usuario.cd-usuario
field nm-usuario like like usuario.nm-usuario.
Definição campo a campo da tabela de entrada
...
field lg-undo-retry as as logical
field ds-mensagem as char
field lg-continua as as logical initial yes.
Definição campo a campo da tabela de saída
...