An SAP Consultant

REPORT  ZTEST_NOTEPAD.
DATA:
      BEGIN OF IT_PA0001 OCCURS 0,
        CHECK TYPE C,
        PERNR TYPE PA0001-PERNR,
        BUKRS TYPE PA0001-BUKRS,
        ENAME TYPE PA0001-ENAME,
      END OF IT_PA0001.

TYPE-POOLS:SLIS.
DATA:
      IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT LIKE LINE OF IT_FIELDCAT.
DEFINE FIELDCAT.
  WA_FIELDCAT-FIELDNAME = &1.
  WA_FIELDCAT-TABNAME   = &2.
  WA_FIELDCAT-SELTEXT_M = &3.
  WA_FIELDCAT-CHECKBOX  = &4.
  WA_FIELDCAT-INPUT     = &5.
  WA_FIELDCAT-HOTSPOT   = &6.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR  WA_FIELDCAT.
END-OF-DEFINITION.

START-OF-SELECTION.
  SELECT *
    FROM PA0001
    INTO CORRESPONDING FIELDS OF TABLE IT_PA0001
    UP TO 100 ROWS.

  FIELDCAT:
  'CHECK' 'IT_PA0001' 'CHECK'  'X' 'X' 'X',
  'PERNR' 'IT_PA0001' 'PERNR'  ''  ''  '',
  'BUKRS' 'IT_PA0001' 'BUKRS'  ''  ''  '',
  'ENAME' 'IT_PA0001' 'ENAME'  ''  ''  ''.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      IT_FIELDCAT             = IT_FIELDCAT
    TABLES
      T_OUTTAB                = IT_PA0001.
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
  IF R_UCOMM = '&IC1'.
    it_PA0001-CHECK = 'X'.
    MODIFY IT_PA0001 INDEX RS_SELFIELD-TABINDEX TRANSPORTING CHECK..
    RS_SELFIELD-REFRESH = 'X'. "This variable refreshes the data displayed in ALV
  ENDIF.
ENDFORM.                    "USER_COMMAND