topic Re: ALV function modules in Application Development and Automation Discussions

topic Re: ALV function modules in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114161#M106990 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>Phani is right, <wa_table> is a work area for internal table.</P><P></P><P>You have to consider that internal created by field-symbol haven't header line.</P><P></P><P>So you can define the header line in this way:</P><P></P><P>DATA: WA TYPE REF TO DATA.</P><P></P><P>FIELD-SYMBOLS: <WA_TABLE> TYPE ANY.</P><P></P><P>CREATE DATA WA LIKE LINE OF <FS_TABLE>.</P><P>ASSIGN WA->* TO <WA_TABLE>.</P><P></P><P>Max</P></BODY></HTML> Sat, 04 Feb 2006 10:02:44 GMT Former Member 2006-02-04T10:02:44Z ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114154#M106983 <HTML><HEAD></HEAD><BODY><P>Hello folks,</P><P></P><P>Can I assign a field symbol to the ALV function modules instead of internal table.</P><P></P><P>If not possible can any1 suggest how to build a dynamic internal table. I mean the fields from the internal table to be displayed in the ALV list will be varying.</P><P></P><P>Thanks,</P></BODY></HTML> Tue, 31 Jan 2006 19:07:49 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114154#M106983 Former Member 2006-01-31T19:07:49Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114155#M106984 <HTML><HEAD></HEAD><BODY><P>Hi Naren,</P><P></P><P>Please see this code, I think it will exactly match ur requirement.</P><P></P><P>It covers both ALV and dynamic internal table.</P><P></P><P>Please reward points if it suits for ur requirement.</P><P></P><P><b><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Report YTST5</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*&</P><P>*&</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P></P><P>REPORT YTST5.</P><P></P><P></P><P>*{PAVAN</P><P>*ALV data declarations</P><P>TYPE-POOLS: slis ,tstr.</P><P>DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,</P><P> gd_tab_group TYPE slis_t_sp_group_alv,</P><P> gd_layout TYPE slis_layout_alv,</P><P> gd_repid LIKE sy-repid.</P><P>*}PAVAN</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Tables</P></LI></UL></UL></UL><P>DATA: LT_DATA type ref to DATA.</P><P>DATA: LT_FIELDCATALOG type LVC_T_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Structure</P></LI></UL></UL></UL><P>DATA: LS_FIELDCATALOG type LVC_S_FCAT.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Data References</P></LI></UL></UL></UL><P>DATA: NEW_LINE type ref to data.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Field Symbols</P></LI></UL></UL></UL><P>FIELD-SYMBOLS: <FS_DATA> type ref to DATA,</P><P> <FS_1> type any table,</P><P> <FS_2>,</P><P> <FS_3>.</P><P></P><P>selection-screen begin of block b1.</P><P>parameters: p_weeks type i.</P><P>selection-screen end of block b1.</P><P></P><P>*Populating the internal table with fieldnames required for our dynamic</P><P>*internal table</P><P>data: l_Str(10).</P><P>data: l_nos type i.</P><P>l_nos = 1.</P><P></P><P>while l_nos le p_weeks.</P><P>l_str = 'Week' .</P><P>l_str+4(2) = l_nos.</P><P>ls_fieldcatalog-fieldname = l_Str.</P><P>ls_fieldcatalog-inttype = 'QUAN'.</P><P>append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P></P><P>l_nos = l_nos + 1.</P><P>endwhile.</P><P></P><P>*LS_FIELDCATALOG-FIELDNAME = 'MANDT'.</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P>*LS_FIELDCATALOG-FIELDNAME = 'CARRID'. "Fieldname</P><P>*LS_FIELDCATALOG-INTTYPE = 'C'. "Internal Type C-> Character</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P>*LS_FIELDCATALOG-FIELDNAME = 'CONNID'.</P><P>*LS_FIELDCATALOG-INTTYPE = 'N'.</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P>*LS_FIELDCATALOG-FIELDNAME = 'FLDATE'.</P><P>*LS_FIELDCATALOG-INTTYPE = 'D'.</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P>*LS_FIELDCATALOG-FIELDNAME = 'PRICE'.</P><P>*LS_FIELDCATALOG-INTTYPE = 'P'.</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P>*LS_FIELDCATALOG-FIELDNAME = 'CURRENCY'.</P><P>*LS_FIELDCATALOG-INTTYPE = 'C'.</P><P>*append LS_FIELDCATALOG to LT_FIELDCATALOG.</P><P>*</P><P></P><P>*Assigning Field-Symbol to our dynamic internal table</P><P>assign LT_DATA to <FS_DATA>.</P><P></P><P>*Calling the method CREATE_DYNAMIC_TABLE</P><P>call method cl_alv_table_create=>create_dynamic_table</P><P> exporting</P><P> it_fieldcatalog = LT_FIELDCATALOG</P><P> importing</P><P> ep_table = <FS_DATA></P><P> exceptions</P><P> generate_subpool_dir_full = 1</P><P> others = 2</P><P> .</P><P>if sy-subrc <> 0.</P><P>endif.</P><P></P><P></P><UL><UL><UL><LI level="3" type="ul"><P>So <FS_1> now points to our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>assign <FS_DATA>->* to <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>Next step is to create a work area for our dynamic internal table.</P></LI></UL></UL></UL><P></P><P>create data NEW_LINE like line of <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>A field-symbol to access that work area</P></LI></UL></UL></UL><P>assign NEW_LINE->* to <FS_2>.</P><P></P><P>assign component 1 of structure <FS_2> to <FS_3>.</P><P><FS_3> = 10.</P><P>assign component 2 of structure <FS_2> to <FS_3>.</P><P><FS_3> = 20.</P><P>insert <FS_2> into table <FS_1>.</P><P></P><P>clear <FS_3>.</P><P>assign component 1 of structure <FS_2> to <FS_3>.</P><P><FS_3> = 100.</P><P></P><P>assign component 2 of structure <FS_2> to <FS_3>.</P><P><FS_3> = 200.</P><P>insert <FS_2> into table <FS_1>.</P><P></P><UL><UL><UL><LI level="3" type="ul"><P>And to put the data in the internal table</P></LI></UL></UL></UL><P>*select MANDT CARRID CONNID FLDATE PRICE CURRENCY</P><UL><LI level="1" type="ul"><P> from SFLIGHT</P></LI><LI level="1" type="ul"><P> into corresponding fields of table <FS_1>.</P></LI></UL><P></P><P></P><P></P><P>perform build_field_catalog.</P><P></P><P>field-symbols: <itab> type table.</P><P></P><P>assign <FS_1> to <itab>.</P><P></P><P>CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'</P><P> EXPORTING</P><P> i_callback_program = gd_repid</P><P> it_fieldcat = fieldcatalog[]</P><P> i_save = 'X'</P><P> TABLES</P><P> t_outtab = <itab></P><UL><LI level="1" type="ul"><P>EXCEPTIONS</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 1</P></LI><LI level="1" type="ul"><P> OTHERS = 2</P></LI></UL><P> .</P><P>IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P>ENDIF.</P><P></P><P></P><P></P><P>form build_field_catalog.</P><P></P><P>l_nos = 1.</P><P></P><P>while l_nos le p_weeks.</P><P>l_str = 'WEEK' .</P><P>l_str+4(2) = l_nos.</P><P>*{FIELD CATALOG</P><P> fieldcatalog-fieldname = l_str.</P><P> fieldcatalog-seltext_m = l_str.</P><P> fieldcatalog-col_pos = l_nos.</P><P> fieldcatalog-outputlen = 10.</P><P> fieldcatalog-emphasize = 'X'.</P><P> fieldcatalog-key = 'X'.</P><P> APPEND fieldcatalog TO fieldcatalog.</P><P> CLEAR fieldcatalog.</P><P>*}FIELD CATALOG</P><P></P><P>l_nos = l_nos + 1.</P><P>endwhile.</P><P></P><P></P><UL><LI level="1" type="ul"><P> fieldcatalog-fieldname = 'WEEK1'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-seltext_m = 'Week1'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-col_pos = 0.</P></LI><LI level="1" type="ul"><P> fieldcatalog-outputlen = 10.</P></LI><LI level="1" type="ul"><P> fieldcatalog-emphasize = 'X'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-key = 'X'.</P></LI><LI level="1" type="ul"><P> APPEND fieldcatalog TO fieldcatalog.</P></LI><LI level="1" type="ul"><P> CLEAR fieldcatalog.</P></LI></UL><P>*</P><UL><LI level="1" type="ul"><P> fieldcatalog-fieldname = 'WEEK2'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-seltext_m = 'Week 2'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-col_pos = 1.</P></LI><LI level="1" type="ul"><P> APPEND fieldcatalog TO fieldcatalog.</P></LI><LI level="1" type="ul"><P> CLEAR fieldcatalog.</P></LI></UL><P></P><P>endform.</b></P><P>Thanks</P><P>Pavan</P></BODY></HTML> Tue, 31 Jan 2006 19:11:43 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114155#M106984 Former Member 2006-01-31T19:11:43Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114156#M106985 <HTML><HEAD></HEAD><BODY><P>*****<STRONG>DATA DECLARATION</STRONG>****************************</P><P></P><P>FIELD-SYMBOLS : <it_final> TYPE STANDARD TABLE,</P><P> <wa_final> TYPE ANY,</P><P> <w_field> TYPE ANY.</P><P></P><P></P><P>**<STRONG>DYNAMIC CREATION OF FIELDCATALOG</STRONG>***************</P><P></P><P>*FIRST 2 FIELDS FIELDS FIELD1 AND FIELD2 ARE CONSTANT, FIELDS OBTAINED IN THE LOOP ENDLOOP ARE DYNAMIC,</P><P>*LIKEWISE DYNAMIC FIELDCATALOG IS CREATED</P><P></P><P> wa_fieldcatalog-fieldname = 'FIELD1'.</P><P> wa_fieldcatalog-ref_table = 'E070'.</P><P> wa_fieldcatalog-outputlen = '13'.</P><P> wa_fieldcatalog-reptext = 'Created On'.</P><P> wa_fieldcatalog-seltext = 'Created On'.</P><P> APPEND wa_fieldcatalog TO it_fieldcatalog.</P><P> CLEAR wa_fieldcatalog.</P><P> </P><P> wa_fieldcatalog-fieldname = 'FIELD1'.</P><P> wa_fieldcatalog-ref_table = 'E070'.</P><P> wa_fieldcatalog-outputlen = '13'.</P><P> wa_fieldcatalog-reptext = 'Created On'.</P><P> wa_fieldcatalog-seltext = 'Created On'.</P><P> APPEND wa_fieldcatalog TO it_fieldcatalog.</P><P> CLEAR wa_fieldcatalog.</P><P></P><P></P><P> LOOP AT it_mandt WHERE mandt IN s_mandt.</P><P> CONCATENATE 'CLNT' it_mandt INTO wa_fieldcatalog-fieldname.</P><P> wa_fieldcatalog-inttype = 'NUMC'.</P><P> wa_fieldcatalog-outputlen = '14'.</P><P> wa_fieldcatalog-reptext = it_mandt.</P><P> wa_fieldcatalog-seltext = it_mandt.</P><P></P><P> APPEND wa_fieldcatalog TO it_fieldcatalog.</P><P> CLEAR :wa_fieldcatalog ,it_mandt.</P><P> ENDLOOP.</P><P></P><P></P><P>*******<STRONG>CREATE DYNAMIC TABLE</STRONG>***********************</P><P></P><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 = new_table</P><P> EXCEPTIONS</P><P> generate_subpool_dir_full = 1</P><P> OTHERS = 2.</P><P> IF sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P> MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> ENDIF.</P><P></P><P> ASSIGN new_table->* TO <it_final>.</P><P></P><P>********<STRONG>CREATE WORK AREA</STRONG>***************************</P><P></P><P>CREATE DATA new_line LIKE LINE OF <it_final>.</P><P> ASSIGN new_line->* TO <wa_final>.</P><P></P><P>********<STRONG>INSERTTING WORK AREAR TO INTERNAL TABLE</STRONG>*****</P><P></P><P> INSERT <wa_final> INTO TABLE <it_final>.</P><P></P><P>******<STRONG>POPULATING DATA</STRONG>****************************** </P><P> LOOP.</P><P> </P><P> ASSIGN COMPONENT 'FIELD1' OF STRUCTURE <wa_final> TO <w_field>.</P><P> <w_field> = '12345'.</P><P></P><P> ASSIGN COMPONENT 'FIELD2' OF STRUCTURE <wa_final> TO <w_field>.</P><P> <w_field> = '21453DD'.</P><P></P><P> FIELD1 AND FIELD2 ARE COMPONENTS OF FIELDCATALOG.</P><P> </P><P>ENDLOOP. </P><P></P><P> ENDLOOP.</P></BODY></HTML> Tue, 31 Jan 2006 19:11:49 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114156#M106985 Former Member 2006-01-31T19:11:49Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114157#M106986 <HTML><HEAD></HEAD><BODY><P>Hello folks,</P><P></P><P>Thanks for the responses. They will be rewarded. I have a problem here though.</P><P></P><P>I am reading amounts for all months in to an internal table.</P><P></P><P>For example, the internal table <b>itab</b> has the following entries.</P><P></P><P>100</P><P>200</P><P>300</P><P>400</P><P>500</P><P>600</P><P>700</P><P>800</P><P>900</P><P>1000</P><P>1100</P><P>1200</P><P></P><P>and I am trying to assign these values to a field-symbol <fs> in the following way where I am failing.</P><P></P><P>100 200 300 400 500 600 700 800 900 1000 1100 1200</P><P></P><P>I declared <fs> as type table though.</P><P></P><P>I want to see the ALV grid in the above format (in a single row).</P><P></P><P>Can any1 help me how to do that?</P><P></P><P>Thanks,</P><P></P><P></P><P>Message was edited by: Naren Somen</P><P></P></BODY></HTML> Fri, 03 Feb 2006 17:56:07 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114157#M106986 Former Member 2006-02-03T17:56:07Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114158#M106987 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>You should create an internal table with many fields than hits you have in ITAB.</P><P></P><P>DATA: N(3) TYPE N.</P><P></P><P>DESCRIBE ITAB LINES SY-TABIX.</P><P></P><P>DO SY-TABIX TIMES.</P><P>MOVE SY-INDEX TO N.</P><P>CONCATENATE 'FIELD_' N INTO wa_fieldcatalog-fieldname.</P><P>......................</P><P>APPEND wa_fieldcatalog TO it_fieldcatalog.</P><P>ENDDO.</P><P></P><P></P><P>call method cl_alv_table_create=>create_dynamic_table</P><P>exporting</P><P>it_fieldcatalog = LT_FIELDCATALOG</P><P>importing</P><P>ep_table = <FS_DATA></P><P>exceptions</P><P>generate_subpool_dir_full = 1</P><P>others = 2</P><P>.</P><P>if sy-subrc <> 0.</P><P>endif.</P><P></P><P>assign <FS_DATA>->* to <FS_TABLE>.</P><P></P><P>LOOP AT ITAB.</P><P>ASSIGN COMPONENT SY-TABIX OF STRUCTURE <WA_TABLES> TO <FS>.</P><P></P><P><FS> = ITAB-FIELD.</P><P>ENDLOOP.</P><P>IF SY-SUBRC = 0.</P><P> APPEND <WA_TABLE> TO <FS_TABLE>.</P><P>ENDIF.</P><P></P><P>max</P><P></P><P></P><P>Message was edited by: max bianchi</P></BODY></HTML> Fri, 03 Feb 2006 17:59:14 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114158#M106987 Former Member 2006-02-03T17:59:14Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114159#M106988 <HTML><HEAD></HEAD><BODY><P>Max,</P><P></P><P>What is <wa_table>?? How you have declared it and of what type??</P><P></P><P>Thanks,</P></BODY></HTML> Fri, 03 Feb 2006 18:11:21 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114159#M106988 Former Member 2006-02-03T18:11:21Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114160#M106989 <HTML><HEAD></HEAD><BODY><P>HI Naren,</P><P> <wa_table> means work area of the internal table. dont consider< > as part of field symbol here.He is asking you to write your defined work area.</P></BODY></HTML> Fri, 03 Feb 2006 19:05:17 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114160#M106989 Former Member 2006-02-03T19:05:17Z Re: ALV function modules https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114161#M106990 <HTML><HEAD></HEAD><BODY><P>Hi</P><P></P><P>Phani is right, <wa_table> is a work area for internal table.</P><P></P><P>You have to consider that internal created by field-symbol haven't header line.</P><P></P><P>So you can define the header line in this way:</P><P></P><P>DATA: WA TYPE REF TO DATA.</P><P></P><P>FIELD-SYMBOLS: <WA_TABLE> TYPE ANY.</P><P></P><P>CREATE DATA WA LIKE LINE OF <FS_TABLE>.</P><P>ASSIGN WA->* TO <WA_TABLE>.</P><P></P><P>Max</P></BODY></HTML> Sat, 04 Feb 2006 10:02:44 GMT https://community.sap.com/t5/application-development-and-automation-discussions/alv-function-modules/m-p/1114161#M106990 Former Member 2006-02-04T10:02:44Z