Can we create global internal table in data dictionary

help me
i want to know whether we can create global internal tables in data dictionary

Hi Swathi,
The whole concept of internal table is to manipulate the data at runtime.
This replaces the concept of two dimentional array in other languages.
The power of internal tables is it gets lakhs of records at runtime. I mean it can accomodate lots of records at runtime.
So you can create a table type in DDIC and use it to declare your internal table.
Yes, You can create global internal tables for function modules.
By declaring the internal table in top include you can use this internal table all the function modules of that function group. So if one function module is filling the data another can use it as it is stored globally.
Hope this answers your curiosity.
Award points if useful else getback.
Aleem.

Similar Messages

How can i compare 2 internal table's data which have same structure ?

hi friends,
i want to know how to compare 2 internal table's data which have same structure

DATA: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.
DATA: ITAB LIKE TABLE OF LINE,
JTAB LIKE TABLE OF LINE.
DO 3 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SY-INDEX ** 2.
APPEND LINE TO ITAB.
ENDDO.
MOVE ITAB TO JTAB.
LINE-COL1 = 10. LINE-COL2 = 20.
APPEND LINE TO ITAB.
IF ITAB GT JTAB.
WRITE / 'ITAB GT JTAB'.
ENDIF.
APPEND LINE TO JTAB.
IF ITAB EQ JTAB.
WRITE / 'ITAB EQ JTAB'.
ENDIF.
LINE-COL1 = 30. LINE-COL2 = 80.
APPEND LINE TO ITAB.
IF JTAB LE ITAB.
WRITE / 'JTAB LE ITAB'.
ENDIF.
LINE-COL1 = 50. LINE-COL2 = 60.
APPEND LINE TO JTAB.
IF ITAB NE JTAB.
WRITE / 'ITAB NE JTAB'.
ENDIF.
IF ITAB LT JTAB.
WRITE / 'ITAB LT JTAB'.
ENDIF.
The output is:
ITAB GT JTAB
ITAB EQ JTAB
JTAB LE ITAB
ITAB NE JTAB
ITAB LT JTAB
This example creates two standard tables, ITAB and JTAB. ITAB is filled with 3 lines and copied to JTAB. Then, another line is appended to ITAB and the first logical expression tests whether ITAB is greater than JTAB. After appending the same line to JTAB, the second logical expression tests whether both tables are equal. Then, another line is appended to ITAB and the third logical expressions tests whether JTAB is less than or equal to ITAB. Next, another line is appended to JTAB. Its contents are unequal to the contents of the last line of ITAB. The next logical expressions test whether ITAB is not equal to JTAB. The first table field whose contents are different in ITAB and JTAB is COL1 in the last line of the table: 30 in ITAB and 50 in JTAB. Therefore, in the last logical expression, ITAB is less than JTAB.
regards,
srinivas
*reward for useful answers*

Can we create scroll bar Table in ADE?

Hi All,
Can we create scroll bar Table in ADE. Please refer the enclosed attachment Table.JPG.
We used the following CSS property, which is displaying the scroll bar table in HTML but not in ADE.
#table_data {width:400px; overflow:auto; }
Please Suggest.
Regards,
Jaffar

Hi Swathi,
The whole concept of internal table is to manipulate the data at runtime.
This replaces the concept of two dimentional array in other languages.
The power of internal tables is it gets lakhs of records at runtime. I mean it can accomodate lots of records at runtime.
So you can create a table type in DDIC and use it to declare your internal table.
Yes, You can create global internal tables for function modules.
By declaring the internal table in top include you can use this internal table all the function modules of that function group. So if one function module is filling the data another can use it as it is stored globally.
Hope this answers your curiosity.
Award points if useful else getback.
Aleem.

How to make use of a global internal table in SAP BW during transfer rules

HI friends,
I am ABAP consultant working on some APO info cubes. I have an issue during the upload of planning area data into APO info cube.
Please help.
I am using a transfer routine to find the TECHWEEK from a data base table ZGC_CALWEEK based on the on the calender month and calender week.
Code I am writing is like below.
* FORM COMPUTE_/BIC/ZCALWEEK
* Compute value of InfoObject ZCALWEEK
* in communication structure /BIC/CSZT6DPPA
* Technical properties:
* field name = /BIC/ZCALWEEK
* data element = /BIC/OIZCALWEEK
* data type = NUMC
* length = 000006
* decimals = 000000
* ABAP type = N
* ABAP length = 000006
* reference field =
* Parameters:
* --> RECORD_NO Record number
* --> TRAN_STRUCTURE Transfer structure
* <-- RESULT Return value of InfoObject
* <-> G_T_ERRORLOG Error log
* <-- RETURNCODE Return code (to skip one record)
* <-- ABORT Abort code (to skip whole data package)
FORM COMPUTE_/BIC/ZCALWEEK
USING RECORD_NO LIKE SY-TABIX
 TRAN_STRUCTURE TYPE TRANSFER_STRUCTURE
 G_S_MINFO TYPE RSSM_S_MINFO
CHANGING RESULT TYPE /BIC/OIZCALWEEK
 G_T_ERRORLOG TYPE rssm_t_errorlog_int
 RETURNCODE LIKE SY-SUBRC
 ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel datapackage
*$*$ begin of routine - insert your code only below this line *-*
* DATA: l_s_errorlog TYPE rssm_s_errorlog_int.
DATA: LV_WEEK TYPE ZGC_CALWEEK-APOWEEK,
 LV_MONTH TYPE ZGC_CALWEEK-APOMONTH,
 LV_TECH_WEEK TYPE ZGC_CALWEEK-TECHWEEK.
LV_WEEK = TRAN_STRUCTURE-CALWEEK.
LV_MONTH = TRAN_STRUCTURE-CALMONTH.
SELECT SINGLE TECHWEEK INTO LV_TECH_WEEK
 FROM ZGC_CALWEEK CLIENT SPECIFIED
 WHERE MANDT = SY-MANDT
 AND APOWEEK = LV_WEEK
 AND APOMONTH = LV_MONTH.
IF SY-SUBRC IS INITIAL.
 RESULT = LV_TECH_WEEK.
ELSE.
 RETURNCODE = 1.
 ENDIF.
*$*$ end of routine - insert your code only before this line *-*
ENDFORM.
There are more than 50-80 million records that wil be transferred from planning area to info cube. The select statment is giving pathetic performance as this has to run 50-80 million times.
After adding the select statment to find the TECHWEEK it is taking 4 times the time that used to take before writing the select statment.
Is there a way that I can first fetch the data from ZGC_CALWEEK to one internal table and that internal table can be used using read statment during the transfer routine instead of writing select statement here.
Please help in this case?

Hi Ashutosh,
Thanks for the reply,
The structure of the ZGC_CALWEEK is as below. I have already created a secondary index on the table for this table for the fields APO WEEK and APO MONTH. This didn't help much on the performance.
I am also planning to keep the ZGC_CALWEEK database table to be fully buffered and this may definitely improve the performance but I need to reduce the data base hits as less as possible.
MANDT MANDT CLNT 3 0 Client
TECHWEEK ZTECHWEEK NUMC 6 0 Technical Week
FROMDATE_TECH DATUM DATS 8 0 Date
TODATE_TECH DATUM DATS 8 0 Date
APOWEEK /BI0/OICALWEEK NUMC 6 0 Calendar year / week
FROMDATE_APO DATUM DATS 8 0 Date
TODATE_APO DATUM DATS 8 0 Date
APOMONTH /BI0/OICALMONTH NUMC 6 0 Calendar year/month
The table ZGC_CALWEEK is in APO system, where the transfer rules are being executed.
As you mentioned START ROUTINE, In the start routine Can I create an internal table let's say GT_CALWEEK with structure ZGC_CALWEEK and pull all the records (I have a max of 2000 records in this table) from ZGC_CALWEEK to GT_CALWEEK and Can I used the same internal table GT_CALWEEK in the transfer routine to read the TECHWEEK from internal table.
Thank you very much again for you reply. Any help regarding this would be greatly appreciated.
Best regards,
Siva

How 2 create dynamic internal table and can we pass it to gui_download FM

HI all,
 How can we create a dynamic internal table?
I have a requirement where i have to create an internal table with the no. of fields depending on the selection screen values, i think tat can be possible though dynamic creation only.
 How to solve this issue..?Pointers will be very much useful..
Thanks
Sunny.

hi
Follow the code it will help you out....
REPORT YUSMM_TEXT2 .
*TABLES
TABLES: MARA, " General Material Data
 MAKT, " Material Descriptions
 T002. " Language Keys
* GLOBAL TYPE-POOL
TYPE-POOLS : SLIS.
* GLOBAL TYPES
TYPES: BEGIN OF TP_LANG ,
 SPRAS LIKE T002-SPRAS,
 LAISO LIKE T002-LAISO,
 SRNO(3) TYPE N,
 END OF TP_LANG.
TYPES: BEGIN OF TP_MATNR,
 MATNR LIKE MARA-MATNR,
 BEGRU LIKE MARA-BEGRU,
 END OF TP_MATNR.
* DECLARATION FOR GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA:GT_MAKT TYPE STANDARD TABLE OF MAKT, "Materialkurztexte,
 GT_THEAD TYPE STANDARD TABLE OF THEAD, "SAPscript: Text-Header,
 GT_LINETAB TYPE STANDARD TABLE OF TLINE, "SAPscript: Text-Zeilen,
 GT_T002 TYPE STANDARD TABLE OF T002. "Language key
DATA: BEGIN OF GV_TEXT_OUTPUT_LINE,
 MATNR LIKE MARA-MATNR,
 BEGRU LIKE MARA-BEGRU,
 MAKTX LIKE MAKT-MAKTX,
 LTXT40(1250) TYPE C,
 SRNO(3) TYPE N,
 SPRAS LIKE T002-SPRAS,
 END OF GV_TEXT_OUTPUT_LINE.
DATA: GT_MATNR TYPE STANDARD TABLE OF TP_MATNR,
 WA_GT_MATNR TYPE TP_MATNR.
DATA: GT_LANG TYPE STANDARD TABLE OF TP_LANG,
 WA_GT_LANG TYPE TP_LANG.
DATA: GT_TEXT_OUTPUT_LINE LIKE STANDARD TABLE OF GV_TEXT_OUTPUT_LINE,
 GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 GV_FIELDCAT LIKE LINE OF GT_FIELDCAT,
 CT_GT_FIELDCAT_IN LIKE GV_FIELDCAT,
 GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GV_REPID TYPE SY-REPID.
DATA: BEGIN OF GV,
 FORMER_ERROR LIKE SY-MARKY, " Fehlermeldung bereits
 FILE_OPEN(1), " Flag open file
 REC_LENGTH TYPE I, " record length
 MATNR TYPE MARA-MATNR, " material
 REPID TYPE SYST-REPID,
 RETCO TYPE SY-SUBRC,
 END OF GV.
DATA: GV_MAKT TYPE MAKT,
 GV_T002 TYPE T002,
 GV_LANGU TYPE THEAD-TDSPRAS.
* DECLARATION FOR FIELD-SYMBOLS
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>.
DATA: IT_FLDCAT TYPE LVC_T_FCAT.
DATA: T_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: L_LT TYPE SLIS_LAYOUT_ALV.
DATA: WA_IT_FLDCAT TYPE LVC_S_FCAT.
DATA: WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA: GP_TABLE TYPE REF TO DATA.
DATA: WA_NEWLINE TYPE REF TO DATA.
*DECLARATION FOR CONSTANTS
CONSTANTS:
 BEGIN OF GC,
 TDID_GRUN TYPE THEAD-TDID VALUE 'GRUN',
 TDOBJECT_MAT TYPE THEAD-TDOBJECT VALUE 'MATERIAL',
 ON(01) TYPE C VALUE 'X',
 YES(01) TYPE C VALUE 'X',
 TXT(25) TYPE C VALUE 'MATERIAL DETAILS',
 MAT(25) TYPE C VALUE 'MATERIAL NUMBER',
 AUT(25) TYPE C VALUE 'AUTHORIZATION GROUP',
 FOUND TYPE SY-SUBRC VALUE '00', " Return-Code
 RC_OK TYPE SY-SUBRC VALUE '00', " Return-Code
 OFF TYPE SY-SUBRC VALUE '00', " return code
 FALSE TYPE SY-SUBRC VALUE '00', " boolean
 TRUE TYPE SY-SUBRC VALUE '01', " boolean
END OF GC.
* DECLARATION FOR VARIABLES
DATA: V(3) TYPE N,
 STR TYPE STRING,
 STR1 TYPE STRING,
 V_VAR(3) TYPE N,
 V_VAR1(3) TYPE N,
 V_FIELDNAME(15) TYPE C,
 V_CHAR(15) TYPE C,
 V_LINES(3) TYPE N,
 MAKTEXT LIKE MAKT-MAKTX,
 LT_DATA TYPE REF TO DATA,
 LT_DATA1 TYPE REF TO DATA,
 LWA_LINE TYPE REF TO DATA,
 LWA_LINE1 TYPE REF TO DATA.
*SELECTION-SCREEN AND PARAMETERS
SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS:
S_MATNR FOR MARA-MATNR, "MATERIAL NUMBER
S_MTART FOR MARA-MTART, "MATERIAL TEXT
S_LANG FOR MAKT-SPRAS. "LANGUAGE
PARAMETER: GP_SIZE TYPE I DEFAULT 200. "DATA LENGTH
SELECTION-SCREEN: END OF BLOCK A1.
* 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.
* INITIALIZATION
INITIALIZATION.
GV-REPID = SY-REPID.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM GET_MARA_DATA
 TABLES
 GT_TEXT_OUTPUT_LINE
 USING
 S_MATNR[]
 S_MTART[]
 GP_SIZE
 CHANGING
 GV-RETCO
PERFORM GET_MAT_TEXT
 TABLES
 GT_MAKT
 GT_TEXT_OUTPUT_LINE
 GT_THEAD
 GT_LINETAB
 USING
 GC
 GV-RETCO
 CHANGING
 GV_TEXT_OUTPUT_LINE
 GV_MAKT
PERFORM GET_LANG.
PERFORM DYNAMIC_TABLES.
PERFORM POPULATE_FINAL_TABLE.
PERFORM POPULATE_DYNAMIC_TABLE.
* END-OF-SELECTION
END-OF-SELECTION.
PERFORM DATA_OUTPUT.
*& Form get_mara_data
* Materialdaten lesen
* <->ct_gt_text_output_line Ausgabetabelle
* -->it_s_matnr Parameter Materialnummer
* -->it_s_mtart Parameter Materialart
* -->if_gp_size Parameter Anzahl Materialnummern
FORM GET_MARA_DATA TABLES CT_GT_TEXT_OUTPUT_LINE STRUCTURE
 GV_TEXT_OUTPUT_LINE
 USING IT_S_MATNR LIKE S_MATNR[]
 IT_S_MTART LIKE S_MTART[]
 IF_GP_SIZE
 CHANGING IF_GV-RETCO. "#EC *
* MARA in die Übergabestruktur einlesen
SELECT MATNR BEGRU
 FROM MARA UP TO IF_GP_SIZE ROWS
 APPENDING CORRESPONDING FIELDS OF TABLE GT_MATNR
 WHERE MATNR IN IT_S_MATNR
 AND MTART IN IT_S_MTART.
IF_GV-RETCO = SY-SUBRC.
ENDFORM. " get_mara_data
*& Form get_mat_text
* Kurz- und Langtexte zum Material lesen
* <->ct_gt_makt Materialkurztexte
* <->ct_gt_text_output_line Ausgabetabelle
* <->ct_gt_thead Kopftabelle für ALV
* <->ct_gt_linetab Zeilentabelle für ALV
* -->if_gc Globale Konstanten
* <--cf_gv_text_output_line Struktur Ausgabetabelle
* <--cf_gv_makt Struktru Materialkurztexte
FORM GET_MAT_TEXT TABLES CT_GT_MAKT STRUCTURE MAKT
 CT_GT_TEXT_OUTPUT_LINE STRUCTURE
 GV_TEXT_OUTPUT_LINE
 CT_GT_THEAD STRUCTURE THEAD
 CT_GT_LINETAB STRUCTURE TLINE
 USING
 IF_GC LIKE GC
 IF_GV-RETCO
 CHANGING CF_GV_TEXT_OUTPUT_LINE LIKE
 GV_TEXT_OUTPUT_LINE
 CF_GV_MAKT LIKE GV_MAKT
DATA: STRG TYPE STRING,
 STRG1(1255) TYPE C.
IF IF_GV-RETCO = IF_GC-FOUND.
* Materialkurztexte in alles Sprachen einlesen
 SELECT * FROM MAKT APPENDING TABLE CT_GT_MAKT
 FOR ALL ENTRIES IN GT_MATNR "ct_gt_text_output_line
 WHERE MATNR = GT_MATNR-MATNR " ct_gt_text_output_line-matnr
* Kurztexte in die sprachabhängigen Felder bringen
 LOOP AT GT_MATNR INTO WA_GT_MATNR.
 LOOP AT CT_GT_MAKT INTO CF_GV_MAKT
 WHERE MATNR = WA_GT_MATNR-MATNR.
 CF_GV_TEXT_OUTPUT_LINE-MATNR = WA_GT_MATNR-MATNR.
 CF_GV_TEXT_OUTPUT_LINE-BEGRU = WA_GT_MATNR-BEGRU.
 CF_GV_TEXT_OUTPUT_LINE-MAKTX = CF_GV_MAKT-MAKTX.
 CF_GV_TEXT_OUTPUT_LINE-SPRAS = CF_GV_MAKT-SPRAS.
* LANGTEXT
 CLEAR CT_GT_THEAD[].
 CT_GT_THEAD-TDOBJECT = IF_GC-TDOBJECT_MAT.
 CT_GT_THEAD-TDNAME = WA_GT_MATNR-MATNR.
 CT_GT_THEAD-TDID = IF_GC-TDID_GRUN.
 CT_GT_THEAD-TDSPRAS = CF_GV_MAKT-SPRAS.
 CALL FUNCTION 'TEXT_READ'
 EXPORTING
 I_HEADER = CT_GT_THEAD
 I_READONLY = IF_GC-ON
 IMPORTING
 E_HEADER = CT_GT_THEAD
 TABLES
 T_LINES = CT_GT_LINETAB[]
 EXCEPTIONS
 NOTFOUND = 1.
 IF SY-SUBRC = IF_GC-FOUND.
 LOOP AT CT_GT_LINETAB.
 STRG = CT_GT_LINETAB-TDLINE.
 IF STRG1 <> ' '.
 CONCATENATE STRG1 ';' STRG INTO STRG1.
 ELSE.
 STRG1 = STRG.
 ENDIF.
 ENDLOOP.
 CF_GV_TEXT_OUTPUT_LINE-LTXT40 = STRG1.
 APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
 CLEAR CF_GV_TEXT_OUTPUT_LINE.
 STRG1 = ' '.
 ELSE.
 APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
 ENDIF.
 ENDLOOP.
 ENDLOOP.
ENDIF.
ENDFORM. " get_mat_text
*& Form data_output
* Daten mit ALV ausgeben
* <->ct_GT_FIELDCAT Feldkatalog für ALV
* <->ct_gt_text_output_line Ausgabetabelle
* -->P_GS_LAYOUT Layout für ALV
* -->if_gc Globale Konstanten
* <--cf_GV_REPID Zur Zeit aufgerufener Reportname
* <--cf_gv_fieldcat Struktur Feldkatalog
* <--cf_gv Globale Variablen
FORM DATA_OUTPUT.
PERFORM FIELDCATBUILD.
PERFORM LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GV-REPID
 I_CALLBACK_PF_STATUS_SET = 'EVENT_SET_STATUS_01'
 I_CALLBACK_USER_COMMAND = 'EVENT_USER_COMMAND'
 IS_LAYOUT = L_LT
 IT_FIELDCAT = T_FLDCAT1[]
 TABLES
 T_OUTTAB = <FS_2>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " data_output
*& Form fieldcatbuild
* text
* --> p1 text
* <-- p2 text
FORM FIELDCATBUILD. " TABLES ct_gt_fieldcat_in STRUCTURE gv_fieldcat.
LOOP AT IT_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-FIELDNAME.
 APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
 CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ENDFORM. " fieldcatbuild
* Form event_set_status_01*
FORM EVENT_SET_STATUS_01 USING LT_EXCL TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ABCD' .
ENDFORM. "EVENT_SET_STATUS_01
*& Form Name: event_user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM EVENT_USER_COMMAND USING
IF_UCOMM TYPE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
 WHEN 'DOWNLOAD'.
 PERFORM POPULATE_DOWNLOAD_TABLE.
 DATA: L_LENGHT TYPE I.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:data.xls'
 FILETYPE = 'ASC'
 WRITE_FIELD_SEPARATOR = 'X'
 TRUNC_TRAILING_BLANKS = 'X'
 DAT_MODE = 'X'
 IMPORTING
 FILELENGTH = L_LENGHT
 TABLES
 DATA_TAB = <FS_22>.
 IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 IF L_LENGHT NE GC-FOUND.
 MESSAGE S398(00) WITH 'DATA downloaded to c:data.xls'.
 ENDIF.
ENDCASE.
ENDFORM. "event_user_command
*& Form get_lang
* text
* --> p1 text
* <-- p2 text
FORM GET_LANG.
SELECT SPRAS
 LAISO FROM T002 INTO CORRESPONDING FIELDS OF TABLE GT_LANG
 WHERE SPRAS IN S_LANG.
DESCRIBE TABLE GT_LANG LINES V_LINES.
LOOP AT GT_LANG INTO WA_GT_LANG.
 V = V + 1.
 WA_GT_LANG-SRNO = V.
 MODIFY GT_LANG FROM WA_GT_LANG TRANSPORTING SRNO.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
 CONCATENATE 'MATEDESC-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
 CLEAR WA_IT_FLDCAT.
 WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
 WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-INTLEN = 40.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO IT_FLDCAT .
 CLEAR WA_GT_LANG.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
 CONCATENATE 'BASDAT-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
 CLEAR WA_IT_FLDCAT.
 WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-INTLEN = 255.
 WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO IT_FLDCAT .
 CLEAR WA_GT_LANG.
ENDLOOP.
V_FIELDNAME = 'MATNR'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Matnr'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 1.
V_FIELDNAME = 'BEGRU'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'BEGRU'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 2.
ENDFORM. " get_lang
*& Form dynamic_tables
* text
* --> p1 text
* <-- p2 text
FORM DYNAMIC_TABLES.
ASSIGN LT_DATA TO <FS_DATA>.
* Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_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>.
ENDFORM. " dynamic_tables
*& Form populate_final_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_FINAL_TABLE.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 READ TABLE GT_LANG INTO WA_GT_LANG
 WITH KEY SPRAS = GV_TEXT_OUTPUT_LINE-SPRAS.
 IF SY-SUBRC EQ GC-FOUND.
 GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
 ENDIF.
 MODIFY GT_TEXT_OUTPUT_LINE FROM GV_TEXT_OUTPUT_LINE.
ENDLOOP.
ENDFORM. " populate_final_table
*& Form populate_dynamic_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_DYNAMIC_TABLE.
DATA: INDX TYPE SY-TABIX.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 AT NEW MATNR.
 INDX = SY-TABIX.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-MATNR.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-BEGRU.
 ENDAT.
 LOOP AT GT_LANG INTO WA_GT_LANG.
 IF GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
 V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + 2.
 ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-MAKTX.
 V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
 ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-LTXT40.
 ENDIF.
 ENDLOOP.
 AT END OF MATNR.
 APPEND <LWA_LINE_WA> TO <FS_2>.
 CLEAR <LWA_LINE_WA>.
 ENDAT.
ENDLOOP.
ENDFORM. " populate_dynamic_table
*& Form LAYOUT
* text
* --> p1 text
* <-- p2 text
FORM LAYOUT.
CLEAR L_LT.
L_LT-ZEBRA = GC-YES.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = GC-TXT.
ENDFORM. " LAYOUT
*& Form populate_download_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_DOWNLOAD_TABLE.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_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>.
DATA: STRN1 TYPE STRING,
 STRN2 TYPE STRING,
 INDX TYPE SY-TABIX.
ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-MAT.
ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-AUT.
LOOP AT GT_LANG INTO WA_GT_LANG.
 V_VAR1 = WA_GT_LANG-SRNO + 2.
 CONCATENATE 'MATERIALDESCRIPTION-' WA_GT_LANG-LAISO INTO STRN1.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = STRN1.
 V_VAR1 = WA_GT_LANG-SRNO + V_LINES + 2.
 CONCATENATE 'BASICDATA-' WA_GT_LANG-LAISO INTO STRN2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = STRN2.
ENDLOOP.
APPEND <LWA_LINE_WA1> TO <FS_22>.
CLEAR <LWA_LINE_WA1>.
APPEND <LWA_LINE_WA1> TO <FS_22>.
V_VAR1 = 0.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 AT NEW MATNR.
 INDX = SY-TABIX.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-MATNR.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-BEGRU.
 ENDAT.
 LOOP AT GT_LANG INTO WA_GT_LANG.
 IF GV_TEXT_OUTPUT_LINE-SRNO EQ WA_GT_LANG-SRNO.
 V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + 2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-MAKTX.
 V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
* STR = GV_TEXT_OUTPUT_LINE-LTXT40.
* SEARCH STR FOR ';'.
* DO.
* IF SY-SUBRC = 0.
* SPLIT STR AT ';' INTO STR1 STR.
* <FA> = STR1.
* APPEND <LWA_LINE_WA1> TO <FS_22>.
* SEARCH STR FOR ';'.
* CLEAR <LWA_LINE_WA1>.
* ELSE.
* EXIT.
* ENDIF.
* ENDDO.
* <FA> = STR.
* APPEND <LWA_LINE_WA1> TO <FS_22>.
 <FA> = GV_TEXT_OUTPUT_LINE-LTXT40.
 ENDIF.
 ENDLOOP.
 AT END OF MATNR.
 APPEND <LWA_LINE_WA1> TO <FS_22>.
 CLEAR <LWA_LINE_WA1>.
 ENDAT.
ENDLOOP.
ENDFORM. " populate_download_table
thanks
Nitya

Read two files and store it to Global Internal table in LSMW

Hi
I have a requirement in LSMW, there are two files which needs to read the data and upload into SAP based on 2nd file data with some conditions.
Example :
File One : Customer Details.
File Two : Customer Master.
when we upload the customer master data into SAP we have to cross check customer aganist file two(customer master).
If the customer is does not exist in the file two, then only we have create the customer other wise skip the record.
How to go about this, can we create any global internal table in LSMW and how to store the 2nd file data for cross check.
I tryed with define two source structures, but at any point of time 1st file data is only one record is available.
Please suggest some solutions.
Advance Thanks
Murali.

Hi Jürgen L.
If customer is exist in the both files, then we need to extend him to other company codes.
Some reasons the data is not available in SAP, for writing select query. apart from this we have to do some validation based on 2nd file data.
Is there any possibility for global internal tables
Thanks
Murali

Accessing Global Internal Table in Field Routine Level

I am working on a transformation. I have created a Global Internal Table with the structure of my Source Target + extra fields not in my source target. In the start routine of the transformation I am first copying all corresponding fields from SOURCE_PACKAGE to internal table and then finally doing a lot of manipulations and modifying and appending the internal table with data now ready for populating to target.
I want to populate the target fields at field routine level by the data present in the Global internal table. Can you please tell me how to code here. If data was being read by SOURCE_PACKAGE, I would have read the value of SOURCE_FIELDS - (Value). But incase of value to be read from Global Internal Table, can I refer to the internal table work area directly. Thanks.
Global Internal Table - G_ITAB
Work Area - WA_G_ITAB
Is the below correct ?
Result = WA_G_ITAB-(Field Name).

Let me understand this with an example as I am still not clear. Suppose I am loading to a DSO having 17 Key Fields say K1, K2, K3.........K17.
And if the 3.5x logic is
DATA : L1 LIKE COMM_STRUCTURE-amt.
CLEAR L1 .
IF COMM_STRUCTURE-CHK = '222'
OR COMM_STRUCTURE-CHK = '333' .
L1 = COMM_STRUCTURE-amt .
ENDIF.
RESULT = L1 .
Can you tell me the code of the above in BI7 at field level routine now. Please note I need to take data from G_ITAB internal table and that the DSO has 17 key fields?

Create dynamic internal table with dynamic structure

I have an internal table itab1 that have 12 amount fields from period1 thru period12. I need to create a dynamic table with dynamic structure for the period column if the total amount of each column is > 0. Any idea on how to do that?
For example if my itab1 has 20 rows and the sum of period1 = 35, sum of period2 = 0, sum of period3 = 5, sum of period4 =0, sum of period5 = 2 then I need to create a dynamic structure for the field column that have the total > 0, i.e structure struct1 have field period1, period3 and period5 only. Then I will need to load the data to itab2 from itab1. Can someone help.
Thanks. I am on 4.7 and will upgrade to ERP 6.0 soon.

go throgh 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.
ENDCASE.
ENDFORM. "user_command
Thanks

ABAP Objects: Private variable with reference to global internal table

Hello. I want an object that can hold a private reference
to a global internal table so that when one of it's methods are invoked, the global table contents are modified.
Simplification of scenario:
class myObject definition.
public section.
 methods:
 set_global_table
 importing reference(i_table) type standard table,
 change_global_table.
private section.
 data:
 m_pointer_to_table " not sure how to type this"
endclass.
class myObject implementation.
method set_global_table.
 m_pointer_to_table = i_table. " this needs to "
 " assign a pointer to "
 " the global variable "
endmethod.
method change_global_table.
 refresh m_pointer_to_table. "this should change "
 "the contents of global "
 "variable "
endmethod.
endclass.
data: gt_itable type standard table of t_widget,
 go_myobject type ref to myobject.
* Main code
create object go_myobject.
* phantom code fills gt_itable
call method go_myobject->set_global_table
 exporting i_table = gt_itable.
call method go_myobject->change_global_table.
if gt_itable is initial.
 write 'this should output'.
endif.
The code here doesn't work and I've tried messing with field-symbols, etc. all to no avail. Thank you for any help you could provide!
Brett

Just typed in this editor - so no syntax-check but you will get the idea:
Pass the internal table and get the reference of it
Store the reference and manipulate the global contents with local field-symbols to which you have assigned the reference.
Hope this helps
Christian
>
> class myObject definition.
> *
> public section.
> *
> methods:
> set_global_table
> importing reference(i_table) type standard
> standard table,
> *
> change_global_table.
> *
> private section.
> *
> data:
> m_pointer_to_table type ref to data
> *
> endclass.
> *
> class myObject implementation.
> *
> method set_global_table.
> *
 GET REFERENCE of i_table into m_pointer_to_table.
> endmethod.
> *
> *
> method change_global_table.
> *
field-symbols: <lit_table> type any table.
 assign m_pointer_to_table to <lit_table>.
* manipulate <lit_table>
> endmethod.
> *
> endclass.
> *
> *
> data: gt_itable type standard table of t_widget,
> go_myobject type ref to myobject.
> *
> * Main code
> *
> create object go_myobject.
> *
> *
> *
> * phantom code fills gt_itable
> *
> *
> call method go_myobject->set_global_table
> exporting i_table = gt_itable.
> *
> call method go_myobject->change_global_table.
> *
> *
> if gt_itable is initial.
> *
> write 'this should output'.
> *
> endif.
>
>
> The code here doesn't work and I've tried messing
> with field-symbols, etc. all to no avail. Thank you
> for any help you could provide!
>
> Brett

Error while creating Global temp table

Hi,
I am very new to PL/SQL so please excuse my question. I have the below query . I have to get a count between the source table and various target tables. I am creating a global temp table to store the counts. I am getting the below error for my following query :
Thanks for the help,
Petronas
----Query----
set serveroutput on
Declare
nm1 varchar2(200);
nm2 varchar2(200);
cnt1 number;
cnt2 number;
diff number;
totdiff number;
Begin
nm1 := null;
nm2:= null;
cnt1:= 0;
cnt2 := 0;
diff := 0;
totdiff := 0;
create GLOBAL TEMPORARY TABLE diff ( name1 varchar(200), name2 varchar2(200), diff number);
select count(*) into cnt1
from users_staging;
select count(*) into cnt2
from PROD.users;
nm1 := 'users_staging';
nm2 := 'PROD.users';
diff := cnt1 - cnt2;
insert into diff values (nm1,nm2,diff);
select count(*) into totdiff
from diff
where diff> 0 ;
dbms_output.enable(10000);
dbms_output.put_line('# of tables where difference is > 0 ' ||totdiff);
end;
Encountered the symbol "CREATE" when expecting one of the following:
begin case declare end exception exit for goto if loop mod
null pragma raise return select update while with
<an identifier> <a double-quoted delimited-identifier>
<a bind variable> << close current delete fetch lock insert
open rollback savepoint set sql execute commit forall merge
pipe

Hi,
"CREATE GLOBAL TEPORARY TABLE ..." is not a PL/SQL command; it is a SQL command only.
Create the table, using that statement, before running the PL/SQL block.
You can issue SQL statements from within PL/SQL using the EXECUTE IMMEDIATE command, but this is rarely a good idea.
I assume the PL/SQL code is meant to create the table and then populate it.
You should split those into two separate pieces of code. You'll only want to create the table once, no matter how many times you use it. I assume you'll want to populate it the same way many times. Remember, the "TEMPORARY" in "GLOBAL TEMPORARY TABLE" refers to the data, not the table. When you end a transaction (or a session, depending on whther you want "ON COMMIT DELETE ROWS" or "ON COMMIT PRESERVE ROWS"), the data disappears, but the now-empty stays, ready to be populated for the next transaction (or session).
Edited by: Frank Kulash on Aug 4, 2010 2:25 PM

How to pass internal table with data in ABAP OO

Hi experts ,
Here is the problem...
I create a screen 100 and use the internal table to get data from database, and then press the button on screen 100 , it will call screen 200.
I use ABAP OO code in screen 200, and i want to keep the internal table with data that i get from the sceen 100 parts, but it seems that it just supports to create a new internal table and get data from database in ABAP OO. That means i need to create a new table to save the data in internal table ? Or there is any other solution something like exporting or memory id ...
ps . the internal table in screen 100 is declared in global area, the beginning of the code.
Please give me some advice, thanks a lot!
Regards ,
Claire

I have already know how to do, here is my code:
METHODS fill_tree importing itab2 like itab1.
CALL METHOD: me->fill_tree exporting itab2 = itab1.
In METHOD fill_tree,
declare
data: itab3 TYPE STANDARD TABLE OF itab,
itab3[] = itab1[].
It is useful to me, thanks a lot.

*How can we use the internal table in module pool programming? Clarify plz*

If we creating a screen using the table having four fields(for e.g.). The screen has the functions of display, modify, delete, save, exit etc for the fields. The front-end of the screen having I/O fields of the table using internal table. How can we declare the internal table in the screen?

HI,
Create one WA for your Internal table and then map it to your fields.
For Example,
Data : begin of wa,
          name(10),
          age type i,
           end of wa.
data : it like table of wa with header line.
Then in screen create input fields with the name, age and ***.
Then the user entered values are stored in name age and ***.
then you can manipulate with that values using wa.
Thanks.

Can't get the internal table values

hi all,
i have created a report in which i have DISPLAY EKPO-BANFN and EKKO-EBLEN.For this reason i have created an internal table gi_final,in which my values of both table are coming through.Following are the codes and structure of internal table:
BEGIN OF gi_final OCCURS 0,
       matnr LIKE ekpo-matnr,
       ematn LIKE ekpo-ematn, "Material Number
       txz01 LIKE ekpo-txz01, "Mareial Description
       ktmng LIKE ekpo-ktmng, "Quantity
       netpr LIKE ekpo-netpr, "Rate
       anfnr LIKE ekpo-anfnr, "RFQ No.
       banfn LIKE ekpo-banfn, "Purchase Requisition Number
       ebeln LIKE ekko-ebeln, "Purcahse Order
       ekorg LIKE ekko-ekorg,
       bstyp LIKE ekko-bstyp, "Purchasing Document Category
       submi LIKE ekko-submi, "Collective Number
       lifnr LIKE ekko-lifnr, "Vendor Number
       bedat LIKE ekko-bedat, "Purchase Order Date
    END OF gi_final.
select ekko~ebeln ematn txz01 ktmng banfn
from
    ekpo
    inner join ekko on
    ekpo~ebeln eq ekko~ebeln
into
    corresponding fields of table gi_final
where
    ekko~ekorg in s_ekorg and
    ekko~ebeln in s_ebeln and
    ekko~submi in s_submi and
    ekko~lifnr in s_lifnr.
    READ TABLE gi_final WITH KEY ebeln = gi_final-ebeln.
    MOVE gi_final-banfn to gi_detail-banfn.
    MOVE lv_netpr     to gi_detail-netpr.
    MOVE gi_final-ematn TO gi_detail-ematn.
    MOVE gi_final-txz01 TO gi_detail-txz01.
    MOVE gi_final-ktmng TO gi_detail-ktmng.
Probelm is that when i execute it with Debugger my internal table can't get the values of EBELN and BANFN.
Thanks & Regards,
sapabappk
Edited by: sapabappk on Sep 26, 2010 10:32 AM

HI ,
BEGIN OF gi_final OCCURS 0,
       matnr LIKE ekpo-matnr,
       ematn LIKE ekpo-ematn, "Material Number
       txz01 LIKE ekpo-txz01, "Mareial Description
       ktmng LIKE ekpo-ktmng, "Quantity
       netpr LIKE ekpo-netpr, "Rate
       anfnr LIKE ekpo-anfnr, "RFQ No.
       banfn LIKE ekpo-banfn, "Purchase Requisition Number
       ebeln LIKE ekko-ebeln, "Purcahse Order
       ekorg LIKE ekko-ekorg,
       bstyp LIKE ekko-bstyp, "Purchasing Document Category
       submi LIKE ekko-submi, "Collective Number
       lifnr LIKE ekko-lifnr, "Vendor Number
       bedat LIKE ekko-bedat, "Purchase Order Date
    END OF gi_final.
select ekko~ebeln ematn txz01 ktmng banfn
from
    ekpo
    inner join ekko on
    ekpoebeln eq ekkoebeln
into
    corresponding fields of table gi_final
where
    ekko~ekorg in s_ekorg and
    ekko~ebeln in s_ebeln and
    ekko~submi in s_submi and
    ekko~lifnr in s_lifnr.
    READ TABLE gi_final WITH KEY ebeln = gi_final-ebeln.
    MOVE gi_final-banfn to gi_detail-banfn.
    MOVE lv_netpr     to gi_detail-netpr.
    MOVE gi_final-ematn TO gi_detail-ematn.
    MOVE gi_final-txz01 TO gi_detail-txz01.
    MOVE gi_final-ktmng TO gi_detail-ktmng.
Why you are reading gi_final table and comparing same table field gi_final-ebeln ?
how is gi_detail table declared   ?
just do like this
loop at gi_final .
    MOVE gi_final-banfn to gi_detail-banfn.
    MOVE gi_final-ematn TO gi_detail-ematn.
    MOVE gi_final-txz01 TO gi_detail-txz01.
    MOVE gi_final-ktmng TO gi_detail-ktmng.
append gi_detail .
clear gi_detail
endloop.
and From where you are getting value of    lv_netpr
MOVE lv_netpr     to gi_detail-netpr.
then you will get data in gi_detail
Regards
Deepak.

A global internal table - retaing values of internal table

Hi,
I needed some help in the creation of a internal table whose content don't change in the recursive call to the method.
I call a method M1 which returns me an standard internal table (i1) as an import parameter and has two export parameters ( exp_p1,exp_p2).
I call this method(m1) recursively in the method m1 itself. I find that when i call this mehtod m1 , second time the data that was there in the internal table M1 on first call of the method is cleared out.
what shoudl i do , so that i can to reatin the the value of the internal table.
Like for example , i have one record in the internal table in the first call to the method M1 and before the second call of method is made.
Once the call to method M1 is made ( meaning to say a second call is made) ,the internal table contains zero records.
while creating the internal table i use a the append keyword to add rows in the method.
In Programming language 'C', for recursion function , if any variable is made as static, that variable retains it value during successive calls to the function.I am looking for something similar to it.
Regards,
Om

Use a static class.
report zrich_0002.
* CLASS lcl_app DEFINITION
class lcl_app definition.
public section.
 class-data: it001 type table of t001.
 class-data: xt001 type t001.
 class-methods: get_data,
 write_data.
endclass.
start-of-selection.
call method lcl_app=>get_data.
do 2 times.
 call method lcl_app=>write_data.
 skip 1.
enddo.
* CLASS lcl_app IMPLEMENTATION
class lcl_app implementation.
method get_data.
 select * into table it001 from t001.
endmethod.
method write_data.
 loop at it001 into xt001.
 write:/ xt001-bukrs, xt001-butxt.
 endloop..
endmethod.
endclass.
REgards,
Rich Heilman

Is it possible to create an internal table with FOX?

Hi,
I have a requirement where I need to call a function module from FOX formula (standard functionality). It would help me if I could pass data to the FM in an internal table. Unfortunately I am not sure if this is somehow possible in FOX. I could create the internal table in the FM also, but the FOX-possibility would be more convenient.
I will appreciate if anyone can clarify this.
Regards
Jan

Hi Jan,
Yes, calling a function module through FOX is simpler. Use 'CALL FUNCTION' to call FM "RSPC_CHAIN_START" and pass the required parameters within your FOX formula.
Chk this for reference too:
Launch a Process Chain with module fonction in Fox Formula.

Can we create global internal table in data dictionary

Similar Messages

Maybe you are looking for