Examples of code ritten in includes in user exits

Question

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

Answer 1

               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.