Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DATA:
- lw_appraiser TYPE hrhap_apper
- ,lw_couch TYPE hrhap_others
- ,lw_actor TYPE swhactor
- , test_objid TYPE p1001-objid.
- DATA: lt_1001 TYPE TABLE OF p1001,
- lw_1001 TYPE p1001,
- lv_pernr TYPE prelp-pernr.
- FIELD-SYMBOLS: <fs_cont> TYPE swcont.
- READ TABLE ac_container ASSIGNING <fs_cont> WITH KEY element = 'TEST_OBJID'.
- test_objid = <fs_cont>-value.
- CALL FUNCTION 'RH_READ_INFTY_1001'
- EXPORTING
- plvar = '01'
- otype = 'S'
- objid = test_objid
- istat = '1'
- begda = '19000101'
- endda = '99991231'
- TABLES
- i1001 = lt_1001
- * OBJECTS =
- EXCEPTIONS
- nothing_found = 1
- wrong_condition = 2
- wrong_parameters = 3
- OTHERS = 4.
- IF sy-subrc <> 0.
- * Implement suitable error handling here
- ENDIF.
- IF lt_1001 IS NOT INITIAL.
- LOOP AT lt_1001 INTO lw_1001 WHERE relat = 'ZZ1'.
- lv_pernr = lw_1001-sobid.
- CLEAR lw_actor.
- lw_actor-otype = 'US'.
- lw_actor-objid = zcl_demo_utility=>get_userid( lv_pernr = lv_pernr ).
- APPEND lw_actor TO actor_tab.
- ENDLOOP.
- ENDIF.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement