topic Re: creating Internal table with type specified in table field. in Application Development and Automation Discussions

topic Re: creating Internal table with type specified in table field. in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812471#M348203 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>If you want to create a internal table of type standard table,</P><P>data it_tab type standard table of database_tablename.</P><P></P><P>If you want to create your own types,then</P><P>types : begin of ty,</P><P> matnr type mara-matnr,</P><P> end of ty.</P><P>data itab type standard table of ty.</P></BODY></HTML> Fri, 01 Dec 2006 08:10:16 GMT jayanthi_jayaraman 2006-12-01T08:10:16Z creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812467#M348199 <HTML><HEAD></HEAD><BODY><P>Hello experts,</P><P></P><P>I'm popping up some fields from database table one of which contains table name.</P><P>I want to create internal table of type table which is specified in that field.</P><P></P><P>Ex.</P><P></P><P> IT_TAB TYPE TABLE OF IT_RSTBL-DBSTRUCT</P><P></P><P>Can somebody help me to do that.</P><P></P><P>Thanks & regards,</P><P>Sagar</P></BODY></HTML> Fri, 01 Dec 2006 06:58:47 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812467#M348199 Former Member 2006-12-01T06:58:47Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812468#M348200 <HTML><HEAD></HEAD><BODY><P>take a look at this code</P><P></P><P></P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>Stefanos Moschidis - SAP Certified Technical Consultant</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P></P><P>REPORT Z_DOWNLOAD_UPLOAD_ANY_TABLE .</P><P></P><UL><LI level="1" type="ul"><P>----------------------------------------------------------------------</P></LI><LI level="1" type="ul"><P>Program for</P></LI><LI level="1" type="ul"><P>----------------------------------------------------------------------</P></LI><LI level="1" type="ul"><P>1. Downloading Data of any DB table to a tab delimited ASCII file</P></LI></UL><P>*</P><UL><LI level="1" type="ul"><P>----------------------------------------------------------------------</P></LI><LI level="1" type="ul"><P>2. Checking if a tab delimited ASCII file has the structure of a</P></LI><LI level="1" type="ul"><P> DB table and showing its contents</P></LI><LI level="1" type="ul"><P>----------------------------------------------------------------------</P></LI><LI level="1" type="ul"><P>3. Uploading a tab delimited ASCII file to a DB table with the same</P></LI><LI level="1" type="ul"><P> structure</P></LI><LI level="1" type="ul"><P>----------------------------------------------------------------------</P></LI><LI level="1" type="ul"><P>4. Showing the data of any DB table</P></LI></UL><P>*</P><UL><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>DATA DECLARATIONS</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>TYPES : DATA_OBJECT TYPE REF TO DATA.</P><P>DATA : MITAB TYPE REF TO DATA .</P><P></P><P></P><P>TYPE-POOLS : SLIS .</P><P></P><P>DATA : IT_FIELDCAT TYPE STANDARD TABLE OF slis_fieldcat_alv</P><P> WITH HEADER LINE .</P><P>DATA : IT_FIELDCATALOG Type LVC_T_FCAT .</P><P>DATA : WA_FIELDCATALOG Type LVC_S_FCAT .</P><P></P><P>DATA : I_STRUCTURE_NAME LIKE DD02L-TABNAME .</P><P>DATA : I_CALLBACK_PROGRAM LIKE SY-REPID .</P><P></P><P>DATA : DYN_LINE TYPE DATA_OBJECT .</P><P>FIELD-SYMBOLS : <fs_ITAB> TYPE STANDARD TABLE .</P><P></P><P></P><P>DATA : TABLE_NAME_IS_VALID TYPE C .</P><P>DATA : DYNAMIC_IT_INSTANTIATED TYPE C .</P><P>CONSTANTS BUTTONSELECTED TYPE C VALUE 'X' .</P><P></P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>SELECTION SCREEN DEFAULT</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_tabl.</P><P>PARAMETERS : MTABLE_N LIKE RSRD1-TBMA_VAL</P><P> mATCHCODE OBJECT DD_DBTB_16 OBLIGATORY .</P><P>selection-screen end of line.</P><P></P><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_file.</P><P>PARAMETERS : MFILENAM LIKE RLGRAP-FILENAME .</P><P>selection-screen end of line.</P><P></P><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_down.</P><P>PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1</P><P> user-command M_UCOMM .</P><P>selection-screen end of line.</P><P></P><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_chkf.</P><P>PARAMETERS : P_chkfil RADIOBUTTON GROUP GRP1 .</P><P>selection-screen end of line.</P><P></P><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_upld.</P><P>PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .</P><P>selection-screen end of line.</P><P></P><P>selection-screen begin of line.</P><P>SELECTION-SCREEN COMMENT 5(29) T_show.</P><P>PARAMETERS : P_show_t RADIOBUTTON GROUP GRP1 .</P><P>selection-screen end of line.</P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>AT SELECTION SCREEN OUTPUT</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>AT SELECTION-SCREEN OUTPUT .</P><P> PERFORM CHECK_FILENAME .</P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>AT SELECTION SCREEN ON VALUE REQUEST FOR FILENAME</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>AT SELECTION-SCREEN ON VALUE-REQUEST FOR MFILENAM .</P><P> PERFORM F4_FOR_FILENAME .</P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>Initialization .</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>Initialization .</P><P> T_tabl = 'Table Name' .</P><P> T_file = 'File Name' .</P><P> T_down = 'Download Table' .</P><P> T_chkf = 'Check File to Upload' .</P><P> T_upld = 'Upload File' .</P><P> T_show = 'Show Table Contents' .</P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>START OF SELECTION</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>START-OF-SELECTION .</P><P> PERFORM CHECK_TABLE_NAME_IS_VALID .</P><P></P><UL><LI level="1" type="ul"><P>======================================================================</P></LI><LI level="1" type="ul"><P>END OF SELECTION</P></LI><LI level="1" type="ul"><P>======================================================================</P></LI></UL><P>END-OF-SELECTION .</P><P> IF TABLE_NAME_IS_VALID EQ ' ' .</P><P> message i398(00) with 'INVALID TABLE NAME' .</P><P> ELSE .</P><P> PERFORM INSTANTIATE_DYNAMIC_INTERNAL_T .</P><P> CHECK DYNAMIC_IT_INSTANTIATED = 'X' .</P><P> CASE BUTTONSELECTED .</P><P> WHEN P_DOWNLD .</P><P> PERFORM SELECT_AND_DOWNLOAD .</P><P> when P_chkfil .</P><P> perform CHECK_FILE_TO_UPLOAD .</P><P> WHEN P_UPLOAD .</P><P> PERFORM UPLOAD_FROM_FILE .</P><P> when P_SHOW_T .</P><P> PERFORM SHOW_CONTENTS .</P><P> ENDCASE .</P><P> ENDIF .</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form CHECK_TABLE_NAME_IS_VALID</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM CHECK_TABLE_NAME_IS_VALID.</P><P> DATA MCOUNT TYPE I .</P><P> tables dd02l .</P><P> CLEAR TABLE_NAME_IS_VALID .</P><P> SELECT COUNT(*) INTO MCOUNT FROM TADIR</P><P> WHERE PGMID = 'R3TR'</P><P> AND OBJECT = 'TABL'</P><P> AND OBJ_NAME = MTABLE_N .</P><P> IF MCOUNT EQ 1 .</P><P> clear dd02l .</P><P> select single * from dd02l where TABNAME = MTABLE_N .</P><P> IF SY-SUBRC eq 0.</P><P> if dd02l-tabclass = 'TRANSP' .</P><P> TABLE_NAME_IS_VALID = 'X' .</P><P> endif .</P><P> ENDIF.</P><P></P><P> ENDIF .</P><P>ENDFORM. " CHECK_TABLE_NAME_IS_VALID</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form SELECT_AND_DOWNLOAD</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM SELECT_AND_DOWNLOAD.</P><P></P><P> CLEAR : <FS_ITAB> .</P><P> SELECT * FROM (MTABLE_N)</P><P> INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .</P><P></P><P> PERFORM CHECK_FILENAME.</P><P></P><P> CALL FUNCTION 'WS_DOWNLOAD'</P><P> EXPORTING</P><P> FILENAME = MFILENAM</P><P> FILETYPE = 'DAT'</P><P> TABLES</P><P> DATA_TAB = <FS_ITAB></P><P> EXCEPTIONS</P><P> FILE_OPEN_ERROR = 1</P><P> FILE_WRITE_ERROR = 2</P><P> INVALID_FILESIZE = 3</P><P> INVALID_TYPE = 4</P><P> NO_BATCH = 5</P><P> UNKNOWN_ERROR = 6</P><P> INVALID_TABLE_WIDTH = 7</P><P> GUI_REFUSE_FILETRANSFER = 8</P><P> CUSTOMER_ERROR = 9</P><P> OTHERS = 10.</P><P> IF SY-SUBRC eq 0.</P><P> MESSAGE I398(00) WITH 'Table' mtable_n</P><P> 'successfully downloaded to '</P><P> mfilenam .</P><P> ENDIF.</P><P></P><P></P><P>ENDFORM. " SELECT_AND_DOWNLOAD</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form UPLOAD_FROM_FILE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM UPLOAD_FROM_FILE.</P><P> DATA : ANS TYPE C .</P><P> DATA : lines_of_itab TYPE I .</P><P> DATA : MSY_SUBRC TYPE I .</P><P></P><P> CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'</P><P> EXPORTING</P><P> TEXTLINE1 = 'Are you sure you wish to upload'</P><P> TEXTLINE2 = 'data from ASCII File to DB table '</P><P> TITEL = 'Confirmation of Data Upload'</P><P> IMPORTING</P><P> ANSWER = ANS.</P><P> if ans = 'J' .</P><P> PERFORM CHECK_FILENAME.</P><P></P><P> CLEAR MSY_SUBRC .</P><P> CALL FUNCTION 'WS_UPLOAD'</P><P> EXPORTING</P><P> FILENAME = MFILENAM</P><P> FILETYPE = 'DAT'</P><P> TABLES</P><P> DATA_TAB = <FS_ITAB></P><P> EXCEPTIONS</P><P> CONVERSION_ERROR = 1</P><P> FILE_OPEN_ERROR = 2</P><P> FILE_READ_ERROR = 3</P><P> INVALID_TYPE = 4</P><P> NO_BATCH = 5</P><P> UNKNOWN_ERROR = 6</P><P> INVALID_TABLE_WIDTH = 7</P><P> GUI_REFUSE_FILETRANSFER = 8</P><P> CUSTOMER_ERROR = 9</P><P> OTHERS = 10.</P><P> MSY_SUBRC = MSY_SUBRC + SY-SUBRC .</P><P> IF SY-SUBRC eq 0.</P><P> describe table <FS_ITAB> lines lines_of_itab .</P><P> IF LINES_OF_ITAB GT 0 .</P><P> DELETE (MTABLE_N) FROM TABLE <fs_itab> .</P><P> commit work .</P><P> insert (MTABLE_N) FROM TABLE <fs_itab> .</P><P> MSY_SUBRC = MSY_SUBRC + SY-SUBRC .</P><P> ENDIF .</P><P> ENDIF.</P><P> IF MSY_SUBRC EQ 0 .</P><P> MESSAGE I398(00) WITH LINES_OF_ITAB</P><P> 'Record(s) inserted in table'</P><P> MTABLE_N .</P><P> ELSE .</P><P> MESSAGE I398(00) WITH</P><P> 'Errors occurred No Records inserted in table'</P><P> MTABLE_N .</P><P> ENDIF .</P><P> endif .</P><P></P><P>ENDFORM. " UPLOAD_FROM_FILE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form F4_FOR_FILENAME</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM F4_FOR_FILENAME.</P><P> CALL FUNCTION 'WS_FILENAME_GET'</P><P> EXPORTING</P><P> DEF_PATH = 'C:\'</P><P> MASK = ',<STRONG>.</STRONG>,<STRONG>.</STRONG>.'</P><P> MODE = '0'</P><P> IMPORTING</P><P> FILENAME = MFILENAM</P><P> EXCEPTIONS</P><P> INV_WINSYS = 1</P><P> NO_BATCH = 2</P><P> SELECTION_CANCEL = 3</P><P> SELECTION_ERROR = 4</P><P> OTHERS = 5.</P><P></P><P>ENDFORM. " F4_FOR_FILENAME</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form CHECK_FILENAME</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM CHECK_FILENAME.</P><P> IF MFILENAM IS INITIAL</P><P> and not ( MTABLE_N is initial )</P><P> AND P_show_t ne BUTTONSELECTED.</P><P> CONCATENATE 'C:\' MTABLE_N '.TXT' INTO MFILENAM.</P><P> ENDIF .</P><P></P><P>ENDFORM. " CHECK_FILENAME</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form INSTANTIATE_DYNAMIC_INTERNAL_T</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM INSTANTIATE_DYNAMIC_INTERNAL_T.</P><P> CLEAR DYNAMIC_IT_INSTANTIATED .</P><UL><LI level="1" type="ul"><P>-----> Step 1 - Finding Field Names and ALV GRID Fieldcatalog</P></LI></UL><P> I_STRUCTURE_NAME = MTABLE_N .</P><P> CLEAR IT_FIELDCAT[] .</P><P> CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'</P><P> EXPORTING</P><P> I_STRUCTURE_NAME = I_STRUCTURE_NAME</P><P> CHANGING</P><P> CT_FIELDCAT = IT_FIELDCAT[]</P><P> EXCEPTIONS</P><P> INCONSISTENT_INTERFACE = 1</P><P> PROGRAM_ERROR = 2</P><P> OTHERS = 3.</P><P> IF SY-SUBRC EQ 0.</P><UL><LI level="1" type="ul"><P>-----> Step 2 - Creating Field Catalog of the Object</P></LI><LI level="1" type="ul"><P> cl_alv_table_create</P></LI></UL><P> LOOP AT IT_FIELDCAT .</P><P> CLEAR WA_FIELDCATALOG .</P><P> MOVE-CORRESPONDING IT_FIELDCAT TO WA_FIELDCATALOG .</P><P> WA_FIELDCATALOG-REF_FIELD = IT_FIELDCAT-fieldname .</P><P> WA_FIELDCATALOG-REF_TABLE = mtable_n .</P><P> APPEND WA_FIELDCATALOG TO it_fieldcatALOG .</P><P> ENDLOOP .</P><P></P><UL><LI level="1" type="ul"><P>-----> Step 3 - Creating Internal Table Dynamicaly</P></LI></UL><P> CALL METHOD cl_alv_table_create=>create_dynamic_table</P><P> EXPORTING</P><P> it_fieldcatalog = it_fieldcatALOG</P><P> IMPORTING</P><P> ep_table = MITAB .</P><P></P><P> ASSIGN MITAB->* TO <FS_ITAB> .</P><P></P><P></P><P> DYNAMIC_IT_INSTANTIATED = 'X' .</P><P> ENDIF.</P><P></P><P>ENDFORM. " INSTANTIATE_DYNAMIC_INTERNAL_T</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form SHOW_CONTENTS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM SHOW_CONTENTS.</P><P></P><P> CLEAR : <FS_ITAB> .</P><P> SELECT * FROM (MTABLE_N)</P><P> INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .</P><P></P><P> I_CALLBACK_PROGRAM = SY-REPID .</P><P> CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'</P><P> EXPORTING</P><P> I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM</P><P> IT_FIELDCAT = IT_FIELDCAT[]</P><P> TABLES</P><P> T_OUTTAB = <FS_ITAB></P><P> EXCEPTIONS</P><P> PROGRAM_ERROR = 1</P><P> OTHERS = 2.</P><P></P><P>ENDFORM. " SHOW_CONTENTS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form CHECK_FILE_TO_UPLOAD</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> p1 text</P></LI><LI level="1" type="ul"><P> <-- p2 text</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>FORM CHECK_FILE_TO_UPLOAD.</P><P> PERFORM CHECK_FILENAME.</P><P></P><UL><LI level="1" type="ul"><P> CLEAR MSY_SUBRC .</P></LI></UL><P> CALL FUNCTION 'WS_UPLOAD'</P><P> EXPORTING</P><P> FILENAME = MFILENAM</P><P> FILETYPE = 'DAT'</P><P> TABLES</P><P> DATA_TAB = <FS_ITAB></P><P> EXCEPTIONS</P><P> CONVERSION_ERROR = 1</P><P> FILE_OPEN_ERROR = 2</P><P> FILE_READ_ERROR = 3</P><P> INVALID_TYPE = 4</P><P> NO_BATCH = 5</P><P> UNKNOWN_ERROR = 6</P><P> INVALID_TABLE_WIDTH = 7</P><P> GUI_REFUSE_FILETRANSFER = 8</P><P> CUSTOMER_ERROR = 9</P><P> OTHERS = 10.</P><UL><LI level="1" type="ul"><P> MSY_SUBRC = MSY_SUBRC + SY-SUBRC .</P></LI></UL><P> IF SY-SUBRC eq 0.</P><P></P><P> I_CALLBACK_PROGRAM = SY-REPID .</P><P> CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'</P><P> EXPORTING</P><P> I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM</P><P> IT_FIELDCAT = IT_FIELDCAT[]</P><P> TABLES</P><P> T_OUTTAB = <FS_ITAB></P><P> EXCEPTIONS</P><P> PROGRAM_ERROR = 1</P><P> OTHERS = 2.</P><P></P><P></P><P> endif .</P><P>ENDFORM. " CHECK_FILE_TO_UPLOAD</P></BODY></HTML> Fri, 01 Dec 2006 07:03:59 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812468#M348200 Former Member 2006-12-01T07:03:59Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812469#M348201 <HTML><HEAD></HEAD><BODY><P>Hi Sagar</P><P></P><P>Please check below example:</P><P></P><PRE><CODE>types: begin of t_dat, fld1(10) type c, fld2(15) type c, end of t_dat. data: it_dat type table of t_dat, wa_dat type t_dat. data: it_fld1 type table of t_dat-fld1.</CODE></PRE><P></P><P>We can declare as above. Note that below declaration is wrong:</P><P>data: it_fld1 type table of it_dat-fld1. Since IT_DAT is not declared with TYPES...</P><P></P><P>Hope it helps you.</P><P></P><P>Kind Regards</P><P>Eswar</P></BODY></HTML> Fri, 01 Dec 2006 07:09:11 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812469#M348201 Former Member 2006-12-01T07:09:11Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812470#M348202 <HTML><HEAD></HEAD><BODY><P>If your requirement is to have few fields in itab refering to database table fields use the syntax</P><P></P><P>DATA: BEGIN OF ITAB OCCURS 0,</P><P> F1 TYPE I,</P><P> --<b></P><P> FX LIKE <database table name>-<fieldname>,</b></P><P> END OF ITAB.</P><P>or </P><P>if u want itab of type database table then use the following syntax</P><P> </P><P>DATA: BEGIN OF ITAB OCCURS 0.</P><P><b>INCLUDE STRUCTURE <database tablename></b></P><P>DATA:END OF ITAB.</P></BODY></HTML> Fri, 01 Dec 2006 08:06:23 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812470#M348202 Former Member 2006-12-01T08:06:23Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812471#M348203 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>If you want to create a internal table of type standard table,</P><P>data it_tab type standard table of database_tablename.</P><P></P><P>If you want to create your own types,then</P><P>types : begin of ty,</P><P> matnr type mara-matnr,</P><P> end of ty.</P><P>data itab type standard table of ty.</P></BODY></HTML> Fri, 01 Dec 2006 08:10:16 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812471#M348203 jayanthi_jayaraman 2006-12-01T08:10:16Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812472#M348204 <HTML><HEAD></HEAD><BODY><P>What I'm asking for is ..........</P><P>I like to create Internal Table from dictionary table whose name is specified in Table-field.</P><P></P><P>Thanks & Regards,</P><P>Sagar</P></BODY></HTML> Fri, 01 Dec 2006 08:41:32 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812472#M348204 Former Member 2006-12-01T08:41:32Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812473#M348205 <HTML><HEAD></HEAD><BODY><P>Write the following code in report program and execute this code.</P><P>Then, go to SE38 , enter the report name that u given in the INSERT REPORT command->display.</P><P>Here the internal table is created for you.</P><P></P><P>I/P for this report is the table name that you wants to point to for creating an internal table. i.e we are creating ITAB of structure data dictionary table; whose name is known at runtime.</P><P></P><P>PARAMETERS: NN(4) TYPE C.</P><P>DATA: NNN(30).</P><P></P><P>DATA: BEGIN OF INCTABL OCCURS 10,</P><P> LINE(72),</P><P>END OF INCTABL.</P><P></P><P>INCTABL-LINE = 'REPORT YPROGRAM2.'.</P><P>APPEND INCTABL.</P><P></P><P>DEFINE M.</P><P>CONCATENATE 'TABLES:' &1'.' INTO NNN.</P><P>INCTABL-LINE = NNN.</P><P>APPEND INCTABL.</P><P>END-OF-DEFINITION.</P><P>M NN.</P><P></P><P>CLEAR NNN.</P><P></P><P>INCTABL-LINE = 'DATA: BEGIN OF ITAB OCCURS 0.'.</P><P>APPEND INCTABL.</P><P></P><P>DEFINE MM.</P><P>NNN = 'INCLUDE STRUCTURE'.</P><P>NNN+19 = &1.</P><P>CONCATENATE NNN '.' INTO NNN.</P><P></P><P></P><P>INCTABL-LINE = NNN.</P><P>APPEND INCTABL.</P><P>END-OF-DEFINITION.</P><P>MM NN.</P><P></P><P>INCTABL-LINE = 'DATA: END OF ITAB.'.</P><P>APPEND INCTABL.</P><P></P><P></P><P>LOOP AT INCTABL.</P><P>WRITE:/ INCTABL-LINE.</P><P>ENDLOOP.</P><P></P><P></P><P>INSERT REPORT 'YPROGRAM2' FROM INCTABL.</P><P></P><P>Message was edited by: </P><P> M B</P></BODY></HTML> Sat, 02 Dec 2006 05:34:17 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812473#M348205 Former Member 2006-12-02T05:34:17Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812474#M348206 <HTML><HEAD></HEAD><BODY><P>Check the code that i mentioned.</P></BODY></HTML> Tue, 05 Dec 2006 04:01:23 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812474#M348206 Former Member 2006-12-05T04:01:23Z Re: creating Internal table with type specified in table field. https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812475#M348207 <HTML><HEAD></HEAD><BODY><P>thanx...</P></BODY></HTML> Tue, 05 Dec 2006 04:20:35 GMT https://community.sap.com/t5/application-development-and-automation-discussions/creating-internal-table-with-type-specified-in-table-field/m-p/1812475#M348207 Former Member 2006-12-05T04:20:35Z