|
*----------------------------------------------------------------------*
|
***INCLUDE LYCOCATSWBSPERNRF01.
|
*----------------------------------------------------------------------*
|
* Event AA
|
FORM zz_get_pa0002_fullname.
|
|
TYPES BEGIN OF struc_type.
|
INCLUDE STRUCTURE ycom_catswbs.
|
TYPES action(1).
|
TYPES mark(1).
|
TYPES END OF struc_type.
|
|
FIELD-SYMBOLS TYPE struc_type.
|
|
*** Einlesen der Daten
|
PERFORM get_data_ycom_catswbs.
|
|
*** mit PA0001-Ename ergänzen
|
LOOP AT total ASSIGNING .
|
IF -ename IS INITIAL.
|
SELECT SINGLE ename FROM pa0001 INTO -ename WHERE
|
pernr = -pernr AND
|
endda GE sy-datum AND
|
begda LE sy-datum.
|
ENDIF.
|
ENDLOOP.
|
|
ENDFORM.
|
|
* Event 05
|
FORM zz_put_pa0002_fullname.
|
|
IF ycom_catswbs-ename IS INITIAL.
|
SELECT SINGLE ename FROM pa0001 INTO ycom_catswbs-ename WHERE
|
pernr = ycom_catswbs-pernr AND
|
endda GE sy-datum AND
|
begda LE sy-datum.
|
ENDIF.
|
|
ENDFORM.
|
|
