DATA: V_OWN_LOGSYS  TYPE LOGSYS,
      V_OBJECTID TYPE BAPIBORID.
DATA: LT_RELATIONS TYPE TABLE OF BAPIRELLK,
      WA_RELATION TYPE BAPIRELLK.
DATA: T_OBJCONT TYPE TABLE OF SOLI WITH HEADER LINE.

PARAMETERS: P_OBJKEY TYPE EKKO-EBELN.

INITIALIZATION.
  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      OWN_LOGICAL_SYSTEM             = V_OWN_LOGSYS
    EXCEPTIONS
      OWN_LOGICAL_SYSTEM_NOT_DEFINED = 1
      OTHERS                         = 2.

START-OF-SELECTION.
  V_OBJECTID-OBJKEY  = P_OBJKEY.
  V_OBJECTID-OBJTYPE = 'BUS2012'. " Purchase order
  V_OBJECTID-LOGSYS  = V_OWN_LOGSYS.

* Get relations
  CALL FUNCTION 'BAPI_REL_GETRELATIONS'
    EXPORTING
      OBJECTID        = V_OBJECTID
    TABLES
      LISTOFRELATIONS = LT_RELATIONS.

* Read notes
  LOOP AT LT_RELATIONS INTO WA_RELATION
    WHERE RELTYPE = 'NOTE'.
    REFRESH T_OBJCONT.
    CALL FUNCTION 'SO_OBJECT_READ'
      EXPORTING
        FOLDER_ID = WA_RELATION-OBJKEY_B(17)
        OBJECT_ID = WA_RELATION-OBJKEY_B+17(17)
      TABLES
        OBJCONT   = T_OBJCONT.
    READ TABLE T_OBJCONT INDEX 1.
    WRITE T_OBJCONT.
  ENDLOOP.