How to attach documents to any custom program using Generic Object Services

作者：郑德鼎约 4 分钟阅读更新日期：2024-02-22 2 年前更新标签：ABAP, Data Engineering, SD, 工具, 开发, 技术, 数据工程, 销售分销

SDN Contribution

How to Attach Documents to Any Custom Program Using

Generic Object Services

Applies to

SAP R/3 4.6C

Summary

This sample code describes the steps needed to easily add file attachment feature to any custom

report/module pool by using Generic Object Services (GOS). Users will have the possibility to store

documents or notes for a specific application (instead of for a specific document as usual).

Created on: 23 March 2006

Author Bio

Manuel Bassani lives in Vicenza (Italy) and has worked with SAP technologies as a freelancer

since 2001. After some years as an ABAP senior developer in several projects, he actually works

as an Exchange Infrastructure technical analyst. His other skills and interests are Java/C++

programming, XML, and SOAP.

Table of Contents

Applies to:........................................................................................................................................1

Summary..........................................................................................................................................1

Author Bio........................................................................................................................................1

Table of Contents............................................................................................................................2

Business Object Creation................................................................................................................2

Integrating GOS in Custom Programs.............................................................................................4

Case 1: File Attachment in Report Selection Screen...................................................................4

Case 1: Screenshot..................................................................................................................5

Case 2: File Attachment in Lists..................................................................................................6

Case 2: Screenshot..................................................................................................................6

Case 3: File Attachment in Module Pool......................................................................................7

Case 3: Main program..............................................................................................................7

Case 3: Dynpro 100 logic.......................................................................................................10

Case 3: Screenshot – GOS toolbar........................................................................................10

Case 3: Screenshot – GOS Integrated in Dynpro Toolbar.....................................................11

Related Content.............................................................................................................................11

Disclaimer and Liability Notice.......................................................................................................12

Business Object Creation

In order to make GOS work with a custom program instead of a document, it is necessary to create a custom

Business object that implements interface IFGOSASERV. Once BO is created it must be set to released

status.

1. Run transaction SWO1 (Business Object Builder), choose an object name, select “Object Type”

radio button and press “Create” button.

2. A popup appears. Fill fields Object type, Object name, Name, Description and Program. Choose

Application = '*'. Leave Supertype blank.

3. In the main page position the mouse pointer on “Interfaces” and press F5 (add object). In the popup

choose interface IFGOSASERV

4. Add key fields by position on “Key Fields” and press F5. Choose table field TRDIR-NAME

5. Position on method GOSAddObjects and press F6 (redefine). Insert the following code:

DATA:

SERVICE(255),

BUSIDENTIFS LIKE BORIDENT OCCURS 0,

LS_BORIDENT type BORIDENT.

CLEAR LS_BORIDENT.

LS_BORIDENT-LOGSYS = SPACE.

LS_BORIDENT-OBJTYPE = 'ZGOS'.

LS_BORIDENT-OBJKEY = OBJECT-KEY.

APPEND LS_BORIDENT to BUSIDENTIFS.

SWC_GET_ELEMENT CONTAINER 'Service' SERVICE.

SWC_SET_TABLE CONTAINER 'BusIdentifs' BUSIDENTIFS.

6. Save and genetate Business Object. Set release status to “released”

Integrating GOS in Custom Programs

Case 1: File Attachment in Report Selection Screen

REPORT ZGOS_1.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,

OBJ TYPE BORIDENT.

PARAMETERS: MATNR TYPE MARA-MATNR.

AT SELECTION-SCREEN OUTPUT.

CLEAR OBJ.

• SET OBJECT TYPE TO 'ZGOS'

OBJ-OBJTYPE = OBJTYPE.

• SET OBJECT KEY = REPORT NAME

SELECT SINGLE NAME

FROM TRDIR

INTO OBJ-OBJKEY

WHERE NAME = SY-REPID.

• CALL GOS MANAGER WITHOUT CONTAINER (WILL BE DISPLAYED IN THE TOOLBAR)

CREATE OBJECT MANAGER

EXPORTING

IS_OBJECT = OBJ

EXCEPTIONS

OTHERS = 1.

Case 1: Screenshot

Case 2: File Attachment in Lists

CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,

OBJ TYPE BORIDENT.

PARAMETERS: MATNR TYPE MARA-MATNR.

START-OF-SELECTION.

CLEAR OBJ.

• SET OBJECT TYPE TO 'ZGOS'

OBJ-OBJTYPE = OBJTYPE.

• SET OBJECT KEY = REPORT NAME

SELECT SINGLE NAME

FROM TRDIR

INTO OBJ-OBJKEY

WHERE NAME = SY-REPID.

• CALL GOS MANAGER WITHOUT CONTAINER (WILL BE DISPLAYED IN THE TOOLBAR)

CREATE OBJECT MANAGER

EXPORTING

IS_OBJECT = OBJ

EXCEPTIONS

OTHERS = 1.

WRITE: 'WRITE SOMETHING'.

Case 2: Screenshot

Case 3: File Attachment in Module Pool

This example shows how to integrate GOS features both via GOS toolbar and via dynpro toolbar

Case 3: Main program

REPORT ZGOS_3.
CONSTANTS: OBJTYPE TYPE BORIDENT-OBJTYPE VALUE 'ZGOS'.
TYPES: BEGIN OF EXCLUDE_TYPE,

FCODE LIKE RSMPE-FUNC,

END OF EXCLUDE_TYPE.
DATA: MANAGER TYPE REF TO CL_GOS_MANAGER,

OBJ TYPE BORIDENT,

OK_CODE TYPE SY-UCOMM,

EXCLUDE_TAB TYPE STANDARD TABLE OF EXCLUDE_TYPE,

EXCLUDE_WA TYPE EXCLUDE_TYPE.

• TOOLBAR: DISPLAY GOS TOOLBAR IN DYNPRO

• DIRECT: CALL GOS SERVICES DIRECTLY FROM DYNPRO TOOLBAR

PARAMETERS: TOOLBAR RADIOBUTTON GROUP GR1 DEFAULT 'X',

DIRECT RADIOBUTTON GROUP GR1.

START-OF-SELECTION.

• CALL SCREEN

CALL SCREEN '0100'.

*&---------------------------------------------------------------------*

*& Module init OUTPUT

*&---------------------------------------------------------------------*

MODULE INIT OUTPUT.

• INIT

IF MANAGER IS INITIAL.

OBJ-OBJTYPE = OBJTYPE.

SELECT SINGLE NAME

FROM TRDIR

INTO OBJ-OBJKEY

WHERE NAME = SY-REPID.

• WITH GOS TOOLBAR

IF TOOLBAR = 'X'.

CLEAR: EXCLUDE_TAB, EXCLUDE_WA.

MOVE 'ATTACH' TO EXCLUDE_WA-FCODE.

APPEND EXCLUDE_WA TO EXCLUDE_TAB.

MOVE 'LIST' TO EXCLUDE_WA-FCODE.

APPEND EXCLUDE_WA TO EXCLUDE_TAB.

SET PF-STATUS 'MAIN' EXCLUDING EXCLUDE_TAB.

CREATE OBJECT MANAGER

EXPORTING

IS_OBJECT = OBJ

IP_NO_COMMIT = 'R'

EXCEPTIONS OTHERS = 1.

• WITHOUT GOS TOOLBAR (DIRECT SERVICE CALL)

ELSE.

SET PF-STATUS 'MAIN'.

CREATE OBJECT MANAGER

EXPORTING

IP_NO_COMMIT = 'R'

EXCEPTIONS OTHERS = 1.

ENDIF.
ENDIF.
ENDMODULE. " init OUTPUT

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

MODULE USER_COMMAND_0100 INPUT.

CASE OK_CODE.

WHEN 'BACK' OR 'LEAVE' OR 'EXIT'.

LEAVE TO SCREEN '0000'.

• CALL CREATE ATTACHMENT SERVICE FROM TOOLBAR

WHEN 'ATTACH'.

CALL METHOD MANAGER->START_SERVICE_DIRECT

EXPORTING

IP_SERVICE = 'CREATE_ATTA'

IS_OBJECT = OBJ

EXCEPTIONS

NO_OBJECT = 1

OBJECT_INVALID = 2

EXECUTION_FAILED = 3

OTHERS = 4.

WHEN 'LIST'.

CALL METHOD MANAGER->START_SERVICE_DIRECT

EXPORTING

IP_SERVICE = 'VIEW_ATTA'

IS_OBJECT = OBJ

EXCEPTIONS

NO_OBJECT = 1

OBJECT_INVALID = 2

EXECUTION_FAILED = 3

OTHERS = 4.

ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

Case 3: Dynpro 100 logic

PROCESS BEFORE OUTPUT.

MODULE INIT.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_0100.

Case 3: Screenshot – GOS toolbar

Case 3: Screenshot – GOS Integrated in Dynpro Toolbar

Some useful links

Generic Object Services (BC-SRV-GBT)

Generic Object Services (GOS) - in Background [by Ram Manohar Tiwari]

Disclaimer and Liability Notice

This document may discuss sample coding or other information that does not include SAP official interfaces

and therefore is not supported by SAP. Changes made based on this information are not supported and can

be overwritten during an upgrade.

SAP will not be held liable for any damages caused by using or misusing the information, code or methods

suggested in this document, and anyone using these methods does so at his/her own risk.

SAP offers no guarantees and assumes no responsibility or liability of any type with respect to the content of

this technical article or code sample, including any liability resulting from incompatibility between the content

within this document and the materials and services offered by SAP. You agree that you will not hold, or

seek to hold, SAP responsible or liable with respect to the content of this document.

关于作者：郑德鼎

企业信息化与 SAP 技术顾问，长期专注 SAP ABAP、FI/CO、MM、SD 等模块的技术分享与实战经验总结。查看更多介绍

来源说明：本文内容由「How to attach documents to any custom program using Generic Object Services.pdf」整理生成，仅用于内部技术分享与学习交流。

How to attach documents to any custom program using Generic Object Services

Applies to

Some useful links

相关文章

关于作者：郑德鼎