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.

Similar Messages

Dynamic field access in internal tables

Hi everyone.
I woulkd like to know if there is any way to identify the fields of an internal table at runtime. I'm creating a method in a class, and i would like to accept any itab as a paramter and then access the fields of that itab. I currently have the itab passing no problem using field symbols, and i am able to loop at the data, but i am unsure how to get the field names.
Any suggestions?
Thanks!

Hi,
Check the code below:
REPORT ZYKTEST3 .
DATA: d_ref TYPE REF TO data,
d_ref2 TYPE REF TO data,
i_alv_cat TYPE TABLE OF lvc_s_fcat,
ls_alv_cat LIKE LINE OF i_alv_cat.
TYPES: tabname LIKE dcobjdef-name ,
fieldname LIKE dcobjdef-name,
desc LIKE dntab-fieldtext.
PARAMETER: p_tablen TYPE tabname. -
> Input table field
DATA: BEGIN OF itab OCCURS 0.
INCLUDE STRUCTURE dntab.
DATA: END OF itab.
FIELD-SYMBOLS : <f_fs> TYPE table,
<f_fs1> TYPE table,
<f_fs2> TYPE ANY,
<f_fs3> TYPE ANY,
<f_fs4> type any,
<f_field> TYPE ANY.
REFRESH itab.
CALL FUNCTION 'NAMETAB_GET' -
> Fetches the fields
EXPORTING
langu = sy-langu
tabname = p_tablen
TABLES
nametab = itab
EXCEPTIONS
no_texts_found = 1.
LOOP AT itab .
ls_alv_cat-fieldname = itab-fieldname.
ls_alv_cat-ref_table = p_tablen.
ls_alv_cat-ref_field = itab-fieldname.
ls_alv_cat-seltext = itab-fieldtext.
ls_alv_cat-reptext = itab-fieldtext.
APPEND ls_alv_cat TO i_alv_cat.
ENDLOOP.
internal table build
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = i_alv_cat
IMPORTING
ep_table = d_ref.
ASSIGN d_ref->* TO <f_fs>. -
> Dynamic table creation with fields of the table
DATA: l_field TYPE fieldname,
l_field1 type fieldname.
SELECT * FROM (p_tablen) INTO CORRESPONDING FIELDS OF TABLE <f_fs>.
Fetching of the data from the table
LOOP AT <f_fs> ASSIGNING <f_fs2>.
Here u can check the validations and process
ASSIGN COMPONENT 2 OF STRUCTURE <f_fs2> TO <f_fs3>.
ASSIGN COMPONENT 3 OF STRUCTURE <f_fs2> TO <f_fs4>.
IF sy-subrc = 0.
MOVE <f_fs3> TO l_field.
MOVE <f_fs4> TO l_field1.
WRITE:/1 l_field(20),
22 l_field1(10).
ENDIF.
ENDLOOP.
Regards
Kannaiah

How to dynamic field insert into intenal table?

hi friends
this is my urgent requirements .... how to dynamic field insert into internal table if it possible please tell me
thanks & regards
pauldharma

Hi,
Go through this
REPORT yusmm_text1 NO STANDARD PAGE HEADING
 LINE-SIZE 199.
T A B L E S
TABLES: MARA,
 MAKT,
 THEAD.
GLOBAL TYPE-POOLS
TYPE-POOLS : SLIS.
 GLOBAL TYPES
TYPES : BEGIN OF TP_FINAL,
 MATNR TYPE MARA-MATNR,
 BEGRU TYPE MARA-BEGRU,
 MTART TYPE MARA-MTART,
 MAKTX TYPE MAKT-MAKTX,
 SPRAS TYPE MAKT-SPRAS,
 LTXT(2000) TYPE C ,
 SRNO TYPE N ,
 END OF TP_FINAL.
TYPES : BEGIN OF TP_T002,
 SPRAS TYPE T002-SPRAS,
 LAISO TYPE T002-LAISO,
 SRNO TYPE N ,
 END OF TP_T002.
TYPES : BEGIN OF TP_MARA_MAKT,
 MATNR TYPE MARA-MATNR,
 BEGRU TYPE MARA-BEGRU,
 MTART TYPE MARA-MTART,
 SPRAS TYPE MAKT-SPRAS,
 MAKTX TYPE MAKT-MAKTX,
 END OF TP_MARA_MAKT.
Types: BEGIN OF tp_matnr,
 matnr TYPE mara-matnr,
 END OF tp_matnr.
 GLOBAL ELEMENTARY VARIABLES
DATA : gv_date TYPE sy-datum.
DATA : gv_repid TYPE sy-repid.
DATA : g_var1(10) TYPE C.
DATA : gv_index TYPE sy-tabix.
DATA: gv_strg TYPE string,
 gv_strg1(2000) TYPE C.
DATA : gv_lang TYPE sy-langu.
DATA : g_v(3) TYPE N .
DATA : gv_lines(3) TYPE N .
DATA : gv_var(3) TYPE N .
DATA : gv_var1(3) TYPE N.
DATA: gv_str TYPE STRING.
DATA: gv_str1 TYPE STRING.
DATA : gv_li TYPE I,
 gv_lit TYPE I,
 gv_lin TYPE I.
DATA: g_var11(3) TYPE N,
 gv_li1(3) TYPE N,
 g_var2(3) TYPE N.
DATA : gv_i1 TYPE I.
DATA : gv_i TYPE I.
DATA: gl_lenght TYPE I.
 GLOBAL STRUCTURES
DATA: T_NEWTABLE TYPE REF TO DATA,
 T_NEWLINE TYPE REF TO DATA,
 T_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
 T_FLDCAT TYPE LVC_T_FCAT,
 WA_IT_FLDCAT TYPE LVC_S_FCAT,
 WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV,
 WA_COLNO(2) TYPE N,
 WA_FLNAME(5) TYPE C,
 L_LT TYPE SLIS_LAYOUT_ALV.
 GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA : IG_MARA_MAKT TYPE STANDARD TABLE OF TP_MARA_MAKT,
 WG_MARA_MAKT TYPE TP_MARA_MAKT.
DATA : IG_T002 TYPE STANDARD TABLE OF TP_T002,
 WG_T002 TYPE TP_T002.
DATA : IG_FINAL TYPE STANDARD TABLE OF TP_FINAL,
 WG_FINAL TYPE TP_FINAL.
data : IG_MATNR TYPE STANDARD TABLE OF TP_MATNR WITH HEADER LINE,
 WG_MATNR TYPE TP_MATNR.
DATA:BEGIN OF IG_THEAD OCCURS 0.
 INCLUDE STRUCTURE THEAD .
DATA: END OF IG_THEAD.
DATA:BEGIN OF IG_TLINE OCCURS 0.
 INCLUDE STRUCTURE TLINE .
DATA:END OF IG_TLINE.
FIELD-SYMBOLS
FIELD-SYMBOLS: <T_DYNTABLE> TYPE STANDARD TABLE,"Dynamic internal
 "tablename
 <FS_DYNTABLE>, "Field symbol to create work area
 <FS_FLDVAL> TYPE ANY. " Field symbol to assign values
COMPULSORY
FIELD-SYMBOLS: <FS_DATA> TYPE REF TO DATA,
 <FS_DATA1> TYPE REF TO DATA,
 <FS_2> TYPE STANDARD TABLE,
 <FS_22> TYPE STANDARD TABLE,
 <FS_1>,
 <FS_11>,
 <F>,
 <FA>,
 <LWA_LINE_WA>,
 <LWA_LINE_WA1>.
------- Create Dyn Table From FC
DATA: LT_DATA TYPE REF TO DATA,
 LT_DATA1 TYPE REF TO DATA,
 LWA_LINE TYPE REF TO DATA,
 LWA_LINE1 TYPE REF TO DATA,
 LI_FIELD_CAT TYPE LVC_T_FCAT,
 LWA_FIELD_CAT TYPE LVC_S_FCAT.
 PARAMETERS & SELECT-OPTIONS
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_SPRAS FOR MAKT-SPRAS NO INTERVALS DEFAULT 'EN'
 OBLIGATORY ,
 S_MATNR FOR MARA-MATNR,
 S_MTART FOR MARA-MTART.
PARAMETERS: GP_SIZE TYPE I DEFAULT '200'.
SELECTION-SCREEN : END OF BLOCK B1.
 INITIALIZATION
INITIALIZATION.
gv_repid = sy-repid.
gv_date = sy-datum.
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
IF GP_SIZE < 0.
 MESSAGE E002(00).
ENDIF.
IF GP_SIZE > 50000.
 MESSAGE W130(26) WITH TEXT-004.
 SET CURSOR FIELD 'gp_size'.
ENDIF.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM DATA_FETCH.
PERFORM READ_DATA_TO_FINAL.
SORT ig_final BY matnr spras.
gv_lin = gv_li.
gv_li = gv_li - 2.
LOOP AT ig_final INTO wg_final.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = 'Material Number'.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = 'Authorization Group'.
 g_VAR11 = wg_final-srno + 2.
 gv_li1 = gv_li1 + 2.
 MOVE : g_var11 TO gv_i1.
 ASSIGN COMPONENT g_var11 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = 'MatDesc'.
 g_var2 = g_var11 + gv_lines.
 ASSIGN COMPONENT g_var2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = 'BasicData'.
 APPEND <LWA_LINE_WA1> TO <FS_22>.
 EXIT.
 ENDLOOP.
LOOP AT ig_final INTO wg_final.
 AT NEW matnr.
 gv_index = sy-tabix.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = wg_final-matnr.
 ENDAT.
 AT NEW MATNR.
 GV_INDEX = SY-TABIX.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = wg_final-matnr.
 ENDAT.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = wg_final-begru.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = wg_final-begru.
 gv_var = wg_final-srno + 2.
 gv_li = gv_li + 2.
 MOVE : gv_var TO gv_i.
 ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = wg_final-maktx.
 ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = wg_final-maktx.
 gv_var1 = gv_var + gv_lines .
 ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = wg_final-ltxt.
 ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = wg_final-ltxt.
 AT END OF matnr.
 APPEND <LWA_LINE_WA> TO <FS_2>.
 CLEAR <LWA_LINE_WA>.
 ENDAT.
 AT END OF matnr.
 APPEND <LWA_LINE_WA1> TO <FS_22>.
 CLEAR <LWA_LINE_WA1>.
 ENDAT.
ENDLOOP.
PERFORM display..
*& Form data_fetch
 text
--> p1 text
<-- p2 text
FORM DATA_FETCH .
SELECT matnr
 from mara up to gp_size rows
 appending corresponding fields of table ig_matnr
 where matnr in s_matnr
 and mtart in s_mtart.
loop at ig_matnr.
SELECT MARA~MATNR
 MARA~BEGRU
 MARA~MTART
 MAKT~SPRAS
 MAKT~MAKTX FROM MARA INNER JOIN MAKT
 ON MARAMATNR = MAKTMATNR
 appending corresponding fields of TABLE ig_mara_makt UP TO GP_SIZE
ROWS
 WHERE makt~spras IN s_spras
 AND mara~matnr IN s_matnr
 AND mara~mtart IN s_mtart
 AND mara~matnr EQ ig_matnr-matnr.
 endloop.
IF sy-subrc = 0.
 SORT ig_mara_makt.
ENDIF.
ENDFORM. " data_fetch
*& Form read_data_to_final
 text
--> p1 text
<-- p2 text
FORM READ_DATA_TO_FINAL .
LOOP AT ig_mara_makt INTO wg_mara_makt .
 wg_final-MATNR = wg_mara_makt-MATNR.
 wg_final-BEGRU = wg_mara_makt-BEGRU.
 wg_final-MTART = wg_mara_makt-MTART.
 wg_final-SPRAS = wg_mara_makt-SPRAS.
 wg_final-MAKTX = wg_mara_makt-MAKTX.
 READ TABLE ig_t002 INTO wg_t002 WITH KEY spras = wg_final-spras.
 IF sy-subrc = 0.
 wg_final-srno = wg_t002-srno.
 ENDIF.
 CLEAR ig_thead[].
 ig_thead-TDOBJECT = 'MATERIAL'.
 ig_thead-TDNAME = wg_final-matnr.
 ig_thead-TDID = 'GRUN'.
 ig_thead-TDSPRAS = wg_final-spras.
 CALL FUNCTION 'TEXT_READ'
 EXPORTING
 I_HEADER = IG_THEAD
 I_READONLY = 'X'
 IMPORTING
 E_HEADER = IG_THEAD
 TABLES
 T_LINES = IG_TLINE[]
 EXCEPTIONS
 NOTFOUND = 1.
 IF sy-subrc EQ 0.
 LOOP AT ig_tline.
 gv_strg = ig_tline-tdline.
 IF gv_strg1 <> ' '.
 CONCATENATE gv_strg1 ';' gv_strg INTO gv_strg1.
 ELSE.
 gv_strg1 = gv_strg.
 ENDIF.
 ENDLOOP.
 wg_final-ltxt = gv_strg1.
 APPEND wg_final TO ig_final.
 CLEAR wg_final.
 gv_strg1 = ' '.
 ELSE.
 APPEND wg_final TO ig_final.
 ENDIF.
ENDLOOP.
ENDFORM. " read_data_to_final
" read_data_to_final
*& Form layout
 text
--> p1 text
<-- p2 text
FORM LAYOUT .
CLEAR L_LT.
L_LT-ZEBRA = 'X'.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = 'MATERIAL DETAILS'.
ENDFORM. " layout
*& Form fieldcat
 text
--> p1 text
<-- p2 text
FORM FIELDCAT .
SELECT SPRAS
 LAISO FROM t002 INTO CORRESPONDING FIELDS OF TABLE ig_t002
 WHERE spras IN s_spras.
DESCRIBE TABLE ig_t002 LINES gv_lines.
LOOP AT ig_t002 INTO wg_t002.
 g_v = g_v + 1.
 Wg_t002-srno = g_v.
 MODIFY ig_t002 FROM wg_t002 TRANSPORTING SRNO.
ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
 CLEAR WA_IT_FLDCAT.
 MOVE SY-INDEX TO WA_COLNO.
 CONCATENATE 'MD-' wg_t002-LAISO
 WA_COLNO
 INTO WA_FLNAME.
 WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
 WA_IT_FLDCAT-INTLEN = 250.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO T_FLDCAT.
 CLEAR wg_t002.
 ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
 CLEAR WA_IT_FLDCAT.
 MOVE SY-INDEX TO WA_COLNO.
 CONCATENATE 'BD-' wg_t002-LAISO
 WA_COLNO
 INTO WA_FLNAME.
 WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
 WA_IT_FLDCAT-INTLEN = 250.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO T_FLDCAT.
 CLEAR wg_t002.
 ENDLOOP.
MOVE 'MATNR' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Material No'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 1.
MOVE 'BEGRU' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Authorization Group'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 2.
DESCRIBE TABLE T_FLDCAT LINES gv_li.
ASSIGN LT_DATA TO <FS_DATA>.
Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = T_FLDCAT " Fieldcatalogue
 IMPORTING
 EP_TABLE = <FS_DATA> " Dynamic Internal Table
 EXCEPTIONS
 GENERATE_SUBPOOL_DIR_FULL = 1
 OTHERS = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA>->* TO <FS_1>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_1> TO <FS_2>.
Creating a Workarea
CREATE DATA LWA_LINE LIKE LINE OF <FS_2> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE->* TO <LWA_LINE_WA>.
LOOP AT T_FLDCAT INTO WA_IT_FLDCAT.
 WA_IT_FLDCAT1-FIELDNAME = WA_IT_FLDCAT-FIELDNAME.
 WA_IT_FLDCAT1-TABNAME = WA_IT_FLDCAT-TABNAME.
 WA_IT_FLDCAT1-SELTEXT_L = WA_IT_FLDCAT-SELTEXT.
 WA_IT_FLDCAT1-REF_TABNAME = 'MARC'.
 APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
 CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = T_FLDCAT " Fieldcatalogue
 IMPORTING
 EP_TABLE = <FS_DATA1> " Dynamic Internal table
 EXCEPTIONS
 GENERATE_SUBPOOL_DIR_FULL = 1
 OTHERS = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA1>->* TO <FS_11>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_11> TO <FS_22>.
Creating a Workarea
CREATE DATA LWA_LINE1 LIKE LINE OF <FS_22> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE1->* TO <LWA_LINE_WA1>.
ENDFORM. " fieldcat
*& Form show
 text
--> p1 text
<-- p2 text
FORM Display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER = ' '
 I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = GV_REPID
 I_CALLBACK_PF_STATUS_SET = 'PF_STATUS_SET'
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_TOP_OF_PAGE = ' '
 I_CALLBACK_HTML_END_OF_LIST = ' '
 I_STRUCTURE_NAME =
 I_BACKGROUND_ID = ' '
 I_GRID_TITLE =
 I_GRID_SETTINGS =
 IS_LAYOUT = L_LT
 IT_FIELDCAT = T_FLDCAT1[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = ' '
 IS_VARIANT =
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 I_HTML_HEIGHT_TOP = 0
 I_HTML_HEIGHT_END = 0
 IT_ALV_GRAPHICS =
 IT_HYPERLINK =
 IT_ADD_FIELDCAT =
 IT_EXCEPT_QINFO =
 IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = <FS_2>
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
FORM PF_STATUS_SET USING RS_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'DISPLAY' .
ENDFORM. "PF_STATUS_SET
*& Form Name: user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM USER_COMMAND USING IF_UCOMM TYPE SY-UCOMM
 IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
 WHEN 'DOWNLOAD'.
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
TITLEBAR = ' '
DIAGNOSE_OBJECT = ' '
 TEXT_QUESTION = 'Data download to excel'
TEXT_BUTTON_1 = 'Ja'(001)
ICON_BUTTON_1 = ' '
TEXT_BUTTON_2 = 'Nein'(002)
ICON_BUTTON_2 = ' '
DEFAULT_BUTTON = '1'
DISPLAY_CANCEL_BUTTON = 'X'
USERDEFINED_F1_HELP = ' '
START_COLUMN = 25
START_ROW = 6
POPUP_TYPE =
IMPORTING
ANSWER =
TABLES
PARAMETER =
EXCEPTIONS
TEXT_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.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 BIN_FILESIZE =
 FILENAME = 'C:\Material-Text.xls'
 FILETYPE = 'ASC'
 APPEND = ' '
 WRITE_FIELD_SEPARATOR = 'X'
 HEADER = '00'
 TRUNC_TRAILING_BLANKS = 'X'
 WRITE_LF = 'X'
 COL_SELECT = ' '
 COL_SELECT_MASK = ' '
 DAT_MODE = 'X'
 IMPORTING
 FILELENGTH = GL_LENGHT
 TABLES
 DATA_TAB = <FS_22>
EXCEPTIONS
 FILE_WRITE_ERROR = 1
 NO_BATCH = 2
 GUI_REFUSE_FILETRANSFER = 3
 INVALID_TYPE = 4
 NO_AUTHORITY = 5
 UNKNOWN_ERROR = 6
 HEADER_NOT_ALLOWED = 7
 SEPARATOR_NOT_ALLOWED = 8
 FILESIZE_NOT_ALLOWED = 9
 HEADER_TOO_LONG = 10
 DP_ERROR_CREATE = 11
 DP_ERROR_SEND = 12
 DP_ERROR_WRITE = 13
 UNKNOWN_DP_ERROR = 14
 ACCESS_DENIED = 15
 DP_OUT_OF_MEMORY = 16
 DISK_FULL = 17
 DP_TIMEOUT = 18
 FILE_NOT_FOUND = 19
 DATAPROVIDER_EXCEPTION = 20
 CONTROL_FLUSH_ERROR = 21
 OTHERS = 22
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 IF GL_LENGHT NE 0.
 MESSAGE S398(00) WITH 'DATA downloaded to EXCEL'.
 ENDIF.
Thanks
ENDCASE.
ENDFORM. "user_command

Dynamic field Select from table

Hi,
I have to select certain field from table. The field which I have to select I do not know.
It will come dynamically from program.
Plz help me what is correct statement to execute.
Thanks.
S Sahoo

Hi Sahoo,
Pllease follow below steps.
1, Create internal table with field Fieldname TYPE FIELDNAME (Say ITAB)
2. Append Fields (thats you want to select) to internal table [at run time]
3. Use
SELECT (ITAB)
 into table <table>
 from <DB>
 where <cond>
Hope this helps,
Nag

Dynamic access to the fields of an internal table

Hi,
Currently i'm having 10 fields in 1 internal table, and i need to validate this 10 fields but i dont like have too many "if and endif" statement. Is there any option to write an dynamic code.
Example
Data: begin of table,
 field1 type c,
 field2 type c,
 field3 type c,
 field4 type c,
 field10 type c,
 end of table.
Let say i want to fill field1 with 1, field2 with 2,........................... field10 with 10.
So instead of using this code
table-field1 = '1'.
table-field2 = '2'.
table-field3 = '3'.
table-field10 = '10'.
Can i do something dynamic like this
DO 10 times.
Dynamic coding, any idea ?
ENDDO.
<Modified the subject line>
Edited by: Suhas Saha on Jul 12, 2011 4:27 PM

Hi,
Sorry may my question is not detail enough. I would like to read the field from the internal table dynamically.
Data: begin of table,
field1 type c,
field2 type c,
field3 type c,
field4 type c,
field10 type c,
end of table.
Let say i want to fill field1 with 1, field2 with 2,........................... field10 with 10.
So instead of using this code
table-field1 = '1'.
table-field2 = '2'.
table-field3 = '3'.
table-field10 = '10'.
IF table-field1 < 0,
endif.
IF table-field2 < 0,
endif.
IF table-field3 < 0,
endif.
 |
IF table-field10 < 0,
endif.
Can i do something dynamic like this
DO 10 times.
Dynamic coding, any idea ?
ENDDO.

Reading from select-options field into the internal table

Hi,
I have to read the low and high ranges from the select-options fields into a field in the internal table in order to update the same field in line item table. since the user may change the screen fields, i need to pass the values directly from the screen and store it in a variable in the internal table. Is there a way to pass both ranges, low and high to one variable which holds the entire range?
Thanks,
Sruthy

Hi,
In the Selection screen you can directly read the field(Select-option)value using read statement as follows:
READ TABLE <SELECT-OPTIONS field name> [using index] INTO <work area>.
After reading you can directly access all the values as follows and can store them in the variables:
var1 = <work area>-LOW
var2 = <work area>-HIGH
var3 = <work area>-SIGN
var4 = <work area>-OPTION
as per your requirement.
I think this will help you.
Kindly reward if helpful.
Regards,
Shakuntala.

Changing the order of fields in an internal table

Hi all,
I'm using field symbol as internal table. this table has got a standard database structure.
I want to make the 3rd column of this internal table as 1st colums keeping rest of the columns as it is.
Is there any way to do this?
Thanks,
Anil.

Hi
Instead of directly taking the type as a standard structure , declare the FS internal table as type of types structure.
Data: fs_scarr like type_s_scarr.
FIELD-SYMBOLS <scarr2> TYPE fs_scarr
In the types put the third column as first one and use into corresponding in select query
or else
while displaying the internal table change the order of the columns
Loop at itab into fs_itab.
write : col3
col2
col4
endloop.
Thanks,
Viquar Iqbal

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.
 AT NEW MTART. "This will trigger for every first/new value of the field
 <<<<WRITE YOUR CODE here>>
 ENDAT.
ENDLOOP.
You can also use.
LOOP AT IT_MARA.
 ON CHANGE OF IT_MARA-TART.
 <<<<WRITE YOUR CODE here>>
 ENDON.
ENDLOOP.
Reward if Helpful.

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

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 .
after this check this and try
******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.

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 Find the type of field in the internal table.

I have internal table i_tab.
TYPES : BEGIN OF t_makt,
 matnr TYPE matnr,
 maktx TYPE maktx,
 qty type mseg-menge,
 show type char01,
 END OF t_makt.
DATA : i_tab TYPE t_makt OCCURS 0 WITH HEADER LINE.
I want to know the type of the field of the i_tab at some stage in the program.
is there any piece of code or FM available to find the TYPE of the field of the internal table.

Check out the following code
TYPES:
BEGIN OF my_struct,
 comp_a type i,
 comp_b type f,
END OF my_struct.
DATA:
my_data TYPE my_struct,
descr_ref TYPE ref to cl_abap_structdescr.
FIELD-SYMBOLS:
<comp_wa> TYPE abap_compdescr.
START-OF-SELECTION.
descr_ref ?= cl_abap_typedescr=>describe_by_data( my_data ).
WRITE: / 'Typename :', descr_ref->absolute_name.
WRITE: / 'Kind :', descr_ref->type_kind.
WRITE: / 'Length :', descr_ref->length.
WRITE: / 'Decimals :', descr_ref->decimals.
WRITE: / 'Struct Kind :', descr_ref->struct_kind.
WRITE: / 'Components'.
WRITE: / 'Name Kind Length Decimals'.
LOOP AT descr_ref->components ASSIGNING <comp_wa>.
 WRITE: / <comp_wa>-name, <comp_wa>-type_kind,
 <comp_wa>-length, <comp_wa>-decimals.
ENDLOOP.

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...

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

Similar Messages

Maybe you are looking for