ALV: Need to select/deselect all output rows iwth a Button

Question

Hi All,
I have an ALV grid displaying a few lines of data.
User needs a button in the application toolbar to SELECT/DESELECT all rows displayed in the ALV list.
I am using OO for displaying the layout.
I want to know if there is a method which can SELECT/DESELECT all displayed rows. If there is no method, is there a workaround of achieving same.
Just for your info I dont have a check-box as the first colum of my ALV.
Appreciate your feedback on same.
Thanks and Regards
Rajiv

Answer 1

hi
chk this out
TYPE-POOLS : SLIS.
Tables                                                              *
TABLES:
  VBRK,
  VBRP.
Parameters and select options OR SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
            S_VBELN FOR VBRK-VBELN.
SELECTION-SCREEN END OF BLOCK B1.
Internal Tables                                                     *
work areas
DATA: BEGIN OF IT_VBRP OCCURS 0,
       VBELN LIKE VBRK-VBELN,
       POSNR LIKE VBRP-POSNR,
       UEPOS LIKE VBRP-UEPOS,
       FKIMG LIKE VBRP-FKIMG,
       NETWR LIKE VBRP-NETWR,
       MEINS LIKE VBRP-MEINS.
DATA : END OF IT_VBRP.
Variables                                                           *
DATA : GR_ALVGRID TYPE REF TO CL_GUI_ALV_GRID,
       GC_CUSTOM_CONTROL_NAME TYPE SCRFNAME VALUE 'CC_ALV',
       GR_CCONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
       GT_FIELDCAT TYPE LVC_T_FCAT,
       GS_LAYOUT TYPE LVC_S_LAYO,
       V_FLAG VALUE 'X'.
Start of Program                                                    *
      INITIALIZATION.                                               *
INITIALIZATION.
  S_VBELN-LOW = 1.
  S_VBELN-HIGH = 1000000000.
  S_VBELN-OPTION = 'EQ'.
  S_VBELN-SIGN = 'I'.
  APPEND S_VBELN.
      SELECTION-SCREEN                                              *
AT SELECTION-SCREEN.
  PERFORM VALIDATION.
      START-OF-SELECTION                                            *
START-OF-SELECTION.
  PERFORM GET_DATA.
  CALL SCREEN 0100.
      END-OF-SELECTION                                              *
END-OF-SELECTION.
      TOP-OF-PAGE                                                   *
TOP-OF-PAGE.
      END-OF-PAGE                                                   *
END-OF-PAGE.
      AT USER-COMMAND                                               *
*&      Form  VALIDATION
      text
-->  p1        text
<--  p2        text
FORM VALIDATION .
  SELECT SINGLE VBELN
  FROM VBRK
  INTO VBRK-VBELN
  WHERE VBELN IN S_VBELN.
  IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no billing documents found'.
  ENDIF.
ENDFORM.                    " VALIDATION
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA .
  SELECT VBELN
         POSNR
         UEPOS
         FKIMG
         NETWR
         MEINS
  FROM VBRP
  INTO TABLE IT_VBRP
  WHERE VBELN IN S_VBELN.
ENDFORM.                    " GET_DATA
*&      Module  DISPLAY_ALV  OUTPUT
      text
MODULE DISPLAY_ALV OUTPUT.
  IF V_FLAG = 'X'.
    PERFORM DISPLAY_ALV.
    PERFORM PREPARE_FIELD_CATALOG CHANGING GT_FIELDCAT.
    PERFORM PREPARE_LAYOUT CHANGING GS_LAYOUT.
    CALL METHOD GR_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
        EXPORTING
     I_BUFFER_ACTIVE               =
     I_BYPASSING_BUFFER            =
     I_CONSISTENCY_CHECK           =
     I_STRUCTURE_NAME              = 'VBRP'
     IS_VARIANT                    =
     I_SAVE                        =
     I_DEFAULT                     = 'X'
          IS_LAYOUT                     = GS_LAYOUT
     IS_PRINT                      =
     IT_SPECIAL_GROUPS             =
     IT_TOOLBAR_EXCLUDING          =
     IT_HYPERLINK                  =
     IT_ALV_GRAPHICS               =
     IT_EXCEPT_QINFO               =
        CHANGING
          IT_OUTTAB                     = IT_VBRP[]
          IT_FIELDCATALOG               = GT_FIELDCAT
     IT_SORT                       =
     IT_FILTER                     =
        EXCEPTIONS
          INVALID_PARAMETER_COMBINATION = 1
          PROGRAM_ERROR                 = 2
          TOO_MANY_LINES                = 3
          OTHERS                        = 4
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
        EXPORTING
          I_READY_FOR_INPUT = 1.
    ELSE.
      CALL METHOD GR_ALVGRID->REFRESH_TABLE_DISPLAY
   EXPORTING
     IS_STABLE      =
     I_SOFT_REFRESH =
        EXCEPTIONS
          FINISHED       = 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.
    ENDIF.
    CLEAR V_FLAG.
  ENDIF.
ENDMODULE.                 " DISPLAY_ALV  OUTPUT
*&      Form  DISPLAY_ALV
      text
-->  p1        text
<--  p2        text
FORM DISPLAY_ALV .
  IF GR_ALVGRID IS INITIAL.
    CREATE OBJECT GR_ALVGRID
      EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
        I_PARENT          = GR_CCONTAINER
   I_APPL_EVENTS     = space
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT  =
   I_NAME            =
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        OTHERS            = 5
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
ENDFORM.                    " DISPLAY_ALV
*&      Form  PREPARE_FIELD_CATALOG
      text
     <--P_GT_FIELDCAT  text
FORM PREPARE_FIELD_CATALOG  CHANGING P_GT_FIELDCAT TYPE LVC_T_FCAT.
  DATA : LS_FCAT TYPE LVC_S_FCAT,
         L_POS TYPE I.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'VBELN'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Billing Document'.
  LS_FCAT-OUTPUTLEN = '10'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'POSNR'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Billing Item'.
  LS_FCAT-OUTPUTLEN = '6'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'UEPOS'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Higher Level Item'.
  LS_FCAT-OUTPUTLEN = '6'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'FKIMG'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Invoice Quantity'.
  LS_FCAT-OUTPUTLEN = '13'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'NETWR'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Net Value'.
  LS_FCAT-OUTPUTLEN = '15'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
  LS_FCAT-FIELDNAME = 'MEINS'.
  LS_FCAT-TABNAME = 'IT_VBRP'.
  LS_FCAT-COL_POS = L_POS.
  LS_FCAT-SCRTEXT_M = 'Unit of Measure'.
  LS_FCAT-OUTPUTLEN = '3'.
  APPEND LS_FCAT TO P_GT_FIELDCAT.
  CLEAR LS_FCAT.
  L_POS = L_POS + 1.
ENDFORM.                    " PREPARE_FIELD_CATALOG
*&      Form  PREPARE_LAYOUT
      text
     <--P_GS_LAYOUT  text
FORM PREPARE_LAYOUT  CHANGING P_GS_LAYOUT TYPE LVC_S_LAYO.
  P_GS_LAYOUT-ZEBRA = 'X'.
  P_GS_LAYOUT-GRID_TITLE = 'INVOICE DETAILS'.
  P_GS_LAYOUT-SMALLTITLE = 'X'.
  P_GS_LAYOUT-EDIT = 'X'.
ENDFORM.                    " PREPARE_LAYOUT
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'CANCEL'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
  CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      CALL TRANSACTION 'SE38'.
    WHEN 'CHANGE'.
      IF GR_ALVGRID->IS_READY_FOR_INPUT( ) = 0.
        CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
          EXPORTING
            I_READY_FOR_INPUT = 1.
      ELSE.
        CALL METHOD GR_ALVGRID->SET_READY_FOR_INPUT
          EXPORTING
            I_READY_FOR_INPUT = 0.
      ENDIF.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT