How to 'EDIT field in a block AlV"

Question

<b>Hi Experts.
i am having  a small query . i want to display some output in the block alv.
After that i want one field in that Block Alv to be filled by the user  and then i
want to do further calculation depending upom that field..
please provide me support in this regard with coding part..
An early reply will be highly appreciated...
Regards.
Neeraj</b>

Answer 1

Hi,
This is the sample program for displaying the two blocks in alv report.
REPORT  YMS_ALVBLOCK.
Declarations for BLOCK ALV DISPLAY
*--type pools
TYPE-POOLS:SLIS.
DATA:X_LAYOUT TYPE SLIS_LAYOUT_ALV,
T_FIELD TYPE SLIS_T_FIELDCAT_ALV,
*--field catalog
X_FLDCAT LIKE LINE OF T_FIELD,
*--to hold all the events
T_EVENTS TYPE SLIS_T_EVENT,
X_EVENTS TYPE SLIS_ALV_EVENT,
T_SORT TYPE SLIS_T_SORTINFO_ALV,
X_SORT LIKE LINE OF T_SORT ,
*--Print Layout
X_PRINT_LAYOUT TYPE SLIS_PRINT_ALV.
*----Macro to add field catalog.
*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN
DEFINE ADD_CATALOG.
  CLEAR X_FLDCAT.
  X_FLDCAT-FIELDNAME = &1.
  X_FLDCAT-SELTEXT_M = &2.
  X_FLDCAT-OUTPUTLEN = &3.
  X_FLDCAT-TECH = &4.
  X_FLDCAT-COL_POS = &5.
  X_FLDCAT-NO_ZERO = 'X'.
  X_FLDCAT-DDICTXT = 'M'.
  X_FLDCAT-DATATYPE = &6.
  X_FLDCAT-DDIC_OUTPUTLEN = &7.
  IF &6 = 'N'.
    X_FLDCAT-LZERO = 'X'.
  ENDIF.
*--build field catalog
  APPEND X_FLDCAT TO T_FIELD.
END-OF-DEFINITION.
*----- data declerations.
DATA: V_REPID LIKE SY-REPID.
DATA: BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARA-MATNR,
ERNAM LIKE MARA-ERNAM,
MEINS LIKE MARA-MEINS,
END OF ITAB.
DATA: BEGIN OF JTAB OCCURS 0,
MATNR LIKE MAKT-MATNR,
MAKTX LIKE MAKT-MAKTX,
END OF JTAB.
SELECT MATNR ERNAM MEINS
UP TO 20 ROWS
FROM MARA
INTO TABLE ITAB.
SELECT MATNR MAKTX
UP TO 20 ROWS
FROM MAKT
INTO TABLE JTAB.
V_REPID = SY-REPID.
*DISPLAY alv
Initialize Block
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    I_CALLBACK_PROGRAM = V_REPID.
*Block 1:
*INITIALIZE
REFRESH T_FIELD. CLEAR T_FIELD.
REFRESH T_EVENTS.
*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN
ADD_CATALOG:
'MATNR' 'Material' '18' '' '1' 'C' '18',
'ERNAM' 'Created By' '12' '' '2' 'C' '12',
'MEINS' 'Unit' '5' '' '3' 'C' '3'.
*--build table for events.
X_EVENTS-FORM = 'TOP_OF_LIST1'.
X_EVENTS-NAME = SLIS_EV_TOP_OF_LIST.
APPEND X_EVENTS TO T_EVENTS.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                  = X_LAYOUT
    IT_FIELDCAT                = T_FIELD
    I_TABNAME                  = 'ITAB'
    IT_EVENTS                  = T_EVENTS
    IT_SORT                    = T_SORT
  TABLES
    T_OUTTAB                   = ITAB
  EXCEPTIONS
    PROGRAM_ERROR              = 1
    MAXIMUM_OF_APPENDS_REACHED = 2
    OTHERS                     = 3.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*--BLOCK 2(SUMMARY REPORT)
*INITIALIZE
REFRESH T_FIELD. CLEAR T_FIELD.
REFRESH T_EVENTS.
*field "text "length "tech "COL_POS "DATATYPE "DDIC_OUTPUTLEN
ADD_CATALOG:
'MATNR' 'Material' '20' '' '1' 'C' '18',
'MAKTX' 'Description' '40' '' '2' 'C' '40'.
*--build table for events.
X_EVENTS-FORM = 'TOP_OF_LIST2'.
X_EVENTS-NAME = SLIS_EV_TOP_OF_LIST.
APPEND X_EVENTS TO T_EVENTS.
Append table block.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                  = X_LAYOUT
    IT_FIELDCAT                = T_FIELD
    I_TABNAME                  = 'JTAB'
    IT_EVENTS                  = T_EVENTS
  TABLES
    T_OUTTAB                   = JTAB
  EXCEPTIONS
    PROGRAM_ERROR              = 1
    MAXIMUM_OF_APPENDS_REACHED = 2
    OTHERS                     = 3.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*--CALL FM TO DISPLAY THE BLOCK REPORT.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
exporting
is_print = x_print_layout
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
  WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form  top_of_list1
      text
FORM TOP_OF_LIST1.
  SKIP 1.
  WRITE: 10 'List 1',
  /5 '----
  SKIP 1.
  FORMAT RESET.
ENDFORM.                    "top_of_list1
*&      Form  top_of_list2
      text
FORM TOP_OF_LIST2.
  SKIP 1.
  WRITE: 10 'List 2',
  /5 '----
  SKIP 1.
  FORMAT RESET.
ENDFORM.                    "top_of_list2
Thanks,
Shankar