Thursday, May 8, 2008

User Exits

1.1. Introduction2. How to find user exits3. Using Project management of SAP Enhancements
1. IntroductionUser exits (Function module exits) are exits developed by SAP. The exit is implementerd as a call to a functionmodule. The code for the function module is writeen by the developer. You are not writing the code directly in the function module, but in the include that is implemented in the function module.
The naming standard of function modules for functionmodule exits is: EXIT_<3>The call to a functionmodule exit is implemented as: CALL CUSTOMER.-FUNCTION <3>Example:The program for transaction VA01 Create salesorder is SAPMV45AIf you search for CALL CUSTOMER-FUNCTION i program SAPMV45A you will find ( Among other user exits):CALL CUSTOMER-FUNCTION '003'exportingxvbak = vbakxvbuk = vbukxkomk = tkomkimportinglvf_subrc = lvf_subrctablesxvbfa = xvbfaxvbap = xvbapxvbup = xvbup.The exit calls function module EXIT_SAPMV45A_003
2. How to find user exitsDisplay the program where you are searching for and exit and search for CALL CUSTOMER-EXITIf you know the Exit name, go to transaction CMOD. Choose menu Utillities->SAP Enhancements. Enter the exit name and press enter.You will now come to a screen that shows the function module exits for the exit.3. Using Project management of SAP EnhancementsWe want to create a project to enahance trasnaction VA01Go to transaction CMODCreate a project called ZVA01Choose the Enhancement assign radio button and press the Change buttonIn the first column enter V45A0002 Predefine sold-to party in sales document . Note that an enhancement can only be used i 1 project. If the enhancement is allready in use, and error message will be displayedPress SavePress Components. You can now see that enhancement uses user exit EXIT_SAPMV45A_002. Double click on the exit.Now the function module is displayed. Double click on include ZXVVAU04 in the function moduleInsert the following code into the include: E_KUNNR = '2155'.Activate the include program. Go back to CMOD and activate the project. Goto transaction VA01 and craete a salesorder. Note that Sold-to-party now automatically is "2155"
2.Finding the user-exits of a SAP transaction codereport zuserexit no standard page heading.tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.tables : tstct.data : jtab like tadir occurs 0 with header line.data : field1(30).data : v_devclass like tadir-devclass.parameters : p_tcode like tstc-tcode obligatory.select single * from tstc where tcode eq p_tcode.if sy-subrc eq 0.select single * from tadir where pgmid = 'R3TR'and object = 'PROG'and obj_name = tstc-pgmna.move : tadir-devclass to v_devclass.if sy-subrc ne 0.select single * from trdir where name = tstc-pgmna.if trdir-subc eq 'F'.select single * from tfdir where pname = tstc-pgmna.select single * from enlfdir where funcname =tfdir-funcname.select single * from tadir where pgmid = 'R3TR'and object = 'FUGR'and obj_name eq enlfdir-area.move : tadir-devclass to v_devclass.endif.endif.select * from tadir into table jtabwhere pgmid = 'R3TR'and object = 'SMOD'and devclass = v_devclass.select single * from tstct where sprsl eq sy-langu andtcode eq p_tcode.format color col_positive intensified off.write:/(19) 'Transaction Code - ',20(20) p_tcode,45(50) tstct-ttext.skip.if not jtab[] is initial.write:/(95) sy-uline.format color col_heading intensified on.write:/1 sy-vline,2 'Exit Name',21 sy-vline ,22 'Description',95 sy-vline.write:/(95) sy-uline.loop at jtab.select single * from modsaptwhere sprsl = sy-langu andname = jtab-obj_name.format color col_normal intensified off.write:/1 sy-vline,2 jtab-obj_name hotspot on,21 sy-vline ,22 modsapt-modtext,95 sy-vline.endloop.write:/(95) sy-uline.describe table jtab.skip.format color col_total intensified on.write:/ 'No of Exits:' , sy-tfill.else.format color col_negative intensified on.write:/(95) 'No User Exit exists'.endif.else.format color col_negative intensified on.write:/(95) 'Transaction Code Does Not Exist'.endif.at line-selection.get cursor field field1.check field1(4) eq 'JTAB'.set parameter id 'MON' field sy-lisel+1(10).call transaction 'SMOD' and skip first screen.*---End of Program

No comments: