How to Include in User exit

i want to include my BDC in that include INCLUDE ZXF04U01 for tcode XD01.
but parametrs , selection screen  and  form are not accepted. any other way to include my BDC in that include INCLUDE ZXF04U01. or do we have any standard BAPI for credit customer?
plz give step by step guide
ur rewarded.
regards
vinoth.v

Take it from calling stack.
DATA: GW_FIELD(60)   TYPE C,
        L_KLIMK        TYPE KNKA-KLIMK.
  FIELD-SYMBOLS: <GW_KLIMK_VAL> TYPE KNKA-KLIMK.
  CLEAR: GW_FIELD, L_KLIMK .
  MOVE '(SAPLXF04)KNKA-KLIMK' TO GW_FIELD.
  ASSIGN (GW_FIELD) TO <GW_KLIMK_VAL>.
  IF <GW_KLIMK_VAL> IS ASSIGNED.
    L_KLIMK  = <GW_KLIMK_VAL>.
  ENDIF.
Do the same stuff for KNKA-CTLPC.
G@urav.

Similar Messages

  • How to use/activate user exits

    Hi all,
    i wish to use user exit COZF0001...
    however i have no experience how to do it.  do i need an ABAPer or other consultant to do it or can i just activate it and make it work with minimal instructions?
    kindly give procedure/overview how to activate/use user exits.
    thanks in advance

    Hi Ramesh,
    Go to transaction CMOD . Create a project called ZVA01. Choose the Enhancement assign radio button and press the Change button. In the first column enter COZF0001.
    Note that an enhancement can only be used in 1 project. If the enhancement is already in use, and error message will be displayed
    Click on  Save . Go to Components. You can now see that enhancement uses the user exit EXIT_SAPLCOZF_001.  Double click on the exit and add your code.
    Activate the include program. Go back to CMOD and activate the project.
    -- Shivaji

  • HOW TO CREATE A USER-EXIT FOR MB31 GOODS RECEIPT

    Hy,
    <b>HOW TO CREATE A USER-EXIT FOR MB31</b>
    TO COMPARE ORDER QTY CONFIRMED AND GOODS RECEIPT QTY
    ( IF GR QTY GREATER THAN CONFIRMED QTY ERROR MESSAGE SHOULD COME AND NOT ALLOW TRANSCATION TO PROCEED).
    POINTS CONFIRMED.
    REGARDS,
    KARTIKEY.

    Hi Rawat,
       You Don't need to create User Exits,but you need to find user Exits.Below are list of user Exits for MB31.
    Use proper exit as per your requirement.
    Exit Name     Description
    MBCF0002     Customer function exit: Segment text in material doc. item
    MBCF0005     Material document item for goods receipt/issue slip
    MBCF0006     Customer function for WBS element
    MBCF0007     Customer function exit: Updating a reservation
    MBCF0009     Filling the storage location field
    MBCF0010     Customer exit: Create reservation BAPI_RESERVATION_CREATE1
    MBCF0011     Read from RESB and RKPF for print list in  MB26
    MB_CF001     Customer Function Exit in the Case of Updating a Mat. Doc.
    award points if ans is useful.
    Regards,
    Albert

  • How to find out user exit

    Hi All,
    How to find out User Exit in particular program.
    I mean if you have one profile, how to find is there any user exits in that program.
    Appreciate if any body tel answer.
    Thanks & Regards,
    Subbu

    You could try searching the main program for "userexit_"
    This would give you a list of all the available user exits within the application.
    For Customer exits, you could search SMOD with a short description ex: order in the F4 help. Another way is to search for CUSTOMER-FUNCTION in the main program. You can then navigate to the enhancement in the customer function and use the Z Program in the enhancement.
    http://www.easymarketplace.de/userexit.php - has a complete list.
    More specifically, in case you're looking for SD exits - http://help.sap.com/saphelp_46c/helpdata/en/1c/f62c7dd435d1118b3f0060b03ca329/content.htm.

  • How to find out user exits of t-code va03

    hi all
       how to find out user exits of any t-code .
    regards
    deepak

    Hi Deepak,
    <b>Try this code.</b>
    *& Report  Z_USEREXIT                                                  *
    REPORT  Z_USEREXIT
    NO STANDARD PAGE HEADING.
    *&  Enter the transaction code that you want to search through in order
    *&  to find which Standard SAP User Exits exists.
    *& Tables
    TABLES : tstc,     "SAP Transaction Codes
             tadir,    "Directory of Repository Objects
             modsapt,  "SAP Enhancements - Short Texts
             modact,   "Modifications
             trdir,    "System table TRDIR
             tfdir,    "Function Module
             enlfdir,  "Additional Attributes for Function Modules
             tstct.    "Transaction Code Texts
    *& Variables
    DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
    DATA : field1(30).
    DATA : v_devclass LIKE tadir-devclass.
    *& Selection Screen Parameters
    SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
    SELECTION-SCREEN SKIP.
    PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
    SELECTION-SCREEN SKIP.
    SELECTION-SCREEN END OF BLOCK a01.
    *& Start of main program
    START-OF-SELECTION.
    Validate Transaction Code
      SELECT SINGLE * FROM tstc
        WHERE tcode EQ p_tcode.
    Find Repository Objects for transaction code
      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 = enlfdir-area.
            MOVE : tadir-devclass TO v_devclass.
          ENDIF.
        ENDIF.
    Find SAP Modifactions
        SELECT * FROM tadir
          INTO TABLE jtab
          WHERE pgmid    = 'R3TR'
            AND object   = 'SMOD'
            AND devclass = v_devclass.
        SELECT SINGLE * FROM tstct
          WHERE sprsl EQ sy-langu
            AND tcode 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 modsapt
            WHERE sprsl = sy-langu AND
            name = 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.
    Take the user to SMOD for the Exit that was selected.
    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.
    <b>plz reward points if helpful or if it solves ur query.</b>
    Thanks
    Chinmay

  • How to find the user exits and BADIS from SPRO

    Hi all,
    please let us know how to find the User exits or BADIS for an application from SPRO.
    Regards,
    Madhavi

    Hi Varisetty,
    Finding user exits and BAdis from SPRO can be cumbsersome. In most instances you know the standard SAP program and want to check (find) an exit called in the flow of the transaction. You can do this as follows:
    For User Exit:
    Put "/h" in the command box (to start debugging)
    Execute your transaction
    When you enter debugging - put a breakpoint at statement
    CALL CUSTOMER-FUNCTION
    the control will stop at all calls to User Exits
    For BAdi (it's simpler)
    Go to class CL_EXITHANDLER in SE24
    Enter method GET_INSTANCE
    Put a breakpoint in this method
    Run your standard transaction - control will stop at all BAdis called within the flow since this method is used to check BAdi implementations before invoking them
    Also, if you want to find enhancements by package - go to SE80, enter the package and check function groups starting with X - those contain function exits (conventional user exits). For BAdis in a package, there is normally a separate tree node (under the package) for Enhancements hence clearly identifiable.
    Cheers,
    Adi

  • How to  find the user exit for a screen..

    Hi,
    plz help me how to find the user exit for a screen..?
    Regards
    Anbu

    Hi,
    check this program this will give you the list of user-exit and BADI for the perticular Tcode.
    REPORT  zuserexit_badi.
    TABLES : tstc,
    tadir,
    modsapt,
    modact,
    trdir,
    tfdir,
    enlfdir,
    sxs_attrt ,
    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,
    p_pgmna LIKE tstc-pgmna .
    DATA wa_tadir TYPE tadir.
    START-OF-SELECTION.
      IF NOT p_tcode IS INITIAL.
        SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
      ELSEIF NOT p_pgmna IS INITIAL.
        tstc-pgmna = p_pgmna.
      ENDIF.
      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 jtab
        WHERE pgmid = 'R3TR'
        AND object IN ('SMOD', 'SXSD')
        AND devclass = v_devclass.
        SELECT SINGLE * FROM tstct
        WHERE sprsl EQ sy-langu
        AND tcode 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:/(105) sy-uline.
          FORMAT COLOR COL_HEADING INTENSIFIED ON.
    Sorting the internal Table
          SORT jtab BY object.
          DATA : wf_txt(60) TYPE c,
          wf_smod TYPE i ,
          wf_badi TYPE i ,
          wf_object2(30) TYPE c.
          CLEAR : wf_smod, wf_badi , wf_object2.
    Get the total SMOD.
          LOOP AT jtab INTO wa_tadir.
            AT FIRST.
              FORMAT COLOR COL_HEADING INTENSIFIED ON.
              WRITE:/1 sy-vline,
              2 'Enhancement/ Business Add-in',
              41 sy-vline ,
              42 'Description',
              105 sy-vline.
              WRITE:/(105) sy-uline.
            ENDAT.
            CLEAR wf_txt.
            AT NEW object.
              IF wa_tadir-object = 'SMOD'.
                wf_object2 = 'Enhancement' .
              ELSEIF wa_tadir-object = 'SXSD'.
                wf_object2 = ' Business Add-in'.
              ENDIF.
              FORMAT COLOR COL_GROUP INTENSIFIED ON.
              WRITE:/1 sy-vline,
              2 wf_object2,
              105 sy-vline.
            ENDAT.
            CASE wa_tadir-object.
              WHEN 'SMOD'.
                wf_smod = wf_smod + 1.
                SELECT SINGLE modtext INTO wf_txt
                FROM modsapt
                WHERE sprsl = sy-langu
                AND name = wa_tadir-obj_name.
                FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
              WHEN 'SXSD'.
    For BADis
                wf_badi = wf_badi + 1 .
                SELECT SINGLE text INTO wf_txt
                FROM sxs_attrt
                WHERE sprsl = sy-langu
                AND exit_name = wa_tadir-obj_name.
                FORMAT COLOR COL_NORMAL INTENSIFIED ON.
            ENDCASE.
            WRITE:/1 sy-vline,
            2 wa_tadir-obj_name HOTSPOT ON,
            41 sy-vline ,
            42 wf_txt,
            105 sy-vline.
            AT END OF object.
              WRITE : /(105) sy-uline.
            ENDAT.
          ENDLOOP.
          WRITE:/(105) sy-uline.
          SKIP.
          FORMAT COLOR COL_TOTAL INTENSIFIED ON.
          WRITE:/ 'No.of Exits:' , wf_smod.
          WRITE:/ 'No.of BADis:' , wf_badi.
        ELSE.
          FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
          WRITE:/(105) 'No userexits or BADis exist'.
        ENDIF.
      ELSE.
        FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
        WRITE:/(105) 'Transaction does not exist'.
      ENDIF.
    AT LINE-SELECTION.
      DATA : wf_object TYPE tadir-object.
      CLEAR wf_object.
      GET CURSOR FIELD field1.
      CHECK field1(8) EQ 'WA_TADIR'.
      READ TABLE jtab WITH KEY obj_name = sy-lisel+1(20).
      MOVE jtab-object TO wf_object.
      CASE wf_object.
        WHEN 'SMOD'.
          SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
          CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
        WHEN 'SXSD'.
          SET PARAMETER ID 'EXN' FIELD sy-lisel+1(20).
          CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
      ENDCASE.
    Reagards,
    Bharat.

  • How to find the user exit for infotype 2013 ?

    Hi All,
    How to find the user exit in infotype 2013? i want to change the drop down list default value in infotype 2013.
    Thanks,
    Srikanth P

    reward points if useful
    User exit name is PBAS0001.
    code should be written in ZXPADU01 for PBO
    ZXPADU02 for PAI.

  • How do we handle User exits in XML Publisher

    Hi,
    Can anyone tell me how do we handle user exits in XML Publisher ?
    Thanks,
    Kiran.

    Do tyou mean the original Oracle Reports user exits ?
    If so then the flexfield ones are handled in the data template, check the user guide. Format currency should be called in the template layer. You do not need srw.init with data templates.
    Regards, Tim

  • How to find the user exits called at the time of posting the IDOC?

    Hi,
        Could anyone please how to find the user exits while posting a idoc?

    Hi,
    One way to ahive this is by, be ready with IDOC postiong,
    then go to ST05 transaction and activate the trace after checking Table Buffer Trace.
    Now post the IDOC then deactivate the trace.
    Now come back to ST05 and display trace and search for calls starts with EXIT_.
    Regards,
    Manoj Kumar P

  • Examples of code ritten in includes in user exits

    Can anyone send some examples on code written in includes of user exits.
                                       Thanks in advance

                   U S E R   E X I T   F O R   P A 0 0 0 8               *
    IF innnn-infty = '0008' AND
    ( ipsyst-ioper = 'INS' OR
       ipsyst-ioper = 'COP' ).
                 G L O B A L   D E C L A R A T I O N S                   *
      DATA:
          g_lga         TYPE lgart,      " Wagetype
          g_count(2)    TYPE n,
          g_cnt_blank(2) TYPE n,          " Record position for hrly WT
          g_cnt_hrly(2) TYPE n,          " Record position for hrly WT
          g_cnt_inc(2)  TYPE n,          " Record position for inc WT
          g_cnt_lng(2)  TYPE n,          " Record position for lng WT
          g_cnt_ret(2)  TYPE n,          " Record position for ret WT
          g_wtype(11)   TYPE c,          " Wage type
          g_wrate(11)   TYPE c,          " Wage rate
          g_ht510_rate  TYPE betrg,      " Default rate for WT0011 from T510
          g_maxrate_inc TYPE betrg,      " Maximum Incumbency Rate
          g_maxrate_lng TYPE betrg,      " Maximum Longevity Rate
          g_maxrate_ret TYPE betrg.      " Maximum Retention Rate
                      D A T A   D E C L A R A T I O N                    *
      DATA:
          it_9006       TYPE TABLE OF pa9006,
          st_9006       TYPE pa9006,
          i0008         TYPE p0008,
          st_grdcode    TYPE zthhr_grdcode.
                      F I E L D    S Y M B O L S                         *
      FIELD-SYMBOLS: <fs_wtype> TYPE ANY, " Used for Wage Type
                     <fs_wrate> TYPE ANY. " Used for Amount
                      C O N S T A N T S                                  *
      CONSTANTS:
        c_molga_10   type molga value '10',    " Country grp for US
        c_hlgar_0011 TYPE lgart VALUE '0011',  " Hourly Wage Type
        c_ilgar_0012 TYPE lgart VALUE '0012',  " Incumbent Wage Type
        c_llgar_0147 TYPE lgart VALUE '0147',  " Longevity Wage Type
        c_rlgar_01e0 TYPE lgart VALUE '01E0',  " Retention Wage Type
        c_subty_inc  TYPE subty VALUE '1',     " Subtype for Incumbency
        c_subty_lng  TYPE subty VALUE '4',     " Subtype for Longevity
        c_subty_ret  TYPE subty VALUE '5'.     " Subtype for Retention
                      P R O C E S S I N G                                *
    Typecast PRELP to PNNNN structure
      CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
        EXPORTING
          prelp = innnn
        IMPORTING
          pnnnn = i0008.
    Refresh & Clear Process variables.
      CLEAR:  g_lga, g_count, g_cnt_blank, g_cnt_hrly, g_cnt_inc,
              g_cnt_lng, g_cnt_ret, g_wtype, g_wrate, g_maxrate_inc,
              g_maxrate_lng, g_maxrate_ret.
    Populate all unexpired & applicable records of IT9006 of subtype:
    Incumbency, Longevity and Retention
      REFRESH: it_9006.
      SELECT * FROM pa9006 INTO TABLE it_9006
              WHERE pernr EQ i0008-pernr
                AND begda LE i0008-begda
                AND endda GE i0008-begda
                AND ( subty EQ c_subty_inc
                OR    subty EQ c_subty_lng
                OR    subty EQ c_subty_ret )
                AND zapplflg EQ 'X'.
    Sort IT9006 Table descending based on Amount
      SORT it_9006 BY zwage zaddamt DESCENDING.
    Check for validity of Pay Scale Group & Level
      SELECT * FROM zthhr_grdcode UP TO 1 ROWS
                      INTO st_grdcode
                     WHERE trfgr = i0008-trfgr
                       AND trfst = i0008-trfst.
      ENDSELECT.
      IF sy-subrc EQ 0.
      If valid, read the Maximum Incumbency Rate
        READ TABLE it_9006 INTO st_9006
                           WITH KEY zwage = c_ilgar_0012
                                    zgrdcode = st_grdcode-grdcode
                           TRANSPORTING zaddamt.
        IF sy-subrc EQ 0.
          g_maxrate_inc = st_9006-zaddamt.
        ENDIF.
      ENDIF.
    Get Max Longevity rate
      READ TABLE it_9006 INTO st_9006 WITH KEY zwage = c_llgar_0147
                         TRANSPORTING zaddamt. " to g_maxrate_inc.
      IF sy-subrc EQ 0.
        g_maxrate_lng = st_9006-zaddamt.
      ENDIF.
    Get Max Retention rate
      READ TABLE it_9006 INTO st_9006 WITH KEY zwage = c_rlgar_01e0
                         TRANSPORTING zaddamt. " to g_maxrate_inc.
      IF sy-subrc EQ 0.
        g_maxrate_ret = st_9006-zaddamt.
      ENDIF.
      CLEAR : g_count, g_cnt_blank, g_cnt_hrly, g_cnt_inc,
              g_cnt_lng, g_cnt_ret.
    Check Infotype 0008 Wagetype entries
      DO 40 TIMES
          VARYING g_lga FROM i0008-lga01 NEXT i0008-lga02.
        g_count = g_count + 1.
        IF NOT g_lga IS INITIAL.      " Fill max no of field filled
          g_cnt_blank = g_count.
        ENDIF.
        IF g_lga = c_hlgar_0011.      " Get Rec Pos for Hrly WT
          g_cnt_hrly = g_count.
        ELSEIF g_lga = c_ilgar_0012.  " Get Rec Pos for Inc WT
          g_cnt_inc = g_count.
        ELSEIF g_lga = c_llgar_0147.  " Get Rec Pos for Lng WT
          g_cnt_lng = g_count.
        ELSEIF g_lga = c_rlgar_01e0.  " Get Rec Pos for Ret WT
          g_cnt_ret = g_count.
        ENDIF.
      ENDDO.
      g_cnt_blank = g_cnt_blank + 1.  " Next Avl. Pos for WT entry
    Incumbency Processing
    0011 and 0012 both not found
      IF g_cnt_hrly = 0 AND  g_cnt_inc = 0.
    Do Nothing
    0011 Not found but 0012 found
      ELSEIF g_cnt_hrly = 0 AND  g_cnt_inc > 0.
        CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
        CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
        ASSIGN (g_wtype) TO <fs_wtype>.
        ASSIGN (g_wrate) TO <fs_wrate>.
        IF g_maxrate_inc <> 0.
          <fs_wtype> = c_ilgar_0012.
          <fs_wrate> = g_maxrate_inc.
        ELSE.
        If WT0012 has expired in IT9006, revert to WT0011 with
          default rate from T510
          <fs_wtype> = c_hlgar_0011.
          SELECT betrg FROM t510 UP TO 1 ROWS
                       INTO g_ht510_rate
                      WHERE molga = c_molga_10
                        AND trfar = i0008-trfar
                        AND trfgb = i0008-trfgb
                        AND trfgr = i0008-trfgr
                        AND trfst = i0008-trfst
                        AND lgart = c_hlgar_0011
                        AND begda LE i0008-begda
                        AND endda GE i0008-endda.
          ENDSELECT.
          IF sy-subrc = 0.
            <fs_wrate> = g_ht510_rate.
          ENDIF.
        ENDIF.
    0011 found but 0012 Not found
      ELSEIF g_cnt_hrly > 0 AND  g_cnt_inc = 0.
        IF g_maxrate_inc <> 0.
        Update 9006 amount if greater. And Replace 0011 with 0012
          CONCATENATE 'I0008-LGA' g_cnt_hrly INTO g_wtype.
          CONCATENATE 'I0008-BET' g_cnt_hrly INTO g_wrate.
          ASSIGN (g_wtype) TO <fs_wtype>.
          ASSIGN (g_wrate) TO <fs_wrate>.
          IF <fs_wrate> < g_maxrate_inc.
            <fs_wtype> = c_ilgar_0012.
            <fs_wrate> = g_maxrate_inc.
          ELSE.
          Do Nothing
          ENDIF.
        ELSE.
        Do Nothing
        ENDIF.
    0011 and 0012 both found
      ELSEIF g_cnt_hrly > 0 AND  g_cnt_inc > 0.
      Rate in IT9006 exists.
        IF g_maxrate_inc <> 0.
        Remove existing 0011
          CONCATENATE 'I0008-LGA' g_cnt_hrly INTO g_wtype.
          CONCATENATE 'I0008-BET' g_cnt_hrly INTO g_wrate.
          ASSIGN (g_wtype) TO <fs_wtype>.
          ASSIGN (g_wrate) TO <fs_wrate>.
        If hourly rate < Max Inc Rate, Clear Hrly WT & update WT0012
          IF <fs_wrate> LT g_maxrate_inc.
            CLEAR : <fs_wtype>, <fs_wrate>.
          Update existing 0012 with new amount
            CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
            CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
            ASSIGN (g_wtype) TO <fs_wtype>.
            ASSIGN (g_wrate) TO <fs_wrate>.
            <fs_wtype> = c_ilgar_0012.
            <fs_wrate> = g_maxrate_inc.
        If hourly rate > Max Inc Rate, clear WT0012
          ELSE.
            CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
            CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
            ASSIGN (g_wtype) TO <fs_wtype>.
            ASSIGN (g_wrate) TO <fs_wrate>.
            CLEAR : <fs_wtype>, <fs_wrate>.
          ENDIF.
      Rate in IT9006 do not exists.
        ELSE.
        Let 0011 be there but remove 0012.
          CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
          CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
          ASSIGN (g_wtype) TO <fs_wtype>.
          ASSIGN (g_wrate) TO <fs_wrate>.
          CLEAR : <fs_wtype>, <fs_wrate>.
        ENDIF.
      ENDIF.
    Longevity Processing
    Wage type 0147 already exists
      IF g_cnt_lng > 0.
        CONCATENATE 'I0008-LGA' g_cnt_lng INTO g_wtype.
        CONCATENATE 'I0008-BET' g_cnt_lng INTO g_wrate.
        ASSIGN (g_wtype) TO <fs_wtype>.
        ASSIGN (g_wrate) TO <fs_wrate>.
      IT9006 contains the rate.
        IF g_maxrate_lng > 0.
        Update the existing amount
          <fs_wtype> = c_llgar_0147.
          <fs_wrate> = g_maxrate_lng.
        ELSE.
        Remove Wage Type 0147
          CLEAR <fs_wtype>.
          CLEAR <fs_wrate>.
        ENDIF.
    Currently no 0147 exists
      ELSE.
      IT9006 contains the rate.
        IF g_maxrate_lng > 0.
        Add 0147 with amount
          CONCATENATE 'I0008-LGA' g_cnt_blank INTO g_wtype.
          CONCATENATE 'I0008-BET' g_cnt_blank INTO g_wrate.
          ASSIGN (g_wtype) TO <fs_wtype>.
          ASSIGN (g_wrate) TO <fs_wrate>.
          <fs_wtype> = c_llgar_0147.
          <fs_wrate> = g_maxrate_lng.
          g_cnt_blank = g_cnt_blank + 1.
      IT9006 does not contain the rate.
        ELSE.
        Do Nothing
        ENDIF.
      ENDIF.
    Retention Processing
    Wage type 01E0 already exists
      IF g_cnt_ret > 0.
        CONCATENATE 'I0008-LGA' g_cnt_ret INTO g_wtype.
        CONCATENATE 'I0008-BET' g_cnt_ret INTO g_wrate.
        ASSIGN (g_wtype) TO <fs_wtype>.
        ASSIGN (g_wrate) TO <fs_wrate>.
      IT9006 contains the rate.
        IF g_maxrate_ret > 0.
        Update the existing amount
          <fs_wtype> = c_rlgar_01e0.
          <fs_wrate> = g_maxrate_ret.
        ELSE.
        Remove Wage Type 01E0
          CLEAR <fs_wtype>.
          CLEAR <fs_wrate>.
        ENDIF.
    Currently no 01E0 exists
      ELSE.
      IT9006 contains the rate.
        IF g_maxrate_ret > 0.
        Add 01E0 with amount
          CONCATENATE 'I0008-LGA' g_cnt_blank INTO g_wtype.
          CONCATENATE 'I0008-BET' g_cnt_blank INTO g_wrate.
          ASSIGN (g_wtype) TO <fs_wtype>.
          ASSIGN (g_wrate) TO <fs_wrate>.
          <fs_wtype> = c_rlgar_01e0.
          <fs_wrate> = g_maxrate_ret.
          g_cnt_blank = g_cnt_blank + 1.
      IT9006 does not contain the rate.
        ELSE.
        Do Nothing
        ENDIF.
      ENDIF.
    Typecast the PNNNN to PRELP structure
      CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_prelp
        EXPORTING
          pnnnn = i0008
        IMPORTING
          prelp = innnn.
    Show Data Again Switch to display the field values again
      show_data_again = 'X'.
    ENDIF.

  • How to write include in user exit userexit_save_document

    when i am trying to insert a inlcude in the exit userexit_save_document. i am getting error.
    i ahve written a statement 'include 'Zabcd' inside the user exit.
    doubl clicked on the include->system asked to create a new include-> opted for yes-> an editor came inc hange mode-> i ahve witten the statements form test. endform.
    when i am trying to activate my include 'Zabcd' ,,  ia m getting an error. "the corresponding form should have an edform"
    i cant proceed , it is beyond my imagination
    can some help me out of this situation.
    Best Regards
    Amarender Reddy B

    So you have
    FORM userexit_save_document.
    INCLUDE zabcd.
    ENDFORM.
    And your include contains
    FORM myform.
    ENDFORM.
    Include just inserts source code at the INCLUDE point, so effectively you've written:
    FORM userexit_save_document.
    FORM myform.
    ENDFORM.
    ENDFORM.
    Now do you see the problem?
    matt

  • How To Find A user Exit ...........??

    hello
    experts how can i find a user exit which is not found in a the table modsap??actualy how can i find the include name in SAP standard program if i don get the exit name in table modsap for userexit??
    plz reply
    thanx

    HOW TO FIND USEREXITS
    Hello,
    To add to the above points --->
    1) Option 1 : you don't know the name or dont have any info on user exit
    run T-code : SPRO
    SPRO -> Click SAP Reference IMG -> click in the relevant module eg: SD (sales and Distribution) ->System Modifications -> User exits
    You can view documentation to understand the purpose of that user exit
    It is not that always one can find the user exits under the name "System modifications" but with respect to a module definitely user exits can be found under that module in SPRO
    2) Option 2 : You know the name of the user exit
    Run Tcode : SMOD -> fill in the enhancement name-> click on attributes and then components or directly on components and view the include...if already a code is written in the include,then on double click of include you can see the code...if an existing code is not there and you double click on the include,SAP prompts for a request
    3)Option3: You can use the custom code..which was contributed to SDN
    Create a new report program -> copy the code -> activate -> run
    on the p_tcode : give the name of the tcode for which you need to find the user exits and execute...a list of exits will be displayed...double click and follow the link
    **********************************ABAP CODE :***********************************
    report 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 jtab
    where pgmid = 'R3TR'
    and object = 'SMOD'
    and devclass = v_devclass.
    select single * from tstct where sprsl eq sy-langu and
    tcode 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 modsapt
    where sprsl = sy-langu and
    name = 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.
    Thanks

  • How to find implemented user exits

    Hi,
    How to find out which user exits have been implemented foe a transaction. Lets say VA01.
    I have to check the user exits implemented.
    Kindly help.
    Moderator Message: FAQ. Please search before posting your question. Thread locked.
    Edited by: Suhas Saha on Jan 5, 2012 7:37 PM

    Hi,
    You can find old user-exits (include based) by checking the includes in package VMOD using tranaction SE80.
    Additionally you should also check implemented SMOD customer exits using transaction CMOD.
    You can check also BAdIs and enhancement points included in package VA_BADI.
    If there are any modifications made directly to standard SAP coding, you can find then using transaction SE95.
    Regards,
    Marcin

  • How to include input user parameter values in XML report output?

    How can i include input user parameter values in XML report output. I a have a report which can be run by providing start date and end date. I would like to include value of these parameters in XML output to enable me to figure out dates for report, just by looking at XML output.
    Rgds,
    manish

    I think all the XML attributes can contain lexicals. If you bring up the property palette against the report object you can just set the following:
    XML Tag Attributes: myParameter="&<P_1>"
    where P_1 is your user parameter.

Maybe you are looking for