W Pub: ABAP Call CODE

  1. REPORT  zlauncher.
  2.  
  3. TABLES: sscrfields.
  4.  
  5. PARAMETERS: p_tcode LIKE tstc-tcode AS LISTBOX VISIBLE LENGTH 50 USER-COMMAND p_xx.
  6.  
  7. DATA: g_list  TYPE vrm_values,
  8.       g_value LIKE LINE OF g_list,
  9.       l_tstct TYPE tstct.
  10.  
  11. INITIALIZATION.
  12.   SELECT * FROM  tstct INTO l_tstct
  13.          WHERE  sprsl  = sy-langu
  14.          AND    tcode  IN ('ME23N', 'MM43', 'WSM7', 'ME15', 'WRF_DIS_SEL')
  15.          ORDER BY  tcode.
  16.     g_value-key = l_tstct-tcode.
  17.     g_value-text = l_tstct-ttext.
  18.     APPEND g_value TO g_list.
  19.   ENDSELECT.
  20.  
  21.   CALL FUNCTION 'VRM_SET_VALUES'
  22.     EXPORTING
  23.       id     = 'P_TCODE'
  24.       values = g_list.
  25.  
  26. AT SELECTION-SCREEN.
  27.   CASE sscrfields-ucomm.
  28.     WHEN 'P_XX'.
  29.       IF NOT p_tcode IS INITIAL.
  30.         CALL TRANSACTION p_tcode.
  31.       ENDIF.
  32.   ENDCASE.
  33.  
  34. END-OF-SELECTION.
[$[Get Code]]