ALV tree: code is getting dumped............................

[Former Member]

Hi all,

I want to display output using ALV tree. I havent worked on this before, So kindly provide me useful sample programs to display output using ALV tree.

Also i am creating field catalog using following code:

data : gt_fieldcatalog type lvc_t_fcat. "Fieldcatalog

• get fieldcatalog

call function 'LVC_FIELDCATALOG_MERGE'

EXPORTING

i_structure_name = 'TP_OUTTAB'

CHANGING

ct_fieldcat = gt_fieldcatalog.

But its getting dumped and "NO_FIELDCATALOG_AVAILABLE" exception is raised.

Also strucure TP_OUTTAB is as:

TYPES: BEGIN OF tp_outtab,

aufnr TYPE aufk-aufnr,

txt TYPE t003p-txt,

maktx TYPE makt-maktx,

charg TYPE afpo-charg,

icon TYPE char4,

prueflos TYPE afko-prueflos, prueflos _ r TYPE icon-id,

ext_roses(5),

expt_roses TYPE icon-id,

zurl(8), "

zurl_r TYPE icon-id,

crstat_t TYPE icon-id,

crstat TYPE icon-id,

adres TYPE cochp-adres,

END OF tp_outtab.

Kindly tell me why the code is getting dumped. Seems there is some problem with structure.

Regards,

Sachin

[Former Member]

U have to creat a structure similar to ur final output list in se11

u have to pass that stucture name to thsi FM

Reward if useful

Narendra

[Former Member]

Hi,

try the following example.

TYPE-POOLS: SLIS.

DATA: BEGIN OF I_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

ERNAM LIKE VBAK-ERNAM,

ERDAT LIKE VBAK-ERDAT,

AUDAT LIKE VBAK-AUDAT,

VAR1,

END OF I_VBAK.

DATA: BEGIN OF I_VBAP OCCURS 0,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

CHARG LIKE VBAP-CHARG,

END OF I_VBAP.

DATA: FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

LAYOUT TYPE SLIS_LAYOUT_ALV,

KEY TYPE SLIS_KEYINFO_ALV.

DATA: IT_HEADER1 TYPE SLIS_T_LISTHEADER.

DATA: WA_HEADER1 TYPE SLIS_LISTHEADER.

DATA: IT_EVE1 TYPE SLIS_T_EVENT,

WA_EVE1 TYPE SLIS_ALV_EVENT.

SELECT VBELN ERNAM ERDAT AUDAT FROM VBAK

INTO CORRESPONDING FIELDS OF TABLE I_VBAK

UP TO 20 ROWS.

SELECT VBELN POSNR MATNR CHARG FROM VBAP

INTO CORRESPONDING FIELDS OF TABLE I_VBAP

UP TO 20 ROWS.

FLDCAT-FIELDNAME = 'VBELN'.

FLDCAT-TABNAME = 'I_VBAK'.

FLDCAT-REF_FIELDNAME = 'VBELN'.

FLDCAT-REF_TABNAME = 'VBAK'.

FLDCAT-SELTEXT_M = 'SALES DOC.'.

FLDCAT-COL_POS = 0.

FLDCAT-KEY = 'X'.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'ERNAM'.

FLDCAT-TABNAME = 'I_VBAK'.

FLDCAT-REF_FIELDNAME = 'ERNAM'.

FLDCAT-REF_TABNAME = 'VBAK'.

FLDCAT-SELTEXT_M = 'NAME OF PERSON'.

FLDCAT-COL_POS = 1.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'ERDAT'.

FLDCAT-TABNAME = 'I_VBAK'.

FLDCAT-REF_FIELDNAME = 'ERDAT'.

FLDCAT-REF_TABNAME = 'VBAK'.

FLDCAT-SELTEXT_M = 'RECORD DATE'.

FLDCAT-COL_POS = 2.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'AUDAT'.

FLDCAT-TABNAME = 'I_VBAK'.

FLDCAT-REF_FIELDNAME = 'AUDAT'.

FLDCAT-REF_TABNAME = 'VBAK'.

FLDCAT-SELTEXT_M = 'DOCUMENT DATE'.

FLDCAT-COL_POS = 3.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'POSNR'.

FLDCAT-TABNAME = 'I_VBAP'.

FLDCAT-REF_FIELDNAME = 'POSNR'.

FLDCAT-REF_TABNAME = 'VBAP'.

FLDCAT-SELTEXT_M = 'SALES DOC ITEM'.

FLDCAT-COL_POS = 4.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'MATNR'.

FLDCAT-TABNAME = 'I_VBAP'.

FLDCAT-REF_FIELDNAME = 'MATNR'.

FLDCAT-REF_TABNAME = 'VBAP'.

FLDCAT-SELTEXT_M = 'MATERIAL NO'.

FLDCAT-COL_POS = 5.

APPEND FLDCAT.

CLEAR FLDCAT.

FLDCAT-FIELDNAME = 'CHARG'.

FLDCAT-TABNAME = 'I_VBAP'.

FLDCAT-REF_FIELDNAME = 'CHARG'.

FLDCAT-REF_TABNAME = 'VBAP'.

FLDCAT-SELTEXT_M = 'BATCH NUMBER'.

FLDCAT-COL_POS = 6.

APPEND FLDCAT.

CLEAR FLDCAT.

LAYOUT-EXPAND_FIELDNAME = 'VAR1'.

KEY-HEADER01 = 'VBELN'.

KEY-ITEM01 = 'VBELN'.

CLEAR WA_EVE1.

WA_EVE1-NAME = 'TOP_OF_PAGE'.

WA_EVE1-FORM = 'TOP-OF-PAGE1'.

APPEND WA_EVE1 TO IT_EVE1.

CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

IS_LAYOUT = LAYOUT

IT_FIELDCAT = FLDCAT[]

IT_EVENTS = IT_EVE1[]

I_TABNAME_HEADER = 'I_VBAK'

I_TABNAME_ITEM = 'I_VBAP'

IS_KEYINFO = KEY

TABLES

T_OUTTAB_HEADER = I_VBAK

T_OUTTAB_ITEM = I_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.

FORM TOP-OF-PAGE1. WA_HEADER1-TYP = 'H'.

WA_HEADER1-INFO = 'Hierarchical Display'.

APPEND WA_HEADER1 TO IT_HEADER1.

CLEAR WA_HEADER1.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_HEADER1[].

REFRESH IT_HEADER1.

ENDFORM. "TOP-OF-PAGE1

Reward points,if it is useful.

Thanks,

chandu.

[Former Member]

Hi

goto this link and follow the step by step procedure

http://www.sapdev.co.uk/reporting/alv/alvtree/alvtree_basic.htm