Tuesday, October 16, 2007
SAP Badi program
DEFINING THE BADI1) execute Tcode SE18.2) Specify a definition Name : ZBADI_SPFLI3) Press create4) Choose the attribute tab. Specify short desc for badi.. and specify the type : multiple use.5) Choose the interface tab6) Specify interface name: ZIF_EX_BADI_SPFLI and save.7) Dbl clk on interface name to start class builder . specify a method name (name, level, desc).Method level descLinese;ection instance methos some desc8) place the cursor on the method name desc its parameters to define the interface.Parameter type refe field descI_carrid import spfli-carrid someI_connid import spefi-connid some9) save , check and activate…adapter class proposed by system is ZCL_IM_IM_LINESEL is genereated.IMPLEMENTATION OF BADI DEFINITION 1) EXECUTE tcode se18.choose menuitem create from the implementation menubar.2) Specify aname for implementation ZIM_LINESEL3) Specify short desc.4) Choose interface tab. System proposes a name fo the implementation class. ZCL_IM_IMLINESEL which is already generarted.5) Specify short desc for method6) Dbl clk on method to insert code..(check the code in “AAA”).7) Save , check and activate the code.Now write a sample program to use this badi method..Look for “BBB” sample program.“AAA”data : wa_flights type sflight,it_flights type table of sflight.format color col_heading.write:/ 'Flight info of:', i_carrid, i_connid.format color col_normal.select * from sflightinto corresponding fields of table it_flightswhere carrid = i_carridand connid = i_connid.loop at it_flights into wa_flights.write:/ wa_flights-fldate,wa_flights-planetype,wa_flights-price currency wa_flights-currency,wa_flights-seatsmax,wa_flights-seatsocc.endloop.“BBB”*&---------------------------------------------------------------------**& Report ZBADI_TEST **& **&---------------------------------------------------------------------**& **& **&---------------------------------------------------------------------*REPORT ZBADI_TEST .tables: spfli.data: wa_spfli type spfli,it_spfli type table of spfli with key carrid connid.*Initialise the object of the interface.data: exit_ref type ref to ZCL_IM_IM_LINESEL,exit_ref1 type ref to ZIF_EX_BADISPFLI1.selection-screen begin of block b1.select-options: s_carr for spfli-carrid.selection-screen end of block b1.start-of-selection.select * from spfli into corresponding fields of table it_spfliwhere carrid in s_carr.end-of-selection.loop at it_spfli into wa_spfli.write:/ wa_spfli-carrid,wa_spfli-connid,wa_spfli-cityfrom,wa_spfli-deptime,wa_spfli-arrtime.hide: wa_spfli-carrid, wa_spfli-connid.endloop.at line-selection.check not wa_spfli-carrid is initial.create object exit_ref.exit_ref1 = exit_ref.call method exit_ref1->lineselectionEXPORTINGi_carrid = wa_spfli-carridi_connid = wa_spfli-connid.clear wa_spfli.
Subscribe to:
Comments (Atom)
