Problem in list display of TCODE F.13

Hi all,
Have a look at the below thread
Problem with List display for TCODE F.13
Does the same problem exist in your system
Let me know.
Thanks

Hi Neelema,
You could try this sample code.
[http://sap-img.com/fu037.htm]
[http://sap-img.com/abap/sample-alv-heading-in-alv.htm]
Regards,
Amit.

Similar Messages

Problem in list display

Hi experts,
i have a problem with list display.
I want to display the output like date, time, costcentre, company code ...... But the out put list display is coming as costcentre , username , date , time , company code....even after setting the col positions as 1,2,3, 4
I have observed in fieldcatalog as costcentre and username from field catalog_merge fm its taking l_fieldcatalog-key = 'X". i made this as l_fieldcatalog-key = ' '. Even though its displaying in the same way.
Please suggest me is there any way i can solve this issue.

Hi,
Check whether you have given any default layout. you can change the default layout and save it as you need.
Or do the following
If you are displaying a few fields from a table you can buid the field catalog manually. This will solve your problem.
<REMOVED BY MODERATOR>
Message was edited by:
Alvaro Tejada Galindo

How to change layout for list display in background

Hi All,
I want to change layout for the list display of tcode fbl1n when i execute in background. is there anyway to select our own layout when i execute in background. When i execute in foreground we can change the layout by selecting change layout button, but how it possible when in backgroung, is there any way please let me know.
Thanks in advance.
Regards,
Vishal

Hi,
Create a list variant by executing the program and changing the layout and saving..
Then use the "Layout" parameter in the selection screen and give the variant you created earlier...
Then while executing in background the list variant will be pickedup accordingly (given in the selection screen)..
Hope this helps...
THanks,
Naren
Message was edited by: Narendran Muthukumaran

How to get subtotal value in ALV list display

Hi all,
How to give condition on the value of subtotal line in ALV list display,
i.e.if value of subtotal of plan quantity = actual quantity (in red oval) it should show the message
'ON TIME DELIVERY' else it should not show messagee.In my case(shown in red oval) its
showing for each subtotal value. I know how to change the subtotal text but i want to change
with respect to value of the subtotal.(plz refer attachment)
Any input regard to this will be achieved great.
Many thanks in advance.
samadhan shinde.

Hi Samadhan,
I am awaiting for solution for this problem.....but as i think dynamically displaying sub total based on
matching actual quantity and planned quantity is bit complicated.
My idea is to display matched quantities in one block and unmatched quantities in another. I mean using blocked list.
awaiting suggestions.
regards,

ICal list display error

I've synced iCal on my iPhone with that on my MacBook via iCloud, and although Day and Month display options correctly show the events, when I select List (which, unfortunatley, is for me the most useful setting) the events are moved three days ahead of their correct position. I suspect that there is a problem with the date/time of the List display as today (Sat 14th Jan) appears between Tues 17th and Wed 18th when displayed on the list.
When I add a new event to iCal the events in the List display revert to their correct position, but as soon as I leave iCal or the List display and return back to it the same problem reappears.
Many thanks in advance for any suggestions and/or help!

Problem solved. I turned off Calendars sync in Settings -> iCloud -> Calendars, and when prompted I deleted all the previously synced iCloud calendars from my iPhone. I then turned Calendar iCloud sync back on, resynced the calendars and the problem seems to have gone.

PO Version Number not available in PO List displays (ME2L, ME2K, etc)

I have configured PO Version Management. My PO's are working as desired with proper output.
However, the PO Version Number is not displayed in my PO List Display tcodes (ME2L, ME2K, etc) nor is it available to add to the layout. I have configured the Scope of List for "BEST" (PO's) to include change documents. However, there is nothing when I go to ME2L for a PO that has 15 versions. I have verified that EKKO does contain the latest version number for this PO.
Have I missed a config step??

Thank you - I did post in MM once I realized I posted in SRM.
I realize that only the current version is displayed in these transactions. But I need to see the actual version number - no the history - just the current version number. We use these reports to supply our Internal Auditors with PO Data and they require to see the PO # and Version # without having to actually pull up each PO individually in the system.
I had assumed that since they use EKKO and EKKO contains REVNO that REVNO would be available in my layout and I could simply add it to the report. However, this is not the case.
Thanks,
Tonia

PO Version not displayed in PO List Displays (ME2L, ME2K, etc)

I have configured PO Version Management. My PO's are working as desired with proper output.
However, the PO Version Number is not displayed in my PO List Display tcodes (ME2L, ME2K, etc) nor is it available to add to the layout. I have configured the Scope of List for "BEST" (PO's) to include change documents. However, there is nothing when I go to ME2L for a PO that has 15 versions. I have verified that EKKO does contain the latest version number for this PO.
Have I missed a config step??

Dear,
The data you are searching not available in EKKO table. We do it with
CDHDR - Header Change
CDPOS - Item Change
EREV - Version Change
Tables with help of ABAPer.
Regards,
Syed Hussain.

Reuse alv hierseq list display pgm doubt

can anyone tell me s my coding s write or not becos in the report output i cannot view the line item details but it s gettign populated in the itab
REPORT ZTEST_1.
TABLES: KNB1,BSID.
TYPE-POOLS: SLIS.
*TYPES:BEGIN OF TYP_OUTPUT.
INCLUDE STRUCTURE ZRFPOSXEXT.
*TYPES:END OF TYP_OUTPUT.
TYPES:BEGIN OF TYP_BSEG,
bukrs like bsid-bukrs,
kunnr like bsid-kunnr,
zuonr like bsid-zuonr,
belnr like bsid-belnr,
bldat like bsid-bldat,
xblnr like bsid-xblnr,
blart like bsid-blart,
dmbtr like bsid-dmbtr,
aufnr like bsid-aufnr,
vbel2 like bsid-vbel2,
posn2 like bsid-posn2,
END OF TYP_BSEG.
TYPES:BEGIN OF TYP_VBRP,
VBELN LIKE VBRP-VBELN,
AUBEL LIKE VBRP-AUBEL,
AUPOS LIKE VBRP-AUPOS,
VKGRP LIKE VBRP-VKGRP,
TDNAME LIKE STXH-TDNAME,
TDLINE LIKE TLINE-TDLINE,
END OF TYP_VBRP.
data: wa_vbrp type typ_vbrp.
DATA:
*GT_HEADER_TABLE TYPE TYP_OUTPUT OCCURS 0 WITH HEADER LINE,
GT_ITEM_TABLE TYPE TYP_VBRP OCCURS 0 WITH HEADER LINE.
DATA: IT_BSEG TYPE TYP_BSEG OCCURS 0 WITH HEADER LINE.
Define fieldcatalog
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
Callback program
DATA: G_REPID LIKE SY-REPID.
List layout description
DATA: GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
Group order criterium
DATA: GS_KEYINFO TYPE SLIS_KEYINFO_ALV.
Layout *
Definition for field choice screen **
GS_LAYOUT-HEADER_TEXT = 'HEADER'.
GS_LAYOUT-ITEM_TEXT = 'ITEM'.
GS_LAYOUT-DEFAULT_ITEM = 'X'.
Initialization fieldcatalog ***
G_REPID = SY-REPID.
PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].
Data selection ***
PERFORM SELECT_DATA.
Define keyinfo as sort group definition ***
CLEAR GS_KEYINFO.
GS_KEYINFO-HEADER01 = 'BELNR'. "idenify header and item
GS_KEYINFO-ITEM01 = 'VBELN'.
Call function to list display (hier-seq) ***
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
I_TABNAME_HEADER = 'GT_HEADER_TABLE'
I_TABNAME_HEADER = 'IT_BSEG'
I_TABNAME_ITEM = 'GT_ITEM_TABLE'
I_STRUCTURE_NAME_HEADER = <STRUCTURE_NAME_HEADER>
I_STRUCTURE_NAME_ITEM = <STRUCTURE_NAME_ITEM>
IS_KEYINFO = GS_KEYINFO
TABLES
T_OUTTAB_HEADER = GT_HEADER_TABLE
T_OUTTAB_HEADER = IT_BSEG
T_OUTTAB_ITEM = GT_ITEM_TABLE
EXCEPTIONS
PROGRAM_ERROR = 1.
FORMS ***
FORM FIELDCAT_INIT USING RT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Deviations of group fields to be merged *
Initialize group field(s) of header table **
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 1.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'BLART'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'DOC TYPE'.
LS_FIELDCAT-OUTPUTLEN = 2.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 2.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'BLDAT'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'DOC DATE'.
LS_FIELDCAT-OUTPUTLEN = 8.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 3.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'BELNR'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'ACC DOC NO'.
LS_FIELDCAT-OUTPUTLEN = 10.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 4.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'XBLNR'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'REFERENCE'.
LS_FIELDCAT-OUTPUTLEN = 16.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 5.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'ZUONR'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'ASSGNMENT NO'.
LS_FIELDCAT-OUTPUTLEN = 19.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 6.
LS_FIELDCAT-TABNAME = 'IT_BSEG'.
LS_FIELDCAT-FIELDNAME = 'DMBTR'.
LS_FIELDCAT-KEY = 'X'. " sets key field
LS_FIELDCAT-SELTEXT_M = 'AMT N LOC CURR'.
LS_FIELDCAT-OUTPUTLEN = 13.
APPEND LS_FIELDCAT TO gt_fieldcat.
Initialize keyfield(s) of item table **
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 7.
LS_FIELDCAT-TABNAME = 'GT_ITEM_TABLE'.
LS_FIELDCAT-FIELDNAME = 'AUPOS'.
LS_FIELDCAT-TECH = 'X'. " sets technical field
LS_FIELDCAT-SELTEXT_M = 'LINE ITEM'.
LS_FIELDCAT-OUTPUTLEN = 6.
APPEND LS_FIELDCAT TO gt_fieldcat.
CLEAR LS_FIELDCAT.
ls_fieldcat-col_pos = 8.
LS_FIELDCAT-TABNAME = 'GT_ITEM_TABLE'.
LS_FIELDCAT-FIELDNAME = 'TDLINE'.
LS_FIELDCAT-TECH = 'X'. " sets technical field
LS_FIELDCAT-SELTEXT_M = 'OI NOTES'.
LS_FIELDCAT-OUTPUTLEN = 132.
APPEND LS_FIELDCAT TO gt_fieldcat.
Hidden field(s) of tables (header and/or item) **
CLEAR LS_FIELDCAT.
ls_fieldcat-tabname = '<header/item_table_name>'.
LS_FIELDCAT-FIELDNAME = '<GROUP_FIELD_NAME>'.
LS_FIELDCAT-NO_OUT = 'X'. "sets hidden field
APPEND LS_FIELDCAT TO RT_FIELDCAT.
ENDFORM. "fieldcat_init
FORM SELECT_DATA.
data: begin of wa_olino,
tdname like stxh-tdname,
tdline like tline-tdline,
end of wa_olino.
data: it_olino like wa_olino occurs 0 with header line.
data: begin of wa_stxh,
tdname like stxh-tdname,
end of wa_stxh.
data: it_stxh like wa_stxh occurs 0 with header line.
data: begin of wa_lines.
include structure ztline.
data: end of wa_lines.
data: IT_LINES LIKE wa_lines OCCURS 0 WITH HEADER LINE.
select bukrs kunnr zuonr belnr bldat xblnr blart dmbtr aufnr vbel2
posn2
from bsid
into table it_bseg
where kunnr in so_wlkun
and bukrs in so_wlbuk.
select vbeln aubel aupos vkgrp
from vbrp
into table gt_item_table
for all entries in it_bseg
where vbeln = it_bseg-belnr.
sort gt_item_table by aubel aupos.
loop at gt_item_table into wa_vbrp.
concatenate wa_vbrp-aubel wa_vbrp-aupos into wa_olino-tdname.
wa_vbrp-tdname = wa_olino-tdname.
modify gt_item_table from wa_vbrp.
append wa_olino to it_olino.
endloop.
select tdname from stxh into corresponding fields of table it_stxh
for all entries in it_olino
where tdobject = 'VBBP'
and tdname = it_olino-tdname
and tdid = '0002'
and tdspras = 'EN'.
data: j type i,k_lines type i..
sort it_stxh by tdname.
*sort it_output by tdname.
describe table GT_ITEM_TABLE lines k_lines.
*loop at it_output into wa_output. "where blart = '1Z'.
loop at gt_item_table into wa_vbrp.
loop at it_stxh where tdname = wa_vbrp-tdname.
read table it_stxh.
CALL FUNCTION 'ZREAD_TEXT_1'
EXPORTING
CLIENT = SY-MANDT
ID = '0002'
LANGUAGE = SY-LANGU
NAME = IT_STXH-tdname
OBJECT = 'VBBP'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
LINES = IT_LINES
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8
*data: I type i.
if sy-subrc = 0.
loop at it_lines.
it_lines-tdname = wa_vbrp-tdname.
modify it_lines. "from wa_lines.
endloop.
loop at it_lines.
*i = sy-tfill.
wa_vbrp-tdline = it_lines.
if sy-tabix = 1.
modify gt_item_table from wa_vbrp.
else.
append wa_vbrp to gt_item_table.
endif.
clear it_lines-tdline.
endloop.
endif.
endloop.
if sy-tabix = k_lines.
exit.
endif.
endloop.
sort it_olino by tdname.
ENDFORM. " select_data

Hi,
Go thru the following Example program. It can solve ur problem..
*& Report : ZASSG_ALV_JAYARAM3
*& Title : Hierarchical sequential ALV report
*& Author :
*& Created on : *& Request :
*& Desription : Generates a Hierarchial sequental ALV report to list
 out Billing details.
*& Modification Log
*& Mod # Author Date Requested by
*& Reason for Change
*& 00 #
REPORT ZASSG_ALV_JAYARAM3 NO STANDARD PAGE HEADING
 LINE-SIZE 132
 LINE-COUNT 64
 MESSAGE-ID Z00.
*..Type Definitions for ALV Report
TYPE-POOLS SLIS.
Table/Structure declarations. *
TABLES : VBRK, " Billing: Header Data
 VBRP, " Billing: Item Data
 T001, " Comapny Codes
 TVKOT, " Sales Organizations: Texts
 MAKT. " Material Descriiptions
*.. Internal Tables declaration *
*----- Internal table to store billing docs which are not cancelled
DATA : BEGIN OF IT_VBRK OCCURS 0,
 VBELN LIKE VBRK-VBELN, " Billing document
 WAERK LIKE VBRK-WAERK, " SD document currency
 VKORG LIKE VBRK-VKORG, " Sales organization
 VTEXT LIKE TVKOT-VTEXT, " Sales organization text
 FKDAT LIKE VBRK-FKDAT, " Billing date
 BUKRS LIKE VBRK-BUKRS, " Company Code
 BUTXT LIKE T001-BUTXT, " Company Code text
 NETWR LIKE VBRK-NETWR, " Net value in document currency
 END OF IT_VBRK.
*-----Internal table to stroe ITEM DETAILS
DATA: BEGIN OF IT_VBRP OCCURS 0,
 VBELN2 LIKE VBRP-VBELN, " Billing document
 POSNR LIKE VBRP-POSNR, " Billing item
 FKIMG LIKE VBRP-FKIMG, " Actual billed quantity
 VRKME LIKE VBRP-VRKME, " Sales unit
 NETWR LIKE VBRP-NETWR, " Net value of the billing item
 MATNR LIKE VBRP-MATNR, " Material number
 ARKTX LIKE VBRP-ARKTX, " Short text for sales order item
END OF IT_VBRP.
 Variable / Flag Declerations *
DATA : FG_COLOR VALUE ' ', " FLAG TO CHANGE THE COLOR OF THE RECORD
 FG_NO_DATA VALUE ' '. " FLAG TO CHECK THE DATA
DATA : V_REPID TYPE SYREPID.
 ALV Type declaration *
DATA : IT_FIELDCAT TYPE STANDARD TABLE OF
 SLIS_FIELDCAT_ALV WITH HEADER LINE.
DATA : IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 WA_SORT TYPE SLIS_SORTINFO_ALV.
DATA : IT_EVENT TYPE SLIS_T_EVENT,
 WA_EVENT LIKE LINE OF IT_EVENT.
DATA : IT_HEADINGS TYPE STANDARD TABLE OF
 SLIS_LISTHEADER WITH HEADER LINE.
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : WA_KEYINFO TYPE SLIS_KEYINFO_ALV.
Selection Screen. *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_VBELN FOR VBRK-VBELN, " Billing doc no
 S_FKDAT FOR VBRK-FKDAT OBLIGATORY, " Billing date
 S_MATNR FOR VBRP-MATNR. " Material no
SELECTION-SCREEN END OF BLOCK B1.
Event:Initialization *
INITIALIZATION.
V_REPID = SY-REPID.
S_FKDAT-LOW = SY-DATUM - 200.
S_FKDAT-HIGH = SY-DATUM.
APPEND S_FKDAT.
AT Selection Screen. *
AT SELECTION-SCREEN.
PERFORM VALIDATE_VBELN.
PERFORM VALIDATE_MATNR.
Event: Start-of-Selection *
START-OF-SELECTION.
PERFORM GET_VBRK_DATA.
PERFORM GET_VBRP_DATA.
Event: End-of-Selection *
END-OF-SELECTION.
PERFORM GET_EVENTS.
PERFORM FIELDCATALOG.
PERFORM LIST_DISPLAY.
 FORM DEFINITIONS *
*& Form list_display
 text
--> p1 text
<-- p2 text
FORM LIST_DISPLAY.
WA_LAYOUT-INFO_FIELDNAME = 'COLOR'.
WA_LAYOUT-TOTALS_TEXT = 'GRAND TOTAL'.
WA_LAYOUT-ZEBRA = 'X'.
WA_LAYOUT-KEY_HOTSPOT = 'X'.
WA_KEYINFO-HEADER01 = 'VBELN'.
WA_KEYINFO-ITEM01 = 'VBELN2'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = V_REPID
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = ' '
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT = 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 = 'IT_VBRK'
 I_TABNAME_ITEM = 'IT_VBRP'
 I_STRUCTURE_NAME_HEADER =
 I_STRUCTURE_NAME_ITEM =
 IS_KEYINFO = WA_KEYINFO
 IS_PRINT =
 IS_REPREP_ID =
 I_BUFFER_ACTIVE =
 I_BYPASSING_BUFFER =
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB_HEADER = IT_VBRK
 T_OUTTAB_ITEM = IT_VBRP
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. " list_display
*& Form fieldcatalog
 text
--> p1 text
<-- p2 text
FORM FIELDCATALOG.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = V_REPID
 I_INTERNAL_TABNAME = 'IT_VBRK'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = V_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT[]
 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.
*..Changing the fieldcatlog as required
LOOP AT IT_FIELDCAT.
 CASE IT_FIELDCAT-FIELDNAME.
 WHEN 'VBELN'.
 IT_FIELDCAT-SELTEXT_L = 'Billing doc no'.
 IT_FIELDCAT-SELTEXT_M = 'Bill No'.
 IT_FIELDCAT-SELTEXT_S = 'Bill'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 OUTPUTLEN
 WHERE FIELDNAME = 'VBELN'.
 WHEN 'WAERK'.
 IT_FIELDCAT-SELTEXT_L = 'SD document Currency'.
 IT_FIELDCAT-SELTEXT_M = 'Document Currency'.
 IT_FIELDCAT-SELTEXT_S = 'Currency'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'WAERK'.
 WHEN 'VKORG'.
 IT_FIELDCAT-SELTEXT_L = 'Sales Organisation'.
 IT_FIELDCAT-SELTEXT_M = 'Sales Org'.
 IT_FIELDCAT-SELTEXT_S = 'S,Org'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'VKORG'.
 WHEN 'VTEXT'.
 IT_FIELDCAT-SELTEXT_L = 'Sales Organisation Name'.
 IT_FIELDCAT-SELTEXT_M = 'Sales Org Text'.
 IT_FIELDCAT-SELTEXT_S = 'S,Org'.
 IT_FIELDCAT-OUTPUTLEN = '30'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'VTEXT'.
 WHEN 'FKDAT'.
 IT_FIELDCAT-SELTEXT_L = 'Billing Date'.
 IT_FIELDCAT-SELTEXT_M = 'Bill.Date'.
 IT_FIELDCAT-SELTEXT_S = 'BDate'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'FKDAT'.
 WHEN 'BUKRS'.
 IT_FIELDCAT-SELTEXT_L = 'Company Code'.
 IT_FIELDCAT-SELTEXT_M = 'Company'.
 IT_FIELDCAT-SELTEXT_S = 'Comp'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'BUKRS'.
 WHEN 'BUTXT'.
 IT_FIELDCAT-SELTEXT_L = 'Company Name'.
 IT_FIELDCAT-SELTEXT_M = 'Comp Text'.
 IT_FIELDCAT-SELTEXT_S = 'Comp'.
 IT_FIELDCAT-OUTPUTLEN = '25'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'BUTXT'.
 WHEN 'NETWR'.
 IT_FIELDCAT-SELTEXT_L = 'Net value in docu currency'.
 IT_FIELDCAT-SELTEXT_M = 'Net value in currency'.
 IT_FIELDCAT-SELTEXT_S = 'Net Value'.
 IT_FIELDCAT-OUTPUTLEN = '20'.
 IT_FIELDCAT-DO_SUM = 'X'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 DO_SUM
 WHERE FIELDNAME = 'NETWR'.
 ENDCASE.
ENDLOOP.
PERFORM FIELDCAT_SECLIST.
ENDFORM. " fieldcatalog
*& Form sort_tab
 text
--> p1 text
<-- p2 text
FORM SORT_TAB.
CLEAR WA_SORT.
WA_SORT-FIELDNAME = 'VBELN'.
WA_SORT-SPOS = '1'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
ENDFORM. " sort_tab
*& Form get_events
 text
--> p1 text
<-- p2 text
FORM GET_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 1
 IMPORTING
 ET_EVENTS = IT_EVENT
 EXCEPTIONS
 LIST_TYPE_WRONG = 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.
READ TABLE IT_EVENT INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
WA_EVENT-FORM = 'DISPLAY_HEADER'.
MODIFY IT_EVENT FROM WA_EVENT INDEX SY-TABIX.
ENDFORM. " get_events
*& Form DISPLAY_HEADER
 text
--> p1 text
<-- p2 text
FORM DISPLAY_HEADER.
WRITE : /3 'Date : ',
 10 SY-DATUM USING EDIT MASK '__/__/____',
 35 'Intelligroup Asia Pvt. Ltd',
 80 'Time : ',
 90 SY-UZEIT,
 /3 'User : ',
 10 SY-UNAME,
 30 SY-TITLE,
 80 'Page : ',
 90 SY-PAGNO.
ENDFORM. " DISPLAY_HEADER
*& Form VALIDATE_VBELN
 text
--> p1 text
<-- p2 text
FORM VALIDATE_VBELN.
Validating Billing doc no
SELECT VBELN
 INTO VBRK-VBELN
 UP TO 1 ROWS
 FROM VBRK
 WHERE VBELN IN S_VBELN.
ENDSELECT.
IF SY-SUBRC NE 0.
 MESSAGE E010. " Invalid billing doc no
ENDIF.
ENDFORM. " VALIDATE_VBELN
*& Form VALIDATE_MATNR
 text
--> p1 text
<-- p2 text
FORM VALIDATE_MATNR.
Validating material no
SELECT MATNR
 INTO VBRP-MATNR
 UP TO 1 ROWS
 FROM VBRP
 WHERE MATNR IN S_MATNR.
ENDSELECT.
IF SY-SUBRC NE 0.
 MESSAGE E018. " Invalid material number
ENDIF.
ENDFORM. " VALIDATE_MATNR
*& Form GET_VBRK_DATA
 text
--> p1 text
<-- p2 text
FORM GET_VBRK_DATA.
To get Billing doc detials based on selections
SELECT V~VBELN
 V~WAERK
 V~VKORG
 V~FKDAT
 V~BUKRS
 V~NETWR
 T~VTEXT
 C~BUTXT
 INTO CORRESPONDING FIELDS OF TABLE IT_VBRK
 FROM VBRK AS V
 INNER JOIN VBRP AS P
 ON VVBELN = PVBELN
 INNER JOIN TVKOT AS T
 ON VVKORG = TVKORG
 INNER JOIN T001 AS C
 ON VBUKRS = CBUKRS
 WHERE V~VBELN IN S_VBELN
 AND V~FKDAT IN S_FKDAT
 AND P~MATNR IN S_MATNR.
SORT IT_VBRK.
DELETE ADJACENT DUPLICATES FROM IT_VBRK COMPARING VBELN.
IF SY-SUBRC NE 0.
 FG_NO_DATA = 'X'.
ENDIF.
ENDFORM. " GET_VBRK_DATA
*& Form GENERATE_SECLIST
 text
--> p1 text
<-- p2 text
FORM GENERATE_SECLIST USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'. "DOUBLE CLICK
 READ TABLE IT_VBRK INDEX RS_SELFIELD-TABINDEX.
ENDCASE.
ENDFORM. " GENERATE_SECLIST
*& Form FIELDCAT_SECLIST
 text
--> p1 text
<-- p2 text
FORM FIELDCAT_SECLIST.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = V_REPID
 I_INTERNAL_TABNAME = 'IT_VBRP'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = V_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT[]
 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.
*..Changing the fieldcatlog as required
LOOP AT IT_FIELDCAT.
 CASE IT_FIELDCAT-FIELDNAME.
 WHEN 'VBELN2'.
 IT_FIELDCAT-NO_OUT = 'X'.
 IT_FIELDCAT-KEY = SPACE.
 MODIFY IT_FIELDCAT TRANSPORTING NO_OUT
 KEY
 WHERE FIELDNAME = 'VBELN2'.
 WHEN 'POSNR'.
 IT_FIELDCAT-SELTEXT_L = 'Billing Iem no'.
 IT_FIELDCAT-SELTEXT_M = 'Bill Item No'.
 IT_FIELDCAT-SELTEXT_S = 'Item No'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 OUTPUTLEN
 WHERE FIELDNAME = 'POSNR'.
 WHEN 'FKIMG'.
 IT_FIELDCAT-SELTEXT_L = 'Actual billed quantity'.
 IT_FIELDCAT-SELTEXT_M = 'Billed Quantity'.
 IT_FIELDCAT-SELTEXT_S = 'Bill.Qty'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'FKIMG'.
 WHEN 'VRKME'.
 IT_FIELDCAT-SELTEXT_L = 'Sales Unit'.
 IT_FIELDCAT-SELTEXT_M = 'Sale unit'.
 IT_FIELDCAT-SELTEXT_S = 'S.Unit'.
 IT_FIELDCAT-OUTPUTLEN = '15'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'VRKME'.
 WHEN 'NETWR'.
 IT_FIELDCAT-SELTEXT_L = 'Net value in docu currency'.
 IT_FIELDCAT-SELTEXT_M = 'Net value in currency'.
 IT_FIELDCAT-SELTEXT_S = 'Net Value'.
 IT_FIELDCAT-OUTPUTLEN = '20'.
 IT_FIELDCAT-DO_SUM = 'X'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 DO_SUM
 WHERE FIELDNAME = 'NETWR'.
 WHEN 'MATNR'.
 IT_FIELDCAT-SELTEXT_L = 'Material Number'.
 IT_FIELDCAT-SELTEXT_M = 'Mat. Number'.
 IT_FIELDCAT-SELTEXT_S = 'Mat. No'.
 IT_FIELDCAT-OUTPUTLEN = '30'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'MATNR'.
 WHEN 'ARKTX'.
 IT_FIELDCAT-SELTEXT_L = 'Text for sales order item'.
 IT_FIELDCAT-SELTEXT_M = 'Sale Order Text'.
 IT_FIELDCAT-SELTEXT_S = 'SO Item text'.
 IT_FIELDCAT-OUTPUTLEN = '30'.
 MODIFY IT_FIELDCAT TRANSPORTING SELTEXT_L
 SELTEXT_M
 SELTEXT_S
 WHERE FIELDNAME = 'ARKTX'.
 ENDCASE.
ENDLOOP.
ENDFORM. " FIELDCAT_SECLIST
*& Form GET_VBRP_DATA
 text
--> p1 text
<-- p2 text
FORM GET_VBRP_DATA.
SELECT VBELN
 POSNR
 FKIMG
 VRKME
 NETWR
 MATNR
 ARKTX
 INTO TABLE IT_VBRP
 FROM VBRP
 FOR ALL ENTRIES IN IT_VBRK
 WHERE VBELN EQ IT_VBRK-VBELN.
ENDFORM. " GET_VBRP_DATA

Photoshop has encountered a problem with the display driver

I rummaged around in here looking at opengl topics and others associated with the above error, but I'm not seeing what I'm encountering (or I am and I don't recognize it!).....
I bought CS4 a week or so ago, and installed it on a system running XP32 with service pack 3, 4GB of ram withe the /3GB switch set, nVidia 8600 GT card (which according to the list is supported), and multiple spindles for images, scratch, applications, and so on. I found other topics earlier so I downloaded the most recent drivers for my video card.
I'm not crashing and burning, but I'm getting some messages...
I opened an image, and while working on it I wanted to do a transform/warp. I got the message that Photoshop couldn't perform the operation because there wasn't enough memory. It didn't crash but I had to shut down CS4 and restart it to do the warp.
Most recently I opened a couple images for a panorama, and while doing the merge I got the message that "Photoshop has encountered a problem with the display driver and has temporarily disabled gpu enhancements." It tells me to check for the latest drivers - I've ALREADY got the lastest drivers. Again, no crash, just the warning. It completed the panorama.
There have been a couple other occurrences of messages of this type, so I'm curious if there's some set of preferences or system settting I need to adjust to optimize things? I've alrady adjusted the nVidia settings because I also run Lightroom and they're having problems too.
I've read the tech notes for the video and such and didn't find any set of optimizations there so is there a set of adjustments beyond the preferences that needs to be adjusted to improve memory and video performance? And if so, can someone point me to them.

As I understand it (suspect at best) XP32 can address 4 gig of memory. the /3gb switch lets the applications get at 3 gig of that. If my video card takes the first 256MB, and XP is guaranteed the other 750 of the 1st gig, and in the CS4 performance preferences I should be giving it from 1462 - 1895 MB (I've given it around 1890), that leaves me with another gig or so... Is that limited to applications or can XP use it? In any case, I'm not crashing, I just get the message every so often about being out of memory. I don't recall ever seeing this with CS3, but new version, new oddities...

How to get the material list displayed in CU50 transaction into ABAP report

How to get the 'KMAT" type material list displayed in CU50 transaction into ABAP report?
I am getting the entire BOM when i am using the FM CS_BOM_EXPL_MAT_V2 in to the table in the report.
But I want only the material list displayed in CU50.

Hi,
Could you please tell us how you found a solution to your problem?
Thanks & regards
Hassan

While executing TCode F13 and F13E, purchase order number is not appearing.how it should be displayed into tcode f.13, please any one help me

While executing TCode F13 and F13E, purchase order number is not appearing.how it should be displayed into tcode f.13, what are the requirements need to display into tcode f.13, please any one help me, i am facing this problem in production server

Hi Nattu,
Please check it will show the PO no under Purchasing doc field
Check which layout you are applied.
its should be
SAP&F124
Without Specification of Crcy
Regd,
Khan.

List display based on PR collective indicator.

Hi all
I am able to use the function "PR collective indicator" in project definition for grouping the items in respective PR.
I have defined the grouping like MECH and ELEC.
Is there any display of PR's to have selection by this value MECH or ELEC for the respective project?
Can we have list display like ME5J to have selection based on this grouping?
warm regards
ramSiva

hello Zaafran Ahmed ,
I populate the list items as in your example..I populate the list items as follows,
My Code is :
/* WHEN-NEW-FORM-INSTANCE Trigger*/
DECLARE
rg_countries RECORDGROUP;
vTemp NUMBER;
BEGIN
rg_countries:=CREATE_GROUP_FROM_QUERY('rg_countries',
'SELECT country_name NAME, COUNTRY_ID VALUE FROM COUNTRY ORDER BY 2');
vTemp:=POPULATE_GROUP(rg_countries);
POPULATE_LIST('BLOCK3.COUNTRIES', rg_countries);
END;
In the WHEN-LIST-CHANGED Trigger of the COUNTRIES list item i write as follows :
/* WHEN-LIST-CHANGED Trigger */
DECLARE
rg_states RECORDGROUP;
vTemp NUMBER;
BEGIN
rg_states:=CREATE_GROUP_FROM_QUERY('rg_states',
'SELECT STATE_NAME NAME, COUNTRY_ID VALUE FROM STATE WHERE COUNTRY_ID = '||:BLOCK3.COUNTRIES||'ORDER BY 2');
vTemp:=POPULATE_GROUP(rg_states);
POPULATE_LIST('BLOCK3.STATES', rg_states);
DELETE_GROUP(rg_states);
END;
My problem is now, When i select a country in "COUNTRIES" list item [ For example I select India], The "STATES" list item shows all the states belongs to india..But i cant select states from that..Only the first value in "STATES" list item
can be selected..Other values can't be select by me..What can i do..
My table structures:
SQL> desc country
Name Null? Type
COUNTRY_ID NOT NULL VARCHAR2(30) [This is primary key]
COUNTRY_NAME VARCHAR2(30)
SQL> desc state
Name Null? Type
COUNTRY_ID VARCHAR2(30) [This is foreign key ]
STATE_NAME VARCHAR2(30)
My example datas:
SQL> select*from country
2 /
COUNTRY_ID COUNTRY_NAME
002 usa
001 india
select*from state
COUNTRY_ID STATE_NAME
001 tn
001 kerala
001 bangalore
002 ca
002 NY
002 la

List Display After ALV Display.

Hi,
i want to use write statement after display of the GRID ALV report. I User-command is getting dynamically called up when i presses the button.
FORM user_command USING p_ucomm LIKE sy-ucomm
 p_selfield TYPE slis_selfield.
CASE p_ucomm.
 WHEN '&GENERAL'.
 READ TABLE i_general INTO wa_general INDEX p_selfield-tabindex.
 IF sy-subrc = 0.
 LEAVE TO LIST-PROCESSING.
 WRITE : sy-uline(90).
 write: / 'Serial: ', wa_general-serial.
 ENDIF.
ENDFORM.
the problem is i m not able to use back button in the dynamic list display. Use pf-status as well but not working. Pressing BACK button does nothing.
Want to activate print and back button in the dynamic list display. (used pf-status which has back and print fucntion code but not working.)
Reward points sure for right answers.
Kartavya

Hi..
Try this.....
FORM user_command USING p_ucomm LIKE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN '&GENERAL'.
READ TABLE i_general INTO wa_general INDEX p_selfield-tabindex.
IF sy-subrc = 0.
SET PF-STATUS SPACE. "this will call the Standard GUI
LEAVE TO LIST-PROCESSING.
WRITE : sy-uline(90).
write: / 'Serial: ', wa_general-serial.
ENDIF.
ENDFORM.
Reward if Helpful.

List Display alignment

Hi all,
I am writing a list report which is using a normal WRITE statement in Japanese language (Program Original Language = JA). However, I have the alignment problem as below:
Customer No | Customer Name                | Accounting Document No |
0000000001   | Customer ABC                  | 100000001                       |
0000000002   | Customer BAE                     | 100000012                       |
0000000003   | Customer C                    | 100000301                       |
0000000003   | Customer D                    | 100000402                       |
0000000003   | Customer EEF                     | 100000801                       |
Notice that based on the above list display that I have, Customer C and D having disorder sy-vline position, though i have placed sy-vline with constant position and using AT statement.
Did someone come across this and appreciate if anyone can give me some guideline to solve the above alignment problem. Reward points is guaranteed.
Many thanks,
Patrick

Hi,
Did you use the output length option??
Ex..
WRITE: /(11) 'Customer No',SY-VLINE,
        (30) 'Customer Name',SY-VLINE,
        (22) 'Accounting Document No',SY-VLINE.
WRITE: / SY-ULINE.
DATA: V_KUNNR TYPE KUNNR VALUE '0000000003'.
DATA: V_NAME TYPE KNA1-NAME1 VALUE 'Customer C'.
DATA: V_BELNR TYPE BKPF-BELNR VALUE '100000301'.
WRITE: /(11) V_KUNNR,SY-VLINE,
        (30) V_NAME,SY-VLINE,
        (22) V_BELNR,SY-VLINE.
V_KUNNR = '0000000002'.
V_NAME = 'Customer BAE '.
V_BELNR = '100000012'.
WRITE: /(11) V_KUNNR,SY-VLINE,
        (30) V_NAME,SY-VLINE,
        (22) V_BELNR,SY-VLINE.
WRITE: / SY-ULINE.
Thanks,
Naren

Tree list display

hi,
i have one problem.
i have displayed an alv grid.now i want when user select any
row the corresponding value
of that particular row should display in tree like structure
under different heading i.e. under one heading there should be
some field ,under another heading some other field and so on.
also with expand node and compress node .
can u plz provide any sample program.i want it with function module.
like rs_tree_construct' and others.

REPORT ZTEST13 MESSAGE-ID znew .
TREE HIRRARCHY REPORT **********************
TABLES : vbak.
DATA: BEGIN OF mylist OCCURS 50. " Internal table hierarchy
INCLUDE STRUCTURE snodetext.
DATA: END OF mylist.
DATA: f15 TYPE c.
DATA : BEGIN OF gt_sales OCCURS 0,
        vbeln LIKE vbak-vbeln,
        kunnr LIKE vbak-kunnr,
        matnr LIKE vbap-matnr,
        arktx LIKE vbap-arktx,
        ERNAM LIKE VBAK-ERNAM,
      END OF gt_sales.
*SELECT-OPTIONS : s_vbeln FOR vbak-vbeln.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(20) v_text1 FOR FIELD S_VBELN.
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN OBLIGATORY.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
V_TEXT1 = 'SALES ORDER NO'.
START-OF-SELECTION.
SET PF-STATUS 'ZTREE1'. " create in t-code se41
SET TITLEBAR 'T1'.
PERFORM fill_itab.
PERFORM main.
FORM fill_itab .
SELECT vkvbeln vkkunnr VKERNAM vpmatnr vp~arktx INTO CORRESPONDING
FIELDS OF
      TABLE gt_sales
      FROM ( vbak AS vk INNER JOIN vbap AS vp ON vkvbeln = vpvbeln )
      WHERE vk~vbeln IN s_vbeln.
      SORT gt_sales BY vbeln kunnr.
mylist-name = 'Report Tree List'.
mylist-color = 1.
mylist-intensiv = '1'.
mylist-text = 'Report Tree List'.
mylist-tlength = 16.
mylist-tlevel = 1.
mylist-tcolor = 1.
mylist-tintensiv = '1'.
*mylist-text1 = 'using "RS_TREE_CONSTRUCT" function'.
mylist-tlength1 = 50.
mylist-tcolor1 = 2.
mylist-tintensiv1 = '0'.
APPEND mylist.
LOOP AT gt_sales.
ON CHANGE OF gt_sales-vbeln.
mylist-name = 'level1'.
mylist-color = 0.
mylist-intensiv = '0'.
mylist-text = 'Sales Document no:'.
mylist-tlength = 20.
mylist-tlevel = 2.
mylist-tcolor = 7.
mylist-tintensiv = '1'.
mylist-text1 = gt_sales-vbeln.
mylist-tlength1 = 30.
mylist-tcolor1 = 2.
mylist-tintensiv1 = '0'.
APPEND mylist.
ENDON.
ON CHANGE OF gt_sales-kunnr.
mylist-name = 'level2'.
mylist-color = 0.
mylist-intensiv = '0'.
mylist-text = 'Customer no:'.
mylist-tlength = 20.
mylist-tlevel = 3.
mylist-tcolor = 5.
mylist-tintensiv = '1'.
mylist-text1 = gt_sales-kunnr.
mylist-tlength1 = 30.
mylist-tcolor1 = 3.
mylist-tintensiv1 = '0'.
APPEND mylist.
ENDON.
mylist-name = 'level3'.
mylist-color = 0.
mylist-intensiv = '0'.
*mylist-text = gt_sales-matnr.
mylist-tlength = 15.
mylist-tlevel = 4.
mylist-tcolor = 4.
mylist-tintensiv = '0'.
mylist-text1 = gt_sales-arktx.
mylist-tlength1 = 30.
mylist-tcolor1 = 2.
mylist-tintensiv1 = '0'.
MYLIST-COLOR = 2.
MYLIST-INTENSIV = '0'.
MYLIST-TEXT = GT_SALES-ERNAM.
MYLIST-TLENGTH = 20.
*MYLIST-TLEVEL = 4.
APPEND mylist.
*MYLIST-NAME = 'LEVEL4'.
*MYLIST-COLOR = 2.
*MYLIST-INTENSIV = '0'.
*MYLIST-TEXT = GT_SALES-ERNAM.
*MYLIST-TLENGTH = 20.
*MYLIST-TLEVEL = 4.
*APPEND MYLIST.
ENDLOOP.
ENDFORM. " FILL_ITAB
FORM main .
PERFORM hierarchy. " construct & draw the tree
ENDFORM. " MAIN
FORM hierarchy .
PERFORM build_tree.
PERFORM draw_tree.
ENDFORM. " HIERARCHY
FORM BUILD_TREE *
FORM build_tree.
CALL FUNCTION 'RS_TREE_CONSTRUCT'
TABLES
nodetab = mylist
EXCEPTIONS
tree_failure = 1.
ENDFORM. "build_tree
FORM DRAW_TREE *
FORM draw_tree.
sy-lsind = 0.
CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
EXPORTING
callback_program = 'Ztest13'
callback_user_command = 'NODE_SELECT'
*(001)
IMPORTING
f15 = f15.
ENDFORM. "draw_tree

Problem in list display of TCODE F.13

Similar Messages

Maybe you are looking for