Need hierarchy alv report base on salv_demo_hierseq_simple

Hi friends,
i need to do a hierarchy alv report,
i copied example code from program salv_demo_hierseq_simple and changes the selection screen +changed the select from tables.
my problem is that the results is one big list of data,
i dont have to open and close lines.
is anyone can help me with what could the problem be?
thanks,
dana.

Guys,
Any Idea on this.

Similar Messages

How to display 3 level hierarchy alv report using SALV

Hi ,
      I need to display a Hierarchy ALV report with 3 level.I thought of trying CL_SALV_HIERSEQ_TABLE but i am able to display only two level report.
      How can i display the 3 - level heirarchy report using SALV. I don't want to use SALV_TREE.
      Regards,
      Aditya Tanguturi.

Hi Aditya,
Please check this thread
Is it possible to display more than 2 levels us... | SCN
Thanks !
Amit

Multilevel hierarchy ALV report of Mother WBS

Hi ABAP Guru,
I have created a Mother WBS sturcture which has been created in CJ91 tcode. I need a same hierarchy alv report same structure as shown in cj91 t code. Please help me out.
I have created a alv reort on that but when I make change in mother WBS, the new added wbs is comming in my report at last. PLease help me out.

Hi Manish,
I am able to see WBS Elements in MB51 Report after going to detailed list from the initial output page. In this detailed output the sender and receiver WBS Elements are getting displayed incorrectly.From that screen only,if I go to Material document list,sender and receiver WBS Elements are getting displayed correctly.
Regards,
B P Singh

Hierarchial ALV report

Hi Friends,
I have created a Hierarchial ALV report using OOP concept (Class Builder). The output is OK but it is displaying the unwanted columns in the header part.
The code written is as follows.
=====================================================
REPORT ZMMSTKH.
DATA: G_ALV_TREE TYPE REF TO CL_GUI_ALV_TREE,
 G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: GT_ZSD_BILLINFO TYPE ZSD_BILLINFO OCCURS 0, "Output-Table
 OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM, "OK-Code
 G_MAX TYPE I VALUE 255.
DATA CCONTAINER1.
DATA LS_FIELDCAT TYPE LVC_S_FCAT.
DATA GT_FIELDCAT_LVC TYPE LVC_S_FCAT OCCURS 0.
DATA IT_FIELDCATALOG TYPE LVC_S_FCAT OCCURS 0.
END-OF-SELECTION.
CALL SCREEN 100.
*& Module PBO OUTPUT
 process before output
MODULE PBO OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAINTITLE'.
IF G_ALV_TREE IS INITIAL.
 PERFORM INIT_TREE.
 CALL METHOD CL_GUI_CFW=>FLUSH
 EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 CNTL_ERROR = 2.
 IF SY-SUBRC NE 0.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 TITEL = 'Automation Queue failure'(801)
 TXT1 = 'Internal error:'(802)
 TXT2 = 'A method in the automation queue'(803)
 TXT3 = 'caused a failure.'(804).
 ENDIF.
ENDIF.
ENDMODULE. " PBO OUTPUT
*& Module PAI INPUT
 process after input
MODULE PAI INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
 WHEN 'EXIT' OR 'BACK' OR 'CANC'.
 PERFORM EXIT_PROGRAM.
 WHEN OTHERS.
 CALL METHOD CL_GUI_CFW=>DISPATCH.
ENDCASE.
CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMODULE. " PAI INPUT
*& Form init_tree
 text
--> p1 text
<-- p2 text
FORM INIT_TREE.
DATA: L_TREE_CONTAINER_NAME(30) TYPE C.
L_TREE_CONTAINER_NAME = 'CCONTAINER1'(001).
CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING
 CONTAINER_NAME = L_TREE_CONTAINER_NAME
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5.
IF SY-SUBRC <> 0.
 MESSAGE X208(00) WITH 'ERROR'(100).
ENDIF.
CREATE OBJECT G_ALV_TREE
 EXPORTING
 PARENT = G_CUSTOM_CONTAINER
 NODE_SELECTION_MODE = CL_GUI_COLUMN_TREE=>NODE_SEL_MODE_SINGLE
 ITEM_SELECTION = 'X'
 NO_HTML_HEADER = 'X'
 NO_TOOLBAR = ''
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 ILLEGAL_NODE_SELECTION_MODE = 5
 FAILED = 6
 ILLEGAL_COLUMN_NAME = 7.
IF SY-SUBRC <> 0.
 MESSAGE X208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
DATA L_HIERARCHY_HEADER TYPE TREEV_HHDR.
PERFORM BUILD_HIERARCHY_HEADER CHANGING L_HIERARCHY_HEADER.
PERFORM ZF_CREATE_FIELDCAT.
CALL METHOD G_ALV_TREE->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 I_STRUCTURE_NAME = 'zsd_billinfo'
 IS_HIERARCHY_HEADER = L_HIERARCHY_HEADER
 CHANGING
 IT_OUTTAB = GT_ZSD_BILLINFO. "table must be empty !
IT_FIELDCATALOG = GT_FIELDCAT_LVC[].
PERFORM CREATE_HIERARCHY.
CALL METHOD G_ALV_TREE->FRONTEND_UPDATE.
ENDFORM. " init_tree
*& Form build_hierarchy_header
FORM BUILD_HIERARCHY_HEADER CHANGING
 P_HIERARCHY_HEADER TYPE TREEV_HHDR.
P_HIERARCHY_HEADER-HEADING = 'Region / Material'(300).
p_hierarchy_header-tooltip = 'PO No'(400).
P_HIERARCHY_HEADER-WIDTH = 30.
P_HIERARCHY_HEADER-WIDTH_PIX = ' '.
ENDFORM. " build_hierarchy_header
*& Form exit_program
 free object and leave program
FORM EXIT_PROGRAM.
CALL METHOD G_CUSTOM_CONTAINER->FREE.
LEAVE PROGRAM.
ENDFORM. " exit_program
*& Form create_hierarchy
 text
--> p1 text
<-- p2 text
FORM CREATE_HIERARCHY.
DATA: LS_ZSD_BILLINFO TYPE ZSD_BILLINFO,
 LT_ZSD_BILLINFO TYPE ZSD_BILLINFO OCCURS 0,
 l_bukrs like zsd_billinfo-bukrs,
 l_vbeln like zsd_billinfo-vbeln,
 l_fkdat like zsd_billinfo-fkdat,
 l_fkart like zsd_billinfo-fkart,
 l_vkorg like zsd_billinfo-vkorg,
 l_spart like zsd_billinfo-spart,
 L_BZIRK LIKE ZSD_BILLINFO-BZIRK,
 L_BZIRK_LAST LIKE ZSD_BILLINFO-BZIRK,
 l_vkbur like zsd_billinfo-vkbur,
 L_WERKS LIKE ZSD_BILLINFO-WERKS,
 L_WERKS_LAST LIKE ZSD_BILLINFO-WERKS,
 L_MATNR LIKE ZSD_BILLINFO-MATNR,
 L_MATNR_LAST LIKE ZSD_BILLINFO-MATNR,
 L_FKIMG LIKE ZSD_BILLINFO-FKIMG,
 L_NETWR LIKE ZSD_BILLINFO-NETWR.
DATA: L_BUKRS_KEY TYPE LVC_NKEY,
 L_BZIRK_KEY TYPE LVC_NKEY,
 L_WERKS_KEY TYPE LVC_NKEY,
 L_MATNR_KEY TYPE LVC_NKEY,
 l_vbeln_key type lvc_nkey,
 L_LAST_KEY TYPE LVC_NKEY.
SELECT BUKRS BZIRK WERKS MATNR FKIMG FROM ZSD_BILLINFO
INTO CORRESPONDING FIELDS OF
TABLE LT_ZSD_BILLINFO
WHERE SPART = 'CT' AND
 FKART = 'ZVAT'.
select * from zsd_billinfo into table lt_zsd_billinfo
where spart = 'CT' and
 fkart = 'ZVAT'.
SORT LT_ZSD_BILLINFO BY BZIRK WERKS MATNR.
LOOP AT LT_ZSD_BILLINFO INTO LS_ZSD_BILLINFO.
 L_BZIRK = LS_ZSD_BILLINFO-BZIRK.
 L_WERKS = LS_ZSD_BILLINFO-WERKS.
 L_MATNR = LS_ZSD_BILLINFO-MATNR.
 IF L_BZIRK <> L_BZIRK_LAST.
 L_BZIRK_LAST = L_BZIRK.
 PERFORM ADD_BZIRK USING L_BZIRK
 CHANGING L_BZIRK_KEY.
 CLEAR L_WERKS_LAST.
 ENDIF.
 IF L_WERKS <> L_WERKS_LAST.
 L_WERKS_LAST = L_WERKS.
 PERFORM ADD_WERKS_LINE USING LS_ZSD_BILLINFO
 L_WERKS_KEY
 CHANGING L_WERKS_KEY.
 IF L_MATNR <> L_MATNR_LAST.
 L_MATNR_LAST = L_MATNR.
 PERFORM ADD_MATNR_LINE USING LS_ZSD_BILLINFO
 L_MATNR_KEY
 CHANGING L_MATNR_KEY.
 ENDIF.
 PERFORM ADD_COMPLETE_LINE USING LS_ZSD_BILLINFO
 L_MATNR_KEY
 CHANGING L_LAST_KEY.
 ENDIF.
*if l_matnr <> l_matnr_last.
 l_matnr_last = l_matnr.
 perform add_matnr_line using ls_zsd_billinfo
 l_matnr_key
 changing l_matnr_key.
 endif.
 perform add_complete_line using ls_zsd_billinfo
 l_matnr_key
 changing l_last_key.
ENDLOOP.
ENDFORM. " create_hierarchy
*& Form add_month
*& Form add_ebeln
FORM ADD_BZIRK USING P_BZIRK TYPE C
 P_RELAT_KEY TYPE LVC_NKEY
 CHANGING P_NODE_KEY TYPE LVC_NKEY.
DATA: L_NODE_TEXT TYPE LVC_VALUE,
 LS_ZSD_BILLINFO TYPE ZSD_BILLINFO,
 L_BZIRK(12) TYPE C. "output string for month
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = P_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 I_NODE_TEXT = L_NODE_TEXT
 IS_OUTTAB_LINE = LS_ZSD_BILLINFO
 IMPORTING
 E_NEW_NODE_KEY = P_NODE_KEY.
ENDFORM. " add_month
FORM ADD_WERKS_LINE USING PS_ZSD_BILLINFO TYPE ZSD_BILLINFO
 P_RELAT_KEY TYPE LVC_NKEY
 CHANGING P_NODE_KEY TYPE LVC_NKEY.
DATA: L_NODE_TEXT TYPE LVC_VALUE,
 LS_ZSD_BILLINFO TYPE ZSD_BILLINFO.
L_NODE_TEXT = PS_ZSD_BILLINFO-WERKS.
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = P_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 I_NODE_TEXT = L_NODE_TEXT
 IS_OUTTAB_LINE = LS_ZSD_BILLINFO
 IMPORTING
 E_NEW_NODE_KEY = P_NODE_KEY.
ENDFORM. " add_carrid_line
FORM ADD_MATNR_LINE USING PS_ZSD_BILLINFO TYPE ZSD_BILLINFO
 P_RELAT_KEY TYPE LVC_NKEY
 CHANGING P_NODE_KEY TYPE LVC_NKEY.
DATA: L_NODE_TEXT TYPE LVC_VALUE,
 LS_ZSD_BILLINFO TYPE ZSD_BILLINFO.
L_NODE_TEXT = PS_ZSD_BILLINFO-MATNR.
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = P_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 I_NODE_TEXT = L_NODE_TEXT
 IS_OUTTAB_LINE = LS_ZSD_BILLINFO
 IMPORTING
 E_NEW_NODE_KEY = P_NODE_KEY.
ENDFORM. " add_carrid_line
**& Form add_complete_line
FORM ADD_COMPLETE_LINE USING PS_ZSD_BILLINFO TYPE ZSD_BILLINFO
 P_RELAT_KEY TYPE LVC_NKEY
 CHANGING P_NODE_KEY TYPE LVC_NKEY.
DATA: L_NODE_TEXT TYPE LVC_VALUE.
WRITE PS_ZSD_BILLINFO-BZIRK TO L_NODE_TEXT.
CALL METHOD G_ALV_TREE->ADD_NODE
 EXPORTING
 I_RELAT_NODE_KEY = P_RELAT_KEY
 I_RELATIONSHIP = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
 IS_OUTTAB_LINE = PS_ZSD_BILLINFO
 I_NODE_TEXT = L_NODE_TEXT
 IMPORTING
 E_NEW_NODE_KEY = P_NODE_KEY.
ENDFORM. " add_complete_line
*& Form zf_create_fieldcat
 text
FORM ZF_CREATE_FIELDCAT.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'FKIMG'.
LS_FIELDCAT-REF_TABLE = 'zsd_billinfo'.
LS_FIELDCAT-NO_OUT = 'X'.
LS_FIELDCAT-KEY = ''.
APPEND LS_FIELDCAT TO GT_FIELDCAT_LVC.
ENDFORM. " ZF_CREATE_FIELDCAT
=================================================
Kindly look into the code and guide me the solution.
TIA.
Regards,
Mark K

hi
good
i tried your ALV report but it is giving some error due to some ztable you have used in your progam,
you can go to se38 and give there BCALV* and press f4, you ll find lots of ALV example related to OOP concept, you can test them and use them as per your requirement.
thnaks
mrutyun^

F4 Help needed in ALV report

Hi Gurus,
I have create one report which should monitor the batch jobs.
I some small requirements in that report. Can one can help in updating my code.
Reuirements:
Last run date and time should allow only one entry and these should be placed in one line as shown in the requirements.
· F4 on Job status should show the description also.
· F4 on user name should give user details. It should be similar to the f4 in transaction SU01D
· Donu2019t show the entire log on the report. Show only 1 line per job with similar to what is shown in the SM37 report. Job Name, Start Date, Start Time, Job Created By, Sppol, Status, Duration. User can double click on it to see job log or spool list.
below is the report. Please help me out
REPORT ZJOB_MONITORING.
T A B L E S
TABLES: tbtco.
T Y P E - S P O O L S
TYPE-POOLS: slis.
T Y P E D E C L A R A T I O N S
*TYPES: BEGIN OF type_tbtco,
 include TYPE tbtco,
 END OF type_tbtco.
TYPES: BEGIN OF type_output,
 STRTTIME TYPE tbtco-STRTTIME,
 strtdate TYPE tbtco-strtdate,
 jobname TYPE tbtco-jobname,
 line TYPE string,
 END OF type_output.
S T R U C T U R E S
DATA: s_tbtco TYPE tbtco,
 s_joblog TYPE zsbb_uc4_joblog,
 s_output TYPE type_output.
I N T E R N A L T A B L E S
DATA: i_tbtco TYPE STANDARD TABLE OF tbtco,
 i_joblog TYPE STANDARD TABLE OF zsbb_uc4_joblog,
 i_output TYPE STANDARD TABLE OF type_output.
DATA: Begin of itab_jobname OCCURS 0,
 jobname type tbtco-jobname,
 end of itab_jobname.
DATA: Begin of itab_user OCCURS 0,
 jobname type tbtco-sdluname,
 end of itab_user.
DATA: Begin of itab_stat OCCURS 0,
 jobname type tbtco-status,
 end of itab_stat.
DATA: Begin of itab_uzeit occurs 0,
 uzeit type sy-uzeit,
 end of itab_uzeit.
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
DATA : t_fieldcat TYPE slis_t_fieldcat_alv.
S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_strtda FOR sy-datum,
 s_lstrun FOR sy-uzeit OBLIGATORY,
 s_jobnam FOR tbtco-jobname,
 s_user FOR tbtco-sdluname,
 s_status FOR tbtco-status.
PARAMETERS: p_email AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK bl1.
" AT SELECTION-SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_JOBNAM-LOW.
PERFORM f4_JOBNAM-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_JOBNAM-HIGH.
PERFORM f4_JOBNAM-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_user-low.
PERFORM f4_USER-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_user-high.
PERFORM f4_USER-HIGH.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_status-low.
PERFORM f4_STATUS-LOW.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_status-high.
PERFORM f4_STATUS-HIGH.
S T A R T O F S E L E C T I O N
START-OF-SELECTION.
PERFORM select_data.
If email is checked.
Send the output table as an email attachment to the distribution list.
Get the email list from the config table. " ask from where to get it
IF p_email = 'X'.
Call FM 'SO_OBJECT_SEND'.
Fill the fields which are not commented accordingly.
CALL FUNCTION 'SO_OBJECT_SEND'
 EXPORTING
 OBJECT_HD_CHANGE = OBJECT_HD_CHANGE
 OBJECT_TYPE = 'RAW'
 OWNER = SY-UNAME
 TABLES
 OBJCONT = TEXT
 OBJPARA = OBJPARA
 RECEIVERS = RECEIVERS
 EXCEPTIONS
 OTHERS = 01.
IF SY-SUBRC NE 0.
 RAISE ERROR.
ENDIF.
ENDIF.
Prepare the ALV Report.
PERFORM alv_grid_display.
*& Form alv_grid_display
 text
FORM alv_grid_display .
alv required data objects.
DATA: w_repid TYPE syrepid,
 x_layout TYPE slis_layout_alv,
 t_event TYPE slis_t_event,
 t_fieldcat TYPE slis_t_fieldcat_alv,
 w_title TYPE lvc_title,
 w_print TYPE slis_print_alv,
 w_comm TYPE slis_formname,
 flag TYPE c VALUE 'N'.
REFRESH t_fieldcat.
REFRESH t_event.
CLEAR x_layout.
CLEAR w_title.
Field Catalog
PERFORM set_fieldcat2 USING:
 1 'strttime' 'BTCXTIME' space t_fieldcat ,
 2 'jobname' 'BTCJOB' space t_fieldcat ,
 3 'line' space 'Job Log' t_fieldcat .
*PERFORM set_fieldcat2 USING:
 1 'strttime' 'BTCXTIME' space 'I_OUTPUT' t_fieldcat ,
 2 'jobname' 'BTCJOB' space 'I_OUTPUT' t_fieldcat ,
 3 'line' space 'Job Log' 'I_OUTPUT' t_fieldcat .
PERFORM set_fieldcat.
Layout
x_layout-zebra = 'X'.
x_layout-colwidth_optimize = 'X'.
GUI Status
w_repid = sy-repid .
Top of page heading
PERFORM set_top_page_heading USING t_heading t_event flag.
call the FM 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = w_repid
 is_layout = x_layout
 it_fieldcat = t_fieldcat
 IT_SORT =
 i_save = 'X'
 it_events = t_event
 TABLES
 t_outtab = i_output
 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. " alv_grid_display
*& Form set_top_page_heading
 text
FORM set_top_page_heading USING
 t_heading TYPE slis_t_listheader
 t_events TYPE slis_t_event
 flag TYPE c.
DATA: x_heading TYPE slis_listheader,
 x_event TYPE LINE OF slis_t_event.
Report title
CLEAR t_heading[].
CLEAR x_heading.
x_heading-typ = 'H'.
x_heading-info = 'Job Details'(002).
APPEND x_heading TO t_heading.
Name of the report program
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Report ID:'.
x_heading-info = sy-repid.
APPEND x_heading TO t_heading.
User who is running the report
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-key = 'User: '.
x_heading-info = sy-uname.
APPEND x_heading TO t_heading.
Date of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Date: '.
WRITE sy-datum TO x_heading-info.
APPEND x_heading TO t_heading.
Time of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Time: '.
WRITE sy-uzeit TO x_heading-info.
APPEND x_heading TO t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
APPEND x_event TO t_events.
ENDFORM. " set_top_page_heading
*& Form set_fieldcat2
 text
FORM set_fieldcat2 USING
 p_colpos p_fieldname p_ref_fieldname
 p_seltext_m
 p_tabname
 t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
the ref_fieldname given is a data element.
IF NOT p_ref_fieldname IS INITIAL.
 wa_fieldcat-rollname = p_ref_fieldname.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
wa_fieldcat-tabname = 'I_OUTPUT'.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. " set_fieldcat2
*& Form F4_JOBNAM-LOW
 text
--> p1 text
<-- p2 text
FORM F4_JOBNAM-LOW .
SELECT jobname FROM tbtco
 INTO TABLE itab_jobname.
DELETE ADJACENT DUPLICATES FROM itab_jobname.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'jobname'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_jobnam-low'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
 VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_jobname
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_JOBNAM-LOW
*& Form F4_JOBNAM-HIGH
 text
--> p1 text
<-- p2 text
FORM F4_JOBNAM-HIGH .
SELECT jobname FROM tbtco
 INTO TABLE itab_jobname.
DELETE ADJACENT DUPLICATES FROM itab_jobname.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'jobname'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_jobnam-high'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
 VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_jobname
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_JOBNAM-HIGH
*& Form F4_USER-LOW
 text
--> p1 text
<-- p2 text
FORM F4_USER-LOW .
SELECT sdluname FROM tbtco
 INTO TABLE itab_user.
DELETE ADJACENT DUPLICATES FROM itab_user.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'user'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_user-low'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
 VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_user
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_USER-LOW
*& Form F4_USER-HIGH
 text
--> p1 text
<-- p2 text
FORM F4_USER-HIGH .
SELECT sdluname FROM tbtco
 INTO TABLE itab_user.
DELETE ADJACENT DUPLICATES FROM itab_user.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'user'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_user-high'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
 VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_user
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_USER-HIGH
*& Form F4_STATUS-LOW
 text
--> p1 text
<-- p2 text
FORM F4_STATUS-LOW .
SELECT status FROM tbtco
 INTO TABLE itab_stat.
DELETE ADJACENT DUPLICATES FROM itab_stat.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'status'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_status-low'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
 VALUE_ORG = 'S'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_stat
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_STATUS-LOW
*& Form F4_STATUS-HIGH
 text
--> p1 text
<-- p2 text
FORM F4_STATUS-HIGH .
SELECT status FROM tbtco
 INTO TABLE itab_stat.
DELETE ADJACENT DUPLICATES FROM itab_stat.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 exporting
DDIC_STRUCTURE = ' '
 retfield = 'status'
PVALKEY = ' '
 DYNPPROG = 'sy-repid'
 DYNPNR = '1000'
 DYNPROFIELD = 's_status-high'
STEPL = 0
WINDOW_TITLE =
VALUE = ' '
VALUE_ORG = 'C'
MULTIPLE_CHOICE = ' '
DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
 tables
 value_tab = itab_stat
FIELD_TAB =
RETURN_TAB =
DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 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.
ENDFORM. " F4_STATUS-HIGH
*& Form SELECT_DATA
 text
--> p1 text
<-- p2 text
FORM SELECT_DATA .
select the entries from the table TBTCO
as per the selection screen
SELECT * FROM tbtco
 INTO TABLE i_tbtco
 WHERE STRTTIME IN s_lstrun AND
 strtdate IN s_strtda AND
 jobname IN s_jobnam AND
 sdluname IN s_user AND
 status IN s_status.
Get the job details for the above jobs.
LOOP AT i_tbtco INTO s_tbtco.
 CALL FUNCTION 'ZSBB_UC4_JOB_READ_LOG'
 EXPORTING
 client = sy-mandt
 jobcount = s_tbtco-jobcount
 joblog = s_tbtco-joblog
 jobname = s_tbtco-jobname
 TABLES
 joblog_tab = i_joblog
 EXCEPTIONS
 cant_read_joblog = 1
 jobcount_missing = 2
 joblog_does_not_exist = 3
 joblog_is_empty = 4
 joblog_name_missing = 5
 jobname_missing = 6
 job_does_not_exist = 7
 OTHERS = 8.
Write the Error handling as needed.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ELSE.
Append entries to main table.
 s_output-STRTTIME = s_tbtco-STRTTIME.
 s_output-jobname = s_tbtco-jobname.
 LOOP AT i_joblog INTO s_joblog.
 s_output-line = s_joblog-text.
 APPEND s_output TO i_output.
 CLEAR s_output.
 ENDLOOP.
 ENDIF.
ENDLOOP.
ENDFORM. " SELECT_DATA
*& Form SET_FIELDCAT
 text
--> p1 text
<-- p2 text
form SET_FIELDCAT .
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'STRTTIME'.
wa_fieldcat-seltext_m = 'Start Time'.
wa_fieldcat-tabname = 'I_OUTPUT'.
wa_fieldcat-reptext = p_reptext.
APPEND wa_fieldcat to t_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'JOBNAME'.
wa_fieldcat-seltext_m = 'Job Name'.
wa_fieldcat-tabname = 'I_OUTPUT'.
wa_fieldcat-reptext = p_reptext.
APPEND wa_fieldcat to t_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'LINE'.
wa_fieldcat-seltext_m = 'Job Log'.
wa_fieldcat-tabname = 'I_OUTPUT'.
APPEND wa_fieldcat to t_fieldcat.
endform. " SET_FIELDCAT

solved

Help needed regarding ALV report

Hi,
I have a query regarding ALV report.
The requirement is as follows:-
When the user executes the ALV report and if he sums one numeric field column values and filters out some of the field columns ( for example there r 5 columns in the report and the user has filtered out 2 of them and viewing only 3 columns)
and now the requirements is that when the user runs the report later he should see the modified report ( i mean only 3 cloumns and the total value of the column which he has made) but not the original output which was there when the report was developed.
First of all i wanna know is it possible to do r not. If yes then how
Hope u have got what i want.
eagerly waiting for ur reply.
regards,
maqsood

Hi
Yes you can! You have to manage the layout variant.
So when you call your ALV you have to set the parameter I_SAVE = 'A'.
In this way you'll allow the user to save the variants for layout.
After you has to have a chance to choose the variant in selection-screen.
See the demo program BCALV_GRID_11 to manage the variant in selection-screen.
Max

Help needed for ALV report

Hi,
i need to add coloums for the existing report which picks from G/L account.
in this report I need to add some more columns from COSP-KSTAR, which shows the cost element details from G/L account.
I need to restrict that cost element number according to the company code.
Plz see this and let me know the things.
1. I need to add FISCAL YEAR(COEP-GJAHR) in selection screen.
2. I need to add column: Employee Cost (CSKS-KOSTL)
3. add a column Staff Welfare (COSP-KSTAR) this is to restrict for the cost element 3000200 from G/L account
4. add a column Recruitment restrict for the cost element(COSP-KSTAR) 3100040 from G/L account
5. add a column Travels (suppressing some cost elements(COSP-KSTAR) and putting into Travels)
6. add a column Subcontracts restrict for the cost element (COSP-KSTAR)3100360 from G/L account
7. add a column Communication suppressing some cost elements and putting into Communication)
8. add a column Rent restrict for the cost element (COSP-KSTAR)3100055 from G/L account
9. add a column Back end Cost restrict for the cost element (COSP-KSTAR)3100065 from G/L account
i can hardcode these cost elements.
i did according to some of our sdn friends guidence but it is going to dump.
hear i am sending the code what i changed.
it is giving the error with the select.
SELECT BUKRS KOKRS gjahr kstar OBJNR OBJNR_N1 PERIO BEKNZ WKGBTR WOGBTR FROM
COEP INTO TABLE
IT_COEP FOR ALL ENTRIES IN IT_AUFK WHERE OBJNR = IT_AUFK-OBJNR and
perio in S_PERIO.
plz try to help me out in this issue.
hear i am sending the complete code what i worte.
*& Report ZPROJECT_PROFIT2
REPORT ZPROJECT_PROFIT2.
*********************MAIN DOCUMENTATION BLOCK*************************
Project Code :
Program Name :Zproject_profit1.
Purpose of program :This report will give the gross margin for a project as
*a whole based on some selected input criteria.
Author of program :JAYA KRISHNA .B.
INPUT/OUTPUT FILE :nil
TYPE-POOLS : SLIS."For ALV display.
TABLES : COEP, "CO Object: Line Items (by period).
 AUFK, "Order master data.
 csks, "Cost center master data
 cosp. "CO Objects
*& Include ZSTRUCTURE
types: BEGIN OF TY_COEP , "structure of table COEP.
 BUKRS LIKE COEP-BUKRS,
 KOKRS LIKE COEP-KOKRS,
 OBJNR LIKE COEP-OBJNR,
 gjahr like coep-gjahr,
 kstar like coep-kstar,
 OBJNR_N1 LIKE COEP-OBJNR_N1,
 PERIO LIKE COEP-PERIO,
 BEKNZ LIKE COEP-BEKNZ,
 WKGBTR LIKE COEP-WKGBTR,
 WOGBTR LIKE COEP-WOGBTR,
 BELNR LIKE COEP-BELNR,
 END OF TY_COEP,
 BEGIN OF TY_AUFK , "structure of table AUFK.
 BUKRS LIKE AUFK-BUKRS,
 KOKRS LIKE AUFK-KOKRS,
 OBJNR LIKE AUFK-OBJNR,
 KTEXT LIKE AUFK-KTEXT,
 ANFAUFNR LIKE AUFK-ANFAUFNR,
 AUFEX LIKE AUFK-AUFEX,
 USER2 LIKE AUFK-USER2,
 USER0 LIKE AUFK-USER0,
 USER1 LIKE AUFK-USER1,
 USER3 LIKE AUFK-USER3,
 USER6 LIKE AUFK-USER6,
 USER7 LIKE AUFK-USER7,
 USER8 LIKE AUFK-USER8,
 ABKRS(10) TYPE C,
 USER9 LIKE AUFK-USER9,
 AUFNR LIKE AUFK-AUFNR,
 END OF TY_AUFK,
 begin of ty_csks,
 kokrs like csks-kokrs,
 kostl like csks-kostl,
 bukrs like csks-bukrs,
 objnr like csks-objnr,
 end of ty_csks.
DATA : BEGIN OF IT_COSP occurs 100,
 OBJNR LIKE COSP-OBJNR,
 GJAHR LIKE COSP-GJAHR,
 KSTAR LIKE COSP-KSTAR,
 END OF IT_COSP.
DATA : IT_COEP TYPE TABLE OF TY_COEP, " Declaraton of tables COEP and AUFK.
 IT_AUFK TYPE TABLE OF TY_AUFK,
 IT_CSKS TYPE TABLE OF TY_CSKS.
 IT_COSP TYPE TABLE OF TY_COSP.
DATA : WA_COEP LIKE LINE OF IT_COEP, " Declaration of work areas for tables COEP and AUFK.
 WA_AUFK LIKE LINE OF IT_AUFK,
 WA_CSKS LIKE LINE OF IT_CSKS.
 WA_COSP LIKE LINE OF IT_COSP.
DATA : BEGIN OF IT_DISPLAY OCCURS 0, " Declaration of display table.
 OBJNR_N1 LIKE COEP-OBJNR_N1,
 OBJNR_N12 LIKE COEP-OBJNR_N1,
 KTEXT1 LIKE AUFK-KTEXT,
 WKGBTR LIKE COEP-WKGBTR,
 WOGBTR LIKE COEP-WOGBTR,
 WKGBTR1 LIKE COEP-WTGBTR,
 WOGBTR1 LIKE COEP-WOGBTR,
 ADDK LIKE COEP-WOGBTR,
 ADDO LIKE COEP-WOGBTR,
 ADDK1 LIKE COEP-WOGBTR,
 ADDO1 LIKE COEP-WOGBTR,
 PROFIT1 LIKE COEP-WOGBTR,
 PROFIT2 LIKE COEP-WOGBTR,
 BEKNZ LIKE COEP-BEKNZ,
 BUKRS LIKE AUFK-BUKRS,
 anfaufnr LIKE AUFK-anfaufnr,
 aufex like aufk-aufex,
 OBJNR LIKE AUFK-OBJNR,
 USER2 LIKE AUFK-USER2,
 USER0 LIKE AUFK-USER0,
 USER1 LIKE AUFK-USER1,
 USER3 LIKE AUFK-USER3,
 USER6 LIKE AUFK-USER6,
 USER7 LIKE AUFK-USER7,
 USER8 LIKE AUFK-USER8,
 ABKRS LIKE AUFK-ABKRS,
 USER9 LIKE AUFK-USER9,
 PERIO LIKE COEP-PERIO,
 AUFNR LIKE AUFK-AUFNR,
 STR(5) TYPE C,
 WORK(10) TYPE C,
 END OF IT_DISPLAY,
: BEGIN OF IT_DISPLAY1 OCCURS 0, " Declaration of second display table.
 OBJNR_N1 LIKE COEP-OBJNR_N1,
 OBJNR_N12 LIKE COEP-OBJNR_N1,
 KTEXT1 LIKE AUFK-KTEXT,
 WKGBTR LIKE COEP-WKGBTR,
 WOGBTR LIKE COEP-WOGBTR,
 WKGBTR1 LIKE COEP-WTGBTR,
 WOGBTR1 LIKE COEP-WOGBTR,
 ADDK LIKE COEP-WOGBTR,
 ADDO LIKE COEP-WOGBTR,
 ADDK1 LIKE COEP-WOGBTR,
 ADDO1 LIKE COEP-WOGBTR,
 PROFIT1 LIKE COEP-WOGBTR,
 PROFIT2 LIKE COEP-WOGBTR,
 BEKNZ LIKE COEP-BEKNZ,
 BUKRS LIKE AUFK-BUKRS,
 anfaufnr like aufk-anfaufnr,
 aufex like aufk-aufex,
 OBJNR LIKE AUFK-OBJNR,
 USER2 LIKE AUFK-USER2,
 USER0 LIKE AUFK-USER0,
 USER1 LIKE AUFK-USER1,
 USER3 LIKE AUFK-USER3,
 USER6 LIKE AUFK-USER6,
 USER7 LIKE AUFK-USER7,
 USER8 LIKE AUFK-USER8,
 ABKRS LIKE AUFK-ABKRS,
 USER9 LIKE AUFK-USER9,
 PERIO LIKE COEP-PERIO,
 AUFNR LIKE AUFK-AUFNR,
 STR(5) TYPE C,
 WORK(10) TYPE C,
 END OF IT_DISPLAY1.
data : it_field type slis_fieldcat_alv, " Declaration of ALV variables
 it_field_t type slis_t_fieldcat_alv,
 xlayout TYPE slis_layout_alv.
data : it_event type slis_t_event,
 wa_event like line of it_event.
DATA : WA_TOP TYPE SLIS_LISTHEADER,
 IT_TOP TYPE SLIS_T_LISTHEADER.
data:w_lines type i,
 w_occurs type i,
 STR(5) TYPE C,
 WORK(10) TYPE C.
 constants : c_selection type char20 value 'Selection based on'. " Declaration of a constant.
selection-screen BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS S_BUKRS FOR AUFK-BUKRS OBLIGATORY.
SELECT-OPTIONS S_OBJNR FOR AUFK-AUFNR.
SELECT-OPTIONS S_ANF FOR AUFK-ANFAUFNR.
SELECT-OPTIONS S_AUFEX FOR AUFK-AUFEX.
SELECT-OPTIONS S_USER2 FOR AUFK-USER2.
SELECT-OPTIONS S_USER0 FOR AUFK-USER0.
SELECT-OPTIONS S_USER1 FOR AUFK-USER1.
SELECT-OPTIONS S_USER3 FOR AUFK-USER3.
SELECT-OPTIONS S_USER6 FOR AUFK-USER6.
SELECT-OPTIONS S_ABKRS FOR AUFK-ABKRS.
SELECT-options s_gjahr for coep-gjahr obligatory.
SELECT-OPTIONS S_PERIO FOR COEP-PERIO OBLIGATORY.
SELECTION-SCREEN END OF BLOCK BLK .
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETERS : ONSITE RADIOBUTTON GROUP RADI.
PARAMETERS : OFFSHORE RADIOBUTTON GROUP RADI.
PARAMETERS : BOTH RADIOBUTTON GROUP RADI.
SELECTION-SCREEN END OF BLOCK BLK1 .
start-of-selection.
*ZAUFK
 " Selection of records from aufk to internal table.
IF ONSITE EQ 'X' .
SELECT
BUKRS
KOKRS
OBJNR
KTEXT
anfaufnr
aufex
USER2
USER0
USER1
USER3
USER6
USER7
USER8
ABKRS
USER9
AUFNR
FROM AUFK INTO TABLE IT_AUFK WHERE BUKRS IN S_BUKRS AND
anfaufnr IN s_anf AND
aufex in s_aufex and
aufnr IN S_OBJNR AND
USER2 IN S_USER2 AND
USER0 IN S_USER0 AND
USER1 IN S_USER1 AND
USER3 IN S_USER3 AND
USER6 IN S_USER6 AND
ABKRS IN S_ABKRS AND
USER9 EQ 'X' .
ENDIF.
IF OFFSHORE EQ 'X'.
SELECT
BUKRS
KOKRS
OBJNR
KTEXT
anfaufnr
aufex
USER2
USER0
USER1
USER3
USER6
USER7
USER8
ABKRS
USER9
AUFNR
FROM AUFK INTO TABLE IT_AUFK WHERE BUKRS IN S_BUKRS AND
anfaufnr IN S_anf AND
aufex in s_aufex and
aufnR IN S_OBJNR AND
USER2 IN S_USER2 AND
USER0 IN S_USER0 AND
USER1 IN S_USER1 AND
USER3 IN S_USER3 AND
USER6 IN S_USER6 AND
ABKRS IN S_ABKRS AND
USER9 <> 'X'.
ENDIF.
IF BOTH EQ 'X'.
SELECT
BUKRS
KOKRS
OBJNR
KTEXT
anfaufnr
aufex
USER2
USER0
USER1
USER3
USER6
USER7
USER8
ABKRS
USER9
AUFNR
FROM AUFK INTO TABLE IT_AUFK WHERE BUKRS IN S_BUKRS AND
anfaufnr IN S_anf AND
aufex in s_aufex and
aufNR IN S_OBJNR AND
USER2 IN S_USER2 AND
USER0 IN S_USER0 AND
USER1 IN S_USER1 AND
USER3 IN S_USER3 AND
USER6 IN S_USER6 AND
ABKRS IN S_ABKRS.
ENDIF.
*& Include ZCOEP
 " Selection of records from coep to internal table.
SELECT BUKRS KOKRS gjahr kstar OBJNR OBJNR_N1 PERIO BEKNZ WKGBTR WOGBTR FROM
COEP INTO TABLE
IT_COEP FOR ALL ENTRIES IN IT_AUFK WHERE OBJNR = IT_AUFK-OBJNR and
perio in S_PERIO.
*& Include ZPROFIT_CALC
 " Calculations for income and Profit of the employee.
if not it_coep[] is initial.
 select objnr gjahr wrttp versn kstar from cosp into TABLE It_cosp for
all entries in it_coep where objnr = IT_COEP-objnr .
endif.
LOOP AT IT_coep INTO WA_coep.
 read table IT_aufk into WA_aufk with key OBJNR = wa_coep-OBJNR.
case it_cosp-kstar.
when '3000200'.
it_cosp-kstar = cosp-kstar.
when '3100040'.
it_cosp-kstar = cosp-kstar.
when '3100360'.
it_cosp-kstar = cosp-kstar.
when '3100055'.
it_cosp-kstar = cosp-kstar.
when '3100065'.
it_cosp-kstar = cosp-kstar.
when '3100115'.
it_cosp-kstar = cosp-kstar.
when '3100120'.
it_cosp-kstar = cosp-kstar.
when '3100130'.
it_cosp-kstar = cosp-kstar.
when '3100135'.
it_cosp-kstar = cosp-kstar.
when '3100140'.
it_cosp-kstar = cosp-kstar.
when '3100145'.
it_cosp-kstar = cosp-kstar.
when '3100150'.
it_cosp-kstar = cosp-kstar.
when '3100155'.
it_cosp-kstar = cosp-kstar.
when '3100160'.
it_cosp-kstar = cosp-kstar.
when '3100165'.
it_cosp-kstar = cosp-kstar.
when '3100170'.
it_cosp-kstar = cosp-kstar.
endcase.
 IT_DISPLAY-BUKRS = WA_AUFK-BUKRS.
 IT_DISPLAY-anfaufnr = WA_AUFK-anfaufnr.
 it_display-aufex = wa_aufk-aufex.
 IT_DISPLAY-OBJNR = WA_AUFK-OBJNR.
 IT_DISPLAY-USER2 = WA_AUFK-USER2.
 IT_DISPLAY-USER0 = WA_AUFK-USER0.
 IT_DISPLAY-USER1 = WA_AUFK-USER1.
 IT_DISPLAY-USER3 = WA_AUFK-USER3.
 IT_DISPLAY-USER6 = WA_AUFK-USER6.
 IT_DISPLAY-USER7 = WA_AUFK-USER7.
 IT_DISPLAY-USER8 = WA_AUFK-USER8.
 IT_DISPLAY-ABKRS = WA_AUFK-ABKRS.
 IT_DISPLAY-USER9 = WA_AUFK-USER9.
 IT_DISPLAY-KTEXT1 = WA_AUFK-KTEXT.
 if WA_AUFK-abkrs = 01.
 IT_DISPLAY-STR = 'TM'.
 ENDIF.
 IF WA_AUFK-ABKRS = 02.
 IT_DISPLAY-STR = 'FP'.
 ENDIF.
 IF WA_AUFK-USER9 = 'X'.
 IT_DISPLAY-WORK = 'ONSITE'.
 ENDIF.
 IF WA_AUFK-USER9 <> 'X'.
 IT_DISPLAY-WORK = 'OFFSHORE'.
 ENDIF.
 it_display-ABKRS = it_display-user7.
 IF wa_coep-BEKNZ = 'S'.
 IT_DISPLAY-WKGBTR = WA_COEP-WKGBTR.
 IT_DISPLAY-WOGBTR = WA_COEP-WOGBTR.
 IT_DISPLAY-ADDK = IT_DISPLAY-ADDK + IT_DISPLAY-WKGBTR.
 IT_DISPLAY-ADDO = IT_DISPLAY-ADDO + IT_DISPLAY-WOGBTR.
 IT_DISPLAY-ADDK1 = 0.
 IT_DISPLAY-ADDO1 = 0.
 IT_DISPLAY-PROFIT1 = IT_DISPLAY-ADDK1 + IT_DISPLAY-ADDK.
 IT_DISPLAY-PROFIT2 = IT_DISPLAY-ADDO1 + IT_DISPLAY-ADDO.
 APPEND IT_DISPLAY.
 ENDIF.
 IF WA_COEP-BEKNZ = 'H'.
 IT_DISPLAY-WKGBTR1 = WA_COEP-WKGBTR.
 IT_DISPLAY-WOGBTR1 = WA_COEP-WOGBTR.
 IT_DISPLAY-ADDK1 = IT_DISPLAY-ADDK + IT_DISPLAY-WKGBTR1.
 IT_DISPLAY-ADDO1 = IT_DISPLAY-ADDO + IT_DISPLAY-WOGBTR1.
 IT_DISPLAY-ADDK = 0.
 IT_DISPLAY-ADDO = 0.
 IT_DISPLAY-PROFIT1 = IT_DISPLAY-ADDK1 + IT_DISPLAY-ADDK.
 IT_DISPLAY-PROFIT2 = IT_DISPLAY-ADDO1 + IT_DISPLAY-ADDO.
 APPEND IT_DISPLAY.
 ENDIF.
 collect it_display into it_display1.
 clear it_display.
ENDLOOP.
 "calc
*& Include ZPROFIT_DISPLAY
LOOP AT IT_DISPLAY1. "it_display.
 read table IT_COEP into WA_COEP with key OBJNR =
 IT_DISPLAY-OBJNR.
 read table IT_AUFK into WA_AUFK with key aufnr = IT_DISPLAY-aufnr.
 if WA_AUFK-abkrs = 01.
 STR = 'TM'.
 ENDIF.
 IF WA_AUFK-ABKRS = 02.
 STR = 'FP'.
 ENDIF.
 IF WA_AUFK-USER9 = 'X'.
 WORK = 'ONSITE'.
 ENDIF.
 IF WA_AUFK-USER9 <> 'X'.
 WORK = 'OFFSHORE'.
 ENDIF.
endloop.
clear it_field.
it_field-col_pos = 1.
it_field-fieldname = 'AUFNR'.
it_field-seltext_l = 'project id.'.
it_field-outputlen = 15.
append it_field to it_field_t.
CLEAR it_field.
clear it_field.
it_field-col_pos = 2.
it_field-fieldname = 'KTEXT1'.
it_field-seltext_l = 'Project Name'.
it_field-outputlen = 20.
append it_field to it_field_t.
CLEAR it_field.
clear it_field.
it_field-col_pos = 3.
it_field-fieldname = 'USER7'.
it_field-seltext_l = 'Start Date'.
it_field-do_sum = 'X'.
it_field-outputlen = 20.
append it_field to it_field_t.
CLEAR it_field.
clear it_field.
it_field-col_pos = 4.
it_field-fieldname = 'USER8'.
it_field-seltext_l = 'End Date'.
it_field-do_sum = 'X'.
it_field-outputlen = 20.
append it_field to it_field_t.
CLEAR it_field.
clear it_field.
it_field-col_pos = 5.
it_field-fieldname = 'USER2'.
it_field-seltext_l = 'Location'.
it_field-do_sum = 'X'.
it_field-outputlen = 20.
append it_field to it_field_t.
CLEAR it_field.
clear it_field.
it_field-col_pos = 6.
it_field-fieldname = 'USER0'.
it_field-seltext_l = 'Vertical'.
it_field-do_sum = 'X'.
it_field-outputlen = 20.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 7.
it_field-fieldname = 'USER1'.
it_field-seltext_l = 'Sub_vertical'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 8.
it_field-fieldname = 'USER3'.
it_field-seltext_l = 'Technology'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 9.
it_field-fieldname = 'USER6'.
it_field-seltext_l = 'Department'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 10.
it_field-fieldname = 'WORK'.
it_field-seltext_l = 'Onsite/Offshore'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 11.
it_field-fieldname = 'STR'.
it_field-seltext_l = 'T&M/FP'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 12.
it_field-fieldname = 'KOSTL'.
it_field-seltext_l = 'EMP COST'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 13.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'STAFF WELFARE'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 14.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'RECRUITMENT'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 15.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'TRAVELS'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 16.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'SUBCONTRACT'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 17.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'COMMUNICATION'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 18.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'RENT'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 19.
it_field-fieldname = 'KSTAR'.
it_field-seltext_l = 'BACKEND COST (PROJECT EXP)'.
it_field-outputlen = 10.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 20.
it_field-fieldname = 'ADDO'.
it_field-seltext_l = 'Direct costs'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 21.
it_field-fieldname = 'ADDO1'.
it_field-seltext_l = 'Income'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 22.
it_field-fieldname = 'PROFIT2'.
it_field-seltext_l = 'Profit(income-costs)'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 23.
it_field-fieldname = 'ADDK'.
it_field-seltext_l = 'Direct costs(Grp cur)'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 24.
it_field-fieldname = 'ADDK1'.
it_field-seltext_l = 'Income(Grp Cur)'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
it_field-col_pos = 25.
it_field-fieldname = 'PROFIT1'.
it_field-seltext_l = 'Profit(income-costs)'.
it_field-outputlen = 20.
it_field-do_sum = 'X'.
append it_field to it_field_t.
CLEAR it_field.
xlayout-zebra = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = 'ZPROJECT_PROFIT1'
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE_PROFIT'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
 IS_LAYOUT = xlayout
 IT_FIELDCAT = it_field_t
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = IT_DISPLAY1
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.
clear it_field_t.
"it_display.
FORM USER_COMMAND using r_ucomm like sy-ucomm rs type slis_selfield.
include zinteractive_profit."Secondary list for calling KO03.
ENDFORM. "USER_COMMAND.
Thanks & Regards,
Lakshmi..

Hi,
i did according to ur suggession.
now it is going dump.
and it is telling like this.
2629 i_event_name = 'SUBTOTAL_TEXT'
2630 is_subtottxt_info = ls_subtot_info
2631 ip_subtot_line = lr_data
2632 changing
2633 c_subtottxt = l_subtottxt.
2634 ls_lvc_data-value = l_subtottxt.
2635
2636 append ls_lvc_data to ct_lvc_data.
2637 endif.
2638
2639 ************************************
2640 * Column per Fieldcat Entry
2641 ************************************
2642 clear ls_lvc_data-style.
2643 loop at it_fcat_local assigning <ls_fcat>
2644 where tech ne 'X' and no_out ne 'X'.
2645 if l_invisible eq 'X'.
2646 clear l_invisible.
2647 if <ls_fcat>-do_sum is initial.
2648 continue.
2649 else.
2650 clear ls_lvc_data-col_pos.
2651 endif.
2652 endif.
2653
2654 add 1 to ls_lvc_data-col_pos.
2655
2656 assign component <ls_fcat>-fieldname
2657 of structure <ls_data> to <l_field_val
2658 if sy-subrc ne 0.
>>>>> message x000(0k).
2660 endif.
2661
2662 *... work on average
2663 if <ls_fcat>-do_sum eq 'C'.
2664 clear l_entries.
2665
2666 assign space to <l_unit>.
2667 if not <ls_fcat>-cfieldname is initial.
2668 assign component <ls_fcat>-cfieldname
2669 of structure <ls_data> to <l_unit>.
2670 endif.
2671 if not <ls_fcat>-qfieldname is initial.
2672 assign component <ls_fcat>-qfieldname
2673 of structure <ls_data> to <l_unit>.
2674 endif.
2675
2676 l_from = ls_grpl-index_from.
2677 l_to = ls_grpl-index_to.
2678 if ls_grpl-index_from is initial and
plz any of u help me to come out with solution.
Thanks & Regards,
Lakshmi..

Help need on ALV Report Program

Hi all.....
im facing problem in the following code....it shows 'No records found' (as same as my coding generated)whenever i give wrong vendor no:(lifnr), but if i gives the correct one(as in table lfa1)...it shows Runtime error as "the occupied line length in the program text must not exceed the width of the internal table"..
pls verify...
just go thru my code and revert me the feedback of what i did wrong and pls i dont want any example codes from u guys since i've seen so much and couldnt solve it with that...
hope u understand......what i need
Rewards based on the above reuirements....only
*******************************CODING***********************************************
REPORT ZALV_MERGE.
TABLES:lfa1.
DATA:BEGIN OF itab OCCURS 100,
lifnr LIKE lfa1-lifnr,
land1 LIKE lfa1-land1,
name1 LIKE lfa1-name1,
ort01 LIKE lfa1-ort01,
regio LIKE lfa1-regio,
sortl LIKE lfa1-sortl,
END OF itab.
data: i_repid like sy-repid,
 i_tabix like sy-tabix.
TYPE-POOLS: slis.
DATA: fcat TYPE slis_t_fieldcat_alv.
SELECT-OPTIONS: LIFNR FOR LFA1-LIFNR.
SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE itab WHERE lifnr IN LIFNR.
clear i_tabix.
describe table itab lines i_tabix.
if i_tabix lt 1.
write:/ 'No materials found'.
exit.
endif.
i_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = i_repid
 I_INTERNAL_TABNAME = 'ITAB'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = I_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
 CT_FIELDCAT = fcat
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.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = i_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
 I_STRUCTURE_NAME = 'ITAB'
IS_LAYOUT =
 IT_FIELDCAT = fcat
 I_SAVE = 'A'
TABLES
 T_OUTTAB = ITAB
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.

Hi,
think inthis program in the function module REUSE_ALV_FIELDCATALOG_MERGE
in exporting parameter you are using -->
I_INTERNAL_TABNAME = <itab_name>
this <itab_name> is not like any physical structure .So make a structure through SE11 like <itab_name>.
u have to create a structure in SE11 with the fields, and then pass that structure into the REUSE_ALV_FIELDCATALOG_MERGE , in the parameter
I_internal_tabname = ' structure name '.
even though u create a structure, u need to pass it to the table parameter.
then it will work.
Otherwise manually build the fieldcatalog.
find the following code as an example.
DATA : l_pos TYPE i VALUE 1.
ist_fieldcat-fieldname = 'POSID'.
ist_fieldcat-tabname = 'IT_FINAL'.
ist_fieldcat-outputlen = 24.
ist_fieldcat-col_pos = l_pos.
ist_fieldcat-ddictxt = 'L'.
ist_fieldcat-key = 'X'.
ist_fieldcat-seltext_l = 'Appropriation Request Number'.
APPEND ist_fieldcat.
CLEAR ist_fieldcat.
l_pos = l_pos + 1.
ist_fieldcat-fieldname = 'TXT04'.
ist_fieldcat-tabname = 'IT_FINAL'.
ist_fieldcat-outputlen = 4.
ist_fieldcat-col_pos = l_pos.
ist_fieldcat-ddictxt = 'L'.
ist_fieldcat-key = 'X'.
ist_fieldcat-seltext_l = 'Status'.
ist_fieldcat-EMPHASIZE = 'C400'.
APPEND ist_fieldcat.
CLEAR ist_fieldcat.
l_pos = l_pos + 1.
ist_fieldcat-fieldname = 'UDATE'.
ist_fieldcat-tabname = 'IT_FINAL'.
ist_fieldcat-outputlen = 8.
ist_fieldcat-col_pos = l_pos.
ist_fieldcat-ddictxt = 'L'.
ist_fieldcat-key = 'X'.
ist_fieldcat-seltext_l = 'Status Date'.
IST_FIELDCAT-EMPHASIZE = 'C600'.
APPEND ist_fieldcat.
CLEAR ist_fieldcat.
Reward point if find helpful
Debjani

Help needed..ALV report

Hello,
I have a new requirement in a report. There would be two radio buttons on the selection-screen. One for Search Material plant wise and other to search material details only.
Depending on the choice of radio button different selection-screen blocks need to be called.
Can any one suggest a logic for this.
Helpful answers will be rewarded.
Regards,
Subodh

*This program executes the logic to hide the parameters on radio button clicking.
PARAMETERS : R1 RADIOBUTTON GROUP RG USER-COMMAND R DEFAULT 'X'.
PARAMETERS : R2 RADIOBUTTON GROUP RG .
PARAMETERS : R3 RADIOBUTTON GROUP RG .
selection-screen begin of block b1 with frame.
parameters : a(10) type c modif id abc.
parameters : b(10) type c modif id abc.
selection-screen end of block b1.
selection-screen begin of block b2 with frame.
parameters : c(40) type c modif id def.
parameters : d(20) type c modif id def.
selection-screen end of block b2.
selection-screen begin of block b3 with frame.
parameters : e(40) type c modif id ghi.
parameters : f(20) type c modif id ghi.
selection-screen end of block b3.
at selection-screen output.
IF R1 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'DEF' or screen-group1 = 'GHI' .
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF R2 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'ABC' or screen-group1 = 'GHI'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF R3 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'ABC' or screen-group1 = 'DEF'.
screen-active = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
Br,
Vij

Hot Spot in Hierarchial ALV REPORT

Hi
I am using Hierarchial Report.
I have to give hotspot to a field for VBELN in the header item.
When i click the vbeln value it has to take me to the transaction VA03, with the values.
but my vbeln value is not getting passed to this workarea.
Please explain about my error.
SET PARAMETER ID 'AUN' FIELD wa_headerdata-vbeln.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

Refer the following code:
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = lv_repid
*      I_CALLBACK_PF_STATUS_SET = ' '
      I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
      is_layout                = gs_layout
      it_fieldcat              = gt_fieldcat
*      IT_EXCLUDING             =
*      IT_SPECIAL_GROUPS        = GT_SP_GROUP
      it_sort                  = gt_sort
*       FORM USER_COMMAND                                          *
*       --> R_UCOMM                                                *
*       --> RS_SELFIELD                                            *
FORM user_command USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
* Check function code
CASE r_ucomm.
    WHEN '&IC1'.
*   Check field clicked on within ALVgrid report
    IF rs_selfield-fieldname = 'EBELN'.
*     Read data table, using index of row user clicked on
      READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
*     Set parameter ID for transaction screen field
      SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
*     Sxecute transaction ME23N, and skip initial data entry screen
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
ENDCASE.
ENDFORM.

Need ALV report

Hi all,
I need an ALV report as soon as possible,
The requirement is as below, they have given only field names,
1) Output should be in ALV GRID & optimized performance.
2) Fields are,
Company code u2013 BKPF-BUKRS
Doc No - BKPF-BELNR
Fiscal year - BKPF-GJAHR
Doc type - BKPF-BLART
Doc date - BKPF-BLDAT
Posting date - BKPF-BUDAT
Line items - Total Of BSEG-BUZEI
 report should be sorted by BUKRS, BELNR.
 When double clicked on BELNR , it should open the F1 document in FB03.
He has given a hint like I need to create a inner join between BKPF & BSEG Tables by using the common keys like BELNR,BUKRS,BLART. And afterwards for repetation in the Doc No, It should add the no repeated items , that is nothing but line items ( BSEG-BUZEI).
Kindly help me on this.
Waiting for your response.

ravi,
u can not use inner jpoin on pool & cluster tables. BSEG is cluster.
To read this table try to use mazimum key fields otherwise u r program may caught in performance issue.
<removed_by_moderator>
Edited by: Julius Bussche on Jul 9, 2008 2:18 PM

Hierarchial ALV using OOP

Hi Friends,
I have created a Hierarchial ALV report using OOP concept (Class Builder). The output is OK but it is displaying the unwanted columns in the header part.
The code written is as follows.
=====================================================
data: gt_zsd_abcd type zsd_abcd occurs 0, "Output-Table
data l_hierarchy_header type treev_hhdr.
perform build_hierarchy_header changing l_hierarchy_header.
call method g_alv_tree->set_table_for_first_display
 exporting
 i_structure_name = 'zsd_abcd'
 is_hierarchy_header = l_hierarchy_header
 changing
 it_outtab = gt_zsd_abcd. "table must be empty !
perform create_hierarchy.
call method g_alv_tree->frontend_update.
=====================================================
I would like know as to how to display only the required columns in the header part.
Pls guide me.
TIA.
Regards,
Mark K

Hi Mark,
i got it, in your case you will get all the fields present in the structure you mentioned in the method.
so if you want only Purchase Order then you need to Build the fieldcat only for that field and then pass that fieldcat to the method. and don't pass the structure in this case.
call method alv_tree_control->set_table_for_first_display
 exporting
 is_variant = l_variant
 i_save = 'A'
 i_default = 'X'
 is_hierarchy_header = l_hierarchy_header
 it_special_groups = l_special_groups
 it_toolbar_excluding = l_toolbar_excluding
 changing
 it_fieldcatalog = l_field_catalog
 it_outtab = l_output_tbl.
Regards
vijay

Hierarchial ALV

Hi Friends,
I have created a Hierarchial ALV report using OOP concept (Class Builder). The output is OK but it is displaying the unwanted columns in the header part.
The code written is as follows.
=====================================================
data: gt_zsd_abcd type zsd_abcd occurs 0, "Output-Table
data l_hierarchy_header type treev_hhdr.
perform build_hierarchy_header changing l_hierarchy_header.
call method g_alv_tree->set_table_for_first_display
exporting
i_structure_name = 'zsd_abcd'
is_hierarchy_header = l_hierarchy_header
changing
it_outtab = gt_zsd_abcd. "table must be empty !
perform create_hierarchy.
call method g_alv_tree->frontend_update.
=====================================================
I would like know as to how to display only the required columns in the header part.
Pls guide me.
TIA.
Regards,
Mark K

in the changing parameter you have to pass a fieldcatalog conaining only those columns you want to display .
call method g_alv_tree->set_table_for_first_display
exporting
i_structure_name = 'zsd_abcd'
is_hierarchy_header = l_hierarchy_header
changing
it_outtab = gt_zsd_abcd. "table must be empty !
it_fieldcatalog     = gt_fieldcat_lvc[].
you can fill the catalog like this :
FORM zf_create_fieldcat.
DATA ls_fieldcat TYPE lvc_s_fcat.
Main Asset Number
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ANLN1'.
ls_fieldcat-ref_table = 'ANLA'.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-key = ''.
APPEND ls_fieldcat TO gt_fieldcat_lvc.
Asset Subnumber
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'ANLN2'.
ls_fieldcat-ref_table = 'ANLA'.
ls_fieldcat-no_out = 'X'.
ls_fieldcat-key = ''.
APPEND ls_fieldcat TO gt_fieldcat_lvc.
Assigned to WBS
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'XLOEV'.
ls_fieldcat-ref_table = 'ANLA'.
ls_fieldcat-coltext   = 'Assigned to WBS'(003).
ls_fieldcat-tooltip   = ls_fieldcat-coltext.
ls_fieldcat-seltext   = ls_fieldcat-coltext.
ls_fieldcat-outputlen = '3'.
APPEND ls_fieldcat TO gt_fieldcat_lvc.
Value
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'URWRT'.
ls_fieldcat-ref_table = 'ANLA'.
ls_fieldcat-coltext   = 'Value'(004).
ls_fieldcat-tooltip   = ls_fieldcat-coltext.
ls_fieldcat-seltext   = ls_fieldcat-coltext.
APPEND ls_fieldcat TO gt_fieldcat_lvc.
Asset description
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'TXT50'.
ls_fieldcat-ref_table = 'ANLA'.
APPEND ls_fieldcat TO gt_fieldcat_lvc.
ENDFORM.                               " ZF_CREATE_FIELDCAT

Alv reports sample example req..

can anybody help me out with a simple example regarding ALV Reports.(simple ALV Reports , Blocked ALV Reports & Hierarchy ALV Reports).
or pls send me a word document regarding the same ..to [email protected]
response is highly appreciated..
bye--
Pradeepa

Following document should get you started.
<a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d9719a415907">An Easy Reference For ALV Grid Control.pdf</a>
tip : if you do a <a href="https://www.sdn.sap.comhttp://www.sdn.sap.comhttp://www.sdn.sap.com/irj/sdn/advancedsearch?query=alv%20grid&cat=sdn_all">search for alv grid</a> on the sdn homepage, this is the first result.
Message was edited by:
Dries Horions

How to handle different Unit of measures in ALV reports? Quantity/Price

Anyone knows how to handle different unit of measures for quantity or price in hierarchy ALV reports?

hi,
use the below fields:
Link to measurement unit
qfieldname (measurement unit field name)
only relevant for quantity columns with unit link.
Name of the internal output table field containing the measurement unit associated with the quantity field FIELDCAT-FIELDNAME.
The field in FIELDCAT-QFIELDNAME must have its own field catalog entry.
qtabname (internal measurement unit field output table)
value set: SPACE, output table field name
Name of the internal output table containing the FIELDCAT-QFIELDNAME field.
regards,
madhumitha

Need hierarchy alv report base on salv_demo_hierseq_simple

Similar Messages

Maybe you are looking for