Experts,
This is the first ever ABAP HR program I am writing for Employee travel records... Please look at the below code and be my critics. Also, The pernrs of infotype p0000 are never matching with thoase of p0017. They are different by 1 number. (ex: p0000-pernr = 5000 and p0017-pernr = 5001). For this reason I am not able to figure whether an employee has travel privileges. Any suggestions will be gratefully appreciated...
GET pernr.
CLEAR p0000.
rp-provide-from-last p0000 space pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0000 TO i_pa0000.
APPEND i_pa0000.
CLEAR i_pa0000.
ENDIF.
CLEAR p0001.
rp-provide-from-last p0001 space pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0001 TO i_pa0001.
APPEND i_pa0001.
CLEAR i_pa0001.
ENDIF.
CLEAR p0002.
rp-provide-from-last p0002 space pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0002 TO i_pa0002.
APPEND i_pa0002.
CLEAR i_pa0002.
ENDIF.
rp-provide-from-last p0006 space pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0006 TO i_pa0006.
APPEND i_pa0006.
CLEAR i_pa0006.
ENDIF.
rp-provide-from-last p0017 space pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0017 TO i_pa0017.
APPEND i_pa0017.
CLEAR i_pa0017.
REJECT.
ENDIF.
rp-provide-from-last p0105 '11' pn-begda pn-endda.
IF pnp-sw-found NE '1'.
REJECT.
ELSE.
MOVE p0105 TO i_pa0105.
APPEND i_pa0105.
CLEAR i_pa0105.
ENDIF.