About function module in alv

Question

hai all
iwant to know about few function modules in alv
1) reuse_alv_default_varients_get.
2)reuse alv_varients_f4
what is the use of these function modules
how to use these function modules, what r the structures used to use these function module. where to pass this in
in list and grid display function modules.
plz help me.
thanks & regards
sindu

Answer 1

HI,
check this.
REPORT Z_TEST_alv_variant .
TYPE-POOLS : SLIS.
PARAMETERS: ONE RADIOBUTTON GROUP G1 DEFAULT 'X',
            TWO RADIOBUTTON GROUP G1.
DATA: BEGIN OF I_TAB OCCURS 0,
FIELD1 TYPE I,
FIELD2 TYPE I,
END OF I_TAB.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: L_VARIANT TYPE DISVARIANT,
      LX_VARIANT LIKE DISVARIANT,
      L_SAVE TYPE C,
      L_EXIT(1) TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE TEXT-VAR.
PARAMETERS: P_VARI LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK 0.
INITIALIZATION.
  L_SAVE = 'A'.
  PERFORM VARIANT_INIT.
Get default variant
  LX_VARIANT = L_VARIANT.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      I_SAVE     = L_SAVE
    CHANGING
      CS_VARIANT = LX_VARIANT
    EXCEPTIONS
      NOT_FOUND  = 2.
  IF SY-SUBRC = 0.
    P_VARI = LX_VARIANT-VARIANT.
  ENDIF.
Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
  PERFORM F4_FOR_VARIANT.
  I_TAB-FIELD1 = 19.
  I_TAB-FIELD2 = 20.
  APPEND I_TAB.
  I_TAB-FIELD1 = 19.
  I_TAB-FIELD2 = 20.
  APPEND I_TAB.
  I_TAB-FIELD1 = 19.
  I_TAB-FIELD2 = 20.
  APPEND I_TAB.
  I_TAB-FIELD1 = 19.
  I_TAB-FIELD2 = 20.
  APPEND I_TAB.
  I_TAB-FIELD1 = 19.
  I_TAB-FIELD2 = 20.
  APPEND I_TAB.
  PERFORM INITIALIZE_FIELDCAT USING GT_FIELDCAT[].
  PERFORM CALL_ALV  TABLES I_TAB[]
                   USING GT_FIELDCAT.
*& Form initialize_fieldcat
text
-->P_GT_FIELDCAT[] text
FORM INITIALIZE_FIELDCAT USING L_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
  LS_FIELDCAT-FIELDNAME = 'FIELD1'.
  LS_FIELDCAT-KEY = 'X'.
  LS_FIELDCAT-COL_POS = 1.
  LS_FIELDCAT-SELTEXT_S = 'Work center'.
  LS_FIELDCAT-SELTEXT_L = 'Work center'.
  APPEND LS_FIELDCAT TO L_FIELDCAT.
  CLEAR LS_FIELDCAT.
  LS_FIELDCAT-FIELDNAME = 'FIELD2'.
  LS_FIELDCAT-KEY = ' '.
  LS_FIELDCAT-COL_POS = 2.
  LS_FIELDCAT-SELTEXT_S = 'Work center2'.
  LS_FIELDCAT-SELTEXT_L = 'Work center2'.
  APPEND LS_FIELDCAT TO L_FIELDCAT.
  CLEAR LS_FIELDCAT.
ENDFORM. " initialize_fieldcat
*&      Form  call_alv
      text
     -->P_GT_FIELDCAT  text
     -->P_I_TAB  text
FORM CALL_ALV  TABLES   P_TAB
                USING    P_GT_FIELDCAT .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT        = P_GT_FIELDCAT
      I_DEFAULT          = 'X'
      IS_VARIANT         = L_VARIANT
      I_SAVE             = L_SAVE
    TABLES
      T_OUTTAB           = P_TAB[]
    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.
ENDFORM.                    " call_alv
*&      Form  VARIANT_INIT
      text
FORM VARIANT_INIT.
  CLEAR L_VARIANT.
  L_VARIANT-REPORT = SY-REPID.
ENDFORM.                               " VARIANT_INIT
*&      Form  variant_SELECTION_SCREEN
      text
FORM VARIANT_SELECTION_SCREEN .
  IF NOT P_VARI IS INITIAL.
    MOVE L_VARIANT TO LX_VARIANT.
    MOVE P_VARI TO LX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        I_SAVE     = L_SAVE
      CHANGING
        CS_VARIANT = LX_VARIANT.
    L_VARIANT = LX_VARIANT.
  ELSE.
    PERFORM VARIANT_INIT.
  ENDIF.
ENDFORM.                    " variant_SELECTION_SCREEN
*&      Form  F4_FOR_VARIANT
      text
FORM F4_FOR_VARIANT.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT = L_VARIANT
      I_SAVE     = L_SAVE
    IMPORTING
      E_EXIT     = L_EXIT
      ES_VARIANT = LX_VARIANT
    EXCEPTIONS
      NOT_FOUND  = 2.
  IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    IF L_EXIT = SPACE.
      P_VARI = LX_VARIANT-VARIANT.
    ENDIF.
  ENDIF.
ENDFORM.                    "F4_FOR_VARIANT
Regards,
Laxmi.