topic Re: Hierarchical sequential reports in Application Development and Automation Discussions

topic Re: Hierarchical sequential reports in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925952#M940268 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Just go through the functionality of this report.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report YVCHIERSEQ *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT YVCHIERSEQ .</P><P>TYPE-POOLS:SLIS.</P><P>DATA:T_VBAK TYPE STANDARD TABLE OF VBAK INITIAL SIZE 0,</P><P> T_VBAP TYPE STANDARD TABLE OF VBAP INITIAL SIZE 0,</P><P> W_VBAK TYPE VBAK,</P><P> W_VBAP TYPE VBAP,</P><P> G_VBELN TYPE VBAK-VBELN,</P><P> W_FIELDCAT TYPE SLIS_FIELDCAT_ALV,</P><P> T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,</P><P> W_KEYINFO TYPE SLIS_KEYINFO_ALV.</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.</P><P>SELECT-OPTIONS:S_VBELN FOR G_VBELN.</P><P>SELECTION-SCREEN END OF BLOCK B1.</P><P></P><P>INITIALIZATION.</P><P>CLEAR:W_VBAK,</P><P> W_VBAP.</P><P>REFRESH:T_VBAK,</P><P> T_VBAP.</P><P></P><P>START-OF-SELECTION.</P><P>PERFORM SUB_GET_VBAK.</P><P>PERFORM SUB_GET_VBAP.</P><P>PERFORM SUB_DISP_OUTPUT.</P><P></P><P>FORM SUB_GET_VBAK.</P><P></P><P>SELECT * FROM VBAK INTO TABLE T_VBAK WHERE VBELN IN S_VBELN.</P><P></P><P>ENDFORM.</P><P></P><P>FORM SUB_GET_VBAP.</P><P></P><P>SELECT * FROM VBAP INTO TABLE T_VBAP FOR ALL ENTRIES IN T_VBAK WHERE</P><P>VBELN = T_VBAK-VBELN.</P><P></P><P>ENDFORM.</P><P></P><P>FORM SUB_DISP_OUTPUT.</P><P></P><P>W_FIELDCAT-COL_POS = 1.</P><P>W_FIELDCAT-FIELDNAME = 'VBELN'.</P><P>W_FIELDCAT-SELTEXT_M = 'SALESORDER'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 2.</P><P>W_FIELDCAT-FIELDNAME = 'ERNAM'.</P><P>W_FIELDCAT-SELTEXT_M = 'NAME'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 3.</P><P>W_FIELDCAT-FIELDNAME = 'VBTYP'.</P><P>W_FIELDCAT-SELTEXT_M = 'SD CATEGORY'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 4.</P><P>W_FIELDCAT-FIELDNAME = 'KUNNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'SOLD TO PARTY'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 5.</P><P>W_FIELDCAT-FIELDNAME = 'NETWR'.</P><P>W_FIELDCAT-SELTEXT_M = 'NET VALUE'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P>******************************</P><P></P><P>W_FIELDCAT-COL_POS = 1.</P><P>W_FIELDCAT-FIELDNAME = 'POSNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'SALES ITEM'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 2.</P><P>W_FIELDCAT-FIELDNAME = 'MATNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'MATERIAL NO'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 3.</P><P>W_FIELDCAT-FIELDNAME = 'MATKL'.</P><P>W_FIELDCAT-SELTEXT_M = 'MAT GROUP'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 4.</P><P>W_FIELDCAT-FIELDNAME = 'NETWR'.</P><P>W_FIELDCAT-SELTEXT_M = 'NET VALUE'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_KEYINFO-HEADER01 = 'VBELN'.</P><P>W_KEYINFO-ITEM01 = 'VBELN'.</P><P></P><P>CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI></UL><P> I_CALLBACK_PROGRAM = SY-CPROG</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI></UL><P> IT_FIELDCAT = T_FIELDCAT</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> I_SAVE = ' '</P></LI><LI level="1" type="ul"><P> IS_VARIANT =</P></LI><LI level="1" type="ul"><P> IT_EVENTS =</P></LI><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI></UL><P> i_tabname_header = 'VBAK'</P><P> i_tabname_item = 'VBAP'</P><UL><LI level="1" type="ul"><P> I_STRUCTURE_NAME_HEADER =</P></LI><LI level="1" type="ul"><P> I_STRUCTURE_NAME_ITEM =</P></LI></UL><P> is_keyinfo = W_KEYINFO</P><UL><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER =</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE =</P></LI><LI level="1" type="ul"><P>IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> tables</P><P> t_outtab_header = T_VBAK</P><P> t_outtab_item = T_VBAP</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P>IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P></P><P> ENDFORM.</P><P>Hope this might be helpful.</P></BODY></HTML> Fri, 30 May 2008 06:49:46 GMT Former Member 2008-05-30T06:49:46Z Hierarchical sequential reports https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925950#M940266 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>I need to develop hierarchical sequential report.I have gone through standard hierarchical sequential report BALVHD01,but I could n't grasp a lot.Can anybody explain with a simple example of creation of Hierarchical sequential report. Its urgent.</P><P></P><P></P><P>Please don't suggest me to study the standard alv report BALVHD01.</P></BODY></HTML> Fri, 30 May 2008 06:46:23 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925950#M940266 Former Member 2008-05-30T06:46:23Z Re: Hierarchical sequential reports https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925951#M940267 <HTML><HEAD></HEAD><BODY><P>Hi Khader Bashe</P><P></P><P> View the simple hierarchical report and dont forget to reward points..</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report ZVENKATTEST0</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*&</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT zvenkattest0.</P><P>TABLES:pa0002,pa0008.</P><P>TYPE-POOLS:slis.</P><P>CONSTANTS:c VALUE 'X'.</P><P>DATA:BEGIN OF it_pa0008 OCCURS 0,</P><P> pernr LIKE pa0008-pernr,</P><P> begda LIKE pa0008-begda,</P><P> endda LIKE pa0008-endda,</P><P> preas LIKE pa0008-preas,</P><P> ansal LIKE pa0008-ansal,</P><P> lga01 LIKE pa0008-lga01,</P><P> expand TYPE xfeld,</P><P> END OF it_pa0008.</P><P></P><P>DATA:BEGIN OF it_pa0002 OCCURS 0,</P><P> pernr LIKE pa0002-pernr,</P><P> vorna LIKE pa0002-vorna,</P><P> nachn LIKE pa0002-nachn,</P><P> gbdat LIKE pa0002-gbdat,</P><P> gblnd LIKE pa0002-gblnd,</P><P> sprsl LIKE pa0002-sprsl,</P><P> perid LIKE pa0002-perid,</P><P> END OF it_pa0002.</P><P></P><P>DATA: wa_field_cat TYPE slis_fieldcat_alv,</P><P> it_field_cat TYPE slis_t_fieldcat_alv,</P><P> wa_keyinfo TYPE slis_keyinfo_alv,</P><P> it_layout TYPE slis_layout_alv.</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.</P><P>SELECT-OPTIONS:s_pernr FOR pa0002-pernr NO INTERVALS.</P><P>SELECTION-SCREEN: SKIP.</P><P>PARAMETERS:p_expand AS CHECKBOX DEFAULT 'X'.</P><P>SELECTION-SCREEN END OF BLOCK b1.</P><P></P><P>START-OF-SELECTION.</P><P></P><P>PERFORM select_data.</P><P>PERFORM build_field_cat.</P><P>PERFORM disply_data.</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form SELECT_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM select_data .</P><P></P><P>SELECT pernr</P><P> begda</P><P> endda</P><P> preas</P><P> ansal</P><P> lga01</P><P> FROM pa0008</P><P> INTO CORRESPONDING FIELDS OF TABLE it_pa0008</P><P> UP TO 10 ROWS.</P><P></P><P></P><P>IF NOT it_pa0008[] IS INITIAL.</P><P></P><P>SELECT pernr</P><P> vorna</P><P> nachn</P><P> gbdat</P><P> gblnd</P><P> sprsl</P><P> perid</P><P> FROM pa0002</P><P> INTO CORRESPONDING FIELDS OF TABLE it_pa0002</P><P> FOR ALL ENTRIES IN it_pa0008</P><P> WHERE pernr = it_pa0008-pernr.</P><P></P><P>ENDIF.</P><P></P><P>SORT it_pa0008 BY pernr.</P><P>ENDFORM. " SELECT_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELD_CAT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM build_field_cat .</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'PERNR'.</P><P> wa_field_cat-seltext_l = 'personnelno'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'BEGDA'.</P><P> wa_field_cat-seltext_l = 'begindate'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'ENDDA'.</P><P> wa_field_cat-seltext_l = 'enddate'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'PREAS'.</P><P> wa_field_cat-seltext_l = 'reason'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'ANSAL'.</P><P> wa_field_cat-seltext_l = 'annualsalary'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0008'.</P><P> wa_field_cat-fieldname = 'LGA01'.</P><P> wa_field_cat-seltext_l = 'wagetype'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'VORNA'.</P><P> wa_field_cat-seltext_l = 'firstname'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'NACHN'.</P><P> wa_field_cat-seltext_l = 'lastname'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'GBDAT'.</P><P> wa_field_cat-seltext_l = 'birhtdate'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'GBLND'.</P><P> wa_field_cat-seltext_l = 'birthcountry'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'SPRSL'.</P><P> wa_field_cat-seltext_l = 'languageused'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P> wa_field_cat-tabname = 'PA0002'.</P><P> wa_field_cat-fieldname = 'PERID'.</P><P> wa_field_cat-seltext_l = 'personnelid'.</P><P> APPEND wa_field_cat TO it_field_cat.</P><P></P><P>ENDFORM. " BUILD_FIELD_CAT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DISPLY_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM disply_data .</P><P></P><P> it_layout-group_change_edit = c.</P><P> it_layout-colwidth_optimize = c.</P><P> it_layout-zebra = c.</P><P> it_layout-detail_popup = c.</P><P> it_layout-get_selinfos = c.</P><P> IF p_expand = c.</P><P> it_layout-expand_fieldname = 'EXPAND'.</P><P> ENDIF.</P><P></P><P> wa_keyinfo-header01 = 'PERNR'.</P><P> wa_keyinfo-item01 = 'PERNR'.</P><UL><LI level="1" type="ul"><P> wa_keyinfo-item02 = 'SUBTY'.</P></LI></UL><P></P><P></P><P> CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</P><P> EXPORTING</P><P> i_callback_program = sy-cprog</P><P> is_layout = it_layout</P><P> it_fieldcat = it_field_cat</P><P> i_tabname_header = 'PA0008'</P><P> i_tabname_item = 'PA0002'</P><P> is_keyinfo = wa_keyinfo</P><P> TABLES</P><P> t_outtab_header = it_pa0008</P><P> t_outtab_item = it_pa0002.</P><P></P><P>ENDFORM. " DISPLY_DATA</P><P></P><P></P><P>Regards</P><P>Basheer</P></BODY></HTML> Fri, 30 May 2008 06:49:03 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925951#M940267 Former Member 2008-05-30T06:49:03Z Re: Hierarchical sequential reports https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925952#M940268 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P>Just go through the functionality of this report.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report YVCHIERSEQ *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& *</P><P>*& *</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT YVCHIERSEQ .</P><P>TYPE-POOLS:SLIS.</P><P>DATA:T_VBAK TYPE STANDARD TABLE OF VBAK INITIAL SIZE 0,</P><P> T_VBAP TYPE STANDARD TABLE OF VBAP INITIAL SIZE 0,</P><P> W_VBAK TYPE VBAK,</P><P> W_VBAP TYPE VBAP,</P><P> G_VBELN TYPE VBAK-VBELN,</P><P> W_FIELDCAT TYPE SLIS_FIELDCAT_ALV,</P><P> T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,</P><P> W_KEYINFO TYPE SLIS_KEYINFO_ALV.</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.</P><P>SELECT-OPTIONS:S_VBELN FOR G_VBELN.</P><P>SELECTION-SCREEN END OF BLOCK B1.</P><P></P><P>INITIALIZATION.</P><P>CLEAR:W_VBAK,</P><P> W_VBAP.</P><P>REFRESH:T_VBAK,</P><P> T_VBAP.</P><P></P><P>START-OF-SELECTION.</P><P>PERFORM SUB_GET_VBAK.</P><P>PERFORM SUB_GET_VBAP.</P><P>PERFORM SUB_DISP_OUTPUT.</P><P></P><P>FORM SUB_GET_VBAK.</P><P></P><P>SELECT * FROM VBAK INTO TABLE T_VBAK WHERE VBELN IN S_VBELN.</P><P></P><P>ENDFORM.</P><P></P><P>FORM SUB_GET_VBAP.</P><P></P><P>SELECT * FROM VBAP INTO TABLE T_VBAP FOR ALL ENTRIES IN T_VBAK WHERE</P><P>VBELN = T_VBAK-VBELN.</P><P></P><P>ENDFORM.</P><P></P><P>FORM SUB_DISP_OUTPUT.</P><P></P><P>W_FIELDCAT-COL_POS = 1.</P><P>W_FIELDCAT-FIELDNAME = 'VBELN'.</P><P>W_FIELDCAT-SELTEXT_M = 'SALESORDER'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 2.</P><P>W_FIELDCAT-FIELDNAME = 'ERNAM'.</P><P>W_FIELDCAT-SELTEXT_M = 'NAME'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 3.</P><P>W_FIELDCAT-FIELDNAME = 'VBTYP'.</P><P>W_FIELDCAT-SELTEXT_M = 'SD CATEGORY'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 4.</P><P>W_FIELDCAT-FIELDNAME = 'KUNNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'SOLD TO PARTY'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 5.</P><P>W_FIELDCAT-FIELDNAME = 'NETWR'.</P><P>W_FIELDCAT-SELTEXT_M = 'NET VALUE'.</P><P>W_FIELDCAT-TABNAME = 'VBAK'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P>******************************</P><P></P><P>W_FIELDCAT-COL_POS = 1.</P><P>W_FIELDCAT-FIELDNAME = 'POSNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'SALES ITEM'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 2.</P><P>W_FIELDCAT-FIELDNAME = 'MATNR'.</P><P>W_FIELDCAT-SELTEXT_M = 'MATERIAL NO'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 3.</P><P>W_FIELDCAT-FIELDNAME = 'MATKL'.</P><P>W_FIELDCAT-SELTEXT_M = 'MAT GROUP'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_FIELDCAT-COL_POS = 4.</P><P>W_FIELDCAT-FIELDNAME = 'NETWR'.</P><P>W_FIELDCAT-SELTEXT_M = 'NET VALUE'.</P><P>W_FIELDCAT-TABNAME = 'VBAP'.</P><P>APPEND W_FIELDCAT TO T_FIELDCAT.</P><P>CLEAR W_FIELDCAT.</P><P></P><P>W_KEYINFO-HEADER01 = 'VBELN'.</P><P>W_KEYINFO-ITEM01 = 'VBELN'.</P><P></P><P>CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</P><P> EXPORTING</P><UL><LI level="1" type="ul"><P> I_INTERFACE_CHECK = ' '</P></LI></UL><P> I_CALLBACK_PROGRAM = SY-CPROG</P><UL><LI level="1" type="ul"><P> I_CALLBACK_PF_STATUS_SET = ' '</P></LI><LI level="1" type="ul"><P> I_CALLBACK_USER_COMMAND = ' '</P></LI><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI></UL><P> IT_FIELDCAT = T_FIELDCAT</P><UL><LI level="1" type="ul"><P> IT_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> IS_SEL_HIDE =</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_START_LINE = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_COLUMN = 0</P></LI><LI level="1" type="ul"><P> I_SCREEN_END_LINE = 0</P></LI><LI level="1" type="ul"><P> I_DEFAULT = 'X'</P></LI><LI level="1" type="ul"><P> I_SAVE = ' '</P></LI><LI level="1" type="ul"><P> IS_VARIANT =</P></LI><LI level="1" type="ul"><P> IT_EVENTS =</P></LI><LI level="1" type="ul"><P> IT_EVENT_EXIT =</P></LI></UL><P> i_tabname_header = 'VBAK'</P><P> i_tabname_item = 'VBAP'</P><UL><LI level="1" type="ul"><P> I_STRUCTURE_NAME_HEADER =</P></LI><LI level="1" type="ul"><P> I_STRUCTURE_NAME_ITEM =</P></LI></UL><P> is_keyinfo = W_KEYINFO</P><UL><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IS_REPREP_ID =</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER =</P></LI><LI level="1" type="ul"><P> I_BUFFER_ACTIVE =</P></LI><LI level="1" type="ul"><P>IMPORTING</P></LI><LI level="1" type="ul"><P> E_EXIT_CAUSED_BY_CALLER =</P></LI><LI level="1" type="ul"><P> ES_EXIT_CAUSED_BY_USER =</P></LI></UL><P> tables</P><P> t_outtab_header = T_VBAK</P><P> t_outtab_item = T_VBAP</P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P>IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P></P><P> ENDFORM.</P><P>Hope this might be helpful.</P></BODY></HTML> Fri, 30 May 2008 06:49:46 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925952#M940268 Former Member 2008-05-30T06:49:46Z Re: Hierarchical sequential reports https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925953#M940269 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>Go through this code,u can very easely understand .</P><P></P><P>TYPE-POOLS: slis.</P><P></P><P>TABLES : ekko, ekpo.</P><P></P><P>DATA : BEGIN OF i_ekko OCCURS 0,</P><P>ebeln LIKE ekko-ebeln,</P><P>ernam LIKE ekko-ernam,</P><P>bsart LIKE ekko-bsart,</P><P>var1,</P><P>END OF i_ekko.</P><P></P><P>DATA : BEGIN OF i_ekpo OCCURS 0,</P><P>ebeln LIKE ekpo-ebeln,</P><P>ebelp LIKE ekpo-ebelp,</P><P>matnr LIKE ekpo-matnr,</P><P>aedat LIKE ekpo-aedat,</P><P>var2,</P><P>END OF i_ekpo.</P><P></P><P>DATA : BEGIN OF i_final OCCURS 0,</P><P>ebeln LIKE ekko-ebeln,</P><P>ernam LIKE ekko-ernam,</P><P>bsart LIKE ekko-bsart,</P><P>ebelp LIKE ekpo-ebelp,</P><P>matnr LIKE ekpo-matnr,</P><P>aedat LIKE ekpo-aedat,</P><P>END OF i_final.</P><P></P><P>SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN.</P><P></P><P>DATA : fcat TYPE slis_t_fieldcat_alv,</P><P>cat TYPE slis_fieldcat_alv.</P><P></P><P></P><P>DATA : LAYOUT1 TYPE SLIS_LAYOUT_ALV, "LAYOUT 1</P><P></P><P>KEY TYPE SLIS_KEYINFO_ALV , "KEY INFORMATION</P><P>GT_EVENT1 TYPE SLIS_T_EVENT.</P><P></P><P>START-OF-SELECTION.</P><P></P><P> PERFORM GETTING_DATA.</P><P> PERFORM append_field.</P><P></P><P> CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</P><P> EXPORTING</P><P> I_CALLBACK_PROGRAM = SY-CPROG</P><P> IS_LAYOUT = LAYOUT1</P><P> IT_FIELDCAT = FCAT</P><P></P><UL><LI level="1" type="ul"><P>IT_EVENTS = GT_EVENT1</P></LI></UL><P> i_tabname_header = 'I_EKKO'</P><P> i_tabname_item = 'I_EKPO'</P><P> is_keyinfo = KEY</P><P></P><P></P><P> tables</P><P> t_outtab_header = I_EKKO</P><P> t_outtab_item = I_EKPO.</P><P></P><P></P><P></P><P>*&----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P>*& Form GETTING_DATA</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>FORM GETTING_DATA .</P><P> SELECT EBELN BSART ERNAM UP TO 100 ROWS</P><P> INTO CORRESPONDING FIELDS OF TABLE I_EKKO FROM EKKO</P><P> WHERE EBELN IN S_EBELN.</P><P></P><P> SELECT EBELN EBELP MATNR AEDAT</P><P> INTO CORRESPONDING FIELDS OF TABLE I_EKPO FROM EKPO</P><P> FOR ALL ENTRIES IN I_EKKO WHERE EBELN = I_EKKO-EBELN .</P><P> SORT I_EKKO BY EBELN.</P><P> LOOP AT I_EKKO.</P><P> READ TABLE I_EKPO WITH KEY EBELN = I_EKKO-EBELN.</P><P> IF SY-SUBRC EQ 0.</P><P> MOVE: I_EKKO-EBELN TO I_FINAL-EBELN,</P><P> I_EKKO-BSART TO I_FINAL-BSART,</P><P> I_EKKO-ERNAM TO I_FINAL-ERNAM,</P><P> I_EKPO-EBELP TO I_FINAL-EBELP,</P><P> I_EKPO-MATNR TO I_FINAL-MATNR,</P><P> I_EKPO-AEDAT TO I_FINAL-AEDAT.</P><P></P><P> APPEND I_FINAL.</P><P> ENDIF.</P><P> ENDLOOP.</P><P>ENDFORM. " GETTING_DATA</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form append_field</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM append_field .</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 1.</P><P> cat-fieldname = 'EBELN'.</P><P> cat-tabname = 'I_EKKO'.</P><P> cat-ref_fieldname = 'EBELN'.</P><P> cat-ref_tabname = 'EKKO'.</P><P> cat-key = 'X'. "define field as key</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 2.</P><P> cat-fieldname = 'BSART'.</P><P> cat-tabname = 'I_EKKO'.</P><P> cat-ref_fieldname = 'BSART'.</P><P> cat-ref_tabname = 'EKKO'.</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 3.</P><P> cat-fieldname = 'ERNAM'.</P><P> cat-tabname = 'I_EKKO'.</P><P> cat-ref_fieldname = 'ERNAM'.</P><P> cat-ref_tabname = 'EKKO'.</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 4.</P><P> cat-fieldname = 'EBELP'.</P><P> cat-tabname = 'I_EKPO'.</P><P> cat-ref_fieldname = 'EBELP'.</P><P> cat-ref_tabname = 'EKPO'.</P><P> cat-key = 'X'. "define field as key</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 5.</P><P> cat-fieldname = 'MATNR'.</P><P> cat-tabname = 'I_EKPO'.</P><P> cat-ref_fieldname = 'MATNR'.</P><P> cat-ref_tabname = 'EKPO'.</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> cat-col_pos = 6.</P><P> cat-fieldname = 'AEDAT'.</P><P> cat-tabname = 'I_EKPO'.</P><P> cat-ref_fieldname = 'AEDAT'.</P><P> cat-ref_tabname = 'EKPO'.</P><P> APPEND cat TO fcat.</P><P></P><P> CLEAR cat.</P><P> layout1-expand_fieldname = 'VAR1'.</P><P> layout1-lights_fieldname = '3'.</P><P> layout1-lights_tabname = 'I_EKPO'.</P><P> key-header01 = 'EBELN'.</P><P> key-item01 = 'EBELN'.</P><P>ENDFORM. " APPEND_FIELD</P><P></P><P>Reward if useful.</P><P></P><P>Regards,</P><P>Narasimha</P></BODY></HTML> Fri, 30 May 2008 06:50:56 GMT https://community.sap.com/t5/application-development-and-automation-discussions/hierarchical-sequential-reports/m-p/3925953#M940269 Former Member 2008-05-30T06:50:56Z