HEIRARCHIAL ALV REPORT

Question

Iam getting following error to the below report : The type of the database table and
work area "T_VBAK" are not unicode convertible. Please any one chech the error
and suggest the solution.
REPORT  ZHERSEQREPORT                           .
TYPE-POOLS : SLIS.
DATA : T_FCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : W_FCAT TYPE SLIS_FIELDCAT_ALV.
TYPES : BEGIN OF TY_VBAK,
        VBELN TYPE VBAK-VBELN,
        ERDAT TYPE VBAK-ERDAT,
        NETWR TYPE VBAK-NETWR,
        END OF TY_VBAK.
TYPES : BEGIN OF TY_VBAP,
        VBELN TYPE VBAP-VBELN,
        POSNR TYPE VBAP-POSNR,
        ARKTX TYPE VBAP-ARKTX,
        WERKS TYPE VBAP-WERKS,
        END OF TY_VBAP.
  HEADER
DATA : T_VBAK TYPE TY_VBAK OCCURS 1.
ITEM
DATA : T_VBAP TYPE TY_VBAP OCCURS 1.
DATA : W_KEYINFO TYPE SLIS_KEYINFO_ALV.
W_FCAT-COL_POS = 1.
W_FCAT-FIELDNAME = 'VBELN'.
W_FCAT-TABNAME = 'VBAK'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 2.
W_FCAT-FIELDNAME = 'ERDAT'.
W_FCAT-TABNAME = 'VBAK'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 3.
W_FCAT-FIELDNAME = 'NETWR'.
W_FCAT-TABNAME = 'VBAK'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 4.
W_FCAT-FIELDNAME = 'POSNR'.
W_FCAT-TABNAME = 'VBAP'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 5.
W_FCAT-FIELDNAME = 'ARKTX'.
W_FCAT-TABNAME = 'VBAP'.
APPEND W_FCAT TO T_FCAT.
W_FCAT-COL_POS = 6.
W_FCAT-FIELDNAME = 'WERKS'.
W_FCAT-TABNAME = 'VBAP'.
APPEND W_FCAT TO T_FCAT.
W_KEYINFO-HEADER01 = 'VBELN'.
W_KEYINFO-ITEM01 = 'VBELN'.
SELECT * FROM VBAK INTO TABLE T_VBAK.
SELECT * FROM VBAP INTO TABLE T_VBAP
FOR ALL ENTRIES IN T_VBAK WHERE VBELN = T_VBAK_VBELN.
SORT TABLE T_VBAK BY VBELN.
SORT TABLE T_VBAP BY VBELN.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
  EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_CALLBACK_PROGRAM             =
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  IS_LAYOUT                      =
  IT_FIELDCAT                    =   T_FCAT
  IT_EXCLUDING                   =
  IT_SPECIAL_GROUPS              =
  IT_SORT                        =
  IT_FILTER                      =
  IS_SEL_HIDE                    =
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     =
  IT_EVENTS                      =
  IT_EVENT_EXIT                  =
    I_TABNAME_HEADER               = T_VBAK.
    I_TABNAME_ITEM                 = T_VBAP.
  I_STRUCTURE_NAME_HEADER        =
  I_STRUCTURE_NAME_ITEM          =
    IS_KEYINFO                     = W_KEYINFO.
  IS_PRINT                       =
  IS_REPREP_ID                   =
  I_BYPASSING_BUFFER             =
  I_BUFFER_ACTIVE                =
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        =
  ES_EXIT_CAUSED_BY_USER         =
  TABLES
    T_OUTTAB_HEADER                = T_VBAK.
    T_OUTTAB_ITEM                  = T_VBAP.
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.
*& Report  ZHERSEQREPORT                                               *
Thanks,
Snigdha.

Answer 1

Hi
Check this example.
*& Report  Z_ALVEXER4                                             *
REPORT  ZLAXMI_ALVEXER4    MESSAGE-ID ZZ        .
*& TABLES DECLARATION                                                  *
TABLES: VBAK, VBAP.
*& TYPE POOLS DECLARATION                                              *
TYPE-POOLS: SLIS.
                      DATA DECLARATIONS                             *
DATA: V_FLAG TYPE C.                        "Flag to display the header
DATA: V_REPID TYPE SY-REPID.
*& INTERNAL TABLE DECLARATION                                          *
DATA: BEGIN OF IT_VBAK OCCURS 0,
       VBELN LIKE VBAK-VBELN,
       AUDAT LIKE VBAK-AUDAT,
       AUART LIKE VBAK-AUART,
       NETWR LIKE VBAK-NETWR,
       EXPAND(1),
      END OF IT_VBAK.
DATA: BEGIN OF IT_VBAP OCCURS 0,
       VBELN LIKE VBAP-VBELN,
       POSNR LIKE VBAP-POSNR,
       MATNR LIKE VBAP-MATNR,
       PSTYV LIKE VBAP-PSTYV,
       CHARG LIKE VBAP-CHARG,
     END OF IT_VBAP.
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
      IT_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
*events
      IT_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE,
      V_CALL TYPE C,
      X_USER TYPE  SLIS_EXIT_BY_USER,
      IT_VARIANT LIKE  DISVARIANT OCCURS 0 WITH HEADER LINE,
      X_KEYINFO TYPE SLIS_KEYINFO_ALV,
*layout
      X_LAYOUT TYPE SLIS_LAYOUT_ALV,
*sort
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      WA_SORT LIKE LINE OF IT_SORT,
      X_CAT TYPE SLIS_FIELDCAT_ALV,
      V_TABIX LIKE SY-TABIX.
      Selection screen Declaration
*--BLOCK1
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN,
                S_AUART FOR VBAK-AUART.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN                                                 *
*- Validations
AT SELECTION-SCREEN.
  PERFORM VALIDATE_SCREEN.
              START OF SELECTION                                    *
START-OF-SELECTION.
*- To get data from VBAK
  PERFORM GET_DATA.
*to get data from VBAP
  PERFORM GET_DATA_VBAP.
  PERFORM PREPARE_ALV.
              END OF SELECTION                                    *
END-OF-SELECTION.
  PERFORM DISPLAY_REPORT.
*&      Form  VALIDATE_SCREEN
      text
-->  p1        text
<--  p2        text
FORM VALIDATE_SCREEN .
  DATA: LV_VBELN LIKE VBAK-VBELN,
        LV_AUART LIKE VBAK-AUART.
  IF NOT S_VBELN[] IS INITIAL.
    SELECT VBELN
           INTO LV_VBELN
           FROM VBAK
           WHERE VBELN IN S_VBELN.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E000 WITH 'INVALID SALES DOC'(002).
    ENDIF.
  ENDIF.
  IF NOT S_AUART[] IS INITIAL.
    SELECT AUART
           INTO LV_AUART
           FROM VBAK
           WHERE AUART IN S_AUART.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE E000 WITH 'INVALID SALES DOC TYPE'(003).
    ENDIF.
  ENDIF.
ENDFORM.                    " VALIDATE_SCREEN
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA .
  SELECT VBELN
         AUDAT
         AUART
         NETWR
         FROM VBAK
         INTO TABLE IT_VBAK
         WHERE VBELN IN S_VBELN
         AND AUART IN S_AUART.
  IF SY-SUBRC = 0.
    SORT IT_VBAK BY VBELN.
  ENDIF.
ENDFORM.                    " GET_DATA
*&      Form  GET_DATA_VBAP
      text
-->  p1        text
<--  p2        text
FORM GET_DATA_VBAP .
  SELECT VBELN
         POSNR
         MATNR
         PSTYV
         CHARG
         INTO TABLE IT_VBAP
         FROM VBAP
         FOR ALL ENTRIES IN IT_VBAK
         WHERE VBELN = IT_VBAK-VBELN.
  IF SY-SUBRC = 0.
    SORT IT_VBAP BY VBELN POSNR.
  ENDIF.
ENDFORM.                    " GET_DATA_VBAP
*&      Form  prepare_alv
      text
-->  p1        text
<--  p2        text
FORM PREPARE_ALV .
Prepare field catalog .
  PERFORM PREPARE_CATALOG.
Modify catalog
  PERFORM CHANGE_ATTR_OF_CATALOG.
Modify Layout
  PERFORM MODIFY_LAYOUT.
Sort Catalog
  PERFORM SORT_CATALOG.
ENDFORM.                    " prepare_alv
*&      Form  prepare_catalog
      text
-->  p1        text
<--  p2        text
FORM PREPARE_CATALOG .
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-REPID
      I_INTERNAL_TABNAME     = 'IT_VBAK'
      I_INCLNAME             = SY-REPID
    CHANGING
      CT_FIELDCAT            = IT_FLDCAT1[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 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.
  APPEND LINES OF IT_FLDCAT1 TO IT_FLDCAT.
  CLEAR: IT_FLDCAT1[].
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      I_PROGRAM_NAME         = SY-REPID
      I_INTERNAL_TABNAME     = 'IT_VBAP'
      I_INCLNAME             = SY-REPID
    CHANGING
      CT_FIELDCAT            = IT_FLDCAT1[]
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 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.
  APPEND LINES OF IT_FLDCAT1 TO IT_FLDCAT.
ENDFORM.                    " prepare_catalog
*&      Form  change_attr_of_catalog
      text
-->  p1        text
<--  p2        text
FORM CHANGE_ATTR_OF_CATALOG .
  LOOP AT IT_FLDCAT INTO X_CAT.
    V_TABIX = SY-TABIX.
    CASE X_CAT-FIELDNAME.
      WHEN  'EXPAND'.
        IF X_CAT-TABNAME = 'IT_VBAK'.
          X_CAT-NO_OUT = 'X'.
        ENDIF.
     when  'VBELN'.
       if x_cat-tabname = 'IT_VBAK'.
         x_cat-no_out = 'X'.
       endif.
      WHEN  'VBELN'.
        IF X_CAT-TABNAME = 'IT_VBAK'.
          X_CAT-COL_POS   = '1'.
          X_CAT-SELTEXT_M = 'SALES DOC'.
          X_CAT-SELTEXT_L = 'SALES DOC'.
          X_CAT-SELTEXT_S = 'SALES DOC'.
          X_CAT-OUTPUTLEN = '10'.
        ENDIF.
      WHEN  'AUDAT'.
        IF X_CAT-TABNAME = 'IT_VBAK'.
          X_CAT-COL_POS   = '2'.
          X_CAT-SELTEXT_M = 'DOC DATE'.
          X_CAT-SELTEXT_L = 'DOC DATE'.
          X_CAT-SELTEXT_S = 'DOC DATE'.
          X_CAT-OUTPUTLEN = '8'.
        ENDIF.
      WHEN  'AUART'.
        IF X_CAT-TABNAME = 'IT_VBAK'.
          X_CAT-COL_POS   = '3'.
          X_CAT-SELTEXT_M = 'ORDER REASON'.
          X_CAT-SELTEXT_L = 'ORDER REASON'.
          X_CAT-SELTEXT_S = 'ORDER REASON'.
          X_CAT-OUTPUTLEN = '5'.
        ENDIF.
      WHEN  'NETWR'.
        IF X_CAT-TABNAME = 'IT_VBAK'.
          X_CAT-COL_POS   = '4'.
          X_CAT-SELTEXT_M = 'NET PRICE'.
          X_CAT-SELTEXT_L = 'NET PRICE'.
          X_CAT-SELTEXT_S = 'NET PRICE'.
          X_CAT-OUTPUTLEN = '15'.
        ENDIF.
    ENDCASE.
    MODIFY IT_FLDCAT FROM X_CAT.
    CLEAR X_CAT.
  ENDLOOP.
ENDFORM.                    " change_attr_of_catalog
*&      Form  modify_layout
      text
-->  p1        text
<--  p2        text
FORM MODIFY_LAYOUT .
  X_LAYOUT-DEFAULT_ITEM = 'X'.
  X_LAYOUT-ZEBRA = 'X'.
  X_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
ENDFORM.                    " modify_layout
*&      Form  sort_catalog
      text
-->  p1        text
<--  p2        text
FORM SORT_CATALOG .
  CLEAR WA_SORT.
  WA_SORT-SPOS = '01'.
  WA_SORT-FIELDNAME = 'VBELN' .
  WA_SORT-TABNAME   = 'IT_VBAP'.
  WA_SORT-UP        = 'X'.
  APPEND WA_SORT TO IT_SORT.
  CLEAR  WA_SORT.
  WA_SORT-SPOS = '02'.
  WA_SORT-FIELDNAME = 'POSNR' .
  WA_SORT-TABNAME   = 'IT_VBAP'.
  WA_SORT-UP        = 'X'.
  APPEND WA_SORT TO IT_SORT.
ENDFORM.                    " sort_catalog
*&      Form  DISPLAY_REPORT
      text
-->  p1        text
<--  p2        text
FORM DISPLAY_REPORT .
  IT_VARIANT-REPORT = SY-REPID.
  SORT IT_VBAK BY VBELN.
  SORT IT_VBAP BY VBELN POSNR.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM      = SY-REPID
      IS_LAYOUT               = X_LAYOUT
      IT_FIELDCAT             = IT_FLDCAT[]
      IT_SORT                 = IT_SORT
      IS_VARIANT              = IT_VARIANT
      IT_EVENTS               = IT_EVENTS[]
      I_TABNAME_HEADER        = 'IT_VBAK'
      I_TABNAME_ITEM          = 'IT_VBAP'
      IS_KEYINFO              = X_KEYINFO
    IMPORTING
      E_EXIT_CAUSED_BY_CALLER = V_CALL
      ES_EXIT_CAUSED_BY_USER  = X_USER
    TABLES
      T_OUTTAB_HEADER         = IT_VBAK
      T_OUTTAB_ITEM           = IT_VBAP
    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.                    " DISPLAY_REPORT
Regards
Laxmi