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