Método ABAP para subir archivos

METHOD /iwbep/if_mgw_appl_srv_runtime~create_stream.

DATA:   lv_num_vuelo     TYPE ztca_vuelos-num_vuelo,
        lv_fecha_aux     TYPE string,
        lv_fecha         TYPE ztca_vuelos-fecha,
        lv_filename      TYPE string,
        lv_content       TYPE xstring,
        o_mr_api         TYPE REF TO if_mr_api,
        l_url            TYPE string.

CHECK is_media_resource-value IS NOT INITIAL.

lv_content = is_media_resource-value.

SPLIT iv_slug AT ',' INTO lv_num_vuelo,
                          lv_fecha_aux,
                          lv_filename.

IF lv_fecha_aux IS NOT INITIAL.

    CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
        EXPORTING
            INPUT = lv_fecha_aux
        IMPORTING
            OUTPUT = lv_fecha.

ENDIF.

CONCATENATE: '/prueba/' lv_filename INTO l_url.

o_mr_api = cl_mime_repository_api=>if_mr_api-get_api( ).

CALL METHOD o_mr_api=>put
    EXPORTING
        i_url                     = l_url
        i_content                 = lv_content
        i_suppress_package_dialog = 'X'
        i_supress_dialogs         = 'X'
        i_dev_package             = 'STMP'
    EXCEPTIONS
        parameter_missing  = 1
        error_occured      = 2
        cancelled          = 3
        permission_failure = 4
        data_inconsistency = 5.

    IF sy-subrc EQ 0.

*    UPDATE ztca_vuelos
*    SET archivo = l_url
*    WHERE num_vuelo EQ lv_num_vuelo
*        AND fecha EQ lv_fecha.

        IF sy-subrc EQ 0.
            COMMIT WORK AND WAIT.
        ELSE.
            ROLLBACK WORK.
        ENDIF.
    ENDIF.
ENDMETHOD.