Histórico da Página

...

fields in-evento-programa                 as  as char format "x(15)"
fields nm-ponto-chamada-cpc           as char format "x(15) "
fields lg-mensagem-na-tela                as as logical
fields nr-rowid-tmprpben                    as rowed
fields dt-inclusao-origem                    as date
fields cd-modalidade                         like modalid.cd-modalidade
fields nr-proposta                              like propost.nr-proposta
fields nr-layout                                 as  as int format "99"
fields char-1                                     as char format "x(30)"
fields char-2                                     as char format "x(30)"
fields char-3                                     as char format "x(30)"
fields char-4                                     as char format "x(30)"
fields char-5                                     as char format "x(30)"
fields char-6                                     as char format "x(60)"
fields char-7                                  as     as char format "x(60)"
fields char-8                                     as char format "x(60)"
fields char-9                                      as as char format "x(60)"
fields char-10                                   as char format "x(60)".

Definição campo a campo da tabela de entrada

...

fields lg-undo-retry                      as logical
fields ds-mensagem-relatorio        as char format "x(75)".
fields lg-dt-receb-arq                   as log
fields char-1                               as char format "x(30)"
fields char-2                               as char format "x(30)"
fields char-3                               as char format "x(30)"
fields char-4                               as char format "x(30)"
fields char-5                               as char format "x(30)"
fields char-6                               as char format "x(60)"
fields char-7                               as char format "x(60)"
fields char-8                               as char format "x(60)"
fields char-9                               as char format "x(60)"
fields char-10                             as char format "x(60)".

...