Format for fields in an internal table

DATA: BEGIN OF ITAB OCCURS 0,
AUFNR LIKE AFKO-AUFNR, " Purchase Order Number
PLNBEZ LIKE AFKO-PLNBEZ, " Part Number
BISMT like MARA-BISMT, " Old Material
LNO(2),
GAMNG LIKE AFKO-GAMNG, " Production Order Quantity
GLTRP LIKE AFKO-GLTRP,
VDATU LIKE VBAK-VDATU,
KWMENG LIKE VBAP-KWMENG,
MBDAT LIKE VBEP-MBDAT,
GBSTA LIKE VBUK-GBSTK,
PCTBS(5),
*CSHOT
"CDESC
END OF ITAB.
LOOP AT ITAB.
WRITE:/3 ITAB-AUFNR,
13 ITAB-PLNBEZ,
23 ITAB-BISMT,
LNO(2),
45 ITAB-GAMNG,
65 ITAB-GLTRP.
57 ITAB-VDATU.
*63 ITAB-KWMENG,
69 ITAB-MBDAT.
PCTBS(5),
*C
ENDLOOP.
I have a internal table and I have writing the itab in the write statement. I need to format the field in itab.
for eg:
itab-gamng(lenght as 5)
itab-gltrp(its a date) i just need the mm/yy how can I format it.

You don' need to reformat the itab, just the fields before you write them.
<b>data: monthyear(5) type c.
data: qty(5) type c.</b>
LOOP AT ITAB.
<b>concatenate itab-gltrp+4(2) '/'
itab-gltrp+0(4)
into monthyear.
clear qty.
qty = qty + itab-gamng.</b>
WRITE:/3 ITAB-AUFNR,
13 ITAB-PLNBEZ,
23 ITAB-BISMT,
* LNO(2),
<b>*45 ITAB-GAMNG,
45 qty,
* 65 ITAB-GLTRP.
65 monthyear.</b>
* 57 ITAB-VDATU.
* *63 ITAB-KWMENG,
* 69 ITAB-MBDAT.
* PCTBS(5),
*C
ENDLOOP.
Regards,
Rich Heilman

Similar Messages

Coloring a field in the internal table

Hi all,
How can I color a field in the internal table knowing that I'm developing a classic report.
Thanks in advance.

hi,,,
check this code.
*-----TABLES DECLARATION
tables : kna1,                     "Customer Master
       vbak,                     "Sales Document Header
         vbap,                     "Sales Document Item
         sscrfields.               "Screen Field Table
&               D A T A   D E C L A R A T I O N                       &
data : begin of it_kna1 occurs 0,
        kunnr type kna1-kunnr,      "Customer Number
        land1 type kna1-land1,      "Country Key
        name1 type kna1-name1,      "Name
        ort01 type kna1-ort01,      "City
       end of it_kna1.
data : begin of it_kna2 occurs 0,
        kunnr type kna1-kunnr,      "Customer Number
        land1 type kna1-land1,      "Country Key
        name1 type kna1-name1,      "Name
        ort01 type kna1-ort01,      "City
       end of it_kna2.
data: begin of it_vbak occurs 0,
        vbeln type vbak-vbeln,      "Sales Document
        erdat type vbak-erdat,      "Date
        ernam type vbak-ernam,      "Name of Person
        auart type vbak-auart,      "Sales Document Type
       end of it_vbak.
data: begin of it_vbap occurs 0,
        vbeln type vbap-vbeln,      "Sales Document
        posnr type vbap-posnr,      "Sales Document Item
        matnr type vbap-matnr,      "Material Number
        matkl type vbap-matkl,      "Material group
       end of it_vbap.
data: v_count type int4,           "Current Row Index
       v_line like sy-lisel,        "Contents of selected line
       v_kunnr like kna1-kunnr.
&                S E L E C T I O N S C R E E N                       &
selection-screen begin of block b1 with frame title text-001.
selection-screen begin of line.
parameters : rb1 radiobutton group g1 default 'X'.
selection-screen comment 5(20) text-002 for field rb1.
selection-screen end of line.
select-options : so_kunnr for kna1-kunnr obligatory.
parameters : p_hits(3) type c.
selection-screen begin of line.
parameters : rb2 radiobutton group g1.
selection-screen comment 5(20) text-003 for field rb2.
selection-screen end of line.
parameters : p_file like rlgrap-filename default 'c:\test'.
selection-screen pushbutton /33(10) custl user-command push1.
selection-screen pushbutton 58(10) custd user-command push2.
selection-screen end of block b1.
&                  I N I T I A L I Z A T I O N                        &
initialization.
move 'LOAD' to custl.
move 'DISP' to custd.
&                  A T L I N E S E L E C T I O N                    &
at selection-screen.
perform validate_kunnr.
& A T S E L E C T I O N S C R E E N O N V A L U E-R E Q U E S T &
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
    exporting
      program_name = syst-cprog
      dynpro_number = syst-dynnr
      field_name    = ' '
    importing
      file_name     = p_file.
&              S T A R T O F S E L E C T I O N                      &
start-of-selection.
perform cust_details.
&              S T A R T O F S E L E C T I O N                      &
top-of-page.
format color 3 intensified off.
write :/02(25) sy-repid.
write : 39(15) 'Page'(010), sy-pagno.
format color off.
format color 6 intensified off.
format color col_heading.
uline at :/1(60).
write: /1 sy-vline,
          2 'Cust Number'(000),
          14 sy-vline,
          16 'Country'(007),
          25 sy-vline,
          26 'City'(008),
          42 sy-vline,
          43 'Region'(009),
          60 sy-vline.
uline at :/1(60).
format color col_heading off.
&   T O P O F P A G E D U R I N G L I N E S E L E C T I O N      &
top-of-page during line-selection.
if sy-lsind eq 1 or sy-ucomm eq 'VBAK'.
    format color col_heading.
    uline at :/1(60).
    write : /1 sy-vline,
                 2 'Docu No.'(011),
                 14 sy-vline,
                 16 'Date'(012),
                 26 sy-vline,
                 27 'Name'(013),
                 42 sy-vline,
                 43 'DType'(014),
                 60 sy-vline.
    uline at :/1(60).
elseif sy-lsind eq 2 or sy-ucomm eq 'VBAK'.
    set pf-status space.
    uline at :/1(60).
    write : /1 sy-vline,
                 2 'Docu No.'(015),
                 14 sy-vline,
                 16 'Sales Item'(016),
                 25 sy-vline,
                 26 'Mat No'(017),
                 42 sy-vline,
                 43 vbap-matkl,
                 50 'Mat Grp'(018),
                 60 sy-vline.
    uline at :/1(60).
endif.
& AT USER-COMMAND                                                    &
at user-command.
case sy-ucomm.
    when 'VBAK'.
      perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
&      AT LINE SELECTION                                              &
at line-selection.
if sy-lsind = 1.
    set pf-status 'DDDD'.
    perform sales_header.
elseif sy-lsind = 2.
case sy-ucomm.
    when 'PICK'.
    set pf-status space.
    perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
   PERFORM sales_item.
endif.
& AT USER-COMMAND                                                    &
at user-command.
case sy-ucomm.
    when 'VBAK'.
      perform sales_item.
    when 'DELIVERY'.
      clear it_vbak-vbeln.
      get cursor value it_vbak-vbeln.
      set parameter id 'AUN' field it_vbak-vbeln.
      call transaction 'VA03' and skip first screen.
    when 'DISP'.
      perform display_basic.
endcase.
&      Form CUST_DETAILS                                             &
form cust_details .
select kunnr
         land1
         name1
         ort01
         from kna1
         into table it_kna1
         where kunnr in so_kunnr.
if sy-subrc <> 0.
    message 'SELECT VALID CUST NO' type 'I'.
else.
    loop at it_kna1.
     v_count = v_count + 1.
      if sy-tabix < p_hits.
     IF v_count <= p_hits.
        move it_kna1 to it_kna2.
        append it_kna2.
      else.
        exit.
      endif.
    endloop.
endif.
if not it_kna2[] is initial.
    loop at it_kna2.
      write : /1 sy-vline,
               2 it_kna2-kunnr,
               14 sy-vline,
               16 it_kna2-land1,
               25 sy-vline,
               26 it_kna2-name1,
               42 sy-vline,
               43 it_kna2-ort01,
               60 sy-vline.
      uline at :/1(60).
    endloop.
endif.
endform.                    " CUST_DETAILS
**&      Form load_file
*form load_file .
*endform.                    " load_file
**&      Form disp_file
*form disp_file .
*endform.                    " disp_file
*&      Form VALIDATE_KUNNR
form validate_kunnr .
select single kunnr
                from kna1
                into kna1
                where kunnr = so_kunnr.
endform.                    " VALIDATE_KUNNR
*&      Form SALES_HEADER
form sales_header .
data : v_kna1(13).
v_kna1 = 'IT_KNA2-KUNNR'.
*get cursor line sy-lilli value v_line
clear v_kunnr.
get cursor field v_kna1 value v_kunnr.
v_kunnr = v_line+1(10).
call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input = v_kunnr
    importing
      output = v_kunnr.
select vbeln
         erdat
         ernam
         auart
         from vbak
         into table it_vbak
         where kunnr = v_kunnr.
if sy-subrc = 0.
    loop at it_vbak.
      write : /1 sy-vline,
               2 it_vbak-vbeln,
               14 sy-vline,
               16 it_vbak-erdat,
               26 sy-vline,
               27 it_vbak-ernam,
               42 sy-vline,
               43 it_vbak-auart,
               60 sy-vline.
      uline at :/1(60).
    endloop.
endif.
endform.                    " SALES_HEADER
*&      Form SALES_ITEM
form sales_item .
data : v_vbeln(13).
v_vbeln = 'IT_VBAK-VBELN'.
clear it_vbak-vbeln.
get cursor field v_vbeln value it_vbak-vbeln.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      input = it_vbak-vbeln
    importing
      output = it_vbak-vbeln.
select vbeln
         posnr
         matnr
         matkl
from vbap
into table it_vbap
where vbeln = it_vbak-vbeln.
loop at it_vbap .
    write : /1 sy-vline,
               2 it_vbap-vbeln,
               14 sy-vline,
               16 it_vbap-posnr,
               25 sy-vline,
               26 it_vbap-matnr,
               42 sy-vline,
               43 it_vbap-matkl,
               60 sy-vline.
    uline at :/1(60).
endloop.
endform.                    " SALES_ITEM
*&      Form DISP_DOCU
form display_basic .
loop at it_kna1 into it_kna1.
    format hotspot on.
    write : /03 it_kna1-kunnr,
             24 it_kna1-name1.
    hide it_kna1-kunnr.
endloop.
endform.                    " display_basic
pls reward if useful
regards,
rekha

Colour to field in an internal table

how to colour a particular data in a particular field of an internal table.

See this
1. add one more field to ur final internal table say COLOR(4)
2. in layout wa_layout-style_fname = 'COLOR'. " if its grid
wa_layout-style_fieldname = 'COLOR'. "if its list
3. read table itab index 3.
itab-color = 'C410'.
modify itab index 3
4. see program SHOWCOLO for all color codes
1. Add a field of data type CHAR(3) to the internal output table.
2. Enter the color code in the appropriate field of the row to be colored in the internal
output table:
Code: 'Cxy'
C = Color (all codes begin with 'C')
x = color number ('1' - '9')
y = highlight ('0' = off, '1' = on)
3. Assign the internal output table color code field name to the IS_LAYOUT importing
structure IS_LAYOUT-INFO_FIELDNAME field and pass this structure in the ALV call
interface.
To enable row coloring, you should add an additional field to your list data table. It should be of character type and length at least 4. This field will contain the color code for the row. So, lets modify declaration of our list data table gt_list.
you should fill the color code to this field. Its format will be the same as explained before at section C.6.3. But how will ALV Grid know that you have loaded the color data for the row to this field. So, you make it know this by passing the name of the field containing color codes to the field INFO_FNAME of the layout structure.
e.g.
ps_layout-info_fname = <field_name_containing_color_codes>. e.g. ROWCOLOR
You can fill that field anytime during execution. But, of course, due to the flow logic of screens, it will be reflected to your list display as soon as an ALV refresh occurs.
You can color an entire row as described in the next section. However, this method is less time consuming.
Coloring Individual Cells
This is the last point about coloring procedures for the ALV Grid. The procedure is similar to coloring an entire row. However, since an individual cell can be addressed with two parameters we will need something more. What is meant by more is a table type structure to be included into the structure of the list data table. It seems strange, because including it will make our list data structure deep. But anyhow ALV Grid control handles this.
The structure that should be included must be of type LVC_T_SCOL. If you want to color the entire row, this inner table should contain only one row with field fname is set to space, some color value at field col, 0 or 1 at fields int (intensified) and inv (inverse).
If you want to color individual cells, then for each cell column, append a line to this inner table which also contains the column name at field fname. It is obvious that you can color an entire column by filling this inner table with a row for that column for each row in the list data table.
If it is in ALv refer the following code:
*& Report ZDEMO_ALVGRID                                               *
*& Example of a simple ALV Grid Report                                 *
*& The basic ALV grid, Enhanced to display each row in a different     *
*& colour                                                              *
REPORT zdemo_alvgrid                 .
TABLES:     ekko.
type-pools: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) type c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
              I.e. Field type may be required in-order for
                   the 'TOTAL' function to work.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-col_pos     = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname =      'LINE_COLOR'.
gd_layout-totals_only        = 'X'.
gd_layout-f2code            = 'DISP'. "Sets fcode for when double
                                        "click(press f2)
gd_layout-zebra             = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text       = 'helllllo'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 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.
endform.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
data: ld_color(1) type c.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
*Populate field with color attributes
loop at it_ekko into wa_ekko.
Populate color variable with colour properties
Char 1 = C (This is a color property)
Char 2 = 3 (Color codes: 1 - 7)
Char 3 = Intensified on/off ( 1 or 0 )
Char 4 = Inverse display on/off ( 1 or 0 )
          i.e. wa_ekko-line_color = 'C410'
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
if ld_color = 8.
    ld_color = 1.
endif.
concatenate 'C' ld_color '10' into wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
modify it_ekko from wa_ekko.
endloop.
endform.                    " DATA_RETRIEVAL
Please give me reward points...

Fields in an internal table

How to find number of fields in an internal table ?
my requirement is i have 20 internal tables and the data is being uploaded into an application server. so how to find no of fields in a particular internal table

concatenate all the fields and move them to final internal table , call the function module "GET_COMPONENT_LIST" and pass the work area of the final internal table in the parameter fieldname
***For getting no of FIELDS in an internal table ********
CALL FUNCTION 'GET_COMPONENT_LIST'
EXPORTING
    PROGRAM          = syrepid
    FIELDNAME        = 't_payr'
TABLES
    COMPONENTS       = fieldlist.
describe table fieldlist lines pyr_no_fields.
********end of getting no of fields**********
TRANSFER wa_mat_out_head TO P_FNAME.
LOOP AT GT_PAYR.
MOVE: GT_payr-LIFNR TO T_payr-lifnr,
       GT_payr-ZBUKR TO T_payr-zbukr,
       GT_payr-LAUFD TO T_payr-LAUFD,
       GT_payr-CHECT TO T_payr-CHECT,
       GT_payr-RWBTR TO T_payr-RWBTR.
Concatenate T_payr-lifnr t_payr-zbukr T_payr-laufd T_payr-chect
            T_payr-rwbtr into wa_mat_out-rec SEPARATED by ',' .

Aggregate a numeric field in an internal table

Hi All,
I have a small requirement in ABAPit goes in this fashion
I need to aggregate a numeric field in an internal table, the table is as follows
FLD1        FLD2         NUM1       FLD3
123A        B1             10            C1
123A        B1             25            C1
123B        B1             20            C2
123C        B2            10             C3
Note: FLD1, FLD2, FLD3 are of type numeric characters and NUM1 is of type number or integer
I want the result to be as follows
FLD1        FLD2        NUM1        FLD3
123A        B1            35             C1
123B        B1            20             C2
123C        B2            10             C3
i.e. values in field NUM1 should get add up when the values in all other fields are same
I am not able to use _collect_ for this as the fields contain numeric characters.
Regards and Thanks,
Antony

Hi Antony
collect here works like this:-
use at new field
      sum
end at.
Pls reward points if it wil be helpful.
Regards
Depanker

I need to add check whether 21 fields of a internal table are empty or not.

Hello,
I need to add check whether 21 fields of a internal table are empty or not.How can we write a code for the same wand what would be the correct syntax for it.
I tried entering all the fields in the IF loop with AND condition but its giving syntax error.Perhaps this is because the lenght of the IF condition would be more than the allowed one.

Hi,
After the select quiery.
If not itab is initial.
Message 'Table is not empty' type 'I'.
Endif.
Regards,
Jagadish.

First occurence of a value from a field in the internal table.

How to select the first occurence of a value from a field in an internal table ?
I don think , we can use select query .
Any suggestions?
provide syntaxs also .

Hi...
You have to use this code.
DATA : Begin of IT_MARA occurs 0,
             mtart type mara-mtart,
             matnr type mara-matnr,
             meins type mara-meins,
          END OF IT_MARA.
START-of-SELECTION.
SELECT MTART MATNR MEINS FROM MARA INTO TABLE IT_MARA.
END-OF-SELECTION.
LOOP AT IT_MARA.
<b> AT NEW MTART.      "This will trigger for every first/new value of the field
             <<<<WRITE YOUR CODE here>>
   ENDAT.</b>
ENDLOOP.
You can also use.
LOOP AT IT_MARA.
<b> <b> ON CHANGE OF IT_MARA-TART.
             <<<<WRITE YOUR CODE here>>
   ENDON.</b></b>
ENDLOOP.
<b>Reward if Helpful.</b>

Add field in an internal table

Hi There,
How to add a field in an internal table created at the runtime using
CREATE DATA D1 TYPE TABLE OF (VAR).
where say var contains name of a DDIC table.
Rgds,
deb.

after creating internal table use the method for creation of dynamic table and try , i am not sure
DATA: LineType TYPE string,
      ItabRef TYPE REF TO DATA.
FIELD-SYMBOLS:   TYPE STANDARD TABLE.
LineType = 'SFLIGHT'.
" Create internal table and attach a field-symbol
CREATE DATA ItabRef TYPE STANDARD TABLE OF (LineType).
ASSIGN ItabRef->* TO .
<b>after this check this and try</b>
******DATA DECLARATION*****************************
FIELD-SYMBOLS : <it_final> TYPE STANDARD TABLE,
                <wa_final> TYPE ANY,
                <w_field> TYPE ANY.
***DYNAMIC CREATION OF FIELDCATALOG****************
*FIRST 2 FIELDS FIELDS FIELD1 AND FIELD2 ARE CONSTANT, FIELDS OBTAINED IN THE LOOP ENDLOOP ARE DYNAMIC,
*LIKEWISE DYNAMIC FIELDCATALOG IS CREATED
wa_fieldcatalog-fieldname = 'FIELD1'.
wa_fieldcatalog-ref_table = 'E070'.
wa_fieldcatalog-outputlen = '13'.
wa_fieldcatalog-reptext    = 'Created On'.
wa_fieldcatalog-seltext    = 'Created On'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'FIELD1'.
wa_fieldcatalog-ref_table = 'E070'.
wa_fieldcatalog-outputlen = '13'.
wa_fieldcatalog-reptext    = 'Created On'.
wa_fieldcatalog-seltext    = 'Created On'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
CLEAR wa_fieldcatalog.
LOOP AT it_mandt WHERE mandt IN s_mandt.
    CONCATENATE 'CLNT' it_mandt INTO wa_fieldcatalog-fieldname.
    wa_fieldcatalog-inttype    = 'NUMC'.
    wa_fieldcatalog-outputlen = '14'.
    wa_fieldcatalog-reptext    = it_mandt.
    wa_fieldcatalog-seltext    = it_mandt.
    APPEND wa_fieldcatalog TO it_fieldcatalog.
    CLEAR :wa_fieldcatalog ,it_mandt.
ENDLOOP.
********CREATE DYNAMIC TABLE************************
CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog           = it_fieldcatalog
    IMPORTING
      ep_table                  = new_table
    EXCEPTIONS
      generate_subpool_dir_full = 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.
ASSIGN new_table->* TO <it_final>.
*********CREATE WORK AREA****************************
CREATE DATA new_line LIKE LINE OF <it_final>.
ASSIGN new_line->* TO <wa_final>.
*********INSERTTING WORK AREAR TO INTERNAL TABLE******
    INSERT <wa_final> INTO TABLE <it_final>.
*******POPULATING DATA*******************************
LOOP.
   ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <wa_final> TO <w_field>.
   <w_field> = '12345'.
    ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <wa_final> TO <w_field>.
   <w_field> = '21453DD'.
   FIELD1 AND FIELD2 ARE COMPONENTS OF FIELDCATALOG.
ENDLOOP.
ENDLOOP.

Field length in internal table

hi,
how to selt field length in internal table?.
i have created on report the report out puts down load to using download function .
the out format is:
op1 op2   op3      op4
1     3       4
i want
op1   op2   op3       op4
1                3          4
how to set this please give sample code.

HI,
Give internal table like this.
DATA: BEGIN OF itab OCCURS 100,
            op1(04),
            op2(04),
op3(04),
op4(04),
      END OF itab.
So it will allocate space between 1, 3 and 4.
Reward if it useful.
Thanks.

Difference between the Field Group and Internal Table.

Hi all,
Can anybody tell me the difference between the Field group and Internal table and when they will used?
Thanks,
Sriram.

Hi
Internal Tables: They are used to store record type data in tabular form temporarily in ABAP programming. Or we can say, it stores multiple lines of records for temporary use in ABAP programming.
A field group is a user-defined grouping of characteristics and basic key figures from the EC-EIS or EC-BP field catalog.
Use
The field catalog contains the fields that are used in the aspects. As the number of fields grows, the field catalog becomes very large and unclear. To simplify maintenance of the aspects, you can group fields in a field group. You can group the fields as you wish, for example, by subject area or responsibility area. A field may be included in several field groups.
When maintaining the data structure of an aspect, you can select the field group that contains the relevant characteristics and basic key figures. This way you limit the number of fields offered.
Regards
Ashish

To populate values into single field in an internal table

Hi Friends,
How we need to populate values into single field in an internal table.
E.g itab consits of single field ( name)
       i need to assign values to this field name .like
      peter,
      john,
      abrahm,
      daneyal
Pls tell me i how i need to code for this
Thanks ,
Parnith

Hi,
Please look at the below code :
DATA : BEGIN OF itab OCCURS 0 ,
         name(20) TYPE c,
       END OF itab.
START-OF-SELECTION.
itab-name = 'Peter'.
APPEND itab.
CLEAR itab.
itab-name = 'John'.
APPEND itab.
CLEAR itab.
itab-name = 'Abrahm'.
APPEND itab.
CLEAR itab.
itab-name = 'Daneyal'.
APPEND itab.
CLEAR itab.
LOOP AT itab.
    WRITE : / itab.
ENDLOOP.
Thanks,
Sriram Ponna.

Dynamic field selection in internal table

hello,
       I want to display the fields in the internal table dynamically.
In myReport i am giving plant as the input. On the basis of plant i want to dislpay work centres as the heading and for the particular plant i want to display the pieces for the confirmed operation of the particular work centre.
workcentre1 workcentre2 workcenter3 ...........workcentren
   12               10             9               ............ 4
in my report i have to include these fields with my earlier fields
Please help.

hello,
       I want to display the fields in the internal table dynamically.
In myReport i am giving plant as the input. On the basis of plant i want to dislpay work centres as the heading and for the particular plant i want to display the pieces for the confirmed operation of the particular work centre.
workcentre1 workcentre2 workcenter3 ...........workcentren
   12               10             9               ............ 4
in my report i have to include these fields with my earlier fields
Please help.

For uploading Excel to Internal Table??????

Hello All,
Can anybody give me the details for uploading Excel to Internal Table.
Plz give me the FMs with parameters (Eg).
I need to use this inside a BDC Program.
Urgent
Thanks in Advance,
Regards,
LIJO.

Hi,
refer the below code.
DATA:xl_sheet LIKE kcde_cells OCCURS 0 WITH HEADER LINE.
DATA : scol   TYPE i VALUE '1',
       srow   TYPE i VALUE '1',
       ecol   TYPE i VALUE '256',
       erow   TYPE i VALUE '65536'.
DATA : index TYPE i.
        FIELD-SYMBOLS : <fs>.
CALL FUNCTION 'KCD_EXCEL_OLE_TO_INT_CONVERT'
    EXPORTING
      filename                = 'file path'
      i_begin_col             = scol
      i_begin_row             = srow
      i_end_col               = ecol
      i_end_row               = erow
    TABLES
      intern                  = xl_sheet
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
Write:/ 'Not a valid Excel file'.
ENDIF.
IF xl_sheet[] IS INITIAL.
    WRITE:/ 'Error:Data not Uploadeded'.
    EXIT.
ELSE.
    SORT xl_sheet BY row col.
    LOOP AT xl_sheet.
      MOVE xl_sheet-col TO index.
      ASSIGN COMPONENT index OF STRUCTURE ittab TO <fs>.
      MOVE xl_sheet-value TO <fs>.
      AT END OF row.
        APPEND ittab.
        CLEAR ittab.
      ENDAT.
    ENDLOOP.
ENDIF.
Note:- after reading excel sheet to our internal table, each excel cell will be stored as a reocrd into yout internal table,let us i suppose if you have 3 fields in first reocrd, it will stores 3 fields data as 3 records into your internal table, each field contains row number and column number, then you have to take care to from this information as a record.
Reward if useful.
Thanks,
Sreeram.

How to join fields from different internal tables and display into one int

hai i have one doubt...
how to join fields from different internal tables and display into one internal table..
if anybody know the ans for this qus tell me......

hii
you can read data as per condition and then can join in one internal table using READ and APPEND statement..refer to following code.
SELECT bwkey                         " Valuation Area
         bukrs                         " Company Code
    FROM t001k
    INTO TABLE i_t001k
   WHERE bukrs IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT bwkey                       " Valuation Area
           werks                       " Plant
      FROM t001w
      INTO TABLE i_t001w
       FOR ALL ENTRIES IN i_t001k
     WHERE bwkey = i_t001k-bwkey
       AND werks IN s_werks.
    IF sy-subrc EQ 0.
      LOOP AT i_output INTO wa_output.
        READ TABLE i_t001w INTO wa_t001w WITH KEY werks = wa_output-werks.
        READ TABLE i_t001k INTO wa_t001k WITH KEY bwkey = wa_t001w-bwkey.
        wa_output-bukrs = wa_t001k-bukrs.
        MODIFY i_output FROM wa_output.
        CLEAR wa_output.
      ENDLOOP.                         " LOOP AT i_output
    ENDIF.                             " IF sy-subrc EQ 0
regards
twinkal

Splitting a string into respective fields of dynamic internal table

Hi,
    I've a string concatenated with a separator. I've to split the string and assign it to the respective fields of an internal table, which is dynamic.
Table name will be passed through selection screen. The data is coming from another system via RFC.
Eg : String ITAB :
                            100;89001;EN;Material1;MATERIAL1
                            100;89002;EN;Material2;MATERIAL2
The String ITAB may contain any master data. Let's say the above data is from MAKT table. So, I want to assign the above data to the respective fields of MAKT internal table(Dynamic).
I heard, this requirement can be achieved using some standard CLASS.
Please help me in doing this task.
Regards,
Sunny

Hello,
you can use dynamic programming for this issue, i.e.:
DATA: gv_table_name   TYPE string,
      gr_type_desc    TYPE REF TO cl_abap_typedescr,
      gr_struct_desc TYPE REF TO cl_abap_structdescr,
      gr_table_desc   TYPE REF TO cl_abap_tabledescr,
      gv_t            TYPE c,
      gv_comp         TYPE i,
      gr_table_ref    TYPE REF TO data,
      gr_struc_ref   TYPE REF TO data.
DATA: gt_itab   TYPE TABLE OF string,
      gt_split TYPE TABLE OF string,
      gv_str    TYPE string.
FIELD-SYMBOLS: <table>    TYPE ANY TABLE,
               <struct>   TYPE ANY,
               <comp>     TYPE ANY.
APPEND '100;89001;EN;Material1;MATERIAL1' TO gt_itab.
APPEND '100;89002;EN;Material2;MATERIAL2' TO gt_itab.
"go!
gv_table_name = 'MAKT'.
cl_abap_tabledescr=>describe_by_name(
      EXPORTING p_name = gv_table_name
      RECEIVING p_descr_ref = gr_type_desc
      EXCEPTIONS type_not_found = 4 ).
gr_struct_desc ?= gr_type_desc.
gr_table_desc = cl_abap_tabledescr=>create( gr_struct_desc ).
CREATE DATA gr_table_ref TYPE HANDLE gr_table_desc.
CREATE DATA gr_struc_ref TYPE HANDLE gr_struct_desc.
ASSIGN gr_table_ref->* TO <table>.
ASSIGN gr_struc_ref->* TO <struct>.
DESCRIBE FIELD <struct> TYPE gv_t COMPONENTS gv_comp.
LOOP AT gt_itab INTO gv_str.
CLEAR: gt_split.
SPLIT gv_str AT ';' INTO TABLE gt_split.
DO gv_comp TIMES.
    READ TABLE gt_split INTO gv_str INDEX sy-index.
    ASSIGN COMPONENT sy-index OF STRUCTURE <struct> TO <comp>.
    <comp> = gv_str.
    CLEAR gv_str.
ENDDO.
INSERT <struct> INTO TABLE <table>.
ENDLOOP.
After this code you will have all data in <table> field symbol in proper type.
Regards,
Jacek

Format for fields in an internal table

Similar Messages

Maybe you are looking for