Is it possible to create Table Controls(in Dynpro) dynamically

HI All
I am not sure if we can create screen elements dynamically especially Table Controls. I need to create a Table control in a custom screen but the fields/columns in the table control are known at run time. Is it possible?? Appreciate any light on this subject.
Thanks
Van

hi
ccheck for the link
Check following link for the same.
https://www.sdn.sap.com/sdn/collaboration.sdn?contenttype=url&content=https%3A//forums.sdn.sap.com/thread.jspa%3FforumID%3D52%26threadID%3D45079%26messageID%3D459011%23459011
also take a look at the FM
take a look at FM:
FREE_SELECTIONS_INIT
FREE_SELECTIONS_DIALOG
hope will be helpfull to you.
regards
vijay
plz reward pts if helpful

Similar Messages

Is it possible to creat Table Controls(Dynpro) dynamically

HI All
I am not sure if we can create screen elements dynamically especially Table Controls. I need to create a Table control in a custom screen but the fields/columns in the table control are known at run time. Is it possible?? Appreciate any light on this subject.
Thanks
Van

hi
ccheck for the link
Check following link for the same.
https://www.sdn.sap.com/sdn/collaboration.sdn?contenttype=url&content=https%3A//forums.sdn.sap.com/thread.jspa%3FforumID%3D52%26threadID%3D45079%26messageID%3D459011%23459011
also take a look at the FM
take a look at FM:
FREE_SELECTIONS_INIT
FREE_SELECTIONS_DIALOG
hope will be helpfull to you.
regards
vijay
plz reward pts if helpful

How to create table control in script

hi expects,
how can i create table control in script?

Hi,
It is not possible to create Table Control in Sap-Scripts n u can create it by using se51 that is screen painter only...
if useful reward with points,
regards,
Madhuri.

Getting Error when createing Table control in Module Pool.

Hi expert ,
i am creating a module pool program . i want to crate line item value for that i have created table control on screen 200 .
but when i am activation to that giving error below mention.
The field "ZFBDCHALLAN-EBELN" is not assigned to a loop. "LOOP ...ENDLOOP" must appear in "PBO" and "PAI".
thanks
chandra

Its mandatory to have loop endloop in both events
PBO and PAI
loop your internal table similarly.
Please check it should be below format
PROCESS BEFORE OUTPUT.
* Set PF Status for screen 100.
MODULE status_0200.
* This module will initialize the field
MODULE init_0100.
LOOP AT t_custmat_asg INTO w_custmat_asg
      WITH CONTROL tc_1
      CURSOR tc_1-current_line.
* It will count the record in internal table
    MODULE set_linecount.
* Screen Modifications
    MODULE status_check.
ENDLOOP.
PROCESS AFTER INPUT.
* Module AT EXIT-COMMAND
MODULE exit_0200 AT EXIT-COMMAND.
LOOP AT t_custmat_asg .
    CHAIN.
      FIELD :
      w_custmat_asg-check,
              w_custmat_asg-kunnr,
              w_custmat_asg-name1,
              w_custmat_asg-asgtyp,
              w_custmat_asg-productcls,
              w_custmat_asg-sctegry,
              w_custmat_asg-ctegry,
              w_custmat_asg-parent,
              w_custmat_asg-frmdate,
              w_custmat_asg-todate,
              w_custmat_asg-frecster,
              w_custmat_asg-salesrep,
              w_custmat_asg-flag,
              w_custmat_asg-username,
              w_custmat_asg-udate.
* Validation For Forecaster.
      MODULE validate_forecaster.
* Validation For Salesrep.
      MODULE valiate_salesrep.
* Validation for Customer
      module validate_customer.
* Validate null value
      module validate_null_vals.
* Validation For Data Changed On The Screen
      MODULE data_changed_0200 ON CHAIN-REQUEST.
    ENDCHAIN.
ENDLOOP.
Regards
Satish Boguda

Is it possible to create a control file without the datafiles

Hi All,
Is it possible to create a control file without the datafiles?
on any OS or DB version
regards,
sachin

if I understand properly:
- you have a script to recreate the controlfile
- you have all of your database files backed up except your controlfiles
This should work as this is how we sometimes refresh dev databases:
1) restore the copies of the database files
2) recreate the controlfile
3) recover the database files to the desired point in time (if hot backup or archivelogs are available, otherwise, it would be as of the time of the backup)
4) add temp files to temporary tablespace(s)
The simpler solution would be to backup your controlfile at the same time as your datafiles (RMAN or o/s copy).
I hope I understood your question properly.

How to create table control and link in screen exit

Hi Friends,
                 I want to create table control in enhancement CONFPP07. The values entered in table control should be stored in ztable along with some other information.
But I want to know how to create table control in screen-exit and how and where to write code and how to link all.
               Kindly send me step-by-step documentation or real time examble prg.
               Kindly give ur answers for this problem only.
Thanks in Advance,
S.Senthil kumar

If u have a screen exit..then u will have a option to create a sub screen..in that sub screen u activate the pai and pbo events..it will show u where to write the code..

How to create table control without wizard....???

Hello experts !!
Plz tell me how to create table control without wizard.
for sflight table.
Scenario 1
I have one screen like 1000.
There i have taken carrid, connid, fldate as criteria.
Now i want to display Planetype, Price, Seatsmax in the table control.
Scenario 2
i have two screens 1001, 1002.
in the screen 1001 i have taken carrid, connid, fldate as criteria and there is a Button.
when i will click the button it will show the price, planetype and seatsmax in the table control in the next screen, i.e 1002
plz help me out...
and how to save new record in the dictionary table from that table control....

Hi
see the sample programs and design accordingly
syntax:
CONTROLS .
if you only want to determine the row of the table control. SY´-SUBRC allows you to check if the cursor is placed in a row of a table control.
u need to comment the performs of table control fields and write ur own perform statements. And u have to declare the table control fields as separate internal tables.
Go through this urls.
www.****************
www.sap-img.com
Check the below links.
just refer to the link below
http://www.sapmaterial.com/tablecontrol_sap.html
step by step procedure with screen shots
http://www.planetsap.com/howdo_a.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/9f/dbac5135c111d1829f0000e829fbfe/content.htm
http://sap.niraj.tripod.com/id25.html
Also you can see the below examples...
Go to se38 and give demodynpro and press F4.
YOu will get a list of demo module pool programs.
One more T-Code is ABAPDOCU.
YOu can find more examples there.
See the prgrams:
DEMO_DYNPRO_TABLE_CONTROL_1 Table Control with LOOP Statement
DEMO_DYNPRO_TABLE_CONTROL_2 Table Control with LOOP AT ITAB
http://www.geocities.com/ZSAPcHAT
http://www.allsaplinks.com/files/using_table_in_screen.pdf
Regards
Anji

Reg : class for creating table control

hi everyone,
             is there any class for creating table control?my requirement is
              created 2 custom containers,one for alv display and other for table control display.
For alv i used cl_gui_alv->set_table_first_display,likewise any class for creaitng table control?????????
pleas find me a solution......
                  thanks in advance......

Hi,
You can use the class CL_TABLECONTROL for creating table control and the method SET_VALUES shall be used to fill values for tha tabcntrl.
Else, you can use the Table Control Wizard to create the tabcntrl easily.
Regards,
Renjith Michael.

Creating Custom Control on screen dynamically

Hi All,
Is it possible to create custom controls dynamically through ABAP code.
If not, can we change the size of custom control at run time through ABAP code.
Thanks
Satya Priya

Hi,
Please ellaborate your Query...
if ur taking abt Custom Control in Reporting , Module Pool than it is possible using Events.
Affable
Arbind

How to create Table Control in Infotype

I want to create the table control in infotype (e.g. like table control in infotype 0008 basic pay ).

Hi
you can declare an internal table from infotype, with something like this
DATA: BEGIN OF t_p0008 OCCURS 0.
INCLUDE STRUCTURE pa0008.
DATA: END OF t_p0008.
the transparent table for infotype 0008 is PA0008, there is an structure P0008.
the transparent table for infotype 0001 is PA0001,
the transparent table for infotype 0002 is PA0002,
and so on..

How to create table controls

hi experts,
             I have used table controls using wizard.is that correct .and when i am using that i cannot set filters.all the records in tha table are displayed.how to use filters here ?
what about the ordinary table controls how to create it .pls send some links and tips for it...
thanks
mani

check..
DEMO_DYNPRO_TABLE_CONTROL_1
DEMO_DYNPRO_TABLE_CONTROL_2
even check below code...
BDC Example: Using Table Control in BDC
Among beginners, using table control in BDC is always a puzzle.
Following is a sample code of handling table control in BDC.
REPORT Y730_BDC5 .
*HANDLING TABLE CONTROL IN BDC
DATA : BEGIN OF IT_DUMMY OCCURS 0,
       DUMMY(100) TYPE C,
       END OF IT_DUMMY.
DATA : BEGIN OF IT_XK01 OCCURS 0,
       LIFNR(10) TYPE C,
       BUKRS(4) TYPE C,
       EKORG(4) TYPE C,
       KTOKK(4) TYPE C,
       NAME1(30) TYPE C,
       SORTL(10) TYPE C,
       LAND1(3) TYPE C,
       SPRAS(2) TYPE C,
       AKONT(6) TYPE C,
       FDGRV(2) TYPE C,
       WAERS(3) TYPE C,
       END OF IT_XK01,
       BEGIN OF IT_BANK OCCURS 0,
       BANKS(3) TYPE C,
       BANKL(10) TYPE C,
       BANKN(10) TYPE C,
       KOINH(30) TYPE C,
       LIFNR(10) TYPE C,
       END OF IT_BANK.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
       IT_BDCMSGCOLL LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
   FILENAME                      = 'C:\VENDOR.TXT'
   FILETYPE                      = 'ASC'
TABLES
   DATA_TAB                      = IT_DUMMY.
LOOP AT IT_DUMMY.
IF IT_DUMMY-DUMMY+0(2) = '11'.
    IT_XK01-LIFNR = IT_DUMMY-DUMMY+2(10).
    IT_XK01-BUKRS = IT_DUMMY-DUMMY+12(4).
    IT_XK01-EKORG = IT_DUMMY-DUMMY+16(4).
    IT_XK01-KTOKK = IT_DUMMY-DUMMY+20(4).
    IT_XK01-NAME1 = IT_DUMMY-DUMMY+24(30).
    IT_XK01-SORTL = IT_DUMMY-DUMMY+54(10).
    IT_XK01-LAND1 = IT_DUMMY-DUMMY+64(3).
    IT_XK01-SPRAS = IT_DUMMY-DUMMY+67(2).
    IT_XK01-AKONT = IT_DUMMY-DUMMY+69(6).
    IT_XK01-FDGRV = IT_DUMMY-DUMMY+75(2).
    IT_XK01-WAERS = IT_DUMMY-DUMMY+77(3).
    APPEND IT_XK01.
ELSE.
    IT_BANK-BANKS = IT_DUMMY-DUMMY+2(3).
    IT_BANK-BANKL = IT_DUMMY-DUMMY+5(10).
    IT_BANK-BANKN = IT_DUMMY-DUMMY+15(10).
    IT_BANK-KOINH = IT_DUMMY-DUMMY+25(30).
    IT_BANK-LIFNR = IT_DUMMY-DUMMY+55(10).
    APPEND IT_BANK.
ENDIF.
ENDLOOP.
LOOP AT IT_XK01.
REFRESH IT_BDCDATA.
perform bdc_dynpro      using 'SAPMF02K' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-REF_LIFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RF02K-LIFNR'
                              IT_XK01-LIFNR.
perform bdc_field       using 'RF02K-BUKRS'
                              IT_XK01-BUKRS.
perform bdc_field       using 'RF02K-EKORG'
                              IT_XK01-EKORG.
perform bdc_field       using 'RF02K-KTOKK'
                              IT_XK01-KTOKK.
perform bdc_dynpro      using 'SAPMF02K' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-TELX1'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFA1-NAME1'
                              IT_XK01-NAME1.
perform bdc_field       using 'LFA1-SORTL'
                              IT_XK01-SORTL.
perform bdc_field       using 'LFA1-LAND1'
                              IT_XK01-LAND1.
perform bdc_field       using 'LFA1-SPRAS'
                              IT_XK01-SPRAS.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-KUNNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-KOINH(02)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
DATA : FNAM(20) TYPE C,
       IDX      TYPE C.
MOVE 1 TO IDX.
LOOP AT IT_BANK WHERE LIFNR = IT_XK01-LIFNR.
CONCATENATE 'LFBK-BANKS(' IDX ')' INTO FNAM.
perform bdc_field       using FNAM
                                IT_BANK-BANKS.
CONCATENATE 'LFBK-BANKL(' IDX ')' INTO FNAM.
perform bdc_field       using FNAM
                                IT_BANK-BANKL.
CONCATENATE 'LFBK-BANKN(' IDX ')' INTO FNAM.
perform bdc_field       using FNAM
                                IT_BANK-BANKN.
CONCATENATE 'LFBK-KOINH(' IDX ')' INTO FNAM.
perform bdc_field       using FNAM
                                IT_BANK-KOINH.
IDX = IDX + 1.
ENDLOOP.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-BANKS(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPMF02K' '0210'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-FDGRV'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFB1-AKONT'
                              IT_XK01-AKONT.
perform bdc_field       using 'LFB1-FDGRV'
                              IT_XK01-FDGRV.
perform bdc_dynpro      using 'SAPMF02K' '0215'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-ZTERM'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0220'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB5-MAHNA'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0310'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFM1-WAERS'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFM1-WAERS'
                              IT_XK01-WAERS.
perform bdc_dynpro      using 'SAPMF02K' '0320'.
perform bdc_field       using 'BDC_CURSOR'
                              'WYT3-PARVW(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
CALL TRANSACTION 'XK01' USING IT_BDCDATA
                        MODE 'A'
                       UPDATE 'S'
                     MESSAGES INTO IT_BDCMSGCOLL.
ENDLOOP.
FORM BDC_DYNPRO USING PROG SCR.
CLEAR IT_BDCDATA.
IT_BDCDATA-PROGRAM = PROG.
IT_BDCDATA-DYNPRO = SCR.
IT_BDCDATA-DYNBEGIN = 'X'.
APPEND IT_BDCDATA.
ENDFORM.
FORM BDC_FIELD USING FNAM FVAL.
CLEAR IT_BDCDATA.
IT_BDCDATA-FNAM = FNAM.
IT_BDCDATA-FVAL = FVAL.
APPEND IT_BDCDATA.
ENDFORM.

Create Table Control using Dynamic Internal Table.

Hi,
 I have requirement in which I will create a Dynamic Internal Table and then I need to create a Table Control Using that Internal Table. Now this can't be done using Screen Editor as it requires a pre-defined internal table or a DDIC Object.
Please Help.

This should be correct answer(I am not author of code below):
REPORT ztablemaintace NO STANDARD PAGE HEADING.
TYPE-POOLS: rsds.
DATA: is_x030l TYPE x030l,
it_dfies TYPE TABLE OF dfies,
is_dfies TYPE dfies,
it_fdiff TYPE TABLE OF field_dif,
is_fdiff TYPE field_dif.
DATA: w_selid TYPE rsdynsel-selid,
it_tables TYPE TABLE OF rsdstabs,
is_tables TYPE rsdstabs,
it_fields TYPE TABLE OF rsdsfields,
it_expr TYPE rsds_texpr,
it_ranges TYPE rsds_trange,
it_where TYPE rsds_twhere,
is_where TYPE rsds_where,
w_active TYPE i.
DATA: it_content TYPE REF TO data,
it_modif TYPE REF TO data,
it_fcat TYPE lvc_t_fcat.
DATA: w_okcode TYPE sy-ucomm.
FIELD-SYMBOLS: <itab> TYPE STANDARD TABLE,
<ntab> TYPE STANDARD TABLE.
* Macros
DEFINE table_error.
message e398(00) with 'Table' p_table &1.
END-OF-DEFINITION.
DEFINE fixed_val.
is_fdiff-fieldname = is_dfies-fieldname.
is_fdiff-fixed_val = &1.
is_fdiff-no_input = 'X'.
append is_fdiff to it_fdiff.
END-OF-DEFINITION.
* Selection screen
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.
PARAMETERS: p_table TYPE tabname OBLIGATORY "table
MEMORY ID dtb
MATCHCODE OBJECT dd_dbtb_16.
SELECTION-SCREEN: BEGIN OF LINE,
PUSHBUTTON 33(20) selopt USER-COMMAND sel,
COMMENT 55(15) selcnt,
END OF LINE.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_rows TYPE i. "rows
SELECTION-SCREEN: END OF BLOCK b01,
SKIP,
BEGIN OF BLOCK b02 WITH FRAME.
PARAMETERS: p_displ TYPE c AS CHECKBOX. "display
SELECTION-SCREEN: END OF BLOCK b02.
* Initialization
INITIALIZATION.
MOVE '@4G@ Filter records' TO selopt.
* PBO
AT SELECTION-SCREEN OUTPUT.
IF w_active IS INITIAL.
 CLEAR: selcnt.
ELSE.
 WRITE w_active TO selcnt LEFT-JUSTIFIED.
ENDIF.
* PAI
AT SELECTION-SCREEN.
IF p_table NE is_x030l-tabname.
 CALL FUNCTION 'DDIF_NAMETAB_GET'
 EXPORTING
 tabname = p_table
 IMPORTING
 x030l_wa = is_x030l
 TABLES
 dfies_tab = it_dfies
 EXCEPTIONS
 OTHERS = 1.
 IF is_x030l IS INITIAL.
 table_error 'does not exist or is not active'.
 ELSEIF is_x030l-tabtype NE 'T'.
 table_error 'is not selectable'.
* ELSEIF is_x030l-align NE 0.
* table_error 'has alignment - cannot continue'.
 ENDIF.
* Default values for system fields
 REFRESH: it_fdiff.
 is_fdiff-tabname = p_table.
 LOOP AT it_dfies INTO is_dfies.
 IF is_dfies-datatype = 'CLNT'.
 fixed_val sy-mandt.
 ELSEIF is_dfies-rollname = 'ERDAT'
 OR is_dfies-rollname = 'ERSDA'
 OR is_dfies-rollname = 'AEDAT'
 OR is_dfies-rollname = 'LAEDA'.
 fixed_val sy-datum.
 ELSEIF is_dfies-rollname = 'ERTIM'
 OR is_dfies-rollname = 'AETIM'.
 fixed_val sy-uzeit.
 ELSEIF is_dfies-rollname = 'ERNAM'
 OR is_dfies-rollname = 'AENAM'.
 fixed_val sy-uname.
 ENDIF.
 CALL FUNCTION '/SAPDMC/DATAELEMENT_GET_TEXTS'
 EXPORTING
 name = is_dfies-rollname
 IMPORTING
 text_middle = is_dfies-reptext
 EXCEPTIONS
 not_found = 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.
 MODIFY it_dfies FROM is_dfies.
ENDLOOP.
* Prepare free selection on table
REFRESH it_tables.
is_tables-prim_tab = p_table.
APPEND is_tables TO it_tables.
CLEAR: w_selid.
ENDIF.
IF sy-ucomm = 'SEL'.
IF w_selid IS INITIAL.
* Init free selection dialog
 CALL FUNCTION 'FREE_SELECTIONS_INIT'
 EXPORTING
 expressions = it_expr
 IMPORTING
 selection_id = w_selid
 expressions = it_expr
 TABLES
 tables_tab = it_tables
 EXCEPTIONS
 OTHERS = 1.
ENDIF.
* Display free selection dialog
CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
 EXPORTING
 selection_id = w_selid
 title = 'Selection'
 status = 1
 as_window = 'X'
 IMPORTING
 expressions = it_expr
 field_ranges = it_ranges
 number_of_active_fields = w_active
 TABLES
 fields_tab = it_fields
 EXCEPTIONS
 OTHERS = 1.
ENDIF.
* Start of processing
START-OF-SELECTION.
PERFORM f_create_table USING p_table.
PERFORM f_select_table.
PERFORM f_display_table.
* FORM f_create_table *
FORM f_create_table USING in_tabname.
FIELD-SYMBOLS: <fcat> TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = in_tabname
 CHANGING
 ct_fieldcat = it_fcat
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0.
* Complete field catalog
 LOOP AT it_fcat ASSIGNING <fcat>.
 <fcat>-tabname = in_tabname.
 ENDLOOP.
 CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
 CHANGING
 ct_fieldcat = it_fcat
 EXCEPTIONS
 OTHERS = 1.
ELSE.
 WRITE: 'Error building field catalog'.
 STOP.
ENDIF.
* Create dynamic table for data
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_content.
IF sy-subrc = 0.
 ASSIGN it_content->* TO <itab>.
ELSE.
 WRITE: 'Error creating internal table'.
 STOP.
ENDIF.
* Create dynamic table for modif
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_modif.
IF sy-subrc = 0.
 ASSIGN it_modif->* TO <ntab>.
ELSE.
 WRITE: 'Error creating internal table'.
 STOP.
ENDIF.
ENDFORM. "f_create_table
* FORM f_select_table *
FORM f_select_table.
IF w_active = 0.
 SELECT * FROM (p_table)
 INTO CORRESPONDING FIELDS OF TABLE <itab>
 UP TO p_rows ROWS.
ELSE.
* Selection with parameters
 CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
 EXPORTING
 field_ranges = it_ranges
 IMPORTING
 where_clauses = it_where.
 READ TABLE it_where INTO is_where WITH KEY tablename = p_table.
 SELECT * FROM (p_table)
 INTO CORRESPONDING FIELDS OF TABLE <itab>
 UP TO p_rows ROWS
 WHERE (is_where-where_tab).
ENDIF.
IF sy-dbcnt = 0.
 WRITE: 'No record selected'.
 STOP.
ENDIF.
ENDFORM. "f_select_table
* FORM f_display_table *
FORM f_display_table.
DATA: l_answer TYPE c,
l_eflag TYPE c.
CLEAR: w_okcode.
REFRESH: <ntab>.
* Display table contents
CALL FUNCTION 'STC1_FULLSCREEN_TABLE_CONTROL'
 EXPORTING
 header = p_table
 tabname = p_table
 display_only = p_displ
 endless = 'X'
 no_button = space
 IMPORTING
 okcode = w_okcode
 TABLES
* nametab = it_dfies
 table = <itab>
* fielddif = it_fdiff
 modif_table = <ntab>
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0.
 IF p_displ IS INITIAL AND w_okcode = 'SAVE'.
* Confirm update
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 titlebar = p_table
 text_question = 'Do you want to update table ?'
 default_button = '2'
 display_cancel_button = ' '
 IMPORTING
 answer = l_answer
 EXCEPTIONS
 OTHERS = 1.
 IF l_answer = '1'.
* Apply modifications
 IF NOT <ntab>[] IS INITIAL.
 PERFORM f_add_system USING space.
 MODIFY (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
* Apply deletions
 IF l_eflag IS INITIAL.
 REFRESH: <ntab>.
 CALL FUNCTION 'STC1_GET_DATA'
 TABLES
 deleted_data = <ntab>
 EXCEPTIONS
 OTHERS = 1.
 IF NOT <ntab>[] IS INITIAL.
 DELETE (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 ROLLBACK WORK.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
* Apply creations
 IF l_eflag IS INITIAL.
 REFRESH: <ntab>.
 CALL FUNCTION 'STC1_GET_DATA'
 TABLES
 new_data = <ntab>
 EXCEPTIONS
 OTHERS = 1.
 IF NOT <ntab>[] IS INITIAL.
 PERFORM f_add_system USING 'X'.
 INSERT (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 ROLLBACK WORK.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
 IF l_eflag IS INITIAL.
 COMMIT WORK.
 MESSAGE s261(53).
 ELSE.
 MESSAGE s075(3i).
 PERFORM f_select_table.
 ENDIF.
 ENDIF.
* Display table again
 PERFORM f_display_table.
 ENDIF.
ENDIF.
ENDFORM. "f_display_table
* FORM f_add_system *
FORM f_add_system USING new TYPE c.
FIELD-SYMBOLS: <irec> TYPE ANY,
<upd> TYPE ANY.
LOOP AT it_fdiff INTO is_fdiff.
 READ TABLE it_dfies INTO is_dfies
 WITH KEY fieldname = is_fdiff-fieldname.
 LOOP AT <ntab> ASSIGNING <irec>.
 ASSIGN COMPONENT is_fdiff-fieldname OF STRUCTURE <irec> TO <upd>.
 IF is_dfies-datatype = 'CLNT'.
 <upd> = sy-mandt.
 ELSE.
 CASE is_dfies-rollname.
 WHEN 'AENAM'.
 <upd> = sy-uname.
 WHEN 'AEDAT' OR 'LAEDA'.
 <upd> = sy-datum.
 WHEN 'AETIM'.
 <upd> = sy-uzeit.
 WHEN OTHERS.
 ENDCASE.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. "f_add_system

Problem while creating Table control with wizard

Hi All,
I am using the table control wizard.
Following is the declared data :
TYPES: BEGIN OF test_str,
        name TYPE string,
        city TYPE string,
      END OF test_str.
DATA: lt_str TYPE STANDARD TABLE OF test_str,
      ls_str TYPE test_str.
I activated the program after declaring this..
then I created a screen.
while generating the table control , i give the internal table name as lt_str and work area as ls_str(both of these are also coming in F4 help) , i am getting the following error :
the table work area ls_str does not exist or is not a structure.
Please help.
Regards
Panneer

HI Selvam
In the wizard please choose the radio button internal program table. I hope you might have choosen the dictonary table.
And activate the program before generating the wizard.
Please try this and let me know if any issues.
Thanks
Praveen
Edited by: Praveen Kumar on Feb 4, 2010 4:34 AM

Is it possible to create data control from wsdl when complextype is used

Getting DCA-40015 error when trying to create a data control from WSDL file.
The error clearly says complextype is not supported . just trying to see if there are any workarounds . because creating data control will save time in developing user interface by dragging and dropping the the data control in jsf page. jdeveloper webservice tester is able to create user interface for me based on wsdl when i run it , trying to develop the user interface using jsf pages
oracle.adf.model.adapter.AdapterException: DCA-40015: Failed to create the structure for schema element "result". The complex type definition of the element is not supported.

Hi,
I could reproduce what I did:
- created WebService from custom Pojo Model
- Made sure all entities implemented serializable
- In the WebServices Wizard, I created XML representations for my entities
- tested with OC4J WebServices tester
- Built ADF data control from WSDL file of deployed WebService
- Created dependency t project containing the POJO entities
- Selected result.xml of each method exposed in the WebService project
- In the structure window, selected "item" (result-->item)
- changed Bean class to my entity class name (absolute name)
This showed my entity in the DC palette
Frank

Is it possible to create table with partition in compress mode

Hi All,
I want to create a table in compress option, with partitions. When i create with partitions the compression isnt enabled, but with noramal table creation the compression option is enables.
My question is:
cant we create a table with partition/subpartition in compress mode..? Please help.
Below is the code that i have used for table creation.
CREATE TABLE temp
TRADE_ID                    NUMBER,
SRC_SYSTEM_ID               VARCHAR2(60 BYTE),
SRC_TRADE_ID                VARCHAR2(60 BYTE),
SRC_TRADE_VERSION           VARCHAR2(60 BYTE),
ORIG_SRC_SYSTEM_ID          VARCHAR2(30 BYTE),
TRADE_STATUS                VARCHAR2(60 BYTE),
TRADE_TYPE                  VARCHAR2(60 BYTE),
SECURITY_TYPE               VARCHAR2(60 BYTE),
VOLUME                      NUMBER,
ENTRY_DATE                  DATE,
    REASON                      VARCHAR2(255 BYTE),
TABLESPACE data
PCTUSED    0
PCTFREE    10
INITRANS   1
MAXTRANS   255
NOLOGGING
COMPRESS
NOCACHE
PARALLEL (DEGREE 6 INSTANCES 1)
MONITORING
PARTITION BY RANGE (TRADE_DATE)
SUBPARTITION BY LIST (SRC_SYSTEM_ID)
SUBPARTITION TEMPLATE
(SUBPARTITION SALES VALUES ('sales'),
   SUBPARTITION MAG VALUES ('MAG'),
   SUBPARTITION SPI VALUES ('SPI', 'SPIM', 'SPIIA'),
   SUBPARTITION FIS VALUES ('FIS'),
   SUBPARTITION GD VALUES ('GS'),
   SUBPARTITION ST VALUES ('ST'),
   SUBPARTITION KOR VALUES ('KOR'),
   SUBPARTITION BLR VALUES ('BLR'),
   SUBPARTITION SUT VALUES ('SUT'),
   SUBPARTITION RM VALUES ('RM'),
   SUBPARTITION DEFAULT VALUES (default)
PARTITION RMS_TRADE_DLY_MAX VALUES LESS THAN (MAXVALUE)
    LOGGING
        TABLESPACE data
     ( SUBPARTITION TS_MAX_SALES VALUES ('SALES')      TABLESPACE data,
    SUBPARTITION TS_MAX_MAG VALUES ('MAG')      TABLESPACE data,
    SUBPARTITION TS_MAX_SPI VALUES ('SPI', 'SPIM', 'SPIIA')      TABLESPACE data,
    SUBPARTITION TS_MAX_FIS VALUES ('FIS')      TABLESPACE data,
    SUBPARTITION TS_MAX_GS VALUES ('GS')      TABLESPACE data,
    SUBPARTITION TS_MAX_ST VALUES ('ST')      TABLESPACE data,
    SUBPARTITION TS_MAX_KOR VALUES ('KOR')      TABLESPACE data,
    SUBPARTITION TS_MAX_BLR VALUES ('BLR')      TABLESPACE data,
    SUBPARTITION TS_MAX_SUT VALUES ('SUT')      TABLESPACE data,
    SUBPARTITION TS_MAX_RM VALUES ('RM')      TABLESPACE data,
    SUBPARTITION TS_MAX_DEFAULT VALUES (default)      TABLESPACE data)); Edited by: user11942774 on 8 Dec, 2011 5:17 AM

user11942774 wrote:
I want to create a table in compress option, with partitions. When i create with partitions the compression isnt enabled, but with noramal table creation the compression option is enables. First of all your CREATE TABLE statement is full of syntax errors. Next time test it before posting - we don't want to spend time on fixing things not related to your question.
Now, I bet you check COMPRESSION value of partitioned table same way you do it for a non-partitioned table - in USER_TABLES - and therefore get wrong results. Since compreesion can be enabled on individual partition level you need to check COMPRESSION in USER_TAB_PARTITIONS:
SQL> CREATE TABLE temp
2 (
3    TRADE_ID                    NUMBER,
4    SRC_SYSTEM_ID               VARCHAR2(60 BYTE),
5    SRC_TRADE_ID                VARCHAR2(60 BYTE),
6    SRC_TRADE_VERSION           VARCHAR2(60 BYTE),
7    ORIG_SRC_SYSTEM_ID          VARCHAR2(30 BYTE),
8    TRADE_STATUS                VARCHAR2(60 BYTE),
9    TRADE_TYPE                  VARCHAR2(60 BYTE),
10    SECURITY_TYPE               VARCHAR2(60 BYTE),
11    VOLUME                      NUMBER,
12    ENTRY_DATE                  DATE,
13      REASON                      VARCHAR2(255 BYTE),
14    TRADE_DATE                  DATE
15 )
16 TABLESPACE users
17 PCTUSED    0
18 PCTFREE    10
19 INITRANS   1
20 MAXTRANS   255
21 NOLOGGING
22 COMPRESS
23 NOCACHE
24 PARALLEL (DEGREE 6 INSTANCES 1)
25 MONITORING
26 PARTITION BY RANGE (TRADE_DATE)
27 SUBPARTITION BY LIST (SRC_SYSTEM_ID)
28 SUBPARTITION TEMPLATE
29    (SUBPARTITION SALES VALUES ('sales'),
30     SUBPARTITION MAG VALUES ('MAG'),
31     SUBPARTITION SPI VALUES ('SPI', 'SPIM', 'SPIIA'),
32     SUBPARTITION FIS VALUES ('FIS'),
33     SUBPARTITION GD VALUES ('GS'),
34     SUBPARTITION ST VALUES ('ST'),
35     SUBPARTITION KOR VALUES ('KOR'),
36     SUBPARTITION BLR VALUES ('BLR'),
37     SUBPARTITION SUT VALUES ('SUT'),
38     SUBPARTITION RM VALUES ('RM'),
39     SUBPARTITION DEFAULT_SUB VALUES (default)
40    )
41 (
42   PARTITION RMS_TRADE_DLY_MAX VALUES LESS THAN (MAXVALUE)
43      LOGGING
44          TABLESPACE users
45       ( SUBPARTITION TS_MAX_SALES VALUES ('SALES')      TABLESPACE users,
46      SUBPARTITION TS_MAX_MAG VALUES ('MAG')      TABLESPACE users,
47      SUBPARTITION TS_MAX_SPI VALUES ('SPI', 'SPIM', 'SPIIA')      TABLESPACE users,
48      SUBPARTITION TS_MAX_FIS VALUES ('FIS')      TABLESPACE users,
49      SUBPARTITION TS_MAX_GS VALUES ('GS')      TABLESPACE users,
50      SUBPARTITION TS_MAX_ST VALUES ('ST')      TABLESPACE users,
51      SUBPARTITION TS_MAX_KOR VALUES ('KOR')      TABLESPACE users,
52      SUBPARTITION TS_MAX_BLR VALUES ('BLR')      TABLESPACE users,
53      SUBPARTITION TS_MAX_SUT VALUES ('SUT')      TABLESPACE users,
54      SUBPARTITION TS_MAX_RM VALUES ('RM')      TABLESPACE users,
55      SUBPARTITION TS_MAX_DEFAULT VALUES (default)      TABLESPACE users));
Table created.
SQL>
SQL>
SQL> SELECT PARTITION_NAME,
2          COMPRESSION
3    FROM USER_TAB_PARTITIONS
4    WHERE TABLE_NAME = 'TEMP'
5 /
PARTITION_NAME                 COMPRESS
RMS_TRADE_DLY_MAX              ENABLED
SQL> SELECT COMPRESSION
2    FROM USER_TABLES
3    WHERE TABLE_NAME = 'TEMP'
4 /
COMPRESS
SQL> SY.

Is it possible to create Table Controls(in Dynpro) dynamically

Similar Messages

Maybe you are looking for