Creating and accessing a Table control using CL_TABLE_VIEW_MM

Hi everybody.,
I am new to Module Pool Programming using Abap Object Oriented Programming .I need to create a Table Control in my Screen .I debugged the standard ME21n Tracsaction and found that it used class CL_TABLE_VIEW_MM .How can i make use of this class effictively for my Custom Program .Guide me on this .
Regards.,
S.Sivakumar

solved myself

Similar Messages

Create and access a table OUTSIDE SAPR3 schema

Hi Gurus,
Can you please help me how do I create a table outside SAPR3 schema in the same database, I have a user schema TEST in the sap database (Using SAPR3 4.6C). If any tcode does that? Or I need to use oracle sqlplus.
HOW an ABAP progroam can access and manipulate the data available in this TEST schema?
Reference to some SAP NOTE will be highly helpfull.
Regards,
Soumen.

>
Soumen Chattopadhyay wrote:
> Dear Fiedel and Eric,
Fiedel, Who?
>
> Thank you both for your suggestion,
> me and my team are are checking up according to your idea....
>
> Actually, I do need to integrate one plant machinery equipment which has the backend database in MS SQL server and our SAP is using the backend Oracle and running on Linux.
Very good, now we are getting more information.
The data is NOT on the oracle database but outside.
In this case DBCON (from DB+CONnection) can help
>
> As per the need of business data need to be exchanged between these two.
>
> If you have may I request you to share some more information e.g. snotes on DBCO?
>
Very easy, follow my mantra (Top right box-Search functionality is very useful, also sap notes search)
Lets chew this a little:
117261     Multiconnect and DB procedure enhancements for 4.0B
323151     Several DB connections with Native SQL
738371     Creating DBCON multiconnect entries for SQL Server
178949     MSSQL: Database MultiConnect with EXEC SQL
>
> But , why DBCON is not the right choice, Fiedel can U thow some more light?
Lets see, in your first request you wanted to access to a different schema in the same database.
you have the licence issues and DBCON is "overkill" (even when it can work) You would be connecting to yourself with a different usser.
Probably it is easier to create synonyms at DB level and provide proper authorizations.
In your second request the DBCON makes much more sense.
You want to access to a different (external) DB. That is the reason DBCON exist.
Now we have a little "issue". I'm not Windows/SQL expert, but, in order to connect to an external DB you need the SAP library "dbslib" (I think dbsmsslib is the correct name for the SQL server)
Unfortunately, SQLServer is a Windows only program and this library is only available for Windows.
To use it (use DBCON) you will have to install an AS on a windows machine and configure the DBCON on this server and execute the program to exchange data from this AS alone (if you execute it from another one it will fail because it does not find the dbslib)
As mentioned, not much experience with non "real" Operating Systems, so perhaps someone else has more information.

What are message tables and their role?How to create and access them ?

hi,
Can any body clarify me about What are messaging tables and their role(use) in DataBase?How to create and access them ?
Thanks in advance
Gopi

If you have doubt that's you have an idea. So, explain your idea please, because I don't see what are "messaging tables".
Did you say about Oracle database ? Apps ?...
Nicolas.

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

Using Pages, I have created a document and inserted a Table for use in logging an inventaory. When I came to print this off however the lines for the table were missing but the text was in the Table format, weird! How do I print the Table?

Using Pages, I have created a document and inserted a Table for use logging an inventory. When I came to print this document the lines and boarders of the Table feature did not print however the text did print in the table format. How do I get the lines and boarders to print also?

Using Pages, I have created a document and inserted a Table for use logging an inventory. When I came to print this document the lines and boarders of the Table feature did not print however the text did print in the table format. How do I get the lines and boarders to print also?

How to implement line selectability for a table control using table Wizard?

Hello SDN Community,
I have created a table control using the Table Wizard. I found my exact question in this forum, but unfortunately it had not been andsered. While I cannot paste a screen-print into this plane-text area, here are the steps I followed...
1) SE51
2) Create new screen 0100
3) Click Layout button
4) Clidk Table Control (with Wizard) and draw box on canvas.
5) Step is "Start" - click Continue
6) Step is "Name of Table Control" - provided name
7) Step is "Table Name" - provided name of dictionary table (AUFK)
8) Step is "Definition of Columns" - selected order numver and order text
9) Step is "Table Control Attributes" - Line Selectability is in display mode - cannot set it.
I would like to have a selectability column for my table. Would appreciate any insight into how to do this.
Thank you,
Dean Atteberry.

This is a puzzling...
For the table control wizard, in the Table Control Attributes step, I was able to get line selectability to open up by declaring a char01 data element at the beginning of my type.
The puzzling is in regards to the "Selection col. fld" entry field.
If I leave it blank and try to go to the next step, I get message "Enter the name of the selection column if you are using a program table"
So it looked like it wanted to know the name of my selection column. So I type in "CHAR1". and got the message "The field "CHAR1" for the selection column is already contained in the table."
Hmmmmm.... don't understand............
Dean Atteberry.

Uploading multiple lines in a table control using ECATT

Hi,
I want to upload muliple lines in a table control using ECATT. When I tried to upload only the first line is getting filled.What I have to do for that. Please reply at the earliest.
With warm regards,
Biju K.George

Hello ,
To insert multiple lines into the table you have to record the transaction for one entry and loop the same step multiple times to create multiple entries in the table.
Thanks,
Ajay

Retrieving values from table control using DYNP_VALUES_READ

Hi all,
I am trying to retrieve the values from the table control using the FM DYNP_VALUES_READ. I have a situation where user enter values in table control in T.code FB60 in Withholding tab for validation purpose. There i'll have to check based on some entries maintained in SET.
I am unable to get the values when i scroll to the next page in the table control. FM raising an exception invalid_dynprofield.
Expecting reply...

You have to populate the dynpfields internal table before calling the function,
data: repid like sy-repid.
dynpfields-fieldname = 'PNAME'.
append dynpfields.
repid = sy-repid.
call function 'DYNP_VALUES_READ'
exporting
dyname = repid
dynumb = sy-dynnr
tables
dynpfields = dynpfields
exceptions
others.
read table dynpfields index 1.
pname = dynpfields-fieldvalue.
Now you will have the field value in pname
Hope this helps
Vinodh Balakrishnan

How to create and edit a .ini file using java

Hi All...
Pls help me in creating and editing an .ini file using java...
thanks in advance
Regards,
sathya

Let's assume the ini file is a mapping type storage (key=value) so lets use Properties object. (works with java 1.4 & up)
import java.io.File;
import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.io.IOException;
import java.util.Properties;
public class Test {
     private static Properties props;
     public static void main(String[] args) throws IOException {
          File file = new File("test.ini");//This is out ini file
          props = new Properties();//Create the properties object
          read(file);//Read the ini file
          //Once we've populated the Properties object. set/add a property using the setProperty() method.
          props.setProperty("testing", "value");
          write(file);//Write to ini file
     public static void read(File file) throws IOException {
          FileInputStream fis = new FileInputStream(file);//Create a FileInputStream
          props.load(fis);//load the ini to the Properties file
          fis.close();//close
     public static void write(File file) throws IOException {
          FileOutputStream fos = new FileOutputStream(file);//Create a FileOutputStream
          props.store(fos, "");//write the Properties object values to our ini file
          fos.close();//close
}

How to create vertical Scrollbar in table control?

Dear All,
How to create vertical scrollbar in table controll.?
regards,
Dharmesh

Hi
It should be created automatically, if you can't see it, try to set the field lines of table control
PROCESS PBO
MODULE SET_ATTR_TC.
LOOP AT ITAB WITH .....
ENDLOOP.
MODULE SET_ATTR_TC.
DESCRIBE TABLE ITAB LINES SY-TABIX.
<TABLE CONTROL>-LINES = SY-TABIX.
ENDMODULE.
Max

How can I work lsmw with table control using mm01 appl?

Hi
How can I work lsmw with table control using mm01 appl?
Is it difefrent the way we handle table control in BDC?
Thank You

Hi
How can I work lsmw with table control using mm01 appl?
Is it difefrent the way we handle table control in BDC?
Thank You

TABLE CONTROL USED IN BDC

MAY ANY ONE SUGGEST ME THE IDEA OF TABLE CONTROL USED IN BDC

Table control in BDC
http://www.sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
check the below link also u may find answers for all your q's
http://help.sap.com/saphelp_webas630/helpdata/en/9f/dbac1d35c111d1829f0000e829fbfe/content.htm
<b>ex----</b>
*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.

Query on Creating and Populating I$ table on different condition

Hi,
I have a query on creating and populating I$ table on different condition.In which condition the I$ table is created??And These condition are mentioned below:
1)*source and staging area* are on same server(i.e target is on another server)
2)*staging area and Target* are on same server(i.e source is on another server)
3)*source,staging area and Target* are on *3 different* server
4)source,staging area and Target are on same server
Thanks

I am not very much clear about your question. Still trying my best to clear it out.
In your all above requirement I$ table will be created.
If staging same as target ( One database,one user) then all temp tables will be created under this user
If staging is different than target ( One database,two user (A,B)) then all temp tables will be created under this user A (lets consider) and data will be inserted to the target table that is present in user B
If staging is different than target ( Two database,two user (A1,A2), not recommended architecture) then all temp tables will be created under this user A1 (database A1) and data will be inserted to the target table that is present in user A2 (database A2)
If source,staging,target will under one database then No LKM is required,IKM is sufficient to load the data into target. Specifically for this you can see one example given by Craig.
http://s3.amazonaws.com/Ora/ODI-Simple_SELECT_and_INSERT-interface.swf
Thanks.

Why do we need to code loop statement in both PBO and PAI in Table control

Hi friends,
i have 2 questions-
Q1-why do we need to code a loop and endloop statement in both PBO and PAI in Table control,sometimes even empty as well?
Q2-what r d dynpro keywords?

Hi,
It is required to pass information from internal table to table control so we loop it in PBO and to get the updated information back, we loop in PAI and update internal table content.
To get more knowledge on Table controls check these threads -
table control
Table Control
Hope this helps.
ashish

How to create and edit anomalous tables in DIAdem? Such as the example list.

How to create and edit anomalous tables in DIAdem?
Can the tables be edited as in MS Word?
帖子被yangafreet在08-21-2007 10:28 PM时编辑过了
Attachments:
table example.doc ‏26 KB

Hi yangafreet,
There is no way I know of to create a DIAdem table that looks like the table in your Word document.
Brad Turpin
DIAdem Product Support Engineer
National Instruments

Creating and accessing a Table control using CL_TABLE_VIEW_MM

Similar Messages

Maybe you are looking for