DATA pa_meal TYPE s_mealnum.
" In user_command_0100 ergnzen
WHEN 'JUMP'.
IF pa_meal IS INITIAL.
MESSAGE 'Bitte Mahlzeitennummer eingeben.' TYPE 'S'.
ELSE.
READ TABLE gt_speisen WITH KEY mealnumber = pa_meal
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
gv_idx = sy-tabix.
ELSE.
MESSAGE |Mahlzeit { pa_meal } nicht gefunden.| TYPE 'S'.
ENDIF.
ENDIF.