附件上载及下载

附件上载的效果图如下：

图一

附件下载清单图如下：

图二

AT SELECTION-SCREEN OUTPUT.                                 "#EC *
  COMM1 = TEXT-002 .
  PERFORM GOS_ATTACHMENT.


FORM GOS_ATTACHMENT .  
DATA: P_MANAGER TYPE REF TO CL_GOS_MANAGER,
        LV_OBJ TYPE BORIDENT.
  CLEAR LV_OBJ .

  LV_OBJ-OBJTYPE = 'ZGOS_COMM'.
  SELECT SINGLE NAME
  FROM TRDIR
  INTO LV_OBJ-OBJKEY
  WHERE NAME = SY-REPID.

  CREATE OBJECT P_MANAGER
    EXPORTING
      IS_OBJECT    = LV_OBJ
      IP_NO_COMMIT = 'R'       " allows for a db commit in
    EXCEPTIONS
      OTHERS       = 1.

  CALL METHOD P_MANAGER->SET_RW_MODE
    EXPORTING
      IP_MODE = 'E'.
ENDFORM.                    " GOS_ATTACHMENT