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