ALV Blocked list display in SAP ABAP

-
Example report for ALV blocked list display in SAP ABAP.
REPORT  ZALV_BLOCKED.

TYPE-POOLS : SLIS .
DATA: BEGIN OF I_MARA OCCURS 0,
        MATNR LIKE MARA-MATNR,
        MTART LIKE MARA-MTART,
        MBRSH LIKE MARA-MBRSH,
      END OF I_MARA.

DATA: BEGIN OF I_MAKT OCCURS 0,
        MATNR LIKE MAKT-MATNR,
        SPRAS LIKE MAKT-SPRAS,
        MAKTX LIKE MAKT-MAKTX,
      END OF I_MAKT.

DATA: BEGIN OF I_MARC OCCURS 0,
        MATNR LIKE MARC-MATNR,
        WERKS LIKE MARC-WERKS,
        BWTTY LIKE MARC-BWTTY,
      END OF I_MARC.

DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV .
DATA : I_FCAT TYPE  SLIS_T_FIELDCAT_ALV .
DATA : I_EVENTS TYPE SLIS_T_EVENT .
BREAK-POINT.

START-OF-SELECTION .
  PERFORM INIT_BLOCKED_ALV .
  PERFORM APPEND_BLOCK1.
  PERFORM APPEND_BLOCK2.
  PERFORM APPEND_BLOCK3.
  PERFORM DISPLAY_BLOCKED_ALV .

FORM INIT_BLOCKED_ALV .
  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID.
ENDFORM.                    " INIT_BLOCKED_ALV

FORM APPEND_BLOCK1 .

  SELECT * FROM MARA
      INTO CORRESPONDING FIELDS OF TABLE I_MARA
             UP TO 10 ROWS.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME     = SY-REPID
      I_INTERNAL_TABNAME = 'I_MARA'
      I_INCLNAME         = SY-REPID
    CHANGING
      CT_FIELDCAT        = I_FCAT.


  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = WA_LAYOUT
      IT_FIELDCAT = I_FCAT
      I_TABNAME   = 'I_MARA'
      IT_EVENTS   = I_EVENTS
    TABLES
      T_OUTTAB    = I_MARA.

ENDFORM.                    " APPEND_BLOCK1

FORM APPEND_BLOCK2 .

  IF NOT I_MARA[] IS INITIAL .
    SELECT * FROM MAKT
        INTO CORRESPONDING FIELDS OF TABLE I_MAKT
         FOR ALL ENTRIES IN I_MARA
         WHERE MATNR = I_MARA-MATNR .
  ENDIF .
  REFRESH I_FCAT .
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME     = SY-REPID
      I_INTERNAL_TABNAME = 'I_MAKT'
      I_INCLNAME         = SY-REPID
    CHANGING
      CT_FIELDCAT        = I_FCAT.

  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = WA_LAYOUT
      IT_FIELDCAT = I_FCAT
      I_TABNAME   = 'I_MAKT'
      IT_EVENTS   = I_EVENTS
    TABLES
      T_OUTTAB    = I_MAKT.

ENDFORM.                    " APPEND_BLOCK2

FORM APPEND_BLOCK3 .

  IF NOT I_MARA[] IS INITIAL .
    SELECT * FROM MARC
        INTO CORRESPONDING FIELDS OF TABLE I_MARC
         FOR ALL ENTRIES IN I_MARA
         WHERE MATNR = I_MARA-MATNR .
  ENDIF .
  REFRESH I_FCAT .
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME     = SY-REPID
      I_INTERNAL_TABNAME = 'I_MARC'
      I_INCLNAME         = SY-REPID
    CHANGING
      CT_FIELDCAT        = I_FCAT.

  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
    EXPORTING
      IS_LAYOUT   = WA_LAYOUT
      IT_FIELDCAT = I_FCAT
      I_TABNAME   = 'I_MARC'
      IT_EVENTS   = I_EVENTS
    TABLES
      T_OUTTAB    = I_MARC.


ENDFORM.                    " APPEND_BLOCK3

FORM DISPLAY_BLOCKED_ALV .

  CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY' .

ENDFORM.                    " DISPLAY_BLOCKED_ALV

Popular posts from this blog

ALV with field catalog merge

-
Example ALV report with field catalog merge in SAP ABAP. REPORT ZALV_WITH_FCAT_MERGE. TYPE-POOLS SLIS . DATA : BEGIN OF I_MARA OCCURS 0, MATNR LIKE MARA-MATNR, MTART LIKE MARA-MTART, MBRSH LIKE MARA-MBRSH, MEINS LIKE MARA-MEINS, END OF I_MARA. DATA : I_FCAT TYPE SLIS_T_FIELDCAT_ALV . DATA : WA_FCAT LIKE LINE OF I_FCAT . START-OF-SELECTION . PERFORM GET_DATA . * PERFORM CREATE_FCAT. PERFORM CREATE_FCAT_MERGE . END-OF-SELECTION . PERFORM DISP_ALV . FORM GET_DATA . SELECT * FROM MARA INTO CORRESPONDING FIELDS OF TABLE I_MARA . ENDFORM. " GET_DATA FORM DISP_ALV . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = SY-REPID IT_FIELDCAT = I_FCAT TABLES T_OUTTAB = I_MARA. ENDFORM. " DISP_ALV FORM CREATE_FCAT . WA_FCAT-COL_POS = '1' . WA_FCAT-FIELDNAME = 'MATNR' . WA_FCAT-TABNAME = ...
Read more

SAP ABAP real-time Interview Questions with answers

-
SAP ABAP real time Interview Questions 1. Can we write the code both call transaction and session method in single program? Ans. Yes it is possible to write call transaction and session in one program. 2. Which BDC you prefer? Ans. If we want to transfer large amount of data and when we need to use more than one transaction code we prefer session method. For small or less amount of data and for single transaction use call transaction. 3. When u prefer LSMW? Ans. When we need to update medium amount of data we use LSMW. LSMW is also used when the person like functional consultant has less programming language. 5. Difference between .include and .append? Ans. Include structure allows to add one or more structure into structure or table.Also placed positioning anywhere. Upto 6 include structure can be used in a table. Append structure can be placed only at the end of a structure or table which also stops further insertion of fields.Only one append structure can be used...
Read more

Using GUI Upload in SAP ABAP

-
GUI Upload is a Function Module which is used upload a file using SAP ABAP, by using GUI Upload we can upload excel, txt etc files. The below is the example of using GUI Upload . REPORT ZGUI_UPLOAD . DATA: ITAB LIKE ZSTUDENT OCCURS 1 WITH HEADER LINE. CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = 'C:\Documents and Settings\Administrator\Desktop\STUD.TXT' * FILETYPE = 'ASC' HAS_FIELD_SEPARATOR = 'X' * HEADER_LENGTH = 0 * READ_BY_LINE = 'X' * DAT_MODE = ' ' * IMPORTING * FILELENGTH = * HEADER = TABLES DATA_TAB = ITAB EXCEPTIONS FILE_OPEN_ERROR = 1 FILE_READ_ERROR = 2 NO_BATCH = 3 GUI_REFUSE_FILETRANSFER = 4 INVALID_TYP...
Read more