topic regarding ALV OOPs in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102073#M736127 <HTML><HEAD></HEAD><BODY><P>I am using ALV OOPs. I defined PF status. I am getting output. But the problem is Application tool bar buttons are not working. can anybody send sample code or suggest where exactly I need to pass this.</P><P></P><P>Regards,</P><P>naseer.</P></BODY></HTML> Tue, 04 Dec 2007 07:32:42 GMT Former Member 2007-12-04T07:32:42Z regarding ALV OOPs https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102073#M736127 <HTML><HEAD></HEAD><BODY><P>I am using ALV OOPs. I defined PF status. I am getting output. But the problem is Application tool bar buttons are not working. can anybody send sample code or suggest where exactly I need to pass this.</P><P></P><P>Regards,</P><P>naseer.</P></BODY></HTML> Tue, 04 Dec 2007 07:32:42 GMT https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102073#M736127 Former Member 2007-12-04T07:32:42Z Re: regarding ALV OOPs https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102074#M736128 <HTML><HEAD></HEAD><BODY><P>Hi Naseer,</P><P></P><P> For this you have to use events concepts.</P><P>Here is the code..It will surely work out.</P><P></P><P>Sample programs on ALV Grid </P><P>report zbnstest. </P><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>TABLES AND DATA DECLARATION. </P></LI><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><P>*TABLES: mara,makt.",marc. </P><P>data syrepid like sy-repid. </P><P>data sydatum(10). " LIKE sy-datum. </P><P>data sypagno(3) type n. </P><UL><LI level="1" type="ul"><P>WHEN USING MORE THAN ONE TABLE IN ALV WE NEEED TO DECLARE THE TYPE </P></LI><LI level="1" type="ul"><P>GROUP (TYPE-POOLS---------&gt;SLIS) </P></LI></UL><P>type-pools : slis. </P><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>INTERNAL TABLE DECLARATION. </P></LI><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>INTERNAL TABLE TO HOLD THE VALUES FROM THE MARA TABLE </P></LI></UL><P>data: begin of t_mara occurs 0, </P><P>matnr like mara-matnr, </P><P>meins like mara-meins, </P><P>mtart like mara-mtart, </P><P>matkl like mara-matkl, </P><P>end of t_mara. </P><UL><LI level="1" type="ul"><P>INTERNAL TABLE TO HOLD THE CONTENTS FROM THE EKKO TABLE </P></LI></UL><P>data : begin of t_marc occurs 0, </P><P>matnr like mara-matnr, </P><P>werks like marc-werks, </P><P>minbe like marc-minbe. </P><P>data: end of t_marc. </P><UL><LI level="1" type="ul"><P>INTERNAL TABLE TO HOLD THE VALUES FROM MAKT TABLE. </P></LI></UL><P>data : begin of t_makt occurs 0, </P><P>matnr like mara-matnr, </P><P>maktx like makt-maktx, </P><P>spras like makt-spras, </P><P>end of t_makt. </P><UL><LI level="1" type="ul"><P>INTERNAL TABLE WHICH ACTUALLY MERGES ALL THE OTHER INTERNAL TABLES. </P></LI></UL><P>data: begin of itab1 occurs 0, </P><P>matnr like mara-matnr, </P><P>meins like mara-meins, </P><P>maktx like makt-maktx, </P><P>spras like makt-spras, </P><P>werks like marc-werks, </P><P>minbe like marc-minbe, </P><P>end of itab1. </P><UL><LI level="1" type="ul"><P>THE FOLLOWING DECLARATION IS USED FOR DEFINING THE FIELDCAT </P></LI><LI level="1" type="ul"><P>AND THE LAYOUT FOR THE ALV. </P></LI><LI level="1" type="ul"><P>HERE AS slis_t_fieldcat_alv IS A INTERNAL TABLE WITHOUT A HEADER LINE </P></LI><LI level="1" type="ul"><P>WE EXPLICITELY DEFINE AN INTERNAL TABLE OF THE SAME STRUCTURE AS THAT </P></LI><LI level="1" type="ul"><P>OF slis_t_fieldcat_alv BUT WITH A HEADER LINE IN THE DEFINITION. </P></LI><LI level="1" type="ul"><P>THIS IS DONE TO MAKE THE CODE SIMPLER. </P></LI><LI level="1" type="ul"><P>OTHERWISE WE MAY HAVE TO DEFINE THE STRUCTURE AS IN THE NORMAL SAP </P></LI><LI level="1" type="ul"><P>PROGRAMS. </P></LI><LI level="1" type="ul"><P>IN THE FIELDCATALOG TABLE WE ACTUALLY PASS THE FIELDS FROM ONE OR </P></LI><LI level="1" type="ul"><P>MORE TABLES AND CREATE A STRUCTURE </P></LI><LI level="1" type="ul"><P>IN THE LAYOUT STRUCTURE WE BASICALLY DEFINE THE FORMATTING OPTIONS </P></LI><LI level="1" type="ul"><P>LIKE DISPLAY IN THE ZEBRA PATTERN ,THE HOTSPOT OPTIONS ETC. </P></LI></UL><P>data: fieldcatalog type slis_t_fieldcat_alv with header line, </P><P>fieldlayout type slis_layout_alv. </P><UL><LI level="1" type="ul"><P>DECLARING THE EVENTTABLE INTERNL TABLE FOR USING EVENTS LIKE </P></LI><LI level="1" type="ul"><P>TOP-OF-PAGE ETC. </P></LI></UL><P>data : eventstab type slis_t_event with header line. </P><UL><LI level="1" type="ul"><P>DECLARING AN INTERNAL TABLE TO HOLD THE DATA FOR THE TOP-OF-PAGE </P></LI></UL><P>data : heading type slis_t_listheader with header line. </P><P>data : heading1 type slis_t_listheader with header line. </P><P>data : heading2 type slis_t_listheader with header line. </P><P>data : heading3 type slis_t_listheader with header line. </P><P>data : heading4 type slis_t_listheader with header line. </P><P>data : heading5 type slis_t_listheader with header line. </P><P>data : heading6 type slis_t_listheader with header line. </P><P>data : heading7 type slis_t_listheader with header line. </P><P>data : heading8 type slis_t_listheader with header line. </P><UL><LI level="1" type="ul"><P>STRUCTURE TO PASS THE COLOR ATTRIBUTES FOR DISPLAY. </P></LI></UL><P>data : colorstruct type slis_coltypes. </P><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>INITIALIZATION. * </P></LI><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><P>initialization. </P><P>syrepid = sy-repid. </P><P>sypagno = sy-pagno. </P><P>clear fieldcatalog. </P><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>START-OF-SELECTION. * </P></LI><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><P>start-of-selection. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO POPULATE THE COLORSTRUCT </P></LI></UL><P>perform fill_colorstruct using colorstruct. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO POPULATE THE FIELDS OF THE FIELD CATALOGUE </P></LI></UL><P>perform populate_fieldcatalog. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO SELECT DATA FROM VARIOUS TABLES AND POPULATE IT IN THE </P></LI><LI level="1" type="ul"><P>INTERNAL TABLE. </P></LI></UL><P>perform selectdata_and_sort. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO POPULATE THE LAYOUT STRUCTURE. </P></LI></UL><P>perform populate_layout using fieldlayout. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO CALL THE FUNCTION MERGE TO ENSURE PROPER DISPLAY. </P></LI></UL><P>perform merge_fieldcatalog. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO POPULATE THE EVENTSTAB. </P></LI></UL><P>perform fill_eventstab tables eventstab. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO POPULATE THE HEADING TABLES. </P></LI></UL><P>perform fill_headingtable tables heading using 'HEADING'. </P><P>perform fill_headingtable tables heading1 using 'HEADING1'. </P><P>perform fill_headingtable tables heading2 using 'HEADING2'. </P><P>perform fill_headingtable tables heading3 using 'HEADING3'. </P><P>perform fill_headingtable tables heading4 using 'HEADING4'. </P><P>perform fill_headingtable tables heading5 using 'HEADING5'. </P><P>perform fill_headingtable tables heading6 using 'HEADING6'. </P><P>perform fill_headingtable tables heading7 using 'HEADING7'. </P><P>perform fill_headingtable tables heading8 using 'HEADING8'. </P><UL><LI level="1" type="ul"><P>SUBROUTINE TO DISPLAY THE LIST. </P></LI></UL><P>perform display_alv_list. </P><P></P><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>FORMS </P></LI><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><UL><LI level="72" type="ul"></LI></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL></UL><LI level="1" type="ul"><P>IN THIS SUBROUTINE WE POPULATE THE FIELDCATALOG TABLE WITH THE NAMES </P></LI><LI level="1" type="ul"><P>OF THE TABLE,FIELDNAME,WHETHER IT IS KEY FIELD OR NOT,HEADING AND </P></LI><LI level="1" type="ul"><P>COLUMN JUSTIFICATION. </P></LI></UL><P>form populate_fieldcatalog. </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MATNR' 'X' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MEINS' ' '. </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MAKTX' ' ' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MTART' ' ' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MATKL' ' ' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'SPRAS' ' ' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'WERKS' ' ' . </P><P>perform fill_fields_of_fieldcatalog tables fieldcatalog </P><P>using 'ITAB1' 'MINBE' ' ' . </P><P>endform. " POPULATE_FIELDCATALOG </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM FILL_FIELDS_OF_FIELDCATALOG * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>--&gt; FIELDCATALOG * </P></LI><LI level="1" type="ul"><P>--&gt; P_TABNAME * </P></LI><LI level="1" type="ul"><P>--&gt; P_FIELDNAME * </P></LI><LI level="1" type="ul"><P>--&gt; P_KEY * </P></LI><LI level="1" type="ul"><P>--&gt; P_KEY * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form fill_fields_of_fieldcatalog tables fieldcatalog </P><P>structure fieldcatalog </P><P>using p_tabname </P><P>p_fieldname </P><P>p_key. </P><UL><LI level="1" type="ul"><P>p_no_out. </P></LI></UL><P>fieldcatalog-tabname = p_tabname. </P><P>fieldcatalog-fieldname = p_fieldname. </P><P>fieldcatalog-key = p_key. </P><P>fieldcatalog-emphasize = '1234'. </P><P>*fieldcatalog-no_out = p_no_out. </P><P>append fieldcatalog. </P><P>endform. " FILL_FIELDSOFFIELDCATALOG </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM POPULATE_LAYOUT * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>--&gt; FIELDLAYOUT * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form populate_layout using fieldlayout type slis_layout_alv. </P><P>fieldlayout-f2code = '&amp;ETA' . </P><P>fieldlayout-zebra = 'X'. </P><UL><LI level="1" type="ul"><P>FOR THE WINDOW TITLE. </P></LI></UL><P>fieldlayout-window_titlebar = 'ALV with Events'. </P><P>fieldlayout-colwidth_optimize = 'X'. </P><P>fieldlayout-no_vline = ' '. </P><P>*fieldlayout-no_input = 'X'. </P><P>fieldlayout-confirmation_prompt = ''. </P><P>fieldlayout-key_hotspot = 'X'. </P><UL><LI level="1" type="ul"><P>This removes the column headings if the flag is set to 'X' </P></LI></UL><P>fieldlayout-no_colhead = ' '. </P><P>*fieldlayout-hotspot_fieldname = 'MAKTX'. </P><P>fieldlayout-detail_popup = 'X'. </P><UL><LI level="1" type="ul"><P>fieldlayout-coltab_fieldname = 'X'. </P></LI></UL><P>endform. " POPULATE_LAYOUT </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM SELECTDATA_AND_SORT * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form selectdata_and_sort. </P><P>select matnr meins mtart matkl from mara </P><P>into corresponding fields of t_mara </P><P>up to 500 rows . </P><P>select matnr maktx spras from makt </P><P>into corresponding fields of t_makt </P><P>where matnr = t_mara-matnr and </P><P>spras = sy-langu. </P><P>select matnr werks minbe from marc </P><P>into corresponding fields of t_marc </P><P>where matnr = t_mara-matnr. </P><P>append t_marc. </P><P>endselect. </P><P>append t_makt. </P><P>endselect. </P><P>append t_mara. </P><P>endselect. </P><P>perform populate_itab1. </P><P>sort itab1 by matnr. </P><P>endform. " SELECTDATA_AND_SORT </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM MERGE_FIELDCATALOG * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form merge_fieldcatalog. </P><P>call function 'REUSE_ALV_FIELDCATALOG_MERGE' </P><P>exporting </P><P>i_program_name = syrepid </P><P>i_internal_tabname = 'ITAB1' </P><UL><LI level="1" type="ul"><P>i_structure_name = 'COLORSTRUCT' </P></LI><LI level="1" type="ul"><P>I_CLIENT_NEVER_DISPLAY = 'X' </P></LI></UL><P>i_inclname = syrepid </P><P>changing </P><P>ct_fieldcat = fieldcatalog[] </P><P>exceptions </P><P>inconsistent_interface = 1 </P><P>program_error = 2 </P><P>others = 3. </P><P>endform. " MERGE_FIELDCATALOG </P><UL><LI level="1" type="ul"><P>IN THIS FUNCTION THE MINIMUM PARAMETERS THAT WE NEED TO PASS IS AS </P></LI><LI level="1" type="ul"><P>FOLLOWS:- </P></LI><LI level="1" type="ul"><P>i_callback_program --&gt; CALLING PROGRAM NAME </P></LI><LI level="1" type="ul"><P>i_structure_name --&gt; STRUCTURE NAME. </P></LI><LI level="1" type="ul"><P>is_layout --&gt; LAYOUT NAME. </P></LI><LI level="1" type="ul"><P>it_fieldcat ---&gt; BODY OF THE FIELD CATALOGUE INTERNAL TABLE </P></LI></UL><P>form display_alv_list. </P><P>call function 'REUSE_ALV_LIST_DISPLAY' </P><P>exporting </P><UL><LI level="1" type="ul"><P>I_INTERFACE_CHECK = ' ' </P></LI></UL><P>i_callback_program = syrepid </P><UL><LI level="1" type="ul"><P>I_CALLBACK_PF_STATUS_SET = ' ' </P></LI><LI level="1" type="ul"><P>I_CALLBACK_USER_COMMAND = ' ' </P></LI></UL><P>i_structure_name = 'ITAB1' </P><P>is_layout = fieldlayout </P><P>it_fieldcat = fieldcatalog[] </P><UL><LI level="1" type="ul"><P>IT_EXCLUDING = </P></LI><LI level="1" type="ul"><P>IT_SPECIAL_GROUPS = </P></LI><LI level="1" type="ul"><P>IT_SORT = </P></LI><LI level="1" type="ul"><P>IT_FILTER = </P></LI><LI level="1" type="ul"><P>IS_SEL_HIDE = </P></LI><LI level="1" type="ul"><P>I_DEFAULT = 'X' </P></LI><LI level="1" type="ul"><P>THE FOLLOWING PARAMETER IS SET AS 'A' INORDER TO DISPLAY THE STANDARD </P></LI><LI level="1" type="ul"><P>TOOL BAR </P></LI></UL><P>i_save = 'A' </P><UL><LI level="1" type="ul"><P>IS_VARIANT = ' ' </P></LI></UL><P>it_events = eventstab[] </P><UL><LI level="1" type="ul"><P>IT_EVENT_EXIT = </P></LI><LI level="1" type="ul"><P>IS_PRINT = </P></LI><LI level="1" type="ul"><P>I_SCREEN_START_COLUMN = 0 </P></LI><LI level="1" type="ul"><P>I_SCREEN_START_LINE = 0 </P></LI><LI level="1" type="ul"><P>I_SCREEN_END_COLUMN = 0 </P></LI><LI level="1" type="ul"><P>I_SCREEN_END_LINE = 0 </P></LI><LI level="1" type="ul"><P>IMPORTING </P></LI><LI level="1" type="ul"><P>E_EXIT_CAUSED_BY_CALLER = </P></LI><LI level="1" type="ul"><P>ES_EXIT_CAUSED_BY_USER = </P></LI></UL><P>tables </P><P>t_outtab = itab1 </P><P>exceptions </P><P>program_error = 1 </P><P>others = 2. </P><P>endform. " DISPLAY_ALV_LIST </P><P><STRONG>&amp;----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>*&amp; Form POPULATE_ITAB1 </P><P><STRONG>&amp;----</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>--&gt; p1 text </P></LI><LI level="1" type="ul"><P>&lt;-- p2 text </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>form populate_itab1. </P><P>loop at t_mara. </P><P>loop at t_makt where matnr = t_mara-matnr. </P><P>loop at t_marc where matnr = t_mara-matnr. </P><P>move-corresponding t_mara to itab1. </P><P>move-corresponding t_makt to itab1. </P><P>move-corresponding t_marc to itab1. </P><P>append itab1. </P><P>endloop. </P><P>endloop. </P><P>endloop. </P><P>endform. " POPULATE_ITAB1 </P><P><STRONG>&amp;----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>*&amp; Form FILL_EVENTSTAB </P><P><STRONG>&amp;----</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>--&gt;P_EVENTSTAB text * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>form fill_eventstab tables p_eventstab structure eventstab. </P><UL><LI level="1" type="ul"><P>WHEN THE FOLLOWING FUNCTION IS CALLED THE SYSTEM POPULATES THE </P></LI><LI level="1" type="ul"><P>INTERNAL TABLE EVENTSTAB WITH A LIST OF EVENTS NAME. </P></LI><LI level="1" type="ul"><P>AS SHOWN BELOW WHEN USING I_LIST_TYPE = 0 THE FUNCTION RETURNS 14 </P></LI><LI level="1" type="ul"><P>EVENTS NAME. </P></LI></UL><P>call function 'REUSE_ALV_EVENTS_GET' </P><P>exporting </P><P>i_list_type = 0 </P><P>importing </P><P>et_events = p_eventstab[] </P><P>exceptions </P><P>list_type_wrong = 1 </P><P>others = 2. </P><UL><LI level="1" type="ul"><P>BY CALLING THE ABOVE FUNCTION WE FIRST POPULATE THE EVENTSTAB WITH </P></LI><LI level="1" type="ul"><P>THE PREDEFINED EVENTS AND THEN WE MOVE THE FORM NAME AS SHOWN BELOW. </P></LI><LI level="1" type="ul"><P>WE ASSIGN A FORM NAME TO THE EVENT AS REQUIRED BY THE USER. </P></LI><LI level="1" type="ul"><P>FORM NAME CAN BE ANYTHING.THE PERFORM STATEMENT FOR THIS FORM </P></LI><LI level="1" type="ul"><P>IS DYNAMICALY CALLED. </P></LI></UL><P>read table p_eventstab with key name = slis_ev_top_of_page. </P><P>if sy-subrc = 0 . </P><P>move 'TOP_OF_PAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_top_of_coverpage. </P><P>if sy-subrc = 0 . </P><P>move 'TOP_OF_COVERPAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_end_of_coverpage . </P><P>if sy-subrc = 0 . </P><P>move 'END_OF_COVERPAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_foreign_top_of_page. </P><P>if sy-subrc = 0 . </P><P>move 'FOREIGN_TOP_OF_PAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_foreign_end_of_page. </P><P>if sy-subrc = 0 . </P><P>move 'FOREIGN_END_OF_PAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_list_modify. </P><P>if sy-subrc = 0 . </P><P>move 'LIST_MODIFY' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_top_of_list. </P><P>if sy-subrc = 0 . </P><P>move 'TOP_OF_LIST' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_end_of_page. </P><P>if sy-subrc = 0 . </P><P>move 'END_OF_PAGE' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>read table p_eventstab with key name = slis_ev_end_of_list . </P><P>if sy-subrc = 0 . </P><P>move 'END_OF_LIST' to p_eventstab-form. </P><P>append p_eventstab. </P><P>endif. </P><P>endform. " FILL_EVENTSTAB </P><P><STRONG>&amp;----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>*&amp; Form FILL_HEADINGTABLE </P><P><STRONG>&amp;----</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>--&gt;P_HEADING text * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>form fill_headingtable tables p_heading structure heading </P><P>using tablename. </P><P>case tablename. </P><P>when 'HEADING'. </P><P>p_heading-typ = 'H'. </P><P>concatenate </P><P>' REPORT NAME:-' syrepid </P><P>' ABB Industry Pte Ltd' into p_heading-info. </P><P>append p_heading. </P><P>write sy-datum using edit mask '__/__/____' to sydatum. </P><P>concatenate </P><P>' DATE:-' sydatum ' USER: ' sy-uname 'PAGE NO:' sypagno </P><P>into p_heading-info. </P><P>append p_heading. </P><P>when 'HEADING1'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'TOP-OF-COVER-PAGE'. </P><P>append p_heading. </P><P>when 'HEADING2'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'END-OF-COVER-PAGE'. </P><P>append p_heading. </P><P>when 'HEADING3'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'FOREIGN-TOP-OF-PAGE'. </P><P>append p_heading. </P><P>when 'HEADING4'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'FOREIGN-END-OF-PAGE'. </P><P>append p_heading. </P><UL><LI level="1" type="ul"><P>WHEN 'HEADING5'. </P></LI><LI level="1" type="ul"><P>P_HEADING-TYP = 'H'. </P></LI><LI level="1" type="ul"><P>P_HEADING-INFO = 'LIST-MODIFY'. </P></LI><LI level="1" type="ul"><P>APPEND P_HEADING. </P></LI></UL><P>when 'HEADING6'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'END-OF-PAGE'. </P><P>append p_heading. </P><P>when 'HEADING7'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'END-OF-LIST'. </P><P>append p_heading. </P><P>when 'HEADING8'. </P><P>p_heading-typ = 'H'. </P><P>p_heading-info = 'TOP-OF-LIST'. </P><P>append p_heading. </P><P>endcase. </P><P>endform. " FILL_HEADINGTABLE </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM TOP_OF_PAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form top_of_page. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>&amp;----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>*&amp; Form FILL_COLORSTRUCT </P><P><STRONG>&amp;----</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>--&gt;P_COLORSTRUCT text * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /> <P></P><P>form fill_colorstruct using p_colorstruct type slis_coltypes . </P><P>p_colorstruct-heacolfir-col = 6. </P><P>p_colorstruct-heacolfir-int = 1. </P><P>p_colorstruct-heacolfir-inv = 1. </P><P>endform. " FILL_COLORSTRUCT </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM TOP_OF_COVERPAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form top_of_coverpage. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading1[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM END_OF_COVERPAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form end_of_coverpage. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading2[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM FOREIGN_TOP_OF_PAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form foreign_top_of_page. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading3[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM FOREIGN_END_OF_PAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form foreign_end_of_page. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading4[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM LIST_MODIFY * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>*FORM LIST_MODIFY. </P><UL><LI level="1" type="ul"><P>CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE' </P></LI><LI level="1" type="ul"><P>EXPORTING </P></LI><LI level="1" type="ul"><P>IT_LIST_COMMENTARY = HEADING5[] </P></LI><LI level="1" type="ul"><P>EXCEPTIONS </P></LI><LI level="1" type="ul"><P>OTHERS = 1. </P></LI></UL><P>*ENDFORM. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM END_OF_PAGE * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form end_of_page. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading6[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM END_OF_LIST * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form end_of_list. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading7[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>FORM TOP_OF_LIST * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><UL><LI level="1" type="ul"><P>........ * </P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="----------------------------------------------------------------" /> <P></P><P>form top_of_list. </P><P>call function 'REUSE_ALV_COMMENTARY_WRITE' </P><P>exporting </P><P>it_list_commentary = heading8[] </P><P>exceptions </P><P>others = 1. </P><P>endform. </P><P>*--- End of Program </P><P></P><P>If you need any other help in this please let me know.</P><P></P><P>Thanks &amp; Regards,</P><P>Dipika</P></BODY></HTML> Tue, 04 Dec 2007 07:42:51 GMT https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102074#M736128 Former Member 2007-12-04T07:42:51Z Re: regarding ALV OOPs https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102075#M736129 <HTML><HEAD></HEAD><BODY><P>Hi Naseer,</P><P></P><P>Check this program for your reference</P><P></P><PRE><CODE>REPORT ZTEST1234_ALV_TOP MESSAGE-ID ZZ . DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID. DATA: L_VALID TYPE C, V_FLAG, V_DATA_CHANGE, V_ROW TYPE LVC_S_ROW, V_COLUMN TYPE LVC_S_COL, V_ROW_NUM TYPE LVC_S_ROID. "The Below Definitions Must..... DATA: * Reference to document DG_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT, * Reference to split container DG_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER, * Reference to grid container DG_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER, * Reference to html container DG_HTML_CNTRL TYPE REF TO CL_GUI_HTML_VIEWER, * Reference to html container DG_PARENT_HTML TYPE REF TO CL_GUI_CONTAINER. "up to here *---------------------------------------------------------------------* * CLASS lcl_event_handler DEFINITION *---------------------------------------------------------------------* CLASS LCL_EVENT_HANDLER DEFINITION . PUBLIC SECTION . METHODS: **Hot spot Handler HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO, **Double Click Handler HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW E_COLUMN ES_ROW_NO, TOP_OF_PAGE FOR EVENT TOP_OF_PAGE "event handler OF CL_GUI_ALV_GRID IMPORTING E_DYNDOC_ID. ENDCLASS. "lcl_event_handler DEFINITION *---------------------------------------------------------------------* * CLASS lcl_event_handler IMPLEMENTATION *---------------------------------------------------------------------* CLASS LCL_EVENT_HANDLER IMPLEMENTATION. *Handle Hotspot Click METHOD HANDLE_HOTSPOT_CLICK . CLEAR: V_ROW,V_COLUMN,V_ROW_NUM. V_ROW = E_ROW_ID. V_COLUMN = E_COLUMN_ID. V_ROW_NUM = ES_ROW_NO. MESSAGE I000 WITH V_ROW 'clicked'. ENDMETHOD. "lcl_event_handler *Handle Double Click METHOD HANDLE_DOUBLE_CLICK. ENDMETHOD. "handle_double_click METHOD TOP_OF_PAGE. "implementation * Top-of-page event PERFORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID. ENDMETHOD. "top_of_page ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION *&amp;---------------------------------------------------------------------* *&amp; Global Definitions *&amp;---------------------------------------------------------------------* DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler DATA: OK_CODE LIKE SY-UCOMM, SAVE_OK LIKE SY-UCOMM, G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST', GS_LAYOUT TYPE LVC_S_LAYO. *- Fieldcatalog for First and second Report DATA: IT_FIELDCAT TYPE LVC_T_FCAT, X_FIELDCAT TYPE LVC_S_FCAT, LS_VARI TYPE DISVARIANT. *--------------------------------------------------------------------- * START-OF_SELECTION *--------------------------------------------------------------------- START-OF-SELECTION. DATA:BEGIN OF ITAB OCCURS 0, VBELN LIKE LIKP-VBELN, POSNR LIKE LIPS-POSNR, CELLCOLOR TYPE LVC_T_SCOL, "required for color DROP(10), END OF ITAB. SELECT VBELN POSNR FROM LIPS UP TO 20 ROWS INTO CORRESPONDING FIELDS OF TABLE ITAB. END-OF-SELECTION. IF NOT ITAB[] IS INITIAL. CALL SCREEN 100. ELSE. MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004). ENDIF. *&amp;---------------------------------------------------------------------* *&amp; Form CREATE_AND_INIT_ALV *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM CREATE_AND_INIT_ALV . DATA: LT_EXCLUDE TYPE UI_FUNCTIONS. "attention.....from here "split your container here...into two parts "create the container CREATE OBJECT G_CUSTOM_CONTAINER EXPORTING CONTAINER_NAME = G_CONTAINER1. "this is for top of page * Create TOP-Document CREATE OBJECT DG_DYNDOC_ID EXPORTING STYLE = 'ALV_GRID'. * Create Splitter for custom_container CREATE OBJECT DG_SPLITTER EXPORTING PARENT = G_CUSTOM_CONTAINER ROWS = 2 COLUMNS = 1. * Split the custom_container to two containers and move the reference * to receiving containers g_parent_html and g_parent_grid "i am allocating the space for grid and top of page CALL METHOD DG_SPLITTER-&gt;GET_CONTAINER EXPORTING ROW = 1 COLUMN = 1 RECEIVING CONTAINER = DG_PARENT_HTML. CALL METHOD DG_SPLITTER-&gt;GET_CONTAINER EXPORTING ROW = 2 COLUMN = 1 RECEIVING CONTAINER = DG_PARENT_GRID. "you can set the height of it * Set height for g_parent_html CALL METHOD DG_SPLITTER-&gt;SET_ROW_HEIGHT EXPORTING ID = 1 HEIGHT = 5. "from here as usual..you need to specify parent as splitter part "which we alloted for grid CREATE OBJECT G_GRID EXPORTING I_PARENT = DG_PARENT_GRID. * Set a titlebar for the grid control CLEAR GS_LAYOUT. GS_LAYOUT-GRID_TITLE = TEXT-003. GS_LAYOUT-ZEBRA = SPACE. GS_LAYOUT-CWIDTH_OPT = 'X'. GS_LAYOUT-NO_ROWMARK = 'X'. GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'. CALL METHOD G_GRID-&gt;REGISTER_EDIT_EVENT EXPORTING I_EVENT_ID = CL_GUI_ALV_GRID=&gt;MC_EVT_ENTER. CREATE OBJECT G_HANDLER. SET HANDLER G_HANDLER-&gt;HANDLE_DOUBLE_CLICK FOR G_GRID. SET HANDLER G_HANDLER-&gt;HANDLE_HOTSPOT_CLICK FOR G_GRID. SET HANDLER G_HANDLER-&gt;TOP_OF_PAGE FOR G_GRID. DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color DATA: L_INDEX TYPE SY-TABIX. "Here i am changing the color of line 1,5,10... "so you can change the color of font conditionally LOOP AT ITAB. L_INDEX = SY-TABIX. IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10. LS_CELLCOLOR-FNAME = 'VBELN'. LS_CELLCOLOR-COLOR-COL = '6'. LS_CELLCOLOR-COLOR-INT = '0'. LS_CELLCOLOR-COLOR-INV = '1'. APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR. MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR. LS_CELLCOLOR-FNAME = 'POSNR'. LS_CELLCOLOR-COLOR-COL = '6'. LS_CELLCOLOR-COLOR-INT = '0'. LS_CELLCOLOR-COLOR-INV = '1'. APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR. MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR. ENDIF. ENDLOOP. * setting focus for created grid control CALL METHOD CL_GUI_CONTROL=&gt;SET_FOCUS EXPORTING CONTROL = G_GRID. * Build fieldcat and set editable for date and reason code * edit enabled. Assign a handle for the dropdown listbox. PERFORM BUILD_FIELDCAT. PERFORM SET_DRDN_TABLE. * Optionally restrict generic functions to 'change only'. * (The user shall not be able to add new lines). PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE. **Vaiant to save the layout LS_VARI-REPORT = SY-REPID. LS_VARI-HANDLE = SPACE. LS_VARI-LOG_GROUP = SPACE. LS_VARI-USERNAME = SPACE. LS_VARI-VARIANT = SPACE. LS_VARI-TEXT = SPACE. LS_VARI-DEPENDVARS = SPACE. **Calling the Method for ALV output CALL METHOD G_GRID-&gt;SET_TABLE_FOR_FIRST_DISPLAY EXPORTING IT_TOOLBAR_EXCLUDING = LT_EXCLUDE IS_VARIANT = LS_VARI IS_LAYOUT = GS_LAYOUT I_SAVE = 'A' CHANGING IT_FIELDCATALOG = IT_FIELDCAT IT_OUTTAB = ITAB[]. "do these..{ * Initializing document CALL METHOD DG_DYNDOC_ID-&gt;INITIALIZE_DOCUMENT. * Processing events CALL METHOD G_GRID-&gt;LIST_PROCESSING_EVENTS EXPORTING I_EVENT_NAME = 'TOP_OF_PAGE' I_DYNDOC_ID = DG_DYNDOC_ID. "end } * Set editable cells to ready for input initially CALL METHOD G_GRID-&gt;SET_READY_FOR_INPUT EXPORTING I_READY_FOR_INPUT = 1. ENDFORM. "CREATE_AND_INIT_ALV *&amp;---------------------------------------------------------------------* *&amp; Form EXCLUDE_TB_FUNCTIONS *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --&gt;PT_EXCLUDE text *----------------------------------------------------------------------* FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS. * Only allow to change data not to create new entries (exclude * generic functions). DATA LS_EXCLUDE TYPE UI_FUNC. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_COPY_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_DELETE_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_APPEND_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_INSERT_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_MOVE_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_COPY. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_CUT. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_PASTE. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_PASTE_NEW_ROW. APPEND LS_EXCLUDE TO PT_EXCLUDE. LS_EXCLUDE = CL_GUI_ALV_GRID=&gt;MC_FC_LOC_UNDO. APPEND LS_EXCLUDE TO PT_EXCLUDE. ENDFORM. " EXCLUDE_TB_FUNCTIONS *&amp;---------------------------------------------------------------------* *&amp; Form build_fieldcat *&amp;---------------------------------------------------------------------* * Fieldcatalog *----------------------------------------------------------------------* FORM BUILD_FIELDCAT . DATA: L_POS TYPE I. L_POS = L_POS + 1. X_FIELDCAT-SCRTEXT_M = 'Delivery'(024). X_FIELDCAT-FIELDNAME = 'VBELN'. X_FIELDCAT-TABNAME = 'IT_FINAL'. X_FIELDCAT-COL_POS = L_POS. X_FIELDCAT-NO_ZERO = 'X'. X_FIELDCAT-OUTPUTLEN = '10'. X_FIELDCAT-HOTSPOT = 'X'. APPEND X_FIELDCAT TO IT_FIELDCAT. CLEAR X_FIELDCAT. L_POS = L_POS + 1. X_FIELDCAT-SCRTEXT_M = 'Item'(025). X_FIELDCAT-FIELDNAME = 'POSNR'. X_FIELDCAT-TABNAME = 'IT_FINAL'. X_FIELDCAT-COL_POS = L_POS. X_FIELDCAT-OUTPUTLEN = '5'. APPEND X_FIELDCAT TO IT_FIELDCAT. CLEAR X_FIELDCAT. L_POS = L_POS + 1. X_FIELDCAT-SCRTEXT_M = 'Drop'(025). X_FIELDCAT-FIELDNAME = 'DROP'. X_FIELDCAT-TABNAME = 'IT_FINAL'. X_FIELDCAT-COL_POS = L_POS. X_FIELDCAT-OUTPUTLEN = '5'. X_FIELDCAT-EDIT = 'X'. X_FIELDCAT-DRDN_HNDL = '1'. X_FIELDCAT-DRDN_ALIAS = 'X'. APPEND X_FIELDCAT TO IT_FIELDCAT. CLEAR X_FIELDCAT. ENDFORM. " build_fieldcat *&amp;---------------------------------------------------------------------* *&amp; Module STATUS_0100 OUTPUT *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE STATUS_0100 OUTPUT. SET PF-STATUS 'MAIN100'. SET TITLEBAR 'MAIN100'. IF G_CUSTOM_CONTAINER IS INITIAL. **Initializing the grid and calling the fm to Display the O/P PERFORM CREATE_AND_INIT_ALV. ENDIF. ENDMODULE. " STATUS_0100 OUTPUT *&amp;---------------------------------------------------------------------* *&amp; Module USER_COMMAND_0100 INPUT *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE USER_COMMAND_0100 INPUT. CASE SY-UCOMM. WHEN 'BACK'. LEAVE TO SCREEN 0. ENDCASE. ENDMODULE. " USER_COMMAND_0100 INPUT *&amp;---------------------------------------------------------------------* *&amp; Form SET_DRDN_TABLE *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM SET_DRDN_TABLE. DATA:LT_DRAL TYPE LVC_T_DRAL, LS_DRAL TYPE LVC_S_DRAL. LOOP AT ITAB . * First listbox (handle '1'). IF SY-INDEX = 1. LS_DRAL-HANDLE = '1'. LS_DRAL-VALUE = ' '. LS_DRAL-INT_VALUE = ' '. ELSE. LS_DRAL-HANDLE = '1'. LS_DRAL-VALUE = ITAB-POSNR. LS_DRAL-INT_VALUE = ITAB-POSNR. ENDIF. APPEND LS_DRAL TO LT_DRAL. ENDLOOP. **Setting the Drop down table for Reason Code CALL METHOD G_GRID-&gt;SET_DROP_DOWN_TABLE EXPORTING IT_DROP_DOWN_ALIAS = LT_DRAL. ENDFORM. " set_drdn_table *&amp;---------------------------------------------------------------------* *&amp; Form EVENT_TOP_OF_PAGE *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --&gt;DG_DYNDOC_ID text *----------------------------------------------------------------------* FORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT. "this is more clear.....check it "first add text, then pass it to comentry write fm DATA : DL_TEXT(255) TYPE C. "Text * Populating header to top-of-page CALL METHOD DG_DYNDOC_ID-&gt;ADD_TEXT EXPORTING TEXT = 'Test Report' SAP_STYLE = CL_DD_AREA=&gt;HEADING. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. CLEAR : DL_TEXT. * Move program ID CONCATENATE 'Program Name :' SY-REPID INTO DL_TEXT SEPARATED BY SPACE. * Add Program Name to Document PERFORM ADD_TEXT USING DL_TEXT. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. CLEAR : DL_TEXT. * Move User ID CONCATENATE 'User ID :' SY-UNAME INTO DL_TEXT SEPARATED BY SPACE . * Add User ID to Document PERFORM ADD_TEXT USING DL_TEXT. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. CLEAR : DL_TEXT. * Move Client CONCATENATE 'Client :' SY-MANDT INTO DL_TEXT SEPARATED BY SPACE. * Add Client to Document PERFORM ADD_TEXT USING DL_TEXT. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. CLEAR : DL_TEXT. * Move date WRITE SY-DATUM TO DL_TEXT. CONCATENATE 'Date :' DL_TEXT INTO DL_TEXT SEPARATED BY SPACE. * Add Date to Document PERFORM ADD_TEXT USING DL_TEXT. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. CLEAR : DL_TEXT. * Move time WRITE SY-UZEIT TO DL_TEXT. CONCATENATE 'Time :' DL_TEXT INTO DL_TEXT SEPARATED BY SPACE. * Add Time to Document PERFORM ADD_TEXT USING DL_TEXT. * Add new-line CALL METHOD DG_DYNDOC_ID-&gt;NEW_LINE. * Populating data to html control PERFORM HTML. ENDFORM. " EVENT_TOP_OF_PAGE *&amp;---------------------------------------------------------------------* *&amp; Form ADD_TEXT *&amp;---------------------------------------------------------------------* * To add Text *----------------------------------------------------------------------* FORM ADD_TEXT USING P_TEXT TYPE SDYDO_TEXT_ELEMENT. * Adding text CALL METHOD DG_DYNDOC_ID-&gt;ADD_TEXT EXPORTING TEXT = P_TEXT SAP_EMPHASIS = CL_DD_AREA=&gt;HEADING. ENDFORM. " ADD_TEXT *&amp;---------------------------------------------------------------------* *&amp; Form HTML *&amp;---------------------------------------------------------------------* * text *----------------------------------------------------------------------* FORM HTML. DATA : DL_LENGTH TYPE I, " Length DL_BACKGROUND_ID TYPE SDYDO_KEY VALUE SPACE. " Background_id * Creating html control IF DG_HTML_CNTRL IS INITIAL. CREATE OBJECT DG_HTML_CNTRL EXPORTING PARENT = DG_PARENT_HTML. ENDIF. * Reuse_alv_grid_commentary_set CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET' EXPORTING DOCUMENT = DG_DYNDOC_ID BOTTOM = SPACE IMPORTING LENGTH = DL_LENGTH. * Get TOP-&gt;HTML_TABLE ready CALL METHOD DG_DYNDOC_ID-&gt;MERGE_DOCUMENT. * Set wallpaper CALL METHOD DG_DYNDOC_ID-&gt;SET_DOCUMENT_BACKGROUND EXPORTING PICTURE_ID = DL_BACKGROUND_ID. * Connect TOP document to HTML-Control DG_DYNDOC_ID-&gt;HTML_CONTROL = DG_HTML_CNTRL. * Display TOP document CALL METHOD DG_DYNDOC_ID-&gt;DISPLAY_DOCUMENT EXPORTING REUSE_CONTROL = 'X' PARENT = DG_PARENT_HTML EXCEPTIONS HTML_DISPLAY_ERROR = 1. IF SY-SUBRC NE 0. MESSAGE I999 WITH 'Error in displaying top-of-page'(036). ENDIF. ENDFORM. " HTML</CODE></PRE><P></P><P>Regards,</P><P>Satish</P></BODY></HTML> Tue, 04 Dec 2007 07:44:53 GMT https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102075#M736129 Former Member 2007-12-04T07:44:53Z Re: regarding ALV OOPs https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102076#M736130 <HTML><HEAD></HEAD><BODY><P>Hi Nazeer,</P><P>Please see the code below and u will understand how to do it for application tool bar buttons.Copy paste and run it.</P><P>Please do reward uf useful.</P><P>Thankx.</P><P>report zakalv_oops.</P><P></P><P>data: it_mara type standard table of mara.</P><P>data : container type ref to cl_gui_custom_container,</P><P> grid type ref to cl_gui_alv_grid.</P><P>data: ok_code like sy-ucomm,</P><P> g_repid like sy-repid.</P><P>data: x_save, "for Parameter I_SAVE</P><P> gs_layout type disvariant. "for parameter IS_VARIANT</P><P></P><P></P><P>parameters: p_def default 'X' as checkbox. "set: default layout allowed</P><P></P><P>selection-screen begin of block vari with frame title text-002.</P><P>parameters: save_u radiobutton group save,</P><P> save_x radiobutton group save,</P><P> save_a radiobutton group save,</P><P> save_n radiobutton group save.</P><P>selection-screen end of block vari.</P><P></P><P></P><P>start-of-selection.</P><P></P><P> select * from mara into table it_mara up to 10 rows.</P><P></P><P>end-of-selection.</P><P></P><P> clear gs_layout.</P><P></P><UL><LI level="1" type="ul"><P>'gs_layout' must at least contain the report-id to allow</P></LI><LI level="1" type="ul"><P>saving a layout.</P></LI></UL><P> g_repid = sy-repid.</P><UL><LI level="1" type="ul"><P>§ 2.At least field REPORT of this structure has to be filled!</P></LI></UL><P> gs_layout-report = g_repid.</P><P></P><UL><LI level="1" type="ul"><P>§ 3.Determine saving options.</P></LI></UL><P> if save_a = 'X'.</P><P> x_save = 'A'. "The user may save all types of a layout</P><P> endif.</P><P> if save_x = 'X'.</P><P> x_save = 'X'. "a layout can only be saved as spanned one ('global')</P><P> endif.</P><P> if save_n = 'X'.</P><P> x_save = space. "no saving of a layout possible!</P><P> endif.</P><P> if save_u = 'X'.</P><P> x_save = 'U'. "a layout can only be saved as user specific one</P><P> endif.</P><P></P><P></P><P> call screen 100.</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> MODULE pbo_100 OUTPUT</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P>*</P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P>module pbo_100 output.</P><P></P><P> set pf-status 'MAIN100'.</P><P></P><P> set titlebar 'MAIN100'.</P><P></P><P> if container is initial.</P><P></P><P> create object container</P><P> exporting</P><UL><LI level="1" type="ul"><P> PARENT =</P></LI></UL><P> container_name = 'CONTAINER'</P><UL><LI level="1" type="ul"><P> STYLE =</P></LI><LI level="1" type="ul"><P> LIFETIME = lifetime_default</P></LI><LI level="1" type="ul"><P> REPID =</P></LI><LI level="1" type="ul"><P> DYNNR =</P></LI><LI level="1" type="ul"><P> NO_AUTODEF_PROGID_DYNNR =</P></LI></UL><P> exceptions</P><P> cntl_error = 1</P><P> cntl_system_error = 2</P><P> create_error = 3</P><P> lifetime_error = 4</P><P> lifetime_dynpro_dynpro_link = 5</P><P> others = 6</P><P> .</P><P> if sy-subrc &lt;&gt; 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></P><P> call function 'POPUP_TO_INFORM'</P><P> exporting</P><P> titel = g_repid</P><P> txt2 = sy-subrc</P><P> txt1 = 'The control could not be created'(510).</P><P> endif.</P><P></P><P> create object grid</P><P> exporting</P><UL><LI level="1" type="ul"><P> I_SHELLSTYLE = 0</P></LI><LI level="1" type="ul"><P> I_LIFETIME =</P></LI></UL><P> i_parent = container</P><UL><LI level="1" type="ul"><P> I_APPL_EVENTS = space</P></LI><LI level="1" type="ul"><P> I_PARENTDBG =</P></LI><LI level="1" type="ul"><P> I_APPLOGPARENT =</P></LI><LI level="1" type="ul"><P> I_GRAPHICSPARENT =</P></LI><LI level="1" type="ul"><P> I_NAME =</P></LI><LI level="1" type="ul"><P> I_FCAT_COMPLETE = SPACE</P></LI><LI level="1" type="ul"><P> EXCEPTIONS</P></LI><LI level="1" type="ul"><P> ERROR_CNTL_CREATE = 1</P></LI><LI level="1" type="ul"><P> ERROR_CNTL_INIT = 2</P></LI><LI level="1" type="ul"><P> ERROR_CNTL_LINK = 3</P></LI><LI level="1" type="ul"><P> ERROR_DP_CREATE = 4</P></LI><LI level="1" type="ul"><P> others = 5</P></LI></UL><P> .</P><P> if sy-subrc &lt;&gt; 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> call method grid-&gt;set_table_for_first_display</P><P> exporting</P><UL><LI level="1" type="ul"><P> I_BUFFER_ACTIVE =</P></LI><LI level="1" type="ul"><P> I_BYPASSING_BUFFER =</P></LI><LI level="1" type="ul"><P> I_CONSISTENCY_CHECK =</P></LI></UL><P> i_structure_name = 'MARA'</P><P> is_variant = gs_layout</P><P> i_save = x_save</P><P> i_default = p_def</P><UL><LI level="1" type="ul"><P> IS_LAYOUT =</P></LI><LI level="1" type="ul"><P> IS_PRINT =</P></LI><LI level="1" type="ul"><P> IT_SPECIAL_GROUPS =</P></LI><LI level="1" type="ul"><P> IT_TOOLBAR_EXCLUDING =</P></LI><LI level="1" type="ul"><P> IT_HYPERLINK =</P></LI><LI level="1" type="ul"><P> IT_ALV_GRAPHICS =</P></LI><LI level="1" type="ul"><P> IT_EXCEPT_QINFO =</P></LI><LI level="1" type="ul"><P> IR_SALV_ADAPTER =</P></LI></UL><P> changing</P><P> it_outtab = it_mara</P><UL><LI level="1" type="ul"><P> IT_FIELDCATALOG =</P></LI><LI level="1" type="ul"><P> IT_SORT =</P></LI><LI level="1" type="ul"><P> IT_FILTER =</P></LI><LI level="1" type="ul"><P> EXCEPTIONS</P></LI><LI level="1" type="ul"><P> INVALID_PARAMETER_COMBINATION = 1</P></LI><LI level="1" type="ul"><P> PROGRAM_ERROR = 2</P></LI><LI level="1" type="ul"><P> TOO_MANY_LINES = 3</P></LI><LI level="1" type="ul"><P> others = 4</P></LI></UL><P> .</P><P> if sy-subrc &lt;&gt; 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> endif.</P><P></P><P>endmodule. "pbo_100 OUTPUT</P><P></P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> MODULE user_command_0100 INPUT</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P>*</P><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P></P><P>module pai_100 input.</P><P></P><P></P><P> case ok_code.</P><P> when 'TO_EXIT'.</P><P> perform exit_program.</P><P></P><P> endcase.</P><P> clear ok_code.</P><P>endmodule. "PAI_100 INPUT</P><P></P><P>*&amp;----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><P>*&amp; Form exit_program</P><P>*&amp;----</P><HR originaltext="---------------------------------------------------------------" /><P>*</P><UL><LI level="1" type="ul"><P> text</P></LI></UL><P>*----</P><HR originaltext="----------------------------------------------------------------" /><P>*</P><P>form exit_program.</P><P> call method container-&gt;free.</P><UL><LI level="1" type="ul"><P> leave program.</P></LI></UL><P> leave to screen 0.</P><P>endform. "exit_program</P><P></P></BODY></HTML> Tue, 04 Dec 2007 09:13:43 GMT https://community.sap.com/t5/application-development-and-automation-discussions/regarding-alv-oops/m-p/3102076#M736130 Former Member 2007-12-04T09:13:43Z