HR Relationships in Organizational Management of HCM Module.

Tcode to maintain relationship is Po13
Relationship Table is  HRP1001.
Relationship description table is HRP1000
Organization Structure  Tcode is PPom_old

Po13

Position to Org unit Relationship:

CALL FUNCTION 'RH_PM_ENQUEUE'
    EXPORTING
      act_plvar              = '01'
      act_otype              = 'S'
      act_objid              = w_objid
   EXCEPTIONS
     ERROR_IN_ENQUEUE       = 1
     OTHERS                 = 2.
  IF sy-subrc = 0.

DATA : ls_1001    TYPE p1001.

CLEAR ls_1001.
  ls_1001-OTYPE = 'S'.
  ls_1001-OBJID = w_objid.
  ls_1001-PLVAR = '01'.
  ls_1001-RSIGN = 'A'.
  ls_1001-RELAT = '003'.
  ls_1001-ISTAT = '1'.
  ls_1001-BEGDA = s_date.
  ls_1001-ENDDA = '99993112'.
  ls_1001-INFTY = '1001'.
  ls_1001-SCLAS = 'O'.
  ls_1001-SOBID = wa_hrp1000-objid.

 CALL FUNCTION 'RH_PNNNN_MAINTAIN'
      EXPORTING
        act_fcode                   = 'INSE'
        ACT_PLVAR                   = '01'
        act_otype                   = 'S'
        act_objid                   = w_objid
        ACT_INFTY                   = '1001'
        ACT_SUBTY                   = 'A003'
       ACT_ISTAT                   = '1'
       ACT_BEGDA                   = s_date
       ACT_ENDDA                   = '99991231'
        ACT_PNNNN                   = ls_1001
       ACT_VTASK                   = 'S'
       ACT_COMMIT_FLG              = 'X'
       SUPPRESS_DIALOG             = 2
     EXCEPTIONS
       INFTY_NOT_VALID             = 1
       NO_PLVAR                    = 2
       OBJECT_NOT_DEFINED          = 3
       OTYPE_NOT_VALID             = 4
       NO_AUTHORITY                = 5
       ACTION_REJECTED             = 6
       NO_GDATE                    = 7
       FCODE_NOT_SUPPORTED         = 8
       OTHERS                      = 9.
    IF sy-subrc = 0.
    endif.
clear :  ls_1001.


CALL FUNCTION 'RH_PM_DEQUEUE'
    EXPORTING
      act_plvar       = '01'
      act_otype       = 'S'
      act_objid       = w_objid.


endif.