PROGRAM CH.

DATA: BEGIN OF T_MARA OCCURS 0,
        MATNR LIKE MARA-MATNR,
        MAKTX LIKE MAKT-MAKTX,
      END OF T_MARA.

SELECT-OPTIONS: MATNR FOR T_MARA-MATNR.

START-OF-SELECTION.
  CLEAR: T_MARA, T_MARA[].
  SELECT MATNR FROM MARA INTO CORRESPONDING FIELDS
              OF TABLE T_MARA.
  LOOP AT T_MARA.
    SELECT SINGLE MAKTX INTO T_MARA-MAKTX
         FROM MAKT WHERE MATNR = T_MARA-MATNR
                       AND SPRAS = 'R'.
    WRITE:/ T_MARA-MATNR, T_MARA-MAKTX.
    HIDE: T_MARA-MATNR.
    MODIFY T_MARA.
  ENDLOOP.

AT LINE-SELECTION.
  SET PARAMETER ID 'MAT' FIELD T_MARA-MATNR.
  SET PARAMETER ID 'MXX' FIELD 'K'.
  CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

PROGRAM CH.

TYPE-POOLS: SLIS, KKBLO.

DATA: BEGIN OF T_MARA OCCURS 0,
        MATNR LIKE MARA-MATNR,
        MAKTX LIKE MAKT-MAKTX,
      END OF T_MARA,
      PRN LIKE SY-REPID,
      LT_F TYPE  SLIS_T_FIELDCAT_ALV,
      LT_FL LIKE LINE OF LT_F.

SELECT-OPTIONS: MATNR FOR T_MARA-MATNR.

START-OF-SELECTION.
  CLEAR: T_MARA, T_MARA[].
  SELECT MATNR FROM MARA INTO CORRESPONDING FIELDS
              OF TABLE T_MARA.
  LOOP AT T_MARA.
    SELECT SINGLE MAKTX INTO T_MARA-MAKTX
         FROM MAKT WHERE MATNR = T_MARA-MATNR
                       AND SPRAS = 'R'.
    MODIFY T_MARA.
  ENDLOOP.

  PRN = SY-REPID.
  CLEAR: LT_F, LT_F[], LT_FL.
  LT_FL-TABNAME = 'T_MARA'.
  LT_FL-FIELDNAME = 'MATNR'.
  LT_FL-NO_ZERO = 'X'.
  LT_FL-KEY = 'X'.
  LT_FL-OUTPUTLEN = 10."длина вывода
  LT_FL-SELTEXT_L = '№ материала'.
  APPEND LT_FL TO LT_F.
  CLEAR LT_FL.
  LT_FL-TABNAME = 'T_MARA'.
  LT_FL-FIELDNAME = 'MAKTX'.
  LT_FL-OUTPUTLEN = 30."длина вывода
  LT_FL-SELTEXT_L = 'Наименование материала'.
  APPEND LT_FL TO LT_F.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = PRN
      I_SAVE                  = 'A'
      I_CALLBACK_USER_COMMAND = 'USCOM'
      IT_FIELDCAT             = LT_F
    TABLES
      T_OUTTAB                = T_MARA.

FORM USCOM USING R_UCOMM     LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD.

  IF R_UCOMM = '&IC1' AND RS_SELFIELD-TABINDEX > 0.
    READ TABLE T_MARA INDEX RS_SELFIELD-TABINDEX.
    SET PARAMETER ID 'MAT' FIELD T_MARA-MATNR.
    SET PARAMETER ID 'MXX' FIELD 'K'.
    CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
  ENDIF.
ENDFORM.