How to download the attachments from GOS toolbar.

Question

Hi,
I am facing a problem. I have to go to transaction ME33k and click the GOS toolbar. Then click on the attachment list. After the attachment list arrives, I need to transfer the files to the local system. The issue is that I need to do all this using a custom program. The custom program will transfer the files into the local system and then mail them to specified recipients.
The custom program has been made but I am unable to download files from the SAP internal location to the local PC. Please advise.

Answer 1

Please try the next abap code to download all applicant attachments. SAP system 6.40
in this -  OBJECT_ID - applicant SAP number
data: i_connections type BDN_CON occurs 0,
        i_connections_rec type BDN_CON .
data fol_id        like soodk.
data doc_id      like soodk.
data: OBJCONT type SOLI occurs 0 .
DATA: PATH TYPE CHAR255,
          COMP_ID TYPe CHAR255 .
CALL FUNCTION 'BDS_GOS_CONNECTIONS_GET'
  EXPORTING
    CLASSNAME                = 'APPLICANT'
    OBJKEY                   = OBJECT_ID
  CLIENT                   = SY-MANDT
  TABLES
    GOS_CONNECTIONS          = i_connections
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT i_connections INTO i_connections_rec .
move i_connections_rec-LOIO_ID to FOL_ID .
move i_connections_rec-LOIO_ID+17(25) to doc_id .
CALL FUNCTION 'SO_OBJECT_READ'
  EXPORTING
    FOLDER_ID                        = FOL_ID
    OBJECT_ID                        = doc_id
  TABLES
    OBJCONT                          = OBJCONT           .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT i_connections INTO i_connections_rec .
move i_connections_rec-LOIO_ID to FOL_ID .
move i_connections_rec-LOIO_ID+17(25) to doc_id .
CALL FUNCTION 'SO_OBJECT_READ'
  EXPORTING
    FOLDER_ID                        = FOL_ID
    OBJECT_ID                        = doc_id
  TABLES
    OBJCONT                          = OBJCONT          .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CONCATENATE 'D:\GOS\' i_connections_rec-DESCRIPT '.' i_connections_rec-DOCUCLASS into PATH .
CONCATENATE i_connections_rec-DESCRIPT '.' i_connections_rec-DOCUCLASS into COMP_ID .
CALL FUNCTION 'SO_OBJECT_DOWNLOAD'
  EXPORTING
    DEFAULT_FILENAME       = COMP_ID
    FILETYPE               = 'BIN'
    PATH_AND_FILE          = PATH
    EXTCT                  = 'K'
    NO_DIALOG              = 'X'
  TABLES
    OBJCONT                = objcont          .
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP .