REG:Internal table and Database table

Hi Xperts,
Can you tell me /give me a sample code so as to
Compare the data present in the database table and internal table.i.e
Wheher the data in the db table matches with the data in the internal table
Thanks.

Hello,
First make sure that data is there in the internal table
TABLES : Declare your table example MARA, VBAK etc
TYPES: BEGIN OF ITAB1,
Declare your fields here
example
v_mat(10) type c,
v_code(5) type I,
END OF ITAB1.
IF NOT ITAB[] is INITIAL.
LOOP AT
END IF.
To compare the data with DB tables, read the database table and copy into the internal table ITAB2
Then compare the ITAB and ITAB1
IF ITAB1[] = ITAB2[]
END IF
See these links for [Creating Internal Tables|http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3660358411d1829f0000e829fbfe/content.htm]
[Comparing Internal Tables|http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3841358411d1829f0000e829fbfe/content.htm]
See this for more about [Processing Internal Tables|http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb36ae358411d1829f0000e829fbfe/content.htm]
Declaring the internal table in ABAP objects
[Thanks|http://chandranonline.blogspot.com/]
[Chandran|http://chandranonline.blogspot.com/]

Similar Messages

Reg internal table and variants

Hi,
Can any tel me
1. how to create internal table dynamically ( i knew its done thru field symbols but i dont know how) ...pls i need a clear example..pls
2.I have got a requirement where i need to display the fields in ouutput based on the variant i choose/select at selection screen.. that means the fields should be varying based on the variant chosen at selection screen..
pls i need a good example for the above 2 queries..plsss
Thanks in ADVANCE
Jay

hi
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb387a358411d1829f0000e829fbfe/content.htm
Regards
Anuj

Reg: internal table?

hello friends?
i have one basic doubts,
please clear this things,
what are all the ways we can create the internal table?
how we create internal table using data statement?
how we create internal table using types statement?
what is the difference between these two methods?

FYI..
DATA - Defining an Internal Table
Variants:
1. DATA itab TYPE itabtype [WITH HEADER LINE].
2. DATA itab {TYPE tabkind OF linetype|
              LIKE tabkind OF lineobj}
          WITH [UNIQUE|NON-UNIQUE] keydef
          [INITIAL SIZE n] [WITH HEADER LINE].
3. DATA itab {TYPE TABLE OF linetype|LIKE TABLE OF lineobj}.
4. DATA itab TYPE RANGE OF type.
DATA itab LIKE RANGE OF f.
5. DATA itab [TYPE linetype|LIKE lineobj] OCCURS n
          [WITH HEADER LINE].
6. DATA: BEGIN OF itab OCCURS n,
      END   OF itab [VALID BETWEEN f1 AND f2].
In an ABAP Objects context, a more severe syntax check is performed that in other ABAP areas. See New naming conventions and LIKE references to Dictionary Types not allowed.
Effect
Defines an internal table.
To fill and process internal tables, use the statements INSERT, APPEND, READ TABLE, LOOP, SORT, and so on.
The OCCURS or INITIAL SIZE parameter (OCCURS value) determines the number of lines that are created when the table itself is created. However, the table is extended dynamically on demand. For details, refer to Performance Notes for Internal Tables. The OCCURS value, has no other semantic meaning (apart from one exception in the APPEND SORTED BY statement). If you do not specify an INIT IAL SIZE , the system uses the default value 0.
If you specify WITH HEADER LINE, the table is created with a header line, that is, a field with the same name. It has the same type as the line type of the table.
This addition is not allowed in an ABAP Objects context. See Tables with header line not allowed.
Variant 1
DATA itab TYPE itabtype [WITH HEADER LINE].
Effect
itabtype must be an internal table type that you have already defined using TYPES. The statement creates an internal table in the program with this type.
In general, the type specification for the table object must be complete. The exception to this is a standard table, in which the key definition may be missing. In this case, the system automatically uses a default key.
Example
Creating a hashed table by referring to an existing table type:
TYPES: BEGIN OF STRUC, NAME(10), AGE TYPE I, END OF STRUC,
       HTAB TYPE HASHED TABLE OF STRUC WITH UNIQUE KEY NAME.
DATA : PERSONS TYPE HTAB.
Variant 2
DATA itab {TYPE tabkind OF linetype|LIKE tabkind OF lineobj}           WITH [UNIQUE|NON-UNIQUE] keydef
          [INITIAL SIZE n] [WITH HEADER LINE].
Effect
Creates an internal table in the program with the type tabkind. Since there are no generic field definitions, you cannot use the table types ANY TABLE or INDEX TABLE.
The structure of the table lines is defined by the type linetype if you use a TYPE reference) or by the type of the referred object lineobj (when you use a LIKE reference).
The same rules apply to the UNIQUE and NON-UNIQUE additions in the DATA statement as in a TYPES definition. You may only omit the definition when defining a standard table.
If you do not specify the INITIAL SIZE the system uses a default initial size of 0.
Variant 3
DATA itab {TYPE TABLE OF linetype|LIKE TABLE OF lineobj}.
Effect
This is a shortened form of the definition of a standard table. It corresponds to
   DATA itab {TYPE STANDARD TABLE OF linetype|
              LIKE STANDARD TABLE OF lineobj} WITH DEFAULT KEY.
or the old definition (compare variant 4)
   DATA itab {TYPE linetype|LIKE lineobj} OCCURS 0.
Variant 4
DATA itab TYPE RANGE OF type. DATA itab LIKE RANGE OF f.
Additions:
1. ... INITIAL SIZE n
2. ... WITH HEADER LINE
Effect
Creates an internal table itab with table type STANDARD. The line type is a structure with the following components:
SIGN(1)   TYPE C
OPTION(2) TYPE C
LOW       TYPE type bzw. LIKE f
HIGH      TYPE type bzw. LIKE f
Addition 1
...INITIAL SIZE n
Effect
The INITIAL SIZE specification determines how many table lines are created when the table itself is created. The table is also dynamically expanded as required. For further information, refer to Performance Notes for Internal Tables. The INITIAL SIZE value has no semantic meaning (apart from one exception in the ei APPEND SORTED BY statement). If you do not specify the INITIAL SIZE, the system uses the default value 0.
Addition 2
... WITH HEADER LINE
This addition is not allowed in an ABAP Objects context. See Tables with Header Lines Not Allowed.
Effect
Creates an internal table and a header line for it, that is, a field with the same name as the internal table and the same type as the line type of the internal table.
Variant 5
DATA itab [TYPE linetype|LIKE lineobj] OCCURS n                                        [WITH HEADER LINE].
This variant is not allowed in an ABAP Objects context. See Declaration with OCCURS not allowed.
Effect
This variant exists to ensure compatibility with Release 3.x. If you do not specify a line type, the system uses type C with length 1. Otherwise, the variant is the same as
   DATA itab {TYPE STANDARD TABLE OF linetype|
              LIKE STANDARD TABLE OF lineobj}
             INITIAL SIZE n [WITH HEADER LINE].
Example
TYPES: BEGIN OF LINE_TYPE,
         NAME(20) TYPE C,
         AGE      TYPE I,
       END   OF LINE_TYPE.
DATA: PERSONS    TYPE LINE_TYPE OCCURS 20,
       PERSONS_WA TYPE LINE_TYPE.
PERSONS_WA-NAME = 'Michael'. PERSONS_WA-AGE = 25.
APPEND PERSONS_WA TO PERSONS.
PERSONS_WA-NAME = 'Gabriela'. PERSONS_WA-AGE = 22.
APPEND PERSONS_WA TO PERSONS.
The internal table PERSONS now contains two entries.
Variant 6
DATA: BEGIN OF itab OCCURS n,         ...
      END   OF itab [VALID BETWEEN f1 AND f2].
This variant is not allowed in an ABAP Objects context. See Declaration with OCCURS not allowed.
Effect
Creates an internal table itab with type STANDARD and a header line. The line type consists of the fields between "BEGIN OF itab OCCURS n" and " END OF itab".
Use the VALID BETWEEN f1 AND f2 addition to specify that the components f1 and f2 of the internal table itab contain a line-based validity interval. You can only use this addition in conjunction with the PROVIDE statement.
Example
DATA: BEGIN OF PERSONS OCCURS 20,
        NAME(20),
        AGE TYPE I,
      END   OF PERSONS.
PERSONS-NAME = 'Michael'.
PERSONS-AGE = 25.
APPEND PERSONS.
PERSONS-NAME = 'Gabriela'.
PERSONS-AGE = 22.
APPEND PERSONS.
The internal table consists of two entries. PERSONS also has a header line (work area), which is an interface between the program and the actual table contents.
Additional help
Internal Table Objects
Ramesh

Reg : internal table & Perform statement

hi all
     i have 3 internal tables ,
*     in first internal table i have mark-1 ,*
*     in 2nd internal table i have mark-2 ,*
*     using "PERFORM" i have to add mark 1 & mark 2*
*     and i need to display the total in 3rd internal table.*
*     how to do by using "PERFORM" .*
                Kindly clarify.
with kind regards
vel

Raghupathy is right you just have to write:
porgram code......
perform sum_of_tables tables itab1
                                           itab2
                                           itab3.
program code....
definition of form:
form_sum_of_tables tables itab1
                                      itab2
                                      itab3.
definiton type of witab1, witab2, witab3.
loop itab1 into witab1.
loop itab2 into witab2.
witab3-total = witab1-mark1 plus witab2-mark2.
append witab3 to itab3.
endloop.
endloop.
endform.
It will return itab3 which is sum of itab1 and itab2.

Reg. internal table logic

Hi,
I have an internal table with 5 fields (Vbeln, A, B, C, D ) and records like this:
Record1:
Field vbeln (value is 6000000001), Field A (value is 2006), Field B (value is 1130), Field C (value is initial), Field D (value is initial)
Record1:
Field vbeln (value is 6000000001), Field A (value is initial), Field B (value is initial), Field C (value is 2005), Field D (value is 1134)
Now whenever, Field A and Field B has values, field C and field D are initial and vice versa.
I Want to get all of the field values in just one record like below when the key vbeln is same.:
Field vbeln (value is 6000000001), Field A (value is 2006), Field B (value is 1130), Field C (value is 2005), Field D (value is 1134)
I know I can create another internal table, copy the contents, use the looping logic and achieve the same but wondering if there is any better way of doing the same?
Appreciate your input.
Thanks!

Hi,
You need another internal tables. Please try this.
SORT ITAB1.
ITAB2[] = ITAB1[].
LOOP AT ITAB1.
LOOP AT ITAB2 WHERE ITAB2-VBELN EQ ITAB1-VBELN
                  AND ITAB2-DATE1 NE ITAB1-DATE1
                  AND ITAB2-TIME1 NE ITAB1-TIME1.
    ITAB3-VBELN = ITAB1-VBELN.
    ITAB3-DATE1 = ITAB1-DATE1.
    ITAB3-TIME1 = ITAB1-TIME1.
    ITAB3-DATE2 = ITAB2-DATE2.
    ITAB3-TIME2 = ITAB2-TIME2.
    APPEND ITAB3.
ENDLOOP.
ENDLOOP.
Regards,
Ferry Lianto

Program to upload csv file to internal table and insert into database table

Hi I'm writing a program where I need to upload a csv file into an internal table using gui_upload, but i also need this program to insert the data into my custom database table using the split command. Anybody have any samples to help, its urgent!

Hi,
Check this table may be it will give u an hint...
REPORT z_table_upload LINE-SIZE 255.
Data
DATA: it_dd03p TYPE TABLE OF dd03p,
      is_dd03p TYPE dd03p.
DATA: it_rdata TYPE TABLE OF text1024,
      is_rdata TYPE text1024.
DATA: it_fields TYPE TABLE OF fieldname.
DATA: it_file TYPE REF TO data,
      is_file TYPE REF TO data.
DATA: w_error TYPE text132.
Macros
DEFINE write_error.
concatenate 'Error: table'
              p_table
              &1
              &2
         into w_error
         separated by space.
condense w_error.
write: / w_error.
stop.
END-OF-DEFINITION.
Field symbols
FIELD-SYMBOLS: <table> TYPE STANDARD TABLE,
               <data> TYPE ANY,
               <fs>    TYPE ANY.
Selection screen
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
PARAMETERS: p_file TYPE localfile DEFAULT 'C:\temp\' OBLIGATORY,
            p_separ TYPE c DEFAULT ';' OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b01.
SELECTION-SCREEN: BEGIN OF BLOCK b02 WITH FRAME TITLE text-b02.
PARAMETERS: p_table TYPE tabname OBLIGATORY
                                 MEMORY ID dtb
                                 MATCHCODE OBJECT dd_dbtb_16.
SELECTION-SCREEN: END OF BLOCK b02.
SELECTION-SCREEN: BEGIN OF BLOCK b03 WITH FRAME TITLE text-b03.
PARAMETERS: p_create TYPE c AS CHECKBOX.
SELECTION-SCREEN: END OF BLOCK b03,
                  SKIP.
SELECTION-SCREEN: BEGIN OF BLOCK b04 WITH FRAME TITLE text-b04.
PARAMETERS: p_nodb RADIOBUTTON GROUP g1 DEFAULT 'X'
                               USER-COMMAND rg1,
            p_save RADIOBUTTON GROUP g1,
            p_dele RADIOBUTTON GROUP g1.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_test TYPE c AS CHECKBOX,
            p_list TYPE c AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN: END OF BLOCK b04.
At selection screen
AT SELECTION-SCREEN.
IF sy-ucomm = 'RG1'.
    IF p_nodb IS INITIAL.
      p_test = 'X'.
    ENDIF.
ENDIF.
At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            field_name = 'P_FILE'
       IMPORTING
            file_name = p_file.
Start of selection
START-OF-SELECTION.
PERFORM f_table_definition USING p_table.
PERFORM f_upload_data USING p_file.
PERFORM f_prepare_table USING p_table.
PERFORM f_process_data.
IF p_nodb IS INITIAL.
    PERFORM f_modify_table.
ENDIF.
IF p_list = 'X'.
    PERFORM f_list_records.
ENDIF.
End of selection
END-OF-SELECTION.
      FORM f_table_definition                                       *
--> VALUE(IN_TABLE)                                               *
FORM f_table_definition USING value(in_table).
DATA: l_tname TYPE tabname,
        l_state TYPE ddgotstate,
        l_dd02v TYPE dd02v.
l_tname = in_table.
CALL FUNCTION 'DDIF_TABL_GET'
       EXPORTING
            name          = l_tname
       IMPORTING
            gotstate      = l_state
            dd02v_wa      = l_dd02v
       TABLES
            dd03p_tab     = it_dd03p
       EXCEPTIONS
            illegal_input = 1
            OTHERS        = 2.
IF l_state NE 'A'.
    write_error 'does not exist or is not active' space.
ENDIF.
IF l_dd02v-tabclass NE 'TRANSP' AND
     l_dd02v-tabclass NE 'CLUSTER'.
    write_error 'is type' l_dd02v-tabclass.
ENDIF.
ENDFORM.
      FORM f_prepare_table                                          *
--> VALUE(IN_TABLE)                                               *
FORM f_prepare_table USING value(in_table).
DATA: l_tname TYPE tabname,
        lt_ftab TYPE lvc_t_fcat.
l_tname = in_table.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
       EXPORTING
            i_structure_name = l_tname
       CHANGING
            ct_fieldcat      = lt_ftab
       EXCEPTIONS
            OTHERS           = 1.
IF sy-subrc NE 0.
    WRITE: / 'Error while building field catalog'.
    STOP.
ENDIF.
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = lt_ftab
    IMPORTING
      ep_table        = it_file.
ASSIGN it_file->* TO <table>.
CREATE DATA is_file LIKE LINE OF <table>.
ASSIGN is_file->* TO <data>.
ENDFORM.
      FORM f_upload_data                                            *
--> VALUE(IN_FILE)                                                *
FORM f_upload_data USING value(in_file).
DATA: l_file    TYPE string,
        l_ltext   TYPE string.
DATA: l_lengt   TYPE i,
        l_field   TYPE fieldname.
DATA: l_missk   TYPE c.
l_file = in_file.
l_lengt = strlen( in_file ).
FORMAT INTENSIFIED ON.
WRITE: / 'Reading file', in_file(l_lengt).
CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
            filename = l_file
            filetype = 'ASC'
       TABLES
            data_tab = it_rdata
       EXCEPTIONS
            OTHERS   = 1.
IF sy-subrc <> 0.
    WRITE: /3 'Error uploading', l_file.
    STOP.
ENDIF.
File not empty
DESCRIBE TABLE it_rdata LINES sy-tmaxl.
IF sy-tmaxl = 0.
    WRITE: /3 'File', l_file, 'is empty'.
    STOP.
ELSE.
    WRITE: '-', sy-tmaxl, 'rows read'.
ENDIF.
File header on first row
READ TABLE it_rdata INTO is_rdata INDEX 1.
l_ltext = is_rdata.
WHILE l_ltext CS p_separ.
    SPLIT l_ltext AT p_separ INTO l_field l_ltext.
    APPEND l_field TO it_fields.
ENDWHILE.
IF sy-subrc = 0.
    l_field = l_ltext.
    APPEND l_field TO it_fields.
ENDIF.
Check all key fields are present
SKIP.
FORMAT RESET.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Key fields'.
FORMAT RESET.
LOOP AT it_dd03p INTO is_dd03p WHERE NOT keyflag IS initial.
    WRITE: /3 is_dd03p-fieldname.
    READ TABLE it_fields WITH KEY table_line = is_dd03p-fieldname
                         TRANSPORTING NO FIELDS.
    IF sy-subrc = 0.
      FORMAT COLOR COL_POSITIVE.
      WRITE: 'ok'.
      FORMAT RESET.
    ELSEIF is_dd03p-datatype NE 'CLNT'.
      FORMAT COLOR COL_NEGATIVE.
      WRITE: 'error'.
      FORMAT RESET.
      l_missk = 'X'.
    ENDIF.
ENDLOOP.
Log other fields
SKIP.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Other fields'.
FORMAT RESET.
LOOP AT it_dd03p INTO is_dd03p WHERE keyflag IS initial.
    WRITE: /3 is_dd03p-fieldname.
    READ TABLE it_fields WITH KEY table_line = is_dd03p-fieldname
                         TRANSPORTING NO FIELDS.
    IF sy-subrc = 0.
      WRITE: 'X'.
    ENDIF.
ENDLOOP.
Missing key field
IF l_missk = 'X'.
    SKIP.
    WRITE: /3 'Missing key fields - no further processing'.
    STOP.
ENDIF.
ENDFORM.
      FORM f_process_data                                           *
FORM f_process_data.
DATA: l_ltext TYPE string,
        l_stext TYPE text40,
        l_field TYPE fieldname,
        l_datat TYPE c.
LOOP AT it_rdata INTO is_rdata FROM 2.
    l_ltext = is_rdata.
    LOOP AT it_fields INTO l_field.
      ASSIGN COMPONENT l_field OF STRUCTURE <data> TO <fs>.
      IF sy-subrc = 0.
      Field value comes from file, determine conversion
        DESCRIBE FIELD <fs> TYPE l_datat.
        CASE l_datat.
          WHEN 'N'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            WRITE l_stext TO <fs> RIGHT-JUSTIFIED.
            OVERLAY <fs> WITH '0000000000000000'.           "max 16
          WHEN 'P'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING ',.'.
            <fs> = l_stext.
          WHEN 'F'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING ',.'.
            <fs> = l_stext.
          WHEN 'D'.
            SPLIT l_ltext AT p_separ INTO l_stext l_ltext.
            TRANSLATE l_stext USING '/.-.'.
            CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
                 EXPORTING
                      date_external = l_stext
                 IMPORTING
                      date_internal = <fs>
                 EXCEPTIONS
                      OTHERS        = 1.
          WHEN 'T'.
            CALL FUNCTION 'CONVERT_TIME_INPUT'
                 EXPORTING
                      input = l_stext
                 IMPORTING
                      output = <fs>
                 EXCEPTIONS
                      OTHERS = 1.
          WHEN OTHERS.
            SPLIT l_ltext AT p_separ INTO <fs> l_ltext.
        ENDCASE.
      ELSE.
        SHIFT l_ltext UP TO p_separ.
        SHIFT l_ltext.
      ENDIF.
    ENDLOOP.
    IF NOT <data> IS INITIAL.
      LOOP AT it_dd03p INTO is_dd03p WHERE datatype = 'CLNT'.
      This field is mandant
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-mandt.
      ENDLOOP.
      IF p_create = 'X'.
        IF is_dd03p-rollname = 'ERDAT'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-datum.
        ENDIF.
        IF is_dd03p-rollname = 'ERZET'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-uzeit.
        ENDIF.
        IF is_dd03p-rollname = 'ERNAM'.
          ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                        TO <fs>.
          <fs> = sy-uname.
        ENDIF.
      ENDIF.
      IF is_dd03p-rollname = 'AEDAT'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-datum.
      ENDIF.
      IF is_dd03p-rollname = 'AETIM'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-uzeit.
      ENDIF.
      IF is_dd03p-rollname = 'AENAM'.
        ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data>
                                                      TO <fs>.
        <fs> = sy-uname.
      ENDIF.
      APPEND <data> TO <table>.
    ENDIF.
ENDLOOP.
ENDFORM.
      FORM f_modify_table                                           *
FORM f_modify_table.
SKIP.
IF p_save = 'X'.
    MODIFY (p_table) FROM TABLE <table>.
ELSEIF p_dele = 'X'.
    DELETE (p_table) FROM TABLE <table>.
ELSE.
    EXIT.
ENDIF.
IF sy-subrc EQ 0.
    FORMAT COLOR COL_POSITIVE.
    IF p_save = 'X'.
      WRITE: /3 'Modify table OK'.
    ELSE.
      WRITE: /3 'Delete table OK'.
    ENDIF.
    FORMAT RESET.
    IF p_test IS INITIAL.
      COMMIT WORK.
    ELSE.
      ROLLBACK WORK.
      WRITE: '- test only, no update'.
    ENDIF.
ELSE.
    FORMAT COLOR COL_NEGATIVE.
    WRITE: /3 'Error while modifying table'.
    FORMAT RESET.
ENDIF.
ENDFORM.
      FORM f_list_records                                           *
FORM f_list_records.
DATA: l_tleng TYPE i,
        l_lasti TYPE i,
        l_offst TYPE i.
Output width
l_tleng = 1.
LOOP AT it_dd03p INTO is_dd03p.
    l_tleng = l_tleng + is_dd03p-outputlen.
    IF l_tleng LT sy-linsz.
      l_lasti = sy-tabix.
      l_tleng = l_tleng + 1.
    ELSE.
      l_tleng = l_tleng - is_dd03p-outputlen.
      EXIT.
    ENDIF.
ENDLOOP.
Output header
SKIP.
FORMAT COLOR COL_HEADING.
WRITE: /3 'Contents'.
FORMAT RESET.
ULINE AT /3(l_tleng).
Output records
LOOP AT <table> ASSIGNING <data>.
    LOOP AT it_dd03p INTO is_dd03p FROM 1 TO l_lasti.
      IF is_dd03p-position = 1.
        WRITE: /3 sy-vline.
        l_offst = 3.
      ENDIF.
      ASSIGN COMPONENT is_dd03p-fieldname OF STRUCTURE <data> TO <fs>.
      l_offst = l_offst + 1.
      IF is_dd03p-decimals LE 2.
        WRITE: AT l_offst <fs>.
      ELSE.
        WRITE: AT l_offst <fs> DECIMALS 3.
      ENDIF.
      l_offst = l_offst + is_dd03p-outputlen.
      WRITE: AT l_offst sy-vline.
    ENDLOOP.
ENDLOOP.
Ouptut end
ULINE AT /3(l_tleng).
ENDFORM.
Regards,
Joy.

The type of the database table and work area (or internal table)...

Hello
I am trying to use a database and select all records from it and store them into an internal table.
My code:
Select * from xixi_dbcurrency into table gt_currency.
The error:
"The type of the database table and work area (or internal table) "GT_CURRENCY" are not Unicode-convertible . . . . . . . . . .     "
Any suggestions?
Thank you

Hi Thomas,
Thank you for your inputs above.
But as you suggested is we use INTO CORRESPONDING FIELDS OF TABLE then it resolve the error.
But I have below piece of code:
DATA:    it_new_source TYPE STANDARD TABLE OF _ty_s_sc_1,
              wa_source TYPE _ty_s_sc_1,
              wa_new_source TYPE _ty_s_sc_1,
              ls_target_key TYPE t_target_key.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_new_source
       FROM /bic/afao06pa100
       FOR ALL ENTRIES IN SOURCE_PACKAGE
       where /bic/fcckjobno = SOURCE_PACKAGE-/bic/fcckjobno
       and /bic/fcckjitid = SOURCE_PACKAGE-/bic/fcckjitid.
But since this is reading into corresponding fields of table the data load from one DSO to other DOS is running for long more that 15 hours and still not getting completed and giving dump.
So if I switch the search to below:
SELECT * FROM /bic/afao06pa100
   INTO TABLE it_new_source
       FOR ALL ENTRIES IN SOURCE_PACKAGE
       where /bic/fcckjobno = SOURCE_PACKAGE-/bic/fcckjobno
       and /bic/fcckjitid = SOURCE_PACKAGE-/bic/fcckjitid.
Then I am getting below error:E:The type of the database table and work area (or internal table) "IT_NEW_SOURCE" are not Unicode convertible.
Can you please advice on this, as performance need to improve in start routine code.
Thank You.

Download the KTOPL field data and GLT0 table data into one Internal table

Hi,
I have downloaded GLT0 table fields data to PC file . But i need to download KTOPL(Chart Of Accounts) data also. in GLT0 table there is no KTOPL field.
But in SKA1 table have KTOPL field. Then what is the issue is GLT0 data & KTOPL field data needs to download into one Internal Table.
anybody could you please solve this problem. immediately need to solve this.
Below is the code.
REPORT ZFXXEABL_1 NO STANDARD PAGE HEADING
                LINE-SIZE 200.
Tables Declaration
TABLES : GLT0.
Data Declaration
DATA :   FP(8)           TYPE C,
         YEAR           LIKE GLT0-RYEAR,
         PERIOD(3)       TYPE C,
         DBALANCE         LIKE VBAP-NETWR VALUE 0 ,
         CBALANCE         LIKE VBAP-NETWR VALUE 0.
*Internal table for for final data..
DATA : BEGIN OF REC1 OCCURS 0,
       BAL             LIKE GLT0-TSLVT value 0,
       COAREA          LIKE GLT0-RBUSA,
      CA(4)           TYPE C,
       KTOPL           LIKE ska1-ktopl,
       CCODE           LIKE GLT0-BUKRS,
       CREDIT          LIKE VBAP-NETWR,
       CURRENCY        LIKE GLT0-RTCUR,
       CURTYPE(2)      TYPE N,
       DEBIT           LIKE VBAP-NETWR,
       YEAR(8)         TYPE C,
       FY(2)           TYPE C,
       ACCOUNT         LIKE GLT0-RACCT,
       VER             LIKE GLT0-RVERS,
       VTYPE(2)        TYPE N,
       CLNT            LIKE SY-MANDT,
       S_SYS(3)        TYPE C,
       INDICATOR      LIKE GLT0-DRCRK,
       END OF REC1.
DATA : C(2) TYPE N,
       D(2) TYPE N.
DATA REC1_H LIKE REC1.
Variable declarations
DATA :
       W_FILES(4) TYPE N,
       W_DEBIT LIKE GLT0-TSLVT,
       W_CREDIT LIKE GLT0-TSLVT,
       W_PCFILE LIKE RLGRAP-FILENAME ,
       W_UNIXFILE LIKE RLGRAP-FILENAME,
       W_PCFILE1 LIKE RLGRAP-FILENAME,
       W_UNIXFIL1 LIKE RLGRAP-FILENAME,
       W_EXT(3) TYPE C,
       W_UEXT(3) TYPE C,
       W_PATH LIKE RLGRAP-FILENAME,
       W_UPATH LIKE RLGRAP-FILENAME,
       W_FIRST(1) TYPE C VALUE 'Y',
       W_CFIRST(1) TYPE C VALUE 'Y',
       W_PCFIL LIKE RLGRAP-FILENAME.
DATA: "REC LIKE GLT0 OCCURS 0 WITH HEADER LINE,
      T_TEMP LIKE GLT0 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF REC3 OCCURS 0.
      INCLUDE STRUCTURE GLT0.
DATA: KTOPL LIKE SKA1-KTOPL,
      END OF REC3.
DATA: BEGIN OF T_KTOPL OCCURS 0,
      KTOPL LIKE SKA1-KTOPL,
      SAKNR LIKE SKA1-SAKNR,
      END OF T_KTOPL.
Download data.
DATA: BEGIN OF I_REC2 OCCURS 0,
       BAL(17),        "             like GLT0-TSLVT value 0,
       COAREA(4),      "          like glt0-rbusa,
       CA(4),          " chart of accounts
       CCODE(4),       "           like glt0-bukrs,
       CREDIT(17),     "          like vbap-netwr,
       CURRENCY(5),    "       like glt0-rtcur,
       CURTYPE(2),     "      type n,
       DEBIT(17),      "           like vbap-netwr,
       YEAR(8),        " type c,
       FY(2),          " type c, fiscal yr variant
       ACCOUNT(10),    " like glt0-racct,
       VER(3),         "    like glt0-rvers,
       VTYPE(3),       " type n,
       CLNT(3),        "like sy-mandt,
       S_SYS(3),       "like sy-sysid,
       INDICATOR(1),   "   like glt0-drcrk,
      END OF I_REC2.
Selection screen.                                                    *
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS : COMPCODE FOR GLT0-BUKRS,
                  GLACC FOR GLT0-RACCT,
                  FISYEAR   FOR GLT0-RYEAR,
                no intervals no-extension,      "- BG6661-070212
                   FISCPER FOR GLT0-RPMAX,
                 busarea   for glt0-rbusa,
                  CURRENCY FOR GLT0-RTCUR.
SELECTION-SCREEN END   OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
P_UNIX AS CHECKBOX,                  "Check box for Unix Option
P_UNFIL LIKE RLGRAP-FILENAME,        " Unix file Dnload file name
   default '/var/opt/arch/extract/GLT0.ASC', "- BG6661-070212
P_PCFILE AS CHECKBOX,                "Check box for Local PC download.
P_PCFIL LIKE RLGRAP-FILENAME         " PC file Dnload file name
             default 'C:\GLT0.ASC'.           "- BG6661-070212
      DEFAULT 'C:\glt0_gl_balance_all.asc'.     "+ BG6661-070212
SELECTION-SCREEN END   OF BLOCK BL2.
*eject
Initialization.                                                     *
INITIALIZATION.
Try to default download filename
p_pcfil = c_pcfile.
p_unfil = c_unixfile.
if sy-sysid eq c_n01.
   p_unfil =   c_unixfile.
endif.
if sy-sysid eq c_g21.
   p_unfil =   c_g21_unixfile.
endif.
if sy-sysid eq c_g9d.
   p_unfil =   c_g9d_unixfile.
endif.
Default for download filename
*{ Begin of BG6661-070212
CONCATENATE C_UNIXFILE
              SY-SYSID C_FSLASH C_CHRON C_FILENAME INTO P_UNFIL.
*} End of BG6661-070212
AT SELECTION-SCREEN OUTPUT.
loop at screen.
   if screen-name = 'P_PCFIL'.        "PC FILE
     screen-input = '0'.
     modify screen.
   endif.
   if screen-name = 'P_UNFIL'.        "UN FILE
     screen-input = '0'.
     modify screen.
   endif.
endloop.
if w_first = 'Y'.
    perform path_file.
    w_first = 'N'.
endif.
if w_cfirst = 'Y'.
   perform cpath_file.
   w_cfirst = 'N'.
endif.
Start-of-Selection.                                                 *
START-OF-SELECTION.
*COLLECT DATA
PERFORM COLLECT_DATA.
*BUILD FILENAMES
PERFORM BUILD_FILES.
*LOCAL
IF P_PCFILE = C_YES.
   PERFORM LOCAL_DOWNLOAD.
ENDIF.
*UNIX
IF P_UNIX = C_YES.
    PERFORM UNIX_DOWNLOAD.
ENDIF.
IF P_PCFILE IS INITIAL AND P_UNIX IS INITIAL.
    MESSAGE I000(ZL) WITH 'Down load flags both are unchecked'.
ENDIF.
END-OF-SELECTION.
IF P_PCFILE = C_YES.
WRITE :/ 'PC File' , C_UNDER, P_PCFIL.
ENDIF.
*&      Form DOWNLOAD
      Download                                                       *
FORM DOWNLOAD.
P_PCFIL = W_PATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
CALL FUNCTION 'WS_DOWNLOAD'
       EXPORTING
           FILENAME            = P_PCFIL
           FILETYPE            = C_ASC   "c_dat   "dat
       TABLES
            DATA_TAB            = I_REC2 " t_str
           fieldnames          = t_strhd
       EXCEPTIONS
            FILE_OPEN_ERROR     = 1
            FILE_WRITE_ERROR    = 2
            INVALID_FILESIZE    = 3
            INVALID_TABLE_WIDTH = 4
            INVALID_TYPE        = 5
            NO_BATCH            = 6
            UNKNOWN_ERROR       = 7
            OTHERS              = 8.
IF SY-SUBRC EQ 0.
ENDIF.
ENDFORM.
*&      Form WRITE_TO_SERVER
      text                                                           *
--> p1        text
<-- p2        text
FORM WRITE_TO_SERVER.
DATA : L_MSG(100) TYPE C,
         L_LINE(5000) TYPE C.
P_UNFIL = W_UPATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
OPEN DATASET P_UNFIL FOR OUTPUT IN TEXT MODE.        " message l_msg.
IF SY-SUBRC <> 0.
    WRITE: / L_MSG.
ENDIF.
perform header_text1.
LOOP AT I_REC2.
    TRANSFER I_REC2 TO P_UNFIL.
ENDLOOP.
CLOSE DATASET P_UNFIL.
WRITE : / C_TEXT , W_UPATH.
SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
CLEAR W_UPATH.
IF NOT W_UEXT IS INITIAL.
    CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ELSE.
    W_UEXT = C_ASC. " c_csv.
    CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ENDIF.
ENDFORM.                               " WRITE_TO_SERVER
*&      Form BUILD_FILES
FORM BUILD_FILES.
IF P_PCFILE = C_YES.
    W_PCFILE = P_PCFIL.
***Split path at dot**
    SPLIT W_PCFILE AT C_DOT INTO W_PCFILE1 W_EXT.
    IF NOT W_EXT IS INITIAL.
      CONCATENATE W_PCFILE1 C_DOT W_EXT INTO W_PATH.
    ELSE.
      W_PATH = W_PCFILE1.
    ENDIF.
ENDIF.
IF P_UNIX = C_YES.
    W_UNIXFILE = P_UNFIL.
    SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
    IF NOT W_UEXT IS INITIAL.
      CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
    ELSE.
      W_UPATH = W_UNIXFIL1.
    ENDIF.
ENDIF.
ENDFORM.
FORM CPATH_FILE.
CLEAR P_PCFIL.
   CONCATENATE C_PCFILE
               C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
               C_DOT C_ASC INTO P_PCFIL.
ENDFORM.                    " CPATH_FILE
FORM PATH_FILE.
CLEAR P_UNFIL.
if sy-sysid eq c_n01.
   CONCATENATE C_UNIXFILE
               C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
                C_DOT C_ASC INTO P_UNFIL.
endif.
if sy-sysid eq c_g21.
concatenate c_g21_unixfile
              c_comfile sy-sysid c_under sy-datum sy-uzeit
               c_dot c_asc into p_unfil.
endif.
if sy-sysid eq c_g9d.
concatenate c_g9d_unixfile
              c_comfile sy-sysid c_under sy-datum sy-uzeit
               c_dot c_asc into p_unfil.
endif.
ENDFORM.                    " PATH_FILE
Local_Download                                                       *
      Local                                                          *
FORM LOCAL_DOWNLOAD.
perform header_text.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
        REC1-COAREA TO I_REC2-COAREA,
       REC1-CA TO I_REC2-CA,
        REC1-KTOPL TO I_REC2-CA,
        REC1-CCODE TO I_REC2-CCODE,
        REC1-CREDIT TO I_REC2-CREDIT,
        REC1-CURRENCY TO I_REC2-CURRENCY,
        REC1-CURTYPE TO I_REC2-CURTYPE,
        REC1-DEBIT TO I_REC2-DEBIT,
        REC1-YEAR TO I_REC2-YEAR,
        REC1-FY TO I_REC2-FY,
        REC1-ACCOUNT TO I_REC2-ACCOUNT,
        REC1-VER TO I_REC2-VER,
        REC1-VTYPE TO I_REC2-VTYPE,
        REC1-CLNT TO I_REC2-CLNT,
        REC1-S_SYS TO I_REC2-S_SYS,
        REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
    PERFORM DOWNLOAD .
    CLEAR I_REC2.
    REFRESH I_REC2.
   ELSE.
   WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM.                               " LOCAL_DOWNLOAD
*&      Form UNIX_DOWNLOAD
FORM UNIX_DOWNLOAD.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
        REC1-COAREA TO I_REC2-COAREA,
      REC1-CA TO I_REC2-CA,
        REC1-KTOPL TO I_REC2-CA,
        REC1-CCODE TO I_REC2-CCODE,
        REC1-CREDIT TO I_REC2-CREDIT,
        REC1-CURRENCY TO I_REC2-CURRENCY,
        REC1-CURTYPE TO I_REC2-CURTYPE,
        REC1-DEBIT TO I_REC2-DEBIT,
        REC1-YEAR TO I_REC2-YEAR,
        REC1-FY TO I_REC2-FY,
        REC1-ACCOUNT TO I_REC2-ACCOUNT,
        REC1-VER TO I_REC2-VER,
        REC1-VTYPE TO I_REC2-VTYPE,
        SY-MANDT TO I_REC2-CLNT,
        SY-SYSID TO I_REC2-S_SYS,
        REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
    PERFORM WRITE_TO_SERVER.
    CLEAR I_REC2.
    REFRESH I_REC2.
ELSE.
   WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM.                               " UNIX_DOWNLOAD
*&      Form HEADER_TEXT
      text                                                           *
--> p1        text
<-- p2        text
*form header_text.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
     c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
           into t_strhd
           separated by c_comma.
append t_strhd.
*endform.                               " HEADER_TEXT
*&      Form HEADER_TEXT1
      text                                                           *
*form header_text1.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
    c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
           into t_strhd1
           separated by c_comma.
append t_strhd1.
transfer t_strhd1 to p_unfil.
*endform.                    " HEADER_TEXT1
*&      Form COLLECT_DATA
      Collect Data                                                   *
FORM COLLECT_DATA.
SELECT * FROM GLT0 INTO TABLE REC3
                    WHERE   BUKRS IN COMPCODE
                    AND     RYEAR IN FISYEAR
                    AND     RPMAX IN FISCPER
                    AND     RACCT IN GLACC
                    AND     RTCUR IN CURRENCY.
SELECT KTOPL FROM SKA1
             INTO TABLE T_KTOPL
             FOR ALL ENTRIES IN REC3
             WHERE SAKNR = REC3-RACCT.
LOOP AT REC3 .
   select *
   from glt0
   into table t_temp
   where rldnr = rec-rldnr
     and rrcty = rec-rrcty
      and rvers = rec-rvers
     and bukrs = rec-bukrs
     and ryear = rec-ryear
      and racct = rec-racct
       and rbusa = rec-rbusa
       and rtcur <> 'ZAR'
     and rpmax = rec-rpmax.
if sy-subrc = 0.
        rec1-bal = '0.00'.
else.
rec1-bal = rec-hslvt.
endif.
*READ TABLE T_KTOPL WITH KEY SAKNR = REC-RACCT BINARY SEARCH.
MOVE T_KTOPL-KTOPL TO REC3-KTOPL.
CLEAR: CBALANCE, DBALANCE.
REC1-BAL = REC3-HSLVT.
IF REC3-DRCRK = 'S'.
IF REC3-HSLVT NE C_ZERO.
       YEAR   = REC-RYEAR.
       PERIOD = '000'.
       CONCATENATE PERIOD C_DOT YEAR INTO FP.
       REC1-INDICATOR = REC-DRCRK.
       REC1-DEBIT = C_ZERO.
       REC1-CREDIT = C_ZERO.
       REC1-CCODE = REC-BUKRS.
       REC1-YEAR = FP.
       REC1-CURRENCY = REC-RTCUR.
       REC1-ACCOUNT = REC-RACCT.
       rec1-bal      = rec-hslvt.
       dbalance = rec1-bal.
       REC1-CURTYPE = C_CTYPE.
       REC1-FY      = C_FY.
       REC1-COAREA   = REC-RBUSA.
       REC1-VER     = REC-RVERS.
       REC1-VTYPE   = C_CTYPE.
       REC1-CA      = C_CHART.
       APPEND REC1.
        C = 0.
      PERFORM D.
ENDIF.
IF REC3-HSL01 NE C_ZERO.
        YEAR   = REC3-RYEAR.
        PERIOD = '001'.
        CONCATENATE PERIOD C_DOT YEAR INTO FP.
        REC1-INDICATOR = REC3-DRCRK.
        REC1-DEBIT = REC3-HSL01 .
        REC1-CCODE = REC3-BUKRS.
        REC1-YEAR = FP.
        REC1-CURRENCY = REC3-RTCUR.
        REC1-ACCOUNT = REC3-RACCT.
       rec1-bal      = REC3-hsl01 + dbalance.
       dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART.
        REC1-KTOPL = REC3-KTOPL.
        APPEND REC1.
        C = 1.
     PERFORM D.
ENDIF.
IF REC3-HSL02 NE C_ZERO.
      REC1-DEBIT = REC3-HSL02.
   YEAR   = REC3-RYEAR.
   PERIOD = '002'.
CONCATENATE PERIOD C_DOT YEAR INTO FP.
     REC1-INDICATOR = REC3-DRCRK.
   REC1-DEBIT = REC3-HSL02.
   REC1-CCODE = REC3-BUKRS.
   REC1-YEAR = FP.
   REC1-CURRENCY = REC3-RTCUR.
   REC1-ACCOUNT = REC3-RACCT.
rec1-bal      = REC3-hsl02 + dbalance.
dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART. "-BF7957-070503
        REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
   APPEND REC1.
   C = 2.
PERFORM D.
ENDIF.
IF REC3-HSL03 NE C_ZERO.
        YEAR   = REC3-RYEAR.
        PERIOD = '003'.
        CONCATENATE PERIOD C_DOT YEAR INTO FP.
           REC1-INDICATOR = REC3-DRCRK.
        REC1-DEBIT = REC3-HSL03.
        REC1-CCODE = REC3-BUKRS.
        REC1-YEAR = FP.
        REC1-CURRENCY = REC3-RTCUR.
        REC1-ACCOUNT = REC3-RACCT.
       rec1-bal      = REC3-hsl03 + dbalance .
       dbalance = rec1-bal.
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
       REC1-CA      = C_CHART. "-BF7957-070503
         REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
        APPEND REC1.
      C = 3.
PERFORM D.
ENDIF.
IF REC3-HSL04 NE C_ZERO.
       REC1-DEBIT = REC3-HSL04.
          YEAR   = REC3-RYEAR.
          PERIOD = '004'.
         CONCATENATE PERIOD C_DOT YEAR INTO FP.
            REC1-INDICATOR = REC3-DRCRK.
         REC1-DEBIT = REC3-HSL04.
          REC1-CCODE = REC3-BUKRS.
          REC1-YEAR = FP.
          REC1-CURRENCY = REC3-RTCUR.
          REC1-ACCOUNT = REC3-RACCT.
         rec1-bal      = REC3-hsl04 + dbalance .
        REC1-CURTYPE = C_CTYPE.
        REC1-FY      = C_FY.
        REC1-COAREA   = REC3-RBUSA.
        REC1-VER     = REC3-RVERS.
        REC1-VTYPE   = C_CTYPE.
      REC1-CA      = C_CHART. "-BF7957-070503
        REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
        APPEND REC1.
         dbalance = rec1-bal.
          C = 4.
          PERFORM D.
ENDIF.
Thanks and Regards,
Ram

use logical database SDF, nodes ska1 and skc1c
A.

Regarding Internal table and access performance

hey guys.
In my report , Somehow i reduced the query performance time by selecting minimum key fields and moved the selected records to internal table.
Now from this internal table i am restricting the loop
as per my requirements using where statements.(believing that internal table retrieval is more faster than database acces(using query)).
But still my performance goes down.
Could you pls suggest me how to reduce the execution time
in abap programming.
I used below commands.
Read using binary search.
loop ...where statement.
perform statements.
collect staements.
delete itab.(delete duplicates staements too)
sort itab(sorting).
For each above statements do we have any faster way to retrieval records.
If i see my bottle neck at se30.it shows
ABAP programming to 70 percent
database access to 20 percent
R3 system as 10percent.
now how to reduce this abap process.
could you pls reply.
ambichan.
ambichan.

Hello Ambichan,
It is difficult to suggest the improvements without looking at the actual code that you are running. However, I can give you some general information.
1. READ using the BINARY SEARCH addition.
This is indeed a good way of doing a READ. But have you made sure that the internal table is <i>sorted by the required fields</i> before you use this statement ?
2. LOOP...WHERE statement.
This is also a good way to avoid looping through unnecessary entries. But further improvement can certainly be achieved if you use FIELD-SYMBOLS.
LOOP AT ITAB INTO <FIELD_SYMBOL_OF_THE_SAME_LINE-TYPE_AS_ITAB>.
ENDLOOP.
3. PERFORM statements.
A perform statement can not be optimized. what matters is the code that you write inside the FORM (or a subroutine).
4. COLLECT statements.
I trust you have used the COLLECT statement to simplify the logic. Let that be as it is. The code is more readable and elegant.
The COLLECT statement is somewhat performance intensive. It takes more time with a normal internal table (STANDARD). See if you can use an internal table of type SORTED. Even better, you can use a HASHED internal table.
5. DELETE itab.(delete duplicates staements too)
If you are making sure that you are deleting several entries based on a condition, then this should be okay. You cannot avoid using the DELETE statement if your functionality requires you to do so.
Also, before deleting the DUPLICATES, ensure that the internal table is sorted.
6. SORT statement.
It depends on how many entries there are in the internal table. If you are using most of the above points on the same internal table, then it is better that you define your internal table to be of type SORTED. That way, inserting entries will take a little more time (to ensure that the table is always sorted), but alll the other operations are going to be much faster.
Get back to me if you need further assistance.
Regards,
<a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=zwcc%2fwm4ups%3d">anand Mandalika</a>.

Copying data from a table in the Database to an internal table.

Hello,
How do I copy data that is a table that is in the database and and then load the data to an internal table in the ABAP/4 Aditor.
Please help.

hi,,
do this way ...
tables : mara.
parameters : p_matnr like mara-matnr,
start-of-selection.
select <fields> from mara into table it_mara
where matnr = p_matnr.
if sy-subrc = 0.
endif.

Is it possible to update internal table from database table

Hello All:
I know how to update database table from internal table in one shot (batch) but is the reverse possible? Can I update some fields in an internal table from a database table in one shot (without looping) because my internal table is huge? Could you please provide me any ideas how to acheive something like this? Thanks in advance and answers will be rewarded.
thanks.
Mithun

Hello my friend,
You can do it MAYBE , i think you can reverse the update doing a ROLLBACK, but only after you update....not after the program finishes..
To update some fields at once use:
UPDATE DBTABLE FROM TABLE IT_TABLE
Hope this helps!!
Gabriel

Dynamic creation of variables and alv grid output/internal table

Dear Experts
I am stuck in an inventory ageing report which is to be done year wise. the scenario is as follow.
selection screen i enter the year 2011 or 2010 or 2009.
the output should show me 2011-2007 or 2010-2007 or 2009-2007. the alv grid should always start from 2007 and end at the year that is entered in the selection screen.
Now how can i create a dynamic variables to store the values of the corresponding yr and also how can i create a dynamic internal table to store these values.
Thanks & Regards
Zamir Parkar

Hi Zamir,
if you are new to ABAP you may leave old and buggy techniques behind.
If you want to create the table dynamically, please do not use l_alv_table_create=>create_dynamic_table because it is limited and always triggers a possibly unwanted database commit.
You better use RTTS dynamic runtime type services, i.e. check the example for [Creating Flat and Complex Internal Tables Dynamically using RTTI|http://wiki.sdn.sap.com/wiki/display/Snippets/CreatingFlatandComplexInternalTablesDynamicallyusingRTTI].
As done here, leave all outdated ALV technologies behind and start with CL_SALV_TABLE. It is following the object-oriented approach and does not need a field catalog.
You will get used to field-symbols that can be compared to the data referenced by a pointer. For dynamic fields, you may build the field names dynamically, i.e.
DATA:
      lo_structdescr         TYPE REF TO cl_abap_structdescr,
      lo_typedescr           TYPE REF TO cl_abap_typedescr,
      lo_tabledescr          TYPE REF TO cl_abap_tabledescr,
      lr_data                TYPE REF TO data,
      lt_comp_all            TYPE cl_abap_structdescr=>component_table,
      lv_index               TYPE numc2.
    FIELD-SYMBOLS:
      <any>                  TYPE ANY,
      <component>            TYPE LINE OF abap_component_tab,
       <table>                TYPE table.
    DO nnn TIMES.
      lv_index = sy-index.
      lo_typedescr   = cl_abap_typedescr=>describe_by_name( <name of data element> ).
      APPEND INITIAL LINE TO lt_comp_all ASSIGNING <component>.
      <component>-type ?= lo_typedescr.
      CONCATENATE 'YEARVAL' lc_underscore lv_index INTO <component>-name.
      <component>-as_include = abap_true.
      CONCATENATE lc_underscore lv_index INTO <component>-suffix.
    ENDDO.
* create description object for structured type
    lo_structdescr = cl_abap_structdescr=>create( lt_comp_all ).
* create table description object for this
    lo_tabledescr = cl_abap_tabledescr=>create(
                    p_line_type = lo_structdescr
                    p_table_kind = cl_abap_tabledescr=>tablekind_std
                    p_unique     = abap_false ).
* create data object
    CREATE DATA lr_data TYPE HANDLE lo_tabledescr.
ASSIGN lr_data->* to <table>.
This is a fragment. Please adapt to your needs.
Regards,
Clemens

Insert or Modify statement from internal table to database table

Hi All,
I have three tables wakh, wrf and wakp. I have an internal table with 5 columns col1, col2, col3, col4 and col5.
The value in Col1 is my article no and the articleno. is in the table wakh. The value in col2 is my ccode and it is in the table wrf. The rest three columns col3, col4 and col5 are unit, qty and price and they are in the wakp table. Now when my articleno is equal to ccode I need to update the col3, col4 and col5 values in the wakp. wakp has around 20 columns.
Can anyone of you guys please give me the code for this issue. Your help is highly appreciated and thanks for all for your time.
Cheers,
Cheng

Hi Rob,
let me explain you the whole process what i am trying to do. I have a screen where there are 3 fields. In my first field I have a promoiton no. As soon as the user enters the promotion no. its description will be populated in my second field. If the promotion is not maintained then it will throw an error. In my third field User will upload an excel sheet which has 5 columns articleno, colorcode, salesunit, qty, mdprice. Here articleno is coming from wakh and colorcode is in wrf_charval table and the rest three fields are coming from wakp table. So for the article no. which is in col1. and for its corresponding colorcode which is in col3 i need to update col3, col4, col5 values.
With my below code I am able to upload the excel into internal table and display it. So instead of displaying I need to update in the database. Can you please let me know how I need to attach the function module within my code and update accordingly.
REPORT ZTest.
tables : wakh, wakt.
Parameter: PromoID type wakh-aktnr, PromoDec type wakt-aktkt, p_file LIKE rlgrap-filename
               DEFAULT 'c:\test.xls' OBLIGATORY.   " File Name
*FileName type string.
*file_nm type localfile.
TYPES:   BEGIN OF t_datatab,
         col1(25) TYPE c,
         col2(30) TYPE c,
         col3(30) TYPE c,
         col4(30) TYPE c,
         col5(30) TYPE c,
         END OF t_datatab.
DATA: it_datatab TYPE STANDARD TABLE OF t_datatab INITIAL SIZE 0,
      wa_datatab TYPE t_datatab.
Data : p_table type t_datatab occurs 0 with header line.
DATA : gd_scol   TYPE i VALUE '1',
       gd_srow   TYPE i VALUE '2',
       gd_ecol   TYPE i VALUE '5',
       gd_erow   TYPE i VALUE '65536'.
DATA: it_tab TYPE filetable,
      gd_subrc TYPE i.
field-symbols : <fs>.
AT selection-screen on PromoID.
select single * from wakh where aktnr = PromoID.
if sy-subrc EQ 0.
select aktkt from wakt into PromoDec where aktnr eq PromoID.
endselect.
else.
message A000(ZI) with 'Promotion ID is not Maintained.'.
endif.
*Title : Excel Uploading
*Selection screen definition
*SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
*PARAMETERS: p_file LIKE rlgrap-filename
              DEFAULT 'c:\test.xls' OBLIGATORY.   " File Name
*SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tab.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title     = 'Select File'
      default_filename = '*.xls'
      multiselection   = ' '
    CHANGING
      file_table       = it_tab
      rc               = gd_subrc.
LOOP AT it_tab INTO p_file.
   so_fpath-sign = 'I'.
   so_fpath-option = 'EQ'.
   append so_fpath.
ENDLOOP.
START-OF-SELECTION.
PERFORM upload_excel_file TABLES   it_datatab
                             USING   p_file
                                     gd_scol
                                     gd_srow
                                     gd_ecol
                                     gd_erow.
END-OF-SELECTION.
END-OF-SELECTION.
LOOP AT it_datatab INTO wa_datatab.
    WRITE:/ wa_datatab-col1,
            wa_datatab-col2,
            wa_datatab-col3,
            wa_datatab-col4,
            wa_datatab-col5.
ENDLOOP.
*&      Form UPLOAD_EXCEL_FILE
      upload excel spreadsheet into internal table
     -->P_TABLE    Table to return excel data into
     -->P_FILE     file name and path
     -->P_SCOL     start column
     -->P_SROW     start row
     -->P_ECOL     end column
     -->P_EROW     end row
FORM upload_excel_file TABLES   p_table
                       USING    p_file
                                p_scol
                                p_srow
                                p_ecol
                                p_erow.
DATA : lt_intern TYPE kcde_cells OCCURS 0 WITH HEADER LINE.
Has the following format:
            Row number   | Colum Number   |   Value
     i.e.     1                 1             Name1
              2                 1             Joe
DATA : ld_index TYPE i.
Note: Alternative function module - 'ALSM_EXCEL_TO_INTERNAL_TABLE'
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = p_file
      i_begin_col             = p_scol
      i_begin_row             = p_srow
      i_end_col               = p_ecol
      i_end_row               = p_erow
    TABLES
      intern                  = LT_INTERN
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'Error Uploading file'.
    EXIT.
ENDIF.
IF lt_intern[] IS INITIAL.
    FORMAT COLOR COL_BACKGROUND INTENSIFIED.
    WRITE:/ 'No Data Uploaded'.
    EXIT.
ELSE.
    SORT lt_intern BY row col.
    LOOP AT lt_intern.
     MOVE lt_intern-col TO ld_index.
     assign component ld_index of structure
     p_table to <fs>.
move : lt_intern-value to <fs>.
    MOVE lt_intern-value TO p_table.
      AT END OF row.
        APPEND p_table.
        CLEAR p_table.
      ENDAT.
    ENDLOOP.
ENDIF.
ENDFORM.
Thanks for your valuable time.
Cheng

GET statement and internal table

Hi community,
I use the GET statement and I want to use some older code segments.
I read somewhere that I can use the result of GET like an internal table.
So I tried to get the content of bsid into my internal table it_bsid. But that doesn't seem to work.
Do you have any advice in this?
I wanted to do the following:
TABLES:
        KNA1,
        BSID,
        BKPF.
DATA:
      it_bsid TYPE TABLE OF bsid WITH HEADER LINE,
      is_bsid LIKE LINE OF it_bsid,
GET bsid.
LOOP AT bsid.
APPEND it_bsid.
ENDLOOP.
-or-
GET bsid.
LOOP AT bsid INTO is_bsid.
APPEND is_bsid TO it_bsid.
ENDLOOP.
But in both cases I get an error.
' "VERSION ... ." expected after "BSID" '
Do you know what is the reason for that?
Regards
Tobias
Edited by: Tobias Oelschlaeger on Feb 29, 2008 4:18 PM

Hi Tobias,
first you have to assign a logical database which has BSID to your program (in program attributes).
Then GET is the event triggered by the next BSID record according to your selection. You can not LOOP here but you may append to an internal table. This table may be processed using LOOP in the END-OF-SELECTION event.
Read some documentation about LDB [Logical Databases|http://help.sap.com/erp2005_ehp_01/helpdata/en/f0/ca4584260211d28a430000e829fbbd/content.htm] - it may help to understand the concept of this obsolete technique.
Regards,
Clemens

Import from database an internal table with generic Type : Web Dynpro ABAP

Hi everyone,
i have a requirement in which i'm asked to transfer data flow between two frameworks, from WD Component to another. The problem is that i have to transfer internal tables with generic types. i used the import/ export from database approache but in that way i get an error message saying "Object references and data references not yet supported".
Here is my code to extract a generic internal table from memory.
    DATA l_table_f4 TYPE TABLE OF REF TO data.
FIELD-SYMBOLS: <l_table_f4> TYPE STANDARD TABLE.
DATA lo_componentcontroller TYPE REF TO ig_componentcontroller .
DATA: ls_indx TYPE indx.
lo_componentcontroller =   wd_this->get_componentcontroller_ctr( ).
lo_componentcontroller->fire_vh_search_action_evt( ).
ASSIGN l_table_f4 TO <l_table_f4>.
*-- Import table for Help F4
IMPORT l_table_f4 TO <l_table_f4> FROM DATABASE indx(v1) TO ls_indx ID 'table_help_f4_ID'.
The error message is desplayed when last instruction is executed " IMPORT l_table_f4...".
I saw another post facing the same problem but never solved "Generic Type for import Database".
Please can anyone help ?
Thanks & Kind regards.

hi KIan,
go:
general type
TYPE : BEGIN OF ty_itab,
           field1 TYPE ztab-field1,
           field2 TYPE ztab-field2,
*your own fields here:
           field TYPE i,
           field(30) TYPE c,
           END OF ty_itab.
work area
DATA : gw_itab TYPE ty_itab.
internal table
DATA : gt_itab TYPE TABLE OF ty_itab.
hope this helps
ec

REG:Internal table and Database table

Similar Messages

Maybe you are looking for