Skip to Content
0
Former Member
Apr 28, 2009 at 03:25 PM

Whats the best way to read wage types?

68 Views

Currently i am doing something like this

&----


*& Form READ_LGART_BETRG

&----


  • Read benefit deduction wage type and corresponding amount

----


  • -->LW_RT RT record work area

  • <--LW_OUTPUT Output data work area

  • <--LV_WT_FOUND Indicator for finding a benefit deduction wage type

----


FORM read_lgart_betrg USING lw_rt TYPE pc207

CHANGING lw_output TYPE t_output_temp

lv_wt_found TYPE flag.

IF lw_rt-lgart IN r_lgart1.

lw_output-lgart1 = lw_rt-lgart.

lw_output-betrg1 = lw_output-betrg1 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart2.

lw_output-lgart2 = lw_rt-lgart.

lw_output-betrg2 = lw_output-betrg2 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart3.

lw_output-lgart3 = lw_rt-lgart.

lw_output-betrg3 = lw_output-betrg3 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart4.

lw_output-lgart4 = lw_rt-lgart.

lw_output-betrg4 = lw_output-betrg4 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart5.

lw_output-lgart5 = lw_rt-lgart.

lw_output-betrg5 = lw_output-betrg5 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart6.

lw_output-lgart6 = lw_rt-lgart.

lw_output-betrg6 = lw_output-betrg6 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart7.

lw_output-lgart7 = lw_rt-lgart.

lw_output-betrg7 = lw_output-betrg7 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart8.

lw_output-lgart8 = lw_rt-lgart.

lw_output-betrg8 = lw_output-betrg8 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart9.

lw_output-lgart9 = lw_rt-lgart.

lw_output-betrg9 = lw_output-betrg9 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart10.

lw_output-lgart10 = lw_rt-lgart.

lw_output-betrg10 = lw_output-betrg10 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart11.

lw_output-lgart11 = lw_rt-lgart.

lw_output-betrg11 = lw_output-betrg11 + lw_rt-betrg.

v_wt_found = c_not_init.

ELSEIF lw_rt-lgart IN r_lgart12.

lw_output-lgart12 = lw_rt-lgart.

lw_output-betrg12 = lw_output-betrg12 + lw_rt-betrg.

v_wt_found = c_not_init.

ENDIF.

ENDFORM.