Utilice el parámetro de visualización.
report zrich_0002.
data: header type thead.
data: txt_lines type table of tline with header line.
<b>data: mode(1) type c.
parameters: p_edit radiobutton group grp1 default 'X',
p_disp radiobutton group grp1.</b>
* Configurar el encabezado de texto
header-tdobject = 'AUFK'.
header-tdname = '001000000001'.
header-tdid = 'LTXT'.
header-tdspras = sy-langu.
header-tdlinesize = 70.
* Primero leer el texto, si lo hay.
call function 'READ_TEXT'
exporting
* CLIENT = SY-MANDT
id = header-tdid
language = sy-langu
name = header-tdname
object = header-tdobject
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
tables
lines = txt_lines
* EXCEPTIONS
* ID = 1
* LANGUAGE = 2
* NAME = 3
* NOT_FOUND = 4
* OBJECT = 5
* REFERENCE_CHECK = 6
* WRONG_ACCESS_TO_ARCHIVE = 7
* OTHERS = 8
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
<b>if p_edit = 'X'.
mode = space.
else.
mode = 'X'.
endif<