Thursday, 10 August 2023

Display Data As ALV Popup in sap abap

 TYPES BEGIN OF ty_mara,

          matnr  TYPE matnr,
          status TYPE CHAR250,
        END OF ty_mara.

DATA gt_mara TYPE STANDARD TABLE OF ty_mara INITIAL SIZE 1,
       gs_mara TYPE ty_mara.
DATA gt_final TYPE STANDARD TABLE OF ty_mara INITIAL SIZE 1,
       gs_final TYPE ty_mara.
DATA gt_fcat TYPE slis_t_fieldcat_alv,
       gs_fcat TYPE slis_fieldcat_alv.



DATA lv_status TYPE char250.
TABLES mara.
SELECT-OPTIONS s_matnr FOR mara-matnr.

START-OF-SELECTION.
  SELECT  matnr FROM mara INTO CORRESPONDING FIELDS OF TABLE gt_mara WHERE matnr IN s_matnr.

END-OF-SELECTION.
  LOOP AT gt_mara INTO gs_mara.
    gs_final-matnr gs_mara-matnr.
    CONCATENATE gs_mara-matnr 'NUMBER IS CREATED' INTO lv_status SEPARATED BY space.
    gs_final-status lv_status.
    APPEND gs_final TO gt_final.
    CLEAR gs_final.
  ENDLOOP.
  gs_fcat-fieldname 'MATNR'.
  gs_fcat-seltext_m 'Material'.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.

  gs_fcat-fieldname 'STATUS'.
  gs_fcat-seltext_m 'STATUS'.
  gs_fcat-outputlen 100.
  APPEND gs_fcat TO gt_fcat.
  CLEAR gs_fcat.
  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
    EXPORTING
      i_title               'ALV POPUP SCREEN'
*     I_SELECTION           = 'X'
      i_allow_no_selection  'X'
      i_screen_start_column 10
      i_screen_start_line   5
      i_screen_end_column   100
      i_screen_end_line     10
      i_zebra              'X'
*     I_CHECKBOX_FIELDNAME  =
*     I_LINEMARK_FIELDNAME  =
*     I_SCROLL_TO_SEL_LINE  = 'X'
      i_tabname             'gt_final'
*     I_STRUCTURE_NAME      =
      it_fieldcat           gt_fcat
*     IT_EXCLUDING          =
*     I_CALLBACK_PROGRAM    =
*     I_CALLBACK_USER_COMMAND       =
*     IS_PRIVATE            =
* IMPORTING
*     ES_SELFIELD           =
*     E_EXIT                =
    TABLES
      t_outtab              gt_final
    EXCEPTIONS
      program_error         1
      OTHERS                2.
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
    
    OUTPUT SCREEN







No comments:

Post a Comment