Estimado, declarar en el evento indicado así:
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_statu.
TYPES: BEGIN OF ty_tab,
value TYPE char01,
text TYPE char25,
END OF ty_tab.
DATA: ti_statu TYPE STANDARD TABLE OF ty_tab WITH HEADER LINE,
it_match TYPE STANDARD TABLE OF ddshretval WITH HEADER LINE.
CLEAR: ti_statu[], it_match[].
wa_statu-value = 'P'. wa_statu-text = 'Pendientes de sustituir'.
APPEND wa_statu TO ti_statu.
wa_statu-value = 'S'. wa_statu-text = 'Surtidas'.
APPEND wa_statu TO ti_statu.
wa_statu-value = 'N'. wa_statu-text = 'No tratadas'.
APPEND wa_statu TO ti_statu.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'TEXT'
window_title = 'Text'
value_org = 'S'
TABLES
value_tab = ti_statu
return_tab = it_match
EXCEPTIONS
parameter_error = 1
no_values_found = 2. " BSCABLFRAN >
"Leemos lo que obtenermos y se lo pasamos a nuestro parámetro
READ TABLE it_match INDEX 1.
MOVE it_match-fieldval TO p_statu.
Nos comentas al respecto.
Saludos
