Regarding attachment of file

Question

hello,
i have a requirement to attach a file to our own ztransactions for a particular field.kindly help me regarding this issue.
thanks and regards,
siri.

Answer 1

Hi,
Just check this code: -
Reward  points if it solve your problem: -
FUNCTION z_mi_create_attachment.
""Local Interface:
*"  IMPORTING
*"     VALUE(CLAIM_NUM) TYPE  CHAR9
*"     VALUE(SUBCLAIM_NUM) TYPE  CHAR2
*"  EXPORTING
*"     VALUE(DOCUMENT_KEY) TYPE  SWO_TYPEID
*"  EXCEPTIONS
*"      INVALID_CLAIM
*"      NO_ATTACH
  TABLES: zmit_clma,
          zmit_clmd.
  DATA: lo_attachment TYPE REF TO cl_gos_document_service,
        ls_object     TYPE borident,
        lp_attachment TYPE swo_typeid,
        ls_attachment TYPE sibflporb,
        i_clma        TYPE STANDARD TABLE OF zmit_clma INITIAL SIZE 0,
        wa_clma       TYPE zmit_clma.
  DATA: lv_claim  TYPE char9,
        lv_sub    TYPE char2,
        lv_logsys TYPE logsys.
  USEFUL INFORMATION     -
*-- Message class- SGOS_MSG; Link saved in table-  ;Tcode-SO00
  SELECT SINGLE claim_number
                sub_claim_num
           FROM zmit_clmd
           INTO (lv_claim, lv_sub)
          WHERE claim_number  = claim_num AND
                sub_claim_num = subclaim_num.
  IF sy-subrc NE 0.
    RAISE invalid_claim.
  ENDIF.
  CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
    IMPORTING
      own_logical_system             = lv_logsys
    EXCEPTIONS
      own_logical_system_not_defined = 1
      OTHERS                         = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  ls_object-objkey  = lv_claim.
  ls_object-objtype = lv_sub.
  ls_object-logsys  = lv_logsys.
  CREATE OBJECT lo_attachment.
  CALL METHOD lo_attachment->create_attachment
    EXPORTING
      is_object     = ls_object
    IMPORTING
      ep_attachment = lp_attachment.
  IF lp_attachment IS INITIAL.
    RAISE no_attach.
  ENDIF.
  wa_clma-claim_number     = lv_claim.
  wa_clma-sub_claim_num    = lv_sub.
  wa_clma-attach_item      = ' '.
  wa_clma-attach_remarks   = lp_attachment.
  wa_clma-sort_order       = ' '.
  wa_clma-created_by       = sy-uname.
  wa_clma-created_date     = sy-datum.
  wa_clma-created_time     = sy-uzeit.
  wa_clma-last_modified_by = sy-uname.
  wa_clma-last_modify_date = sy-datum.
  wa_clma-last_modify_time = sy-uzeit.
  APPEND wa_clma TO i_clma.
  CLEAR wa_clma.
  MODIFY zmit_clma FROM TABLE i_clma.
  document_key = lp_attachment.
  CLEAR: lv_claim, lv_sub, lv_logsys, lp_attachment.
ENDFUNCTION.