Link zwischen Objekt und GOS Dokument

Code: Alles auswählen.

   " Root-Folder der GOS ermitteln
   CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
     EXPORTING
       region    = 'B'
     IMPORTING
       folder_id = data(folder).

Code: Alles auswählen.

TYPES
   : BEGIN OF gys_key
   ,   foltp TYPE so_fol_tp
   ,   folyr TYPE so_fol_yr
   ,   folno TYPE so_fol_no
   ,   objtp TYPE so_obj_tp
   ,   objyr TYPE so_obj_yr
   ,   objno TYPE so_obj_no
   ,   forwarder TYPE so_usr_nam
   , END OF gys_key
   .
DATA mykey      TYPE gys_key.

mykey-foltp =folder-objtp.
mykey-folyr = folder-objyr.
mykey-folno = folder-objno.

mykey-objtp = <hier Objekttyp eintragen, z.B. 'EXT'>.
mykey-objyr = <hier Objektjahr eintragen, z.B. '41'>.
mykey-objno = <hier Objektnummer eintragen, z.B. '000000000024'>.

DATA
  : instid_b    LIKE srgbtbrel-instid_b
  , rels        TYPE srgbtbrel
  .
instid_b = mykey.

SELECT SINGLE *
  INTO rels
  FROM  srgbtbrel
  WHERE instid_b = instid_b.
IF sy-subrc = 0.
  " Fertig
  "   rels-instid_a => Objekt
  "   rels-typeid_a => Objekttyp
  "   rels-catid_a  => Typkategorie (BO = Businessobjekt
ENDIF.