**&---------------------------------------------------------------------*
**& Report ZTEST_GOS
**&---------------------------------------------------------------------*
**&
**&---------------------------------------------------------------------*
REPORT ztest_gos.
*
TABLES:borident.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS:
s_objkey FOR borident-objkey OBLIGATORY, "文件对象号
s_objtyp FOR borident-objtype DEFAULT 'BUS2012'. "对应的对象类型
SELECTION-SCREEN END OF BLOCK b1.
DATA refer TYPE REF TO cl_gos_document_service.
DATA: l_objectid TYPE bapiborid,
lt_relat TYPE TABLE OF bapirellk WITH HEADER LINE,
l_objdisp TYPE sood2,
lt_objcont TYPE TABLE OF soli,
lt_context LIKE sdokpropty OCCURS 0 WITH HEADER LINE,
loio_object LIKE sdokobject,