Help required in creation of Dictionary table dynamically

Hello All,
I have created DDIC table created dynamically.
But what i require is! the dictionary table which i have created should be under the package name as given by the customer.
I have seen in FM DDIF_TABL_PUT the parameter dd02v-APPLCLASS is the write parameter to create the table under the required package. This field is of length char 4 only.
Normally the package name will be greater than char4 and also it happend in my case that the package name is more than char4.
Now i am unable to create the table dynamically under the specified pacakage of the customer
How can i solve this problem?
Can any one help me in this issue?
Regards,
Gupta

Hi Lakshman,
Thank you for your reply,
I have used the FM which you have mentioned but i didn't work. I mean when i see the attributes of the table, package is still empty.
Can you help me to solve the problem.
CALL FUNCTION 'TR_TADIR_INTERFACE'
 EXPORTING
* WI_DELETE_TADIR_ENTRY = ' '
* WI_REMOVE_REPAIR_FLAG = ' '
* WI_SET_REPAIR_FLAG = ' '
* WI_TEST_MODUS = 'X'
 wi_tadir_pgmid = 'R3TR'
 wi_tadir_object = 'TABL'
 wi_tadir_obj_name = lv_objname
* WI_TADIR_KORRNUM = ' '
* WI_TADIR_SRCSYSTEM = ' '
* WI_TADIR_AUTHOR = ' '
 wi_tadir_devclass = 'ZV/HF/PLANNING'
* WI_TADIR_MASTERLANG = ' '
* WI_TADIR_CPROJECT = ' '
* WI_TADIR_VERSID = ' '
* WI_REMOVE_GENFLAG = ' '
* WI_SET_GENFLAG = ' '
* WI_READ_ONLY = ' '
* IV_SET_EDTFLAG = ' '
* IMPORTING
* NEW_GTADIR_ENTRY =
* NEW_TADIR_ENTRY =
 EXCEPTIONS
 tadir_entry_not_existing = 1
 tadir_entry_ill_type = 2
 no_systemname = 3
 no_systemtype = 4
 original_system_conflict = 5
 object_reserved_for_devclass = 6
 object_exists_global = 7
 object_exists_local = 8
 object_is_distributed = 9
 obj_specification_not_unique = 10
 no_authorization_to_delete = 11
 devclass_not_existing = 12
 simultanious_set_remove_repair = 13
 order_missing = 14
 no_modification_of_head_syst = 15
 pgmid_object_not_allowed = 16
 masterlanguage_not_specified = 17
 devclass_not_specified = 18
 specify_owner_unique = 19
 loc_priv_objs_no_repair = 20
 gtadir_not_reached = 21
 object_locked_for_order = 22
 change_of_class_not_allowed = 23
 no_change_from_sap_to_tmp = 24
 OTHERS = 25
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Regards,
Lisa
Edited by: Lisa Roy on Apr 9, 2008 11:37 AM

Similar Messages

Creation of internal table dynamically based on the Date Range entered

Hi SAPgurus,
I have been facing one issue i.e creation of internal table dynamically based on the date range entered in the selection screen. For example the date range I am giving as 06/2006 to 08/2006, it should display the Fieldcatelog dynamically, this part i have completed but the only issue I am facing is to populate the sales data into that fields.
Right now my program is displaying the ALV like this.
Ex:
CSR District 06/2006 07/2006 08/2006 totals
Shiva New York 10.00
Shiva new york 30.00
Shiva new york 40.00
but it should display like this
CSR District 06/2006 07/2006 08/2006 totals
Shiva New York 10.00 30.00 40.00
80.00
Please help me in this scenario, how to acheive like this..
Thanks & Regards,
Sivaram Kandula

Hi Sivaram,
 I also got the same requirement . i saw rich and your code whatever you have uploaded.i have created dynamic internal table but i am facing the issue to populating the data to my dynamic internal table.
Sivaram, can you please explain your code after this.
*<dyn_table>
*tab_item.
LOOP AT tab_item.
 ASSIGN COMPONENT 1 OF STRUCTURE <dyn_wa> TO <dyn_table>.
 ASSIGN COMPONENT 2 OF STRUCTURE <dyn_wa> TO <dyn_table>.
* <dyn_wa> = tab_item-bztxt.
* <dyn_wa> = tab_item-total.
* APPEND <dyn_wa> TO <dyn_table>.
** <dyn_wa> = tab_item-total.
** ASSIGN tab_item-bezei TO <dyn_wa>.
* APPEND <dyn_table>.
ENDLOOP.
how you are puting the loop at tab_item. but tab_item is already commented.
can you send me the code after that.
i am sending some part of my code.
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = gt_fCAT1
 IMPORTING
 ep_table = new_table.
ASSIGN new_table->* TO <dyn_table>.
 create data new_line like line of <dyn_table>.
 assign new_line->* to <dyn_wa>.
select vbeln
 fkart
 vkorg
 vtweg
 fkdat
 spart
 fksto
 from vbrk
 client specified
 into table gt_vbrk
 where mandt = sy-mandt
 and fkart in ('ZF5','ZFR')
 and vkorg = '1100'
 and vtweg = '20'
 and fkdat in s_fkdat
 and spart = '06'
 and fksto = ' '.
 if gt_vbrk[] is not initial.
select vbeln
 fkimg
 prsdt
 netwr
 matnr
 arktx
 werks
 mwsbp
 from vbrp
 client specified
 into table gt_vbrp
 for all entries in gt_vbrk
 where vbeln = gt_vbrk-vbeln
 and werks in s_werks
 and matnr in s_matnr.
endif.
select mnr ltx spras from t247
into table it_t247
where spras = 'E'.
data: lv_month1 type vbrp-prsdt,
 name1(3) type c,
 s_month type string,
 s_month1 type string,
 s_month2 type string.
* lv_netwr1 type vbrp-netwr,
* lv_mwsbp1 type vbrp-mwsbp.
 loop at gt_vbrp into gs_vbrp.
 gs_final2-matnr = gs_vbrp-matnr.
 gs_final2-arktx = gs_vbrp-arktx.
 gs_final2-fkimg = gs_vbrp-fkimg.
 lv_month1 = gs_vbrp-prsdt.
 read table it_t247 into wa_t247 with key mnr = lv_month1+4(2).
 if sy-subrc eq 0.
 name1 = wa_t247-ltx.
 endif.
 concatenate name1
 lv_month1(4) into s_month SEPARATED BY '_' .
 CONCATENATE S_MONTH 'QTY' INTO S_MONTH1 SEPARATED BY ''.
 CONCATENATE S_MONTH 'VALUE' INTO S_MONTH2 SEPARATED BY ''.
 gs_final2-month = s_month.
 lv_netwr1 = gs_vbrp-netwr.
 lv_mwsbp1 = gs_vbrp-mwsbp.
 gs_final2-MONTH_QTY = S_MONTH1.
 GS_FINAL2-MONTH_VAL = S_MONTH2.
 gs_final2-value = lv_netwr1 + lv_mwsbp1.
 append gs_final2 to gt_final2.
 clear: gs_final2. "lv_name2.
 endloop.
 if gt_final2[] is not initial.
 sort gt_final2 by matnr month ascending .
 loop at gt_final2 into gs_final2.
 gs_final2_01 = gs_final2.
 collect gs_final2_01 into gt_final2_01.
 endloop.
 endif.
 ENDIF..
Regards
Ankur

Help required for Creation of process chain for Open hub destination(table)

Hi Experts,
I am working on creating process chain for the open hub destination which is targeting data transfer into Table. Which is then push to SAP PI.
2.) Steps to create a process chain for OHD????? Not knowing and even after that
3.) What are the steps for Pushing it to PI (I mean we have generated client proxy also) But need to know ABAP related to trigger process chain
please need your expertise and knowledge. Well atleast with the point 2 I need BI experts help...
Regards,
[Gaurav Patwari|http://gauravpatwari.wordpress.com]

Hi Gaurav,
Creating Process chain for OHD.
1. Go to RSPC-> Create a astart variant.
2. Click on process typesin the menu. Fourth from the left. Under this go to LOAD PROCESSES AND POST PROCESSING option.
3. The fifth option is "DATA EXPORT INTO EXTERNAL SYSTEMS". Click on that.
4. Click on F4 and choose your infospoke name.
5. Press the RIGHT button.(if it asks for variant, create a new variant in the same small window besideswritting bar).
6. Join the START process and the 2nd process via dragging.
7. Now add your required other processes.
The general process chain processes are :
1. Start.
2. Delete Indexes (if data loaded to cube).
3. Load process.
4. Delete duplicate request (if it is a full load in cube).
5. Create Indexes.
Hope it helps.
Preet

Help required in changing to str for dynamic sql

Hi
I am trying to make this to string for dynamic sql, this is a part of the sql which is giving problem with p_..as parameters from proc. Help me in this , iam also seeing dbms _output but stil unable to format it to required error free string.
|| ' AND ( po.abbreviationprojectopportid LIKE '
|| '%'
|| 'NVL'
|| '('
|| p_opp_code
|| ', ''NULL'')'
|| '%'
|| ' OR co.companyname LIKE '
|| '%'
|| 'NVL'
|| '('
|| p_client_name
|| ', '' NULL'')'
|| '%'
|| ' OR le.line_item_amount = NVL '
|| ' ('
|| p_booking_amt
|| ', -0.197) '
|| 'OR po.dealcurrency = NVL '
|| '('
|| p_currency
|| ',''NULL'')'
|| 'OR be.booking_entry_id LIKE '
|| '%'
|| 'NVL ('
|| p_entry_id
|| ',''NULL'')'
|| '%'
|| ' OR le.line_item_id LIKE '
|| '%'
|| 'NVL ('
|| p_line_item
|| ',''null'')'
|| '%'
|| ' OR be.ticket_num LIKE '
|| '%'
|| 'NVL ('
|| p_ticket_num
|| ',''NULL'')'
|| '%'
|| ' OR be.updatedby LIKE '
|| '%'
|| 'NVL ('
|| p_user_name
|| ',''NULL'')'
|| '%'
|| ' OR credittransaction.acct_code ='
|| 'NVL ('
|| p_gl_account
|| ','
|| '-0.197)'
|| 'OR debittransaction.acct_code ='
|| 'NVL ('
|| p_gl_account
|| ', '
|| '-0.197) '
|| 'OR credittransaction.profit_ctr_code ='
|| 'NVL ('
|| p_profit_center
|| ','
|| ' -0.197)'
|| 'OR debittransaction.profit_ctr_code ='
|| 'NVL ('
|| p_profit_center
|| ','
|| '-0.197)'
|| ' OR le.sap_posting = NVL ('
|| p_sap_posting
|| ',''$'')'
|| 'OR cmis.cmis_code = NVL ('
|| p_cmis_nominal
|| ','' -0.197)'
|| 'OR sa.sap_code = NVL ('
|| p_sap_booking_entity
|| ', -0.197)'
|| ' OR (be.booking_date BETWEEN '
|| v_booking_date_from
|| 'AND '
|| v_booking_date_to
|| ')'
|| ' )'
|| 'ORDER BY '
|| p_sort_by
|| ' '
|| p_order;

some errors.. Try this...
' SELECT be.booking_date bookingdate, '
|| ' be.booking_entry_id entryid, le.line_item_id itemid,'
|| ' po.abbreviationprojectopportid opportunitycode,'
|| ' co.companyname clientname, '
|| ' le.line_item_amount bookingamount,'
|| ' be.ticket_num ticketnum, po.dealcurrency currency,'
|| ' cmis.cmis_code cmis_nominal,'
|| ' sa.sap_code sap_booking_entity,'
|| ' (SELECT full_name '
|| ' FROM iba_employee '
|| ' WHERE TO_CHAR (employeeid) = be.updatedby) updatedby,'
|| ' be.updateddate updateddate, '
|| ' (SELECT le.line_item_amount * rate '
|| ' FROM iba_currencyconversion '
|| ' WHERE tocurrencycd = '
|| 'USD'
|| ' AND currencycd = po.dealcurrency '
|| ' AND conversiondate = be.booking_date) amountusd,'
|| 'debittransaction.acct_code debitglaccount,'
|| ' credittransaction.acct_code creditglaccount,'
|| ' debittransaction.profit_ctr_code debitprofitcenter,'
|| ' credittransaction.profit_ctr_code creditprofitcenter,'
|| ' debittransaction.amt debitamount,'
|| ' credittransaction.amt creditamount'
|| ' FROM rb_booking_entry be, '
|| ' rb_line_item le, '
|| ' rb_booking_period bp,'
|| ' rb_cmis_gl_account cmisgl,'
|| ' rb_cmis_account cmis,'
|| ' iba_projectopportunity po,'
|| ' iba_company co,'
|| ' rb_sap_account sa,'
|| ' (SELECT acctr.line_item_id line_item,'
|| ' sapgl_acc.account_code acct_code,'
|| ' acctr.amount amt,'
|| ' sappr.profit_center_code profit_ctr_code'
|| ' FROM rb_account_transaction acctr,'
|| ' rb_sap_profit_center sappr,'
|| ' rb_sap_gl_account sapgl_acc'
|| ' WHERE acctr.profit_center_id = sappr.profit_center_id '
|| ' AND acctr.gl_account_id = sapgl_acc.gl_account_id '
|| ' AND acctr.transaction_type = ''D'') debittransaction,'
|| ' (SELECT acctr.line_item_id line_item,'
|| ' sapgl_acc.account_code acct_code,'
|| ' acctr.amount amt,'
|| ' sappr.profit_center_code profit_ctr_code '
|| ' FROM rb_account_transaction acctr, '
|| ' rb_sap_profit_center sappr, '
|| ' rb_sap_gl_account sapgl_acc '
|| ' WHERE acctr.profit_center_id =sappr.profit_center_id '
|| ' AND acctr.gl_account_id = sapgl_acc.gl_account_id '
|| ' AND acctr.transaction_type = ''C'') credittransaction '
|| ' WHERE po.projectopportunityid = be.projectopportunityid '
|| ' AND be.booking_entry_id = le.booking_entry_id '
|| ' AND po.companyid = co.companyid '
|| ' AND bp.booking_period_id = be.booking_period_id '
|| ' AND cmis.cmis_id = cmisgl.cmis_id '
|| ' AND le.sap_id = sa.sap_id '
|| ' AND le.cmis_id = cmis.cmis_id '
|| ' AND debittransaction.line_item(+) = le.line_item_id '
|| ' AND credittransaction.line_item(+) = le.line_item_id '
|| ' AND ( po.abbreviationprojectopportid LIKE ' || '''%' || NVL(p_opp_code,'NULL') || '%'''
|| ' OR le.line_item_id LIKE '
|| '''%'
|| NVL (
|| p_line_item
|| ,'null')
|| '%'''
| ' OR le.line_item_amount = '
||NVL(|| p_booking_amt, -0.197)
|| ' OR po.dealcurrency ='
|| NVL(p_currency,'NULL')
|| ' OR be.booking_entry_id LIKE '
|| '''%'
|| NVL (p_entry_id,'NULL')
|| '%'''
|| ' OR be.ticket_num LIKE '
|| '''%'
|| NVL (p_ticket_num,'NULL')
|| '%'''
|| ' OR be.updatedby LIKE '
|| '''%'
|| NVL (p_user_name,'NULL')
|| '%'''
|| ' OR credittransaction.acct_code ='
|| NVL (p_gl_account,-0.197)
|| ' OR debittransaction.acct_code ='
|| NVL (p_gl_account, -0.197)
|| ' OR credittransaction.profit_ctr_code ='
|| NVL (p_profit_center, -0.197)
|| ' OR debittransaction.profit_ctr_code ='
|| NVL (p_profit_center, -0.197)
|| ' OR le.sap_posting = '
||NVL (p_sap_posting,'$')
|| ' OR cmis.cmis_code = '
||NVL (p_cmis_nominal, -0.197)
|| ' OR sa.sap_code = '
|| NVL (p_sap_booking_entity, -0.197)
|| ' OR (be.booking_date BETWEEN to_date('''
|| v_booking_date_from
|| ''') AND to_date('''
|| v_booking_date_to
|| ''')'
|| ' OR co.companyname LIKE '
|| '''%'
|| NVL(p_client_name,'NULL')
|| '%'''
|| ' )'
|| 'ORDER BY ' || p_sort_by || ',' || p_order;

Help Required :Excel Upload Into Oracle Table Using PLSQL Procedure/Package

Please Help , Urgent Help Needed.
Requirement is to Upload Excel file Into Oracle Table Using PLSQL Procedure/Package.
Case's are :
1. Excel File is On Users/ Client PC.
2. Application is on Remote Server(Oracle Forms D2k).
3. User Is Using Application Using Terminal Server LogIn.
4. So If User Will Use to GET_FILE_NAME() function of D2K to Get Excel File , D2k Will Try to pick File from That Remote Server(Bcs User Logind from Terminal Server Option).
5. Cannot Use Util_File Package Or Oracle Directory to Place That File on Server.
6. we are Using Oracle 8.7
So Need Some PL/SQL Package or Fuction/ Procedure to Upload Excel file on User's Pc to Oracle Table.
Please Guide me wd some Code. or with Some Pl/SQL Package, or With SOme Hint. Or any Link ....
Jus help to Sort This Issue ........
you can also write me on :
[email protected], [email protected]

I also Tried to Use This
But How can i Use SQLLDR Command In Stored Procedure.
Well IN SQL*PlUS it is successfull but in Stored Procedure /Package ,PL/SQL does not recognise the OS commands.
So now my Question How can I recognise the SQLLDR Commnad in Stored Procedure.

Help required:Spool Creation for posted document in FB03 transaction

Hi Experts,
The requirement is like I have to send the PDF document to the user by mail once the document gets posted in SAP ECC. The posting is taking place by IDOC.
The problem is how do i get the spool request for the document which is posted in ECC. It can be seen by entering document number in FB03 transaction but there is no smart form or SAP script or any Output type. The document is posted by IDOC.The client wants the PDF document excatly as seen from FB03 transaction. Please help as this is typical requirement i have never come across.
Do let me know some of the user exits where in just after the posting i can write my code for spool creation. The idoc is using the BAPI_ACC_DOCUMENT_POST.

HI
In test mode i am able to view the document no. but not the reference document no and when double click on the document no i am not able to view the journal entry.
Thanks.

URGENT HELP Required: Solution to avoid Full table scan for a PL/SQL query

Hi Everyone,
When I checked the EXPLAIN PLAN for the below SQL query, I saw that Full table scans is going on both the tables TABLE_A and TABLE_B
UPDATE TABLE_A a
SET a.current_commit_date =
(SELECT MAX (b.loading_date)
FROM TABLE_B b
WHERE a.sales_order_id = b.sales_order_id
AND a.sales_order_line_id = b.sales_order_line_id
AND b.confirmed_qty > 0
AND b.data_flag IS NULL
OR b.schedule_line_delivery_date >= '23 NOV 2008')
Though the TABLE_A is a small table having nearly 1 lakh records, the TABLE_B is a huge table, having nearly 2 and a half crore records.
I created an Index on the TABLE_B having all its fields used in the WHERE clause. But, still the explain plan is showing FULL TABLE SCAN only.
When I run the query, it is taking long long time to execute (more than 1 day) and each time I have to kill the session.
Please please help me in optimizing this.
Thanks,
Sudhindra

Check the instruction again, you're leaving out information we need in order to help you, like optimizer information.
- Post your exact database version, that is: the result of select * from v$version;
- Don't use TOAD's execution plan, but use
SQL> explain plan for <your_query>;
SQL> select * from table(dbms_xplan.display);(You can execute that in TOAD as well).
Don't forget you need to use the {noformat}{noformat} tag in order to post formatted code/output/execution plans etc.
It's also explained in the instruction.
When was the last time statistics were gathered for table_a and table_b?
You can find out by issuing the following query:select table_name
, last_analyzed
, num_rows
from user_tables
where table_name in ('TABLE_A', 'TABLE_B');
Can you also post the results of these counts;select count(*)
from table_b
where confirmed_qty > 0;
select count(*)
from table_b
where data_flag is null;
select count(*)
from table_b
where schedule_line_delivery_date >= /* assuming you're using a date, and not a string*/ to_date('23 NOV 2008', 'dd mon yyyy');

Urgent Help Required for Check Box in Table Column

Hi all,
Could any body help me to solve my problem?
First of all I have created a table whose one column is check box. The column of the tables are Name,Phone,ID,Address and a checkBox columns.In one view
the table will be found with data. I want to click on some of the rows(suppose there are 5 rows, but based on some condition I have selected the check box of 3 rows).
Next there will be a button(Supose SEND Button).
After selecting the check box I want to press that button and then a new window will come which will show two tables. one for selected rows(with the same columns name except check box) and another for Unchecked rows with the same column name(Name,Phone,ID,Address).
Could any body help me by sending the details and code?
Thanks and Regards.
Sudip

Hi Sudip,
1) create custom controller and appropriate context structure there (dataNode(Name,Phone,ID,Address,Check))
2) create view StartView. Map data node from custom controller to node in view. Create table and bind context node attributes to appropriate table columns.
3) create view ResultView. Map data node from custom controller to node in view. Create 2 nodes (CheckedData, UncheckedData) with supply methods. Create filtering implementation in supply methods (add checked and unchecked node elements to appropriate nodes).
4) create new window with resultView as default view
4) in startView in button action handler put something like
     IWDWindowInfo _windowInfo = wdComponentAPI.getComponentInfo().findInWindows("Popup");
     IWDWindowManager manager = wdComponentAPI.getWindowManager();
     IWDWindow _window = manager.createWindow(_windowInfo, true);
     _window.open();
So, just tried localy and it works.
Best regards, Maksim Rashchynski.

Help required in finding out the tables for FS-Claims Management module

Hi All,
In FS - claims Management module, i need to find out from which tables we can fetch the following fields,
INSURED             : insured person
DESCINSURED     : Description of insured person
CLAIMANT     : person eligible for benefits
DESCCLAIMANT     : Description of insured claimant
OUTSTRES     : Outstanding reserve
PAID             : paid amount
INCURRED     : paid amount + outstanding reserve LOSSDESC     : loss description
Thanks & Regards,
Anil

Hi Anil,
I was searching for the fields you mentioned using SE15 and came up with lot of hits. I thought, it would be good if you do the same thing and you can find the relevant tables as might you have good idea in this area.
I will tell you the procedure and I hope it will give you good results.
1) Go to SE15 (Repository Info System)
2) Click on "ABAP Dictionary"
3) Click on "Fields"
4) Select "Table Fields" and enter description as "insured" on the right hand side panel with Application component as "FS"
5) Click "Execute" (F8) and you will lot of hits.
You need to search through it to find relevant tables for your purpose.
Hope this will give you an idea.
Regards,
Vicky
PS: Award points if helpful

Dynamic creation of internal tables

Hi all,
i very urgently need a sample code which will help me to create an internal table dynamically at the click of a pushbutton using alv.Awaiting reply shortly .
thank you.
Regards,
Lailu Philip

Hi,
Check this.I got it from SDN.
REPORT zmaschl_create_data_dynamic .
TYPE-POOLS: slis.
DATA: it_fcat TYPE slis_t_fieldcat_alv,
 is_fcat LIKE LINE OF it_fcat.
DATA: it_fieldcat TYPE lvc_t_fcat,
 is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data.
DATA: new_line TYPE REF TO data.
FIELD-SYMBOLS: <l_table> TYPE ANY TABLE,
 <l_line> TYPE ANY,
 <l_field> TYPE ANY.
Build fieldcat
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'SYST'
 CHANGING
 ct_fieldcat = it_fcat[].
 LOOP AT it_fcat INTO is_fcat WHERE NOT reptext_ddic IS initial.
 MOVE-CORRESPONDING is_fcat TO is_fieldcat.
 is_fieldcat-fieldname = is_fcat-fieldname.
 is_fieldcat-ref_field = is_fcat-fieldname.
 is_fieldcat-ref_table = is_fcat-ref_tabname.
 APPEND is_fieldcat TO it_fieldcat.
 ENDLOOP.
Create a new Table
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fieldcat
 IMPORTING
 ep_table = new_table.
Create a new Line with the same structure of the table.
ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.
Test it...
 DO 30 TIMES.
 ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>.
 <l_field> = sy-index.
 INSERT <l_line> INTO TABLE <l_table>.
 ENDDO.
 LOOP AT <l_table> ASSIGNING <l_line>.
 ASSIGN COMPONENT 'SUBRC' OF STRUCTURE <l_line> TO <l_field>.
 WRITE <l_field>.
 ENDLOOP.

How to create New columns for the Internal Table Dynamically?

HI Guys,
In my logic i have to create new columns depending on the logic which i am executing.
My requirement is .I have to display o/p like this
Material || Year || Period || Mix ratio || Vendor ||Mix Ratio || Vendor || Mix Ratio Vendor || Mix ratio || Vendor || Mix ratio.............................from table's CKMLMV003 and CKMLMV001.Her i have to display the o/p in the above format and i have to display Vendor and Mix Ratio for 5 columns irrespective of data .If i have more than 5 columns for any record then i have to create a New columns dynamically for Vendor and Mix ratio.If anybody want my code i can Submit But plz tell with example how to do?
The O/P must be finally shown in ALV Grid
Thanks,
Gopi

You must create the entire internal table dynamically, you can not add columns to a statically define internal table. Here is an example of creating a dynamic internal table.
Creation of internal table dynamically based on the Date Range entered
Regards,
Rich Heilman

URGENT!!!!How to CREATE TABLE dynamically

HI all
i want to create a table in a pl/sql procedure
where requirement is to create a table dynamically.
can anybody suggest me the solution.

Why is this urgent? creating a table dynamically ought to be a rare event, required only by certain kinds of rather specialised applications.
When people ask us how to do it in these forums, it's often because they are coming from an MS SQL background and haven't understood Oracle's concept of global temporary tables.
Cheers, APC

How to create alv table dynamically by performing action on the button.

Hi all,
my requirement is to create alv table dynamically.
that is i will create two buttons
1) show alv table
2) close alv table
if user selects show alv table then the alv table should be displayed.
and if user selects clsoe alv table then the alv table should be closed.
to create alv table dynamically i have followed this procedure.
under view properties i have added salv_wd_table component. then under the action of showalvbutton i went to code wizard and i have selected instantiate used component component use salv_wd_table. the following code will be generated
with this code i am unable to display alv table dynamically correct me where i went wrong kindly send me the necessary steps how to create alv table dynamically
data lo_cmp_usage type ref to if_wd_component_usage.
lo_cmp_usage = wd_this->wd_cpuse_salv_wd_table( ).
if lo_cmp_usage->has_active_component( ) is initial.
lo_cmp_usage->create_component( ).
endif.
to close table i have used the following code. with this code i am able to achieve the functionality to delete the alv table
data lo_cmp_usage type ref to if_wd_component_usage.
lo_cmp_usage = wd_this->wd_cpuse_salv_wd_table( ).
if lo_cmp_usage->has_active_component( ) is initial.
else.
lo_cmp_usage->Delete_component( ).
endif.
Thanks & Regards,
Naveen
Edited by: naveen.webhelp on Feb 10, 2011 5:52 AM

Hi
ALV table will be shown in the viewcontainerUI element.
it is shown there empty if you dont fill the node bound to the data node of the interface controller of the comp usage
SALV_WD_TABLE.
and if you are not getting the table filled in the first place.
then check have you mapped the DATA node to some node in the comp controller
wht basically is your requirment is that you want to show ALV gird on click of one button and delete it on click of other button.
there are many ways to do so.
best way is control the visiblity of the viewcontainer UI element which containes the TABLE view of SALV_WD_table comp.
create an attribute of type WDUI_VISIBILITY name say VIS.
now go to the layout and bound hte visible property of the viewcontainer to this attribute VIS.
then in the showalv grid button's eventhandler write
wd_context->set_attribute(
name = 'VIS'
value = '02'
and in the wddoinit and delete alv grid button's event handler write
wd_context->set_attribute(
name = 'VIS'
value = '01'
thanks
sarbjeet singh

Problem with constraint in a table..help required..

Hi ,
i need to create a table which has an attribute year_joined and need to set a constraint that the year_joined should be less than or equal to the current year (year obtained from sysdate (YYYY)) ..
can any one help me with the create statement required...
eg: create table test(year_joined number, constraint c_year check(year_joined< = ?));
i could not use a sub query in the create statement.
help req..
thanks,
sri

Satyaki,
I tried but fail. Could you please tell the way how it can be implementaed in CHECK constraint.
SQL> CREATE TABLE T ( YERR_JOINED NUMBER(4) , CHECK (YERR_JOINED <='2007'));
Table created.
SQL> drop table t;
Table dropped.
SQL> CREATE TABLE T ( YERR_JOINED NUMBER(4) , CHECK (YERR_JOINED <= TO_CHAR(SYSDATE,'YYYY')));
CREATE TABLE T ( YERR_JOINED NUMBER(4) , CHECK (YERR_JOINED <= TO_CHAR(SYSDATE,'YYYY')))
ERROR at line 1:
ORA-02436: date or system variable wrongly specified in CHECK constraint
SQL>

Reg. Creation of table dynamically

Hi Experts,
While creating a table dynamically some of the fields in it_lvc_cat are Integer but the created table (new_table) contains all the fields as character. Is there any possibility of changing the datatype as interger for required fields.
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_lvc_cat
 IMPORTING
 ep_table = new_table.
Regards,
Vijay.

Hi,
Refer this code:
REPORT zmtable LINE-SIZE 255
 LINE-COUNT 65.
Program written by Vijay Chaitanya Raju
Maintain Table dynamicly (Table name is entered on Selection Screen)
Very powerfull program. Please maintain authorisation access and
restrict maintenance to Z-tables
Version 6.20 and up
(can be used in 4.6C with some modifications to block try - endtry
and classes)
Enhanced functionality with dynamic selection screen
TABLES: sscrfields. "Fields on selection screens
TYPE-POOLS rsds.
DATA ds_clauses TYPE rsds_where.
DATA: BEGIN OF ifield OCCURS 0,
 fieldname LIKE dd03l-fieldname,
 position LIKE dd03l-position,
 keyflag LIKE dd03l-keyflag,
 datatype LIKE dd03l-datatype.
DATA: END OF ifield.
DATA: sl_step LIKE sy-tabix,
 ss_step LIKE sy-subrc,
 ss_act(1) TYPE c,
 sl_lines LIKE sy-tfill,
 sl_status LIKE sy-subrc,
 sl_subrc LIKE sy-subrc,
 sl_update(1) TYPE c,
 sl_mandt(1) TYPE c,
 len(6) TYPE n,
 f_value(255) TYPE c,
 sl_datum LIKE sy-datum,
 sl_uzeit LIKE sy-uzeit,
 price1(15) TYPE c,
 price2(15) TYPE c,
 mess(60) TYPE c,
 d_stat LIKE sy-subrc,
 m_stat LIKE sy-subrc,
 slchar(6) TYPE c.
DATA: ref_ptr TYPE REF TO cx_root. "Root class more common
DATA: text TYPE string.
DATA: sl_index LIKE sy-tabix.
DATA: zauth LIKE dd02l-tabname.
DATA: num TYPE i,
 max_len TYPE i,
 check_len TYPE i,
 sl_sel(1) TYPE c.
TYPE-POOLS: icon.
SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF LINE.
text-012 - 'Table Name'
SELECTION-SCREEN COMMENT 1(25) text-012.
PARAMETERS: tabname LIKE dd02l-tabname DEFAULT 'ZSCARE'.
text-003 - 'Selection'
SELECTION-SCREEN PUSHBUTTON 75(9) text-003 USER-COMMAND sta1.
SELECTION-SCREEN END OF LINE.
numrows(text) - 'Max Number of ROWS'
PARAMETERS: numrows LIKE sy-subrc DEFAULT '100'.
At Selection-Screen *
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
 WHEN 'STA1'.
 CLEAR sl_sel.
 CALL FUNCTION 'ZSTAN_SELECTIONS'
 EXPORTING
 tabname = tabname
 IMPORTING
 ds_clauses = ds_clauses
 EXCEPTIONS
 table_not_valid = 1
 other_error = 2
 OTHERS = 3.
 IF sy-subrc = 0.
 sl_sel = 'X'.
 ENDIF.
ENDCASE.
*At Selection-Screen Output *
AT SELECTION-SCREEN OUTPUT.
SELECT SINGLE tabname
 INTO tabname
 FROM dd02l
 WHERE tabname = tabname
 AND as4local = 'A'
 AND ( tabclass = 'TRANSP' OR tabclass = 'POOL'
 OR tabclass = 'CLUSTER' ).
IF sy-subrc <> 0.
 MESSAGE 'Table is not valid' TYPE 'S'.
 RETURN.
ENDIF.
START-OF-SELECTION.
START-OF-SELECTION.
DEFINE: acheck.
 zauth = 'ZTABAUTH'.
 select single statu
 into sl_update
 from (zauth)
 where tabname = tabname
 and bname = sy-uname.
 if sy-subrc <> 0.
 message 'You are not authorized to view this table' type 'S'.
 return.
 endif.
END-OF-DEFINITION.
SELECT SINGLE tabname
 INTO tabname
 FROM dd02l
 WHERE tabname = tabname
 AND as4local = 'A'
 AND ( tabclass = 'TRANSP' OR tabclass = 'POOL'
 OR tabclass = 'CLUSTER' ).
IF sy-subrc <> 0.
 MESSAGE 'Table is not valid' TYPE 'S'.
 RETURN.
ENDIF.
DATA: ptr_itab TYPE REF TO data.
FIELD-SYMBOLS: <fs_itab> TYPE STANDARD TABLE. "ANY TABLE.
CREATE DATA ptr_itab TYPE STANDARD TABLE OF (tabname).
ASSIGN ptr_itab->* TO <fs_itab>.
For DELETION
DATA: ptr_itd TYPE REF TO data.
FIELD-SYMBOLS: <fs_itd> TYPE STANDARD TABLE.
CREATE DATA ptr_itd TYPE STANDARD TABLE OF (tabname).
ASSIGN ptr_itd->* TO <fs_itd>.
For MODIFICATION
DATA: ptr_itm TYPE REF TO data.
FIELD-SYMBOLS: <fs_itm> TYPE STANDARD TABLE.
CREATE DATA ptr_itm TYPE STANDARD TABLE OF (tabname).
ASSIGN ptr_itm->* TO <fs_itm>.
DATA: ptr_wtab TYPE REF TO data.
FIELD-SYMBOLS: <fs_wtab> TYPE ANY.
CREATE DATA ptr_wtab TYPE (tabname).
ASSIGN ptr_wtab->* TO <fs_wtab>.
DATA: itabname(15) TYPE c.
itabname = '<fs_wtab>'.
Standard list status with 'SAVE' button
SET PF-STATUS 'STLI'.
CLEAR sl_update.
Maintain authorisation access in table ZTABAUTH
Key fields: tabname - Table name
 bname = sy-uname - User name
 statu = 'X' - maintain
 ' ' - view
Check authorisation access
acheck.
SELECT fieldname position keyflag datatype
 INTO TABLE ifield
 FROM dd03l
 WHERE tabname = tabname
 AND fieldname NOT LIKE '.INCLU%'
 ORDER BY position.
FIELD-SYMBOLS: <f1> TYPE ANY.
DATA: tab_field(60) TYPE c,
 sline LIKE sy-lisel.
DATA: field_attr LIKE dfies.
DATA: BEGIN OF tfield_attr OCCURS 0.
 INCLUDE STRUCTURE field_attr.
DATA: END OF tfield_attr.
LOOP AT ifield.
 CALL FUNCTION 'G_FIELD_READ'
 EXPORTING
 table = tabname
 fieldname = ifield-fieldname
 text_flag = 'X'
 IMPORTING
 field_attr = field_attr.
 tfield_attr = field_attr.
 APPEND tfield_attr.
ENDLOOP.
IF sl_sel = 'X'.
 SELECT *
 FROM (tabname)
 INTO TABLE <fs_itab> UP TO numrows ROWS
 WHERE (ds_clauses-where_tab).
ELSE.
 SELECT *
 FROM (tabname)
 INTO TABLE <fs_itab> UP TO numrows ROWS.
ENDIF.
DESCRIBE TABLE <fs_itab> LINES sl_lines.
Show two extra lines to allow addition up to 2 new lines
IF sl_update = 'X'.
 DO 2 TIMES.
 APPEND INITIAL LINE TO <fs_itab>.
 ENDDO.
ENDIF.
DATA: info(22) VALUE 'D - Delete, M - Modify'.
WRITE: / icon_information AS ICON QUICKINFO info.
WRITE ' '.
CLEAR check_len.
LOOP AT tfield_attr.
 IF tfield_attr-datatype = 'CLNT'.
 CONTINUE.
 ENDIF.
 len = tfield_attr-outputlen.
 IF tfield_attr-keyflag = 'X'.
 check_len = check_len + len + 1.
 ENDIF.
 IF tfield_attr-scrtext_m IS NOT INITIAL.
 WRITE: AT (len) tfield_attr-scrtext_m COLOR 1.
 ELSE.
 WRITE: AT (len) tfield_attr-fieldtext COLOR 1.
 ENDIF.
ENDLOOP.
CLEAR ss_step.
CLEAR ss_act.
LOOP AT <fs_itab> INTO <fs_wtab>.
 IF sy-tabix LE sl_lines.
 ss_step = 1.
 ELSE.
 CLEAR ss_step.
 ENDIF.
In field SS_STEP put D - to delete record
 M - to modify/add new record
 IF sl_update = 'X'.
 WRITE:/ icon_change AS ICON.
 IF ss_step = 1.
 WRITE: ss_act INPUT ON.
 ELSE.
 ss_act = 'M'.
 WRITE: ss_act.
 CLEAR ss_act.
 ENDIF.
 ELSE.
 WRITE:/ icon_display AS ICON.
 WRITE: ss_act COLOR 2.
 ENDIF.
 LOOP AT ifield.
Maintain client dependant tables in the same client
 IF ifield-datatype = 'CLNT'.
 sl_mandt = 'X'.
 CONTINUE.
 ENDIF.
 CONCATENATE itabname '-' ifield-fieldname INTO tab_field.
 ASSIGN (tab_field) TO <f1>.
 IF sl_update = 'X'.
 IF ifield-keyflag = 'X' AND ss_step IS NOT INITIAL.
 WRITE: <f1> COLOR 4.
 ELSE.
 WRITE: <f1> INPUT ON.
 ENDIF.
 ELSE.
 IF ifield-keyflag = 'X' AND ss_step IS NOT INITIAL.
 WRITE: <f1> COLOR 4.
 ELSE.
 WRITE: <f1> COLOR 2.
 ENDIF.
 ENDIF.
 UNASSIGN <f1>.
 ENDLOOP.
ENDLOOP.
END-OF-SELECTION.
END-OF-SELECTION.
AT USER-COMMAND.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'SAVE'.
 IF sl_update = 'X'.
 CLEAR: sl_step,
 sl_status,
 sl_subrc,
 <fs_wtab>,
 d_stat,
 m_stat,
 max_len.
 REFRESH <fs_itd>.
 REFRESH <fs_itm>.
 DO.
 IF sl_status <> 0.
 EXIT.
 ENDIF.
 ADD 1 TO sl_step.
 IF sl_subrc <> 0.
 EXIT.
 ENDIF.
 CLEAR ss_step.
 CLEAR ss_act.
 READ LINE sl_step
 FIELD VALUE ss_act INTO f_value.
 sl_subrc = sy-subrc.
 IF f_value(1) EQ 'D' OR f_value(1) = 'd'.
 ss_step = 1. "Delete
 ELSEIF f_value(1) EQ 'M' OR f_value(1) = 'm'.
 ss_step = 2. "Modify
 ELSE.
 CLEAR ss_step.
 ENDIF.
 CHECK sy-lisel(3) = '0Z '.
 IF ss_step GT 0.
 CLEAR sline.
 sline = sy-lisel+5(250).
 max_len = 250.
 CHECK sline(check_len) <> ' '.
 LOOP AT tfield_attr.
 CONCATENATE itabname '-' tfield_attr-fieldname
 INTO tab_field.
 ASSIGN (tab_field) TO <f1>.
 IF tfield_attr-fieldname = 'MANDT'.
 <f1> = sy-mandt.
 ELSE.
 CLEAR f_value.
 IF max_len LT tfield_attr-outputlen.
 max_len = 255.
 ADD 1 TO sl_step.
 READ LINE sl_step.
 sline = sy-lisel.
 ENDIF.
 f_value = sline(tfield_attr-outputlen).
 max_len = max_len - tfield_attr-outputlen - 1.
 IF tfield_attr-inttype = 'D'.
 IF f_value CO ' 0./-'.
 CLEAR sl_datum.
 <f1> = sl_datum.
 ELSE.
 CALL FUNCTION 'CONVERT_DATE_INPUT'
 EXPORTING
 input = f_value
 plausibility_check = 'X'
 IMPORTING
 output = sl_datum
 EXCEPTIONS
 plausibility_check_failed = 1
 wrong_format_in_input = 2
 OTHERS = 3.
 IF sy-subrc = 0.
 <f1> = sl_datum.
 ELSE.
 text = 'Invalid Date'.
 sl_status = 1.
 EXIT.
 ENDIF.
 ENDIF.
 ELSEIF tfield_attr-inttype = 'T'.
 IF f_value CO ' 0:'.
 CLEAR sl_uzeit.
 <f1> = sl_uzeit.
 ELSE.
 CALL FUNCTION 'CONVERT_TIME_INPUT'
 EXPORTING
 input = f_value
 plausibility_check = 'X'
 IMPORTING
 output = sl_uzeit
 EXCEPTIONS
 plausibility_check_failed = 1
 wrong_format_in_input = 2
 OTHERS = 3.
 IF sy-subrc = 0.
 <f1> = sl_uzeit.
 ELSE.
 text = 'Invalid Time'.
 sl_status = 1.
 EXIT.
 ENDIF.
 ENDIF.
 ELSEIF tfield_attr-inttype = 'C'.
 TRANSLATE f_value TO UPPER CASE.
 <f1> = f_value.
 ELSE.
 TRANSLATE f_value USING ', '.
 CONDENSE f_value NO-GAPS.
 TRY.
 <f1> = f_value.
 CATCH cx_root INTO ref_ptr.
 text = ref_ptr->get_text( ).
 sl_status = 1.
 EXIT.
 ENDTRY.
 ENDIF.
 SHIFT sline BY tfield_attr-outputlen PLACES.
 SHIFT sline LEFT.
 ENDIF.
 UNASSIGN <f1>.
 ENDLOOP.
 IF sl_status = 0.
 CASE ss_step.
 WHEN 1. "Delete
 ADD 1 TO d_stat.
 APPEND <fs_wtab> TO <fs_itd>.
 WHEN 2. "Modify
 ADD 1 TO m_stat.
 APPEND <fs_wtab> TO <fs_itm>.
 ENDCASE.
 ENDIF.
 ENDIF.
 ENDDO.
 IF sl_status = 0.
 IF d_stat IS NOT INITIAL.
 slchar = d_stat.
 CONCATENATE 'Deleted -' slchar 'record.' INTO text
 SEPARATED BY space.
 DELETE (tabname) FROM TABLE <fs_itd>.
 ENDIF.
 IF m_stat IS NOT INITIAL.
 slchar = m_stat.
 CONCATENATE text 'Modified -' slchar 'record.' INTO text
 SEPARATED BY space.
 MODIFY (tabname) FROM TABLE <fs_itm>.
 ENDIF.
 IF d_stat IS INITIAL AND m_stat IS INITIAL.
 MESSAGE 'No changes were done' TYPE 'S'.
 ELSE.
 MESSAGE text TYPE 'S'.
 ENDIF.
 LEAVE.
 ELSE.
 MESSAGE text TYPE 'I'.
 EXIT.
 ENDIF.
 ELSE.
 LEAVE.
 ENDIF.
ENDCASE.
*--END--
Below is Function for a Dynamic Selection Screen
FUNCTION zstan_selections.
""Local interface:
*" IMPORTING
*" VALUE(TABNAME) LIKE DD02L-TABNAME DEFAULT 'ZSCARE'
*" EXPORTING
*" VALUE(DS_CLAUSES) TYPE RSDS_WHERE
*" EXCEPTIONS
*" TABLE_NOT_VALID
*" OTHER_ERROR
DATA texpr TYPE rsds_texpr.
DATA twhere TYPE rsds_twhere.
DATA trange TYPE rsds_trange.
DATA BEGIN OF qcat. "Selections View for
 INCLUDE STRUCTURE rsdsqcat. "Free Selectoptions
DATA END OF qcat.
DATA BEGIN OF tabs OCCURS 10.
 INCLUDE STRUCTURE rsdstabs.
DATA END OF tabs.
DATA BEGIN OF fields OCCURS 10.
 INCLUDE STRUCTURE rsdsfields.
DATA END OF fields.
DATA BEGIN OF efields OCCURS 10.
 INCLUDE STRUCTURE rsdsfields.
DATA END OF efields.
DATA selid LIKE rsdynsel-selid.
DATA actnum LIKE sy-tfill.
DATA title LIKE sy-title VALUE 'Selection Screen'.
DATA: maxnum LIKE sy-subrc VALUE '69'.
CLEAR tabs.
tabs-prim_tab = tabname.
COLLECT tabs.
DATA: position LIKE dd03l-position.
DATA: keyflag LIKE dd03l-keyflag.
CLEAR fields.
fields-tablename = tabname.
fields-sign = 'I'.
DATA: step LIKE sy-subrc.
SELECT fieldname keyflag position
 INTO (fields-fieldname, keyflag, position)
 FROM dd03l
 WHERE tabname = tabname
 AND fieldname NOT LIKE '.INCLU%'
 AND datatype NE 'CLNT'
 ORDER BY position.
 ADD 1 TO step.
 CHECK step LE maxnum.
 IF keyflag <> 'X'.
 efields = fields.
 APPEND efields.
 ENDIF.
 APPEND fields.
ENDSELECT.
IF sy-subrc <> 0.
 RAISE table_not_valid.
ENDIF.
CALL FUNCTION 'FREE_SELECTIONS_INIT'
 EXPORTING
 expressions = texpr
 kind = 'F'
 IMPORTING
 selection_id = selid
 expressions = texpr
 where_clauses = twhere
 field_ranges = trange
 number_of_active_fields = actnum
 TABLES
 tables_tab = tabs
 fields_tab = fields
 fields_not_selected = efields
 EXCEPTIONS
 fields_incomplete = 01
 fields_no_join = 02
 field_not_found = 03
 no_tables = 04
 table_not_found = 05
 expression_not_supported = 06
 incorrect_expression = 07
 illegal_kind = 08
 area_not_found = 09
 inconsistent_area = 10
 kind_f_no_fields_left = 11
 kind_f_no_fields = 12
 too_many_fields = 13.
IF sy-subrc = 0.
 CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
 EXPORTING
 selection_id = selid
 title = title
 IMPORTING
 where_clauses = twhere
 expressions = texpr
 field_ranges = trange
 number_of_active_fields = actnum
 TABLES
 fields_tab = fields
 EXCEPTIONS
 internal_error = 01
 no_action = 02
 no_fields_selected = 03
 no_tables_selected = 04
 selid_not_found = 05.
 IF sy-subrc = 0.
 CLEAR ds_clauses.
 MOVE tabname TO ds_clauses-tablename.
 READ TABLE twhere WITH KEY ds_clauses-tablename INTO ds_clauses.
 IF sy-subrc <> 0.
 RAISE other_error.
 ENDIF.
 ELSE.
 RAISE other_error.
 ENDIF.
ELSE.
 RAISE other_error.
ENDIF.
ENDFUNCTION.
Regards,
Shiva

Help required in creation of Dictionary table dynamically

Similar Messages

Maybe you are looking for