[angelitotunin]

DATA: BEGIN OF IT_FIN,
num LIKE rkpln-perbl,
mes LIKE prps-post1,
END OF IT_FIN.

* NO CAMBIES LA ESTRUCTURA DE LA SIGUIENTE TABLA:

DATA: BEGIN OF it_match OCCURS 0,
shlpname LIKE ddshretval-shlpname,
fieldname LIKE ddshretval-fieldname,
recordpos LIKE ddshretval-recordpos,
fieldval LIKE ddshretval-fieldval,
retfield LIKE ddshretval-retfield,
END OF it_match.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_fin.

REFRESH it_fin.
PERFORM crear_fin.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'NUM'
window_title = 'Nivel final'
value_org = 'S'
TABLES
value_tab = it_fin
return_tab = it_match
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.


IF sy-subrc EQ 0.
READ TABLE it_match INDEX 1.
MOVE it_match-fieldval TO s_fin.
ENDIF.

Espero que te sirva de algo, suerte