BAPI Needed of uploading document in already existing Dispute Case

Question

Hi,
  I need BAPI for  uploading document in already existing Dispute Case...
Thanks,
Ajit

Answer 1

I tried to use the following program to upload a document and it is not working, any feedback would be helpful:
*& Report  ZTEMP_DISPUTE_12
REPORT  ztemp_dispute_12.
PARAMETER : l_fname TYPE char255.
DATA : l_file TYPE string,
      lv_xstring  TYPE xstring,
       l_return TYPE  bapiret2,
       l_filecontent TYPE bapiconten,
       i_case TYPE REF TO if_scmg_case_api,
        l_initial_dir     TYPE string,
        l_window_title    TYPE string,
        l_filename_disp   TYPE string,
        l_filename_string TYPE string,
        l_user_action     TYPE i,
        l_rc              TYPE i,
       l_v_lines TYPE i,
       l_mime TYPE skwf_mime,
       l_filelength TYPE i,
       l_component TYPE  bapidoccomp,
       l_skwf_filnm TYPE skwf_filnm,
       li_file_tab        TYPE filetable,
       lwa_file_tab        TYPE file_table,
       li_bin_content  TYPE STANDARD TABLE OF bapiconten,
       l_v_size TYPE i.
DATA: BEGIN OF itab OCCURS 0,
       line TYPE sdok_sdatx.
DATA: END OF itab.
DATA: BEGIN OF i_component OCCURS 0,
        comp_count  TYPE bapipos,
        comp_id     TYPE bapidocid,
        mimetype    TYPE bapimimetype,
        comp_size   TYPE bapipos,
        binary_flag TYPE bapigsbool,
        comp_num    TYPE bapipos.
DATA: END OF i_component.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR l_fname.
  l_window_title = 'Upload Document'(001).
Call the file selection dialog
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = l_window_title
      initial_directory       = l_initial_dir
    CHANGING
      file_table              = li_file_tab
      rc                      = l_rc
      user_action             = l_user_action
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc = 0.
    READ TABLE li_file_tab INTO lwa_file_tab INDEX 1.
    IF sy-subrc = 0.
      l_file = lwa_file_tab-filename.
      l_fname = lwa_file_tab-filename.
    ENDIF.
  ENDIF.
START-OF-SELECTION.
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                      = l_file
  FILETYPE                      = 'ASC'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    TABLES
      data_tab                      = itab
EXCEPTIONS
  FILE_OPEN_ERROR               = 1
  FILE_READ_ERROR               = 2
  NO_BATCH                      = 3
  GUI_REFUSE_FILETRANSFER       = 4
  INVALID_TYPE                  = 5
  NO_AUTHORITY                  = 6
  UNKNOWN_ERROR                 = 7
  BAD_DATA_FORMAT               = 8
  HEADER_NOT_ALLOWED            = 9
  SEPARATOR_NOT_ALLOWED         = 10
  HEADER_TOO_LONG               = 11
  UNKNOWN_DP_ERROR              = 12
  ACCESS_DENIED                 = 13
  DP_OUT_OF_MEMORY              = 14
  DISK_FULL                     = 15
  DP_TIMEOUT                    = 16
  OTHERS                        = 17
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  DESCRIBE TABLE itab  LINES l_v_lines.
  l_v_size = l_v_lines * 255.
  l_filename_string = l_file.
  CALL METHOD cl_gui_frontend_services=>file_get_size
    EXPORTING
      file_name = l_filename_string
    IMPORTING
      file_size = l_v_size
    EXCEPTIONS
      OTHERS    = 1.
convert binary255 to binary1024 table
  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = l_v_size
    IMPORTING
      buffer       = lv_xstring
    TABLES
      binary_tab   = itab
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.
  IF sy-subrc <> 0.
       rv_failed = 'X'.
       RETURN.
  ENDIF.
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer     = lv_xstring
    TABLES
      binary_tab = li_bin_content.
  l_skwf_filnm = l_file.
  CALL FUNCTION 'SKWF_MIMETYPE_OF_FILE_GET'
    EXPORTING
      filename                   = l_skwf_filnm
  X_USE_LOCAL_REGISTRY       =
   IMPORTING
     mimetype                   = l_mime.
  l_component-comp_count    = 1.
  l_component-comp_id       = l_fname.
  l_component-mimetype      = l_mime.
  l_component-comp_size     =  l_v_size.
  l_component-binary_flag   = 'X'.
  l_component-comp_num      = 1.
  APPEND l_component TO i_component.
  DATA:
  lo_case_api TYPE REF TO  cl_scmg_case_api,
   lo_case_api_intf       TYPE REF TO if_scmg_case_api.
  CALL METHOD cl_scmg_case_api=>if_scmg_case_api~open_case
    EXPORTING
      im_case_guid    = 'E99B284FC272B720E100000092D79319'
      im_enqueue      = 'X'
    RECEIVING
      re_case         = lo_case_api_intf
    EXCEPTIONS
      failed          = 1
      enqueue_failed  = 2
      invalid_guid    = 3
      cx_srm_gsp_back = 4
      OTHERS          = 5.
  lo_case_api ?= lo_case_api_intf.
*DATA : l_if_case_api      TYPE REF TO if_scmg_case_api.
       CALL METHOD cl_scmg_case_api=>open_case
         EXPORTING
           im_case_guid    = 'E99B284FC272B720E100000092D79319'
         RECEIVING
           re_case         = l_if_case_api
         EXCEPTIONS
           failed          = 1
           enqueue_failed  = 2
           invalid_guid    = 3
           cx_srm_gsp_back = 4
           no_authority    = 5
           OTHERS          = 6.
  CALL FUNCTION 'UDM_BD_CREATE_ATTACHMENT'
    EXPORTING
      i_guid      = 'E99B284FC272B720E100000092D79319'              "E99B284FC272B720E100000092D79319
      i_case      = lo_case_api
      i_testrun   = space           " '003A3A4FAD54D97CE100000092D79319'
    TABLES
      bin_content = li_bin_content
      components  = i_component
    CHANGING
      es_return   = l_return.
  IF sy-subrc = 0.
    COMMIT WORK.
  ENDIF.
  CALL FUNCTION 'DEQUEUE_ALL'.
  break 50120i1120.