SAP HR 組織ID 搜索幫助

  CLEAR:S_ORGEH.
DATA: sel_object TYPE objec,
      sel_hrobject_tab LIKE hrobject OCCURS 0 WITH HEADER LINE.

  CALL FUNCTION 'RH_OBJID_REQUEST'
    EXPORTING
      plvar            = '01'
      otype            = 'O'
      seark_begda      = sy-datum
      seark_endda      = sy-datum
      set_mode         = 'X'
      orgbeg           = sy-datum
      orgend           = sy-datum
    IMPORTING
      sel_object       = sel_object
    TABLES
      sel_hrobject_tab = sel_hrobject_tab
    EXCEPTIONS
      cancelled        = 1
      wrong_condition  = 2
      nothing_found    = 3
      internal_error   = 4
      illegal_mode     = 5
      OTHERS           = 6.
  IF sy-subrc EQ 0.
    LOOP AT sel_hrobject_tab.
      S_ORGEH-low = sel_hrobject_tab-objid.
      APPEND S_ORGEH.
    ENDLOOP.
  ENDIF.