Dynamically changing table headers

I already know the answer to this since I have spent couple of days previously trying to make this work but thought of putting this on the forum either way.
Has anyone sucessfully been able to create dynamically changing headers before using a date column "MONYY"? Requirement is that the user is given a prompt selector for "MONYY" and the table will have values for "MONYY + and - 2 months". This "+ and -" 2 months needs to be dispayed as table headers
E.g. User selects NOV12 and the table header needs to show "SEP12 Sales, OCT12 Sales, NOV12 Sales, DEC12 Sales, JAN13 Sales"
I have tried everything possible by using the presentation variable in all sorts of functions, trying to pass a variable to a hidden prompt that automatically refreshes on a prompt application. This has been tawing with me and I want to put it to rest knowing that it cannot be acheived.

It can't. At least not in that way. You could put the value (retrieved from a column or a varaible, your choice) into a column formula though and put it as a table section. Not the same as column headers, I know, but may be worth proposing as a workaround.

Similar Messages

Dynamically change table selecting from

in 3.2 on 11g database is there a way to dynamically change the table used in a select statement for an interactive report? I have a series of similar tables, one for each month of the year. I want to click a month on one page and bring up a report from the table for that month. I want to use one page for this report and have all links from previous page link to the same page, just different result based on what month was clicked.
I know I could just setup 12 different reports and conditionally display each region based on a value passed to the that page, but I'd prefer to only create one page & one report on that page.
Thanks for any ideas or solutions.

Your function will have the code dynamically built.. What you do is you build your sql and pass in the table name and any other items that will change based upon your requirements..
here is an example...
function inventory_report (p_State IN VARCHAR2) RETURN VARCHAR2 IS
declare
q varchar2(4000);
begin
q:='   select p.category, ';
q:=q||'       p.product_name, ';
q:=q||'       p.quantity, ';
q:=q||'       p.unit_price ';
-- Here is where we substitute the passed in state name for the data table we extract data from
q:=q||' from ' || V('p_State') || ' p, ';
q:=q||' where p.product_quantity > 0 ';
return q;
end;Thank you,
Tony Miller
Webster, TX

Dynpro table -dynamically change table header name

how to change table header name at runtime ?
for instance, when i bind to a dataNode with this attribute:
smsid, usrid, crdate, stdate,enddate
change to
message_id, user_id, create_date, start_date, end_date during runtime.

Hi yzme,
To change the column header for each field you have to set the [Caption-Header] text value.
Use this code inside "wdDoModifyView" method.
    //@@begin wdDoModifyView
     IWDCaption smsid_caption = (IWDCaption)view.getElement("smsid_header");
     smsid_caption.setText("message_id");
     IWDCaption usrid_caption = (IWDCaption)view.getElement("usrid_header");
     usrid_caption.setText("user_id");
     IWDCaption crdate_caption = (IWDCaption)view.getElement("crdate_header");
     crdate_caption.setText("create_date");
     IWDCaption stdate_caption = (IWDCaption)view.getElement("stdate_header");
     stdate_caption.setText("start_date");
     IWDCaption enddate_caption = (IWDCaption)view.getElement("enddate_header");
     enddate_caption.setText("end_date ");
        //@@end
Regards,
Mithu

Change Table control Column Header text dynamically

Hi,
I have an requirement to change table control column header text dynamically.
i.e. I have about 10 columns in table control, out that need to change 5 columns header text. These header texts are stored in an internal table.
I had looked into the below link but could not get exactly how to do it.
Dynamic headers in table control
Could you please tell me how to do that.
Thanks in Advance.

Hi Saba,
What you will need to do is this.....
1. First replace the column Header Text box by I/O Fields and name them accordingly.
Say for example we will consider the same example which i had explained in the link.
there in the column header we want the header to change when some dates and entered into two fields which are out of table control say
Start Date: 01.01.2010 to End Date: 06.01.2010
Now we want the header to look like this,
Column No.    -        1               2             3                  4               5               6
Header label   -    01/FRI       02/SAT     03/SUN       04/MON     05/TUE      06/WED
Header name -    SPOTS1   SPOTS2    SPOTS3      SPOTS4     SPOTS5    SPOTS6
then you go as per the instructions in the link......
Let me know if you need further help,
Hope this solves your problem....
Regards,
Abhijit G. Borkar

Dynamically changing internal table in 'gui_download'

Hi Experts,
 i have to download 4 internal tables, each with different structures, to the presentation server using 'gui_download', based on which radio-button is selected in the selection screen. I am hoping to use a single 'form' and 4 'perform' calls. how can I dynamically change the tables in the 'gui_download' function modules.
plz help.....................

Hi ,
Build the field catalog dynamically based on the internal table structure based on the radio button selected.Use the dynamic internal table generated from the filedcatalog and use in GUI_DOWNLOAD.
See the below code:
*& Report ZRAJESH02
REPORT zrajesh02.
Dynamic internal table
TYPE-POOLS: slis.
FIELD-SYMBOLS: <dyn_table> TYPE STANDARD TABLE,
 <dyn_wa>.
DATA: alv_fldcat TYPE slis_t_fieldcat_alv,
 it_fldcat TYPE lvc_t_fcat.
DATA: lv_monate TYPE f,
 lv_months TYPE i,
 lv_date TYPE sy-datum,
 p_check1 type n value '1'.
lv_date = sy-datum + 360.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_check TYPE c.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
CALL FUNCTION 'MONTHS_BETWEEN_TWO_DATES'
 EXPORTING
 i_datum_bis = lv_date
 i_datum_von = sy-datum
 i_kz_incl_bis = ' '
 IMPORTING
 e_monate = lv_monate.
lv_months = lv_monate.
PERFORM f_fcat USING 'AUFNR' 'CHAR' '12'.
PERFORM f_fcat USING 'POSNR' 'CHAR' '06'.
while p_check1 LE p_check.
PERFORM f_fcat USING p_check1 'CHAR' '1'.
p_check1 = p_check1 + 1.
endwhile.
PERFORM build_dyn_itab.
LOOP AT <dyn_table> INTO <dyn_wa>.
 WRITE:/ <dyn_wa>.
ENDLOOP.
FORM f_fcat USING fieldname dattyp length.
DATA:wa_it_fldcat TYPE lvc_s_fcat.
CLEAR wa_it_fldcat.
wa_it_fldcat-fieldname = fieldname.
wa_it_fldcat-datatype = dattyp.
wa_it_fldcat-intlen = length.
APPEND wa_it_fldcat TO it_fldcat .
ENDFORM. "f_fcat
*& Form build_dyn_itab
 text
FORM build_dyn_itab.
DATA: new_table TYPE REF TO data,
new_line TYPE REF TO data.
wa_it_fldcat TYPE lvc_s_fcat.
CLEAR wa_it_fldcat.
wa_it_fldcat-fieldname = 'AUFNR'.
wa_it_fldcat-datatype = 'CHAR'.
wa_it_fldcat-intlen = 12.
APPEND wa_it_fldcat TO it_fldcat .
CLEAR wa_it_fldcat.
wa_it_fldcat-fieldname = 'POSNR'.
wa_it_fldcat-datatype = 'CHAR'.
wa_it_fldcat-intlen = 6.
APPEND wa_it_fldcat TO it_fldcat .
Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fldcat
 IMPORTING
 ep_table = new_table.
ASSIGN new_table->* TO <dyn_table>.
Create dynamic work area and assign to FS
CREATE DATA new_line LIKE LINE OF <dyn_table>.
ASSIGN new_line->* TO <dyn_wa>.
ENDFORM. "build_dyn_itab
Thanks,
Rajesh.

Dynamically change the Priority Group of Logical Table Sources in OBIEE 11g

Hi All,
I have 2 Logical Table Sources(LTS 1 and LTS 2 for a Logical Table in BMM Layer).
Example: Logical Table : Sample
LTS Source 1 : Sample 1(Priority Group Set to 1)
LTS Source 2 : Sample 2(Priority Group Set to 0)
I have set the Priority Group of Sample 1 LTS Source to 1 and Priority Group of Sample 2 LTS Source to 0.
I need to dynamically change the Priority Group of Sample 1 LTS Source to 0 if my role is DEVELOPER where role is a column in database.
If my role is not equal to DEVELOPER then the Priority Group of Sample 1 LTS Source will remain same(1).
Please suggest how can i achieve this.
Thanks,
Soukath Ali

hello Soukath Ali,
didi you find a way to dinamically changing Priority Group?
thanks,
Maria Teresa Marchetti

Dynamic Internal Table - data type changed automatically

Dear All,
I have a requirement of craetion of dynamic inetrnal table which I have created referring to a custom table .
In that custom table there is field ZDC002 of type DEC(16,7) which is converted to data type P(9,7) .
Now it works fine if 2 digit and 7 decimals value passed like 12.1234567 but it gives overflow error when passing more than 2 digit value .
Please help me as I have no control to SAP standard functinality while creation of data-type . My piece of code :
ref_table_des ?=
cl_abap_typedescr=>describe_by_name( 'ZBW_EE_DCONTR' ).
idetails[] = ref_table_des->components[].
In this idetails[] table filedname data type changed from DEC16,7 to data type P(9,7). => Total Length of Packed Data Type is 9 which allows to contain only 2 numericdigits and 7 decimals => puts overflow error if more than 2 numeric data passed.
Any suggestions will be appreciated.
Thanks,
Sachin

Did you try to view the code on the Data Source view and cube that it is reflecting the correct data type on both places? if not you can change there and save it.
prajwal kumar potula

Dynamically changing row color in an ADF table?

Hi,
I am using Build JDEVADF_11.1.1.3.PS2_GENERIC_100408.2356.5660. Can anyone please let me know the code for dynamically changing the row color of an ADF table?
Thanks,
Vik

well you can use EL on af:column inlineStyle property to change the color on condition
e.g
inlineStyle='#{(row.SelectedRow)?"background-color: Silver":""};a example can be found here it is changing color based on Checkbox selection http://baigsorcl.blogspot.com/2010/06/deleting-multi-selected-rows-from-adf.html

Is it possible to change nunmber of columns dynamically in table control

Is it possible to change number of columns dynamically in table control? if so how it could be done?
Thnaks in advance.
Sounder

You can update the table control in your program, the table control is a structure of the type CXTAB_CONTROL of TYPE-POOLS cxtab.
There you can hide or display column the same way you do for fields in LOOP AT SCREEN. there you will ahve to LOOP AT <control>-COLS.
TYPE-POOL CXTAB .
TYPES:
BEGIN OF CXTAB_COLUMN,
 SCREEN LIKE SCREEN, "Attributes struktur SCREEN
 INDEX TYPE I, "Position of a column on the screen
 SELECTED(1) TYPE C, "Indicator 'column selected'
 VISLENGTH LIKE ICON-OLENG, "Visualised length of a column
 INVISIBLE(1) TYPE C, "Indicator 'column invisible'
 END OF CXTAB_COLUMN,
BEGIN OF CXTAB_CONTROL,
 FIXED_COLS TYPE I, "Number of fixed columns
 LINES TYPE I, "Number of lines to display
 TOP_LINE TYPE I, "Top line during next PBO
 CURRENT_LINE TYPE I, "Current line during LOOP/ENDLOOP
 LEFT_COL TYPE I, "Fist scrollable column after fixed area
 LINE_SEL_MODE TYPE I, "Line-selection : none(0), single(1),
 COL_SEL_MODE TYPE I, "Column-selection: multiple(2)
 LINE_SELECTOR(1) TYPE C, "Indicator: 'With line-selection col'
 V_SCROLL(1) TYPE C, "not used
 H_GRID(1) TYPE C, "Indicator: 'Horizontal grid-lines'
 V_GRID(1) TYPE C, "Indicator: 'Vertikal grid-lines'
 COLS TYPE STANDARD TABLE OF CXTAB_COLUMN
 WITH NON-UNIQUE DEFAULT KEY,
 INVISIBLE(1) TYPE C,
 END OF CXTAB_CONTROL,
Regards

Dynamically change cell properties in a table

Hi,
I have read all forum posts about changing table cell properties, but I can't find the solution to my problem.
I have a table that derives its structure from a table which is the output of an RFC.
The rows are provided by the model.
When displaying the result of the RFC call, I want to add a colored row between certain sections with totals of that particular section.
I managed to add the row in the appropriate place, however I cannot change the color of this row (or even better: the particular cell).
Can anyone tell me how to proceed? And what property determines backgroundcolor of a tablecell? TextViewSemanticColor determines the text color, I want to change the background color.
Here is a fragment from my wdDoModifyView:
i=0;
IPrivateResultView.IEp_OpportunitiesNode node = wdContext.nodeEp_Opportunities();
while (i<node.size()) {
 total1 += <some value>;
 total2 += <some value>;
 if (<start of new section>) {
 IPrivateResultView.IEp_OpportunitiesElement el = (IPrivateResultView.IEp_OpportunitiesElement) node.createElement(new Zopportunities());
 el.setAttributeValue("Exp_Revenue", new BigDecimal(total1));
 el.setAttributeValue("Chancevalue", new BigDecimal(total2));
// totals row is added here:
 node.addElement(i, el);
// how can I make this work for background color?
 el.node().getNodeInfo().addAttribute("TextViewSemanticColor", "ddic:com.sap.ide.webdynpro.uielementdefinitions.TextViewSemanticColor");
 el.setAttributeValue("TextViewSemanticColor", WDTextViewSemanticColor.NEGATIVE);
 total1 = 0;
 total2 = 0;
 i++;
Thanks in advance,
Roelof

Hello Knibbe,
One can play with the readOnly of table cell editor (Input Field) to acheive the expected result.
Let us take a specific case where your table has four columns say col1, col2, col3, col4 and each of these columns have Input field as the table cell editor.
Then depending upon the condition specified below choose your option.
If you have bound the table to the model node
1. Create a new value node and create a bolean value attribute under it.
2. Set the cardinality of the value node to 1:1 and singleton to false.
3. Bind this attribute to the Table cell editor (Inputfield) in col1, col2, col3 and col4.
4. set the value of this attribute to TRUE when the table gets filled up initially i.e for the elements/rows in which you want to display the total, as per your requirement.
5. set the value of this attribute to FALSE for the other rows where you want the user to edit the data.
If you have bound the table to a value node
1. Create a value attribute of type boolean under the value node and follow the ONLY the steps 3, 4 and 5
Please reward appropriate points.
Bala
Message was edited by: Bala Krishnan

More lines in Table-Headers

Hello,
I have an application developed with Netbeans and running under Glassfish using MySQL. All in the newest versions and running finr. But I have a design-question. Table-Headers normaly look like the following Screen-Shot:
http://twi.homeip.net/bilder/java/Soll.jpg
But in another Table I need some Headers with more Rows of text. Even the column-number is dynamical. So I have to create the Table on the fly. This works fine. Except for the Table-Header and the Backgroun of the text. I force the Row-Change with a "
"-tag inside the StaticText wich I insert as Header in the Column. But the Header looks like the following Screen-Shot:
http://twi.homeip.net/bilder/java/Ist.jpg
My problem is the Background of the Headers. I want that the background looks the same all over the table. How can I do this?
Thanks and regards,
Thomas

Hello,
thanks for the answer. That is not exactly what I want. I Don't want spanned Table-Headers. I just want a table with some 1-line Headers and som 3-line headers and all should have the same Background. As you can see in my Screenshot they don't have the same background.
Regards,
Thomas

How to populate data in dynamic internal table

Hi Expert,
fyi. My dynamic internal table field is created base on data selected. Eg. select table qpcd has 5 records. These 5 recods will become fieldname to my dynamic internal table. My dynamic internal table will be
...itab
 01
 02
 03
 04
 05
The 5 records from qpcd is populated in another table call viqmel. I need to find the occurance of each code in viqmel and populate the number of occurance in itab in each of column. The final dynamic itab will be like this
table itab
01 02 03 04 05 -
> field name
2 0 1 0 1 -
> data
my source code like below
Report ZPLYGRND2.
TABLES: mara, makt.
TYPE-POOLS: slis, sydes.
DATA:it_fcat TYPE slis_t_fieldcat_alv,
 is_fcat LIKE LINE OF it_fcat,
 ls_layout TYPE slis_layout_alv.
DATA: it_fieldcat TYPE lvc_t_fcat,
 is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data,
 new_line TYPE REF TO data,
 ob_cont_alv TYPE REF TO cl_gui_custom_container,
 ob_alv TYPE REF TO cl_gui_alv_grid,
 vg_campos(255) TYPE c,
 i_campos LIKE TABLE OF vg_campos,
 vg_campo(30) TYPE c,
 vg_tables(60) TYPE c.
types : begin of t_qpcd,
 codegruppe like qpcd-codegruppe,
 code like qpcd-code,
 end of t_qpcd.
data:wa_qpcd type t_qpcd,
 i_qpcd type standard table of t_qpcd initial size 0.
FIELD-SYMBOLS: <l_table> TYPE table,
 <l_line> TYPE ANY,
 <l_field> TYPE ANY.
select * into corresponding fields of wa_qpcd from qpcd
where katalogart = 'D'
and codegruppe = 'OOT01'.
append wa_qpcd to i_qpcd.
endselect.
loop at i_qpcd into wa_qpcd.
is_fcat-fieldname = wa_qpcd-code.
APPEND is_fcat TO it_fcat.
endloop.
LOOP AT it_fcat INTO is_fcat.
 is_fieldcat-fieldname = is_fcat-fieldname.
 is_fieldcat-ref_field = is_fcat-ref_fieldname.
 is_fieldcat-ref_table = is_fcat-ref_tabname.
 APPEND is_fieldcat TO it_fieldcat.
ENDLOOP.
*... Create the dynamic internal table
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fieldcat
 IMPORTING
 ep_table = new_table.
if sy-subrc = 0.
endif.
*... Create a new line
ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.
LOOP AT <l_table> INTO <l_line>.
ENDLOOP.

hello dear i m giving u a code in this a dynamic table is made on the basis of table in database , and u can download this data correct it , see it, or even change it....and upload in tht table help full if u dont know the table name...in advance.
also the code to populate data in dynamic table is in this code like:
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
look at the whole program .hope this solve ur problem thanks.
REPORT ZTESTA MESSAGE-ID ZIMM .
TYPES : DATA_OBJECT TYPE REF TO DATA.
DATA : MITAB TYPE REF TO DATA .
TYPE-POOLS : SLIS .
DATA : IT_FIELDCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV
WITH HEADER LINE .
DATA : IT_FIELDCATALOG TYPE LVC_T_FCAT .
DATA : WA_FIELDCATALOG TYPE LVC_S_FCAT .
DATA : I_STRUCTURE_NAME LIKE DD02L-TABNAME .
DATA : I_CALLBACK_PROGRAM LIKE SY-REPID .
DATA : DYN_LINE TYPE DATA_OBJECT .
FIELD-SYMBOLS : <FS_ITAB> TYPE STANDARD TABLE .
DATA : TABLE_NAME_IS_VALID TYPE C .
DATA : DYNAMIC_IT_INSTANTIATED TYPE C .
CONSTANTS BUTTONSELECTED TYPE C VALUE 'X' .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_TABL.
PARAMETERS : MTABLE_N LIKE RSRD1-TBMA_VAL
MATCHCODE OBJECT DD_DBTB_16 OBLIGATORY .
DATA CHECKTABLED.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_FILE.
PARAMETERS : MFILENAM LIKE RLGRAP-FILENAME .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_DOWN.
PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1
USER-COMMAND M_UCOMM .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_CHKF.
PARAMETERS : P_CHKFIL RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_UPLD.
PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_SHOW.
PARAMETERS : P_SHOW_T RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT .
PERFORM CHECK_FILENAME .
AT SELECTION-SCREEN.
IF SY-UCOMM = 'ONLI'.
 CHECKTABLED = MTABLE_N+0(1).
 IF CHECKTABLED NE 'Z'.
 MESSAGE I017.
 LEAVE TO SCREEN 1000.
 ENDIF.
 IF SY-UNAME NE 'KAMESH.K'.
 MESSAGE I023 WITH SY-UNAME.
 LEAVE TO SCREEN 1000.
 ENDIF.
ENDIF.
IF SY-UCOMM = 'PRIN'.
 CHECKTABLED = MTABLE_N+0(1).
 IF CHECKTABLED NE 'Z'.
 MESSAGE I017.
 LEAVE TO SCREEN 1000.
 ENDIF.
 IF SY-UNAME NE 'KAMESH.K'.
 MESSAGE I023 WITH SY-UNAME.
 LEAVE TO SCREEN 1000.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR MFILENAM .
PERFORM F4_FOR_FILENAME .
INITIALIZATION .
T_TABL = 'Table Name' .
T_FILE = 'File Name' .
T_DOWN = 'Download Table' .
T_CHKF = 'Check File to Upload' .
T_UPLD = 'Upload File' .
T_SHOW = 'Show Table Contents' .
START-OF-SELECTION .
PERFORM CHECK_TABLE_NAME_IS_VALID .
END-OF-SELECTION .
IF TABLE_NAME_IS_VALID EQ ' ' .
 MESSAGE I398(00) WITH 'INVALID TABLE NAME' .
ELSE .
 PERFORM INSTANTIATE_DYNAMIC_INTERNAL_T .
 CHECK DYNAMIC_IT_INSTANTIATED = 'X' .
 CASE BUTTONSELECTED .
 WHEN P_DOWNLD .
 PERFORM SELECT_AND_DOWNLOAD .
 WHEN P_CHKFIL .
 PERFORM CHECK_FILE_TO_UPLOAD .
 WHEN P_UPLOAD .
 PERFORM UPLOAD_FROM_FILE .
 WHEN P_SHOW_T .
 PERFORM SHOW_CONTENTS .
 ENDCASE .
ENDIF .
FORM CHECK_TABLE_NAME_IS_VALID.
DATA MCOUNT TYPE I .
TABLES DD02L .
CLEAR TABLE_NAME_IS_VALID .
SELECT COUNT(*) INTO MCOUNT FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'TABL'
AND OBJ_NAME = MTABLE_N .
IF MCOUNT EQ 1 .
 CLEAR DD02L .
 SELECT SINGLE * FROM DD02L WHERE TABNAME = MTABLE_N .
 IF SY-SUBRC EQ 0.
 IF DD02L-TABCLASS = 'TRANSP' .
 TABLE_NAME_IS_VALID = 'X' .
 ENDIF .
 ENDIF.
ENDIF .
ENDFORM. " CHECK_TABLE_NAME_IS_VALID
FORM SELECT_AND_DOWNLOAD.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
IF SY-SUBRC EQ 0.
 MESSAGE I398(00) WITH 'Table' MTABLE_N
 'successfully downloaded to '
 MFILENAM .
ENDIF.
ENDFORM. " SELECT_AND_DOWNLOAD
FORM UPLOAD_FROM_FILE.
DATA : ANS TYPE C .
DATA : LINES_OF_ITAB TYPE I .
DATA : MSY_SUBRC TYPE I .
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 TEXTLINE1 = 'Are you sure you wish to upload'
 TEXTLINE2 = 'data from ASCII File to DB table '
 TITEL = 'Confirmation of Data Upload'
 IMPORTING
 ANSWER = ANS.
IF ANS = 'J' .
 PERFORM CHECK_FILENAME.
 CLEAR MSY_SUBRC .
 CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
 MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
 IF SY-SUBRC EQ 0.
 DESCRIBE TABLE <FS_ITAB> LINES LINES_OF_ITAB .
 IF LINES_OF_ITAB GT 0 .
 MODIFY (MTABLE_N) FROM TABLE <FS_ITAB> .
 MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
 ENDIF .
 ENDIF.
 IF MSY_SUBRC EQ 0 .
 MESSAGE I398(00) WITH LINES_OF_ITAB
 'Record(s) inserted in table'
 MTABLE_N .
 ELSE .
 MESSAGE I398(00) WITH
 'Errors occurred No Records inserted in table'
 MTABLE_N .
 ENDIF .
ENDIF .
ENDFORM. " UPLOAD_FROM_FILE
FORM F4_FOR_FILENAME.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 DEF_PATH = 'C:\'
 MASK = ',.,..'
 MODE = '0'
 IMPORTING
 FILENAME = MFILENAM
 EXCEPTIONS
 INV_WINSYS = 1
 NO_BATCH = 2
 SELECTION_CANCEL = 3
 SELECTION_ERROR = 4
 OTHERS = 5.
ENDFORM. " F4_FOR_FILENAME
FORM CHECK_FILENAME.
IF MFILENAM IS INITIAL
AND NOT ( MTABLE_N IS INITIAL )
AND P_SHOW_T NE BUTTONSELECTED.
 CONCATENATE 'C:\'
 MTABLE_N '.TXT' INTO MFILENAM.
ENDIF .
ENDFORM. " CHECK_FILENAME
FORM INSTANTIATE_DYNAMIC_INTERNAL_T.
CLEAR DYNAMIC_IT_INSTANTIATED .
I_STRUCTURE_NAME = MTABLE_N .
CLEAR IT_FIELDCAT[] .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_STRUCTURE_NAME = I_STRUCTURE_NAME
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT[]
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC EQ 0.
 LOOP AT IT_FIELDCAT .
 CLEAR WA_FIELDCATALOG .
 MOVE-CORRESPONDING IT_FIELDCAT TO WA_FIELDCATALOG .
 WA_FIELDCATALOG-REF_FIELD = IT_FIELDCAT-FIELDNAME .
 WA_FIELDCATALOG-REF_TABLE = MTABLE_N .
 APPEND WA_FIELDCATALOG TO IT_FIELDCATALOG .
 ENDLOOP .
 CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_FIELDCATALOG
 IMPORTING
 EP_TABLE = MITAB .
 ASSIGN MITAB->* TO <FS_ITAB> .
 DYNAMIC_IT_INSTANTIATED = 'X' .
ENDIF.
ENDFORM. " INSTANTIATE_DYNAMIC_INTERNAL_T
FORM SHOW_CONTENTS.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
I_CALLBACK_PROGRAM = SY-REPID .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
 IT_FIELDCAT = IT_FIELDCAT[]
 TABLES
 T_OUTTAB = <FS_ITAB>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDFORM. " SHOW_CONTENTS
FORM CHECK_FILE_TO_UPLOAD.
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
IF SY-SUBRC EQ 0.
 I_CALLBACK_PROGRAM = SY-REPID .
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
 IT_FIELDCAT = IT_FIELDCAT[]
 TABLES
 T_OUTTAB = <FS_ITAB>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDIF .
ENDFORM. " CHECK_FILE_TO_UPLOAD
Message was edited by:
 SAURABH SINGH
 SENIOR EXECUTIVE
 SAMSUNG INDIA ELECTRONICS LTD.,NOIDA

How to use dynamic internal table when using gui_upload?

Hi Experts,
my scenario is like i have header data, item data and serial numbers.
so with respect to the quantity in unit of measure ,there will be number of serial numbers..
i have declared the dynamic internal table,but i am not getting the logic to change the structure accordingly with respect to the flat file entries..
is it possible to do or its not possible....any suggestion!!!!i have declared like this....
TYPES: BEGIN OF ty_final,
 bldat TYPE string, "Document Date
 budat TYPE string, "Psting Date
 bktxt TYPE string, "Document Header Text
 werks TYPE string, "Plant
 lgort TYPE string, "Storage Location
 matnr TYPE string, "Material Number
 erfmg TYPE string, "Quantity in Unit Of Entry
 anln1 TYPE string, "Asset Number
 anln2 TYPE string, "Asset Subnumber
 sernr TYPE string, "serial Number
END OF ty_final.
DATA : it_final TYPE TABLE OF ty_final,
 wa_final TYPE ty_final.
FIELD-SYMBOLS : <fs_final> TYPE table.
ASSIGN it_final TO <fs_final>.
after this i called gui upload and passed internal table it_final..
but i have to change the internal table structure dynamically before the upload function.so that it will match with the flat file...
Regards
Karthick

There are at least two approaches you can use to change/generate new dynamic-structured table. Either with [RTTI + RTTS|https://wiki.sdn.sap.com/wiki/display/Snippets/CreatingFlatandComplexInternalTablesDynamicallyusingRTTI] or using [CL_ALV_TABLE_CREATE|http://www.sdn.sap.com/irj/scn/advancedsearch?query=cl_alv_table_create] . In this one just determine fieldcatalog of current table and change it accordingly, then regenarate table.
There are plenty of examples in SCN for this. You should not face difficulties applying this.
Regards
Marcin

Create a deep structure for dynamic internal table

Hi All,
I am creating a dynamic table using method cl_alv_table_create=>create_dynamic_table.
The normal structure gets created. but now I want to creat a Deep structure for having information of colors also for each column. So I want to add a COLTAB type LVC_T_SCOL for colors information .
How should I create this using above method?
Rgds,
Madhuri

I created a zcelltab structure as below. But while creating dynamic internal table, I received the error with
'Type "ZCELLTAB" is unknown 68 ZCELLTAB-CELLTAB
Here is the code.
DATA: BEGIN OF ZCELLTAB,
 CELLTAB LIKE LVC_S_STYL,
 END OF ZCELLTAB.
FIELD-SYMBOLS <T_CELLTAB> TYPE LVC_T_STYL.
DATA : LT_CELLTAB TYPE LVC_T_STYL.
DATA: WA_CELLTAB TYPE LINE OF LVC_T_STYL.
DATA: GT_FCAT1 TYPE LVC_T_FCAT,
 GW_FCAT1 TYPE LVC_S_FCAT,
 GT_FCAT2 TYPE LVC_T_FCAT,
 GW_FCAT2 TYPE LVC_S_FCAT.
After filling the FCAT1, I added the field in FCAT2 like below
GT_FCAT2[ ] = GT_FCAT1[ ].
G_TABIX = G_TABIX + 1.
GW_FCAT2-INTTYPE = 'C'.
MOVE G_TABIX TO GW_FCAT2-COL_POS.
GW_FCAT2-OUTPUTLEN = '10'.
GW_FCAT2-FIELDNAME = 'T_CELLTAB'.
GW_FCAT2-TABNAME = 'ZCELLTAB'.
GW_FCAT2-REF_FIELD = 'CELLTAB'.
GW_FCAT2-REF_TABLE = 'ZCELLTAB'.
APPEND GW_FCAT2 TO GT_FCAT2
CLEAR GW_FCAT2.
While calling the below method, the error with
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = GT_FCAT2
 IMPORTING
 EP_TABLE = GT_REQ.
ASSIGN GT_REQ->* TO <F_TAB>.
CREATE DATA GWA_REQ LIKE LINE OF <F_TAB>.
ASSIGN GWA_REQ->* TO <F_WA>.
LOOP AT ITAB.
ASSIGN COMPONENT 'MATNR' OF STRUCTURE <F_WA> TO <F_VAL>
<F_VAL> = ITAB-MATNR.
IF ITAB-MATNR IS INITIAL.
ASSIGN COMPONENT 'T_CELLTAB' OF STRUCTURE <F_WA> TO <T_CELLTAB>
 CLEAR WA_CELLTAB.
 WA_CELLTAB-FIELDNAME = 'MATNR'.
 WA_CELLTAB-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 INSERT WA_CELLTAB INTO TABLE <T_CELLTAB>.
ENDIF.
APPEND <F_WA> TO <F_TAB>
ENDLOOP.
CALL METHOD GR_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 I_CONSISTENCY_CHECK = G_CONSISTENCY_CHECK
 IT_TOOLBAR_EXCLUDING = G_EXCLUDE
 I_SAVE = G_SAVE
 I_DEFAULT = 'X'
 IS_LAYOUT = G_LAYOUT
 CHANGING
 IT_OUTTAB = <F_TAB>
 IT_FIELDCATALOG = F_CAT1.
Please let me know where I was wrong.
Should I remove the T_CELLTAB as the field name is not mentioned in the structure 'ZCELLTAB'.
Thanks,
Kumar.
Edited by: venn e on May 7, 2010 4:10 PM

At end of field, for dynamic internal table entries ?

Dear All,
I've data in my dynamic internal table.
But, to understand in a better way I created a test program with static entries.
Case 1 -->
DATA: BEGIN OF itab OCCURS 0,
        year TYPE char4,
        name TYPE char10,
      END OF itab.
DATA: BEGIN OF itab2 OCCURS 0 ,
        year TYPE char4,
        name TYPE char10,
        count TYPE i,
      END OF itab2.
DATA: gv_count TYPE i,
      gv_flag TYPE char1.
itab-name = 'AAAA'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAB'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAC'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAD'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBB'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBA'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBC'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBD'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCC'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCA'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCB'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCD'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCE'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCf'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDD'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDA'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDB'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDC'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDE'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
SORT itab BY year.
LOOP AT itab.
* Counter
gv_count = gv_count + 1.
AT END OF year.
    itab2-count = gv_count.
    MOVE-CORRESPONDING itab TO itab2.
    APPEND itab2.
    CLEAR gv_count.
    WRITE:/ itab2-name,
    itab2-year,
    itab2-count.
    CLEAR itab2.
    CLEAR gv_flag.
ENDAT.
ENDLOOP.
Now for the above program the Output is :
Name     Year          Count
********** 2005          5
********** 2006          6
********** 2007          4
********** 2008          4
" Forget about the asterisk values as it's an example !
The above output is correct, But in my real case the table structure is not like the above .
The order of the field are in reverse.
i.e. The internal table is like this :
Case 2 -->
DATA: BEGIN OF itab OCCURS 0,
        name TYPE char10,
        year TYPE char4,
      END OF itab.
DATA: BEGIN OF itab2 OCCURS 0 ,
        name TYPE char10,
        year TYPE char4,
        count TYPE i,
      END OF itab2.
In this case if I'm using at end of year the output is coming wrong.
Even on change of is also not working.
Request you guys to help me out so that I can achieve the same output as of case 1 with the table declaration as of CASE 2.
Regards,
Deepu.k

Hello Rich Heilman,
Again you came for my rescue ............
My code for this scenario is like this :
DATA: BEGIN OF itab OCCURS 0,
        name TYPE char10,
        year TYPE char4,
      END OF itab.
DATA: BEGIN OF itab2 OCCURS 0 ,
        name TYPE char10,
        year TYPE char4,
        count TYPE i,
      END OF itab2.
DATA: gv_count TYPE i,
      gv_flag TYPE char1.
itab-name = 'AAAA'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAB'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAC'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'AAAD'.
itab-year = '2008'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBB'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBA'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBC'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'BBBD'.
itab-year = '2007'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCC'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCA'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCB'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCD'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCE'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'CCCf'.
itab-year = '2006'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDD'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDA'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDB'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDC'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
itab-name = 'DDDE'.
itab-year = '2005'.
APPEND itab.
CLEAR itab.
SORT itab BY year.
LOOP AT itab.
* Counter
gv_count = gv_count + 1.
IF sy-tabix GT 1.
    ON CHANGE OF itab-year.
      itab2-count = gv_count.
      MOVE-CORRESPONDING itab TO itab2.
      APPEND itab2.
      CLEAR gv_count.
      WRITE:/ itab2-name,
      itab2-year,
      itab2-count.
      CLEAR itab2.
      CLEAR gv_flag.
    ENDON.
ENDIF.
ENDLOOP.
The Output is :
DDDC       2005          2
CCCf       2006          4
BBBD       2007          6
AAAD       2008          4
The above output is wrong.
Can u correct me where I'm doing wrong ?
Regards,
Deepu.K

Dynamically changing table headers

Similar Messages

Maybe you are looking for