SAP ABAP

FORM  user_command  USING  r_ucomm  TYPE  sy - ucomm rs_selfield  TYPE  slis_selfield .    DATA  lv_vbeln  TYPE  vbeln .    IF  rs_selfield - sel_tab_field   =  'GT_FINAL-DELIVERY_NO' .      IF  rs_selfield - value  IS  NOT  INITIAL .        CALL  FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'          EXPORTING            input   =  rs_selfield - value          IMPORTING            output  =  lv_vbeln .        SET  PARAMETER  ID  'VL'  FIELD  lv_vbeln .        CALL  TRANSACTION  'VL03N'  WITH  AUTHORITY-...

   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF . ...

  SELECT  a ~ MATNR , a ~ WERKS , b ~ bmein , b ~ bmeng , c ~ idnrk , c ~ meins , c ~ menge                                       FROM  mast  as  a INNER  JOIN  stko  as  b  on  b ~ stlnr  =  a ~ stlnr      and  a ~ stlal  =  b ~ stlal INNER  JOIN  stpo  as  c  on  b ~ stlty  =  c ~ stlty  and  b ~ stlnr  =  c ~ stlnr  INTO  TABLE  @data ( gt_mast )                                        FOR  ALL  ENTRIES  IN  ...