Bug 5982

Summary:	Dump beim Material-Transfer
Product:	[SCX/Suite] VMI	Reporter:	Hopmann, Peter <Peter.Hopmann>
Component:	Daten-Transfer	Assignee:	Hopmann, Peter <Peter.Hopmann>
Status:	VERIFIED FIXED	QA Contact:	Tilli, Benedikt <Benedikt.Tilli>
Severity:	normal
Priority:	P5	Keywords:	Vorabkorrektur
Version:	7.30
Hardware:	All
OS:	All
Whiteboard:
Kundennummer:		Bestellnummer:
PV Übergabe:	---	Phase Roadmap:	---
Erledigt mit:	Lupus	SAP Release:	---
Transport:	P16K900021, M27K900080, M27K900438	CRM-ID/Ticket:
Bug Depends on:
Bug Blocks:	6131

Description Hopmann, Peter intern

2016-03-23 11:48:49 CET

Wenn der Upload fehlschlägt, wird ein Kurzdump erzeugt, wenn der Baustein FTP_R3_TO_SERVER keine Meldung liefert, also auch die Variable sy-msgty nicht gesetzt wird.

Comment 5 Hopmann, Peter intern

2016-07-11 16:56:26 CEST

/GIB/CL_DCV_FTP_CONNECTION
METHOD ftp_upload.
...
*# Binäre Übertragung
    CALL FUNCTION 'FTP_R3_TO_SERVER'
      EXPORTING
        handle         = mf_ftp_handle
        fname          = if_filename
        character_mode = if_char_mode
        blob_length    = if_length
      TABLES
        blob           = it_data
      EXCEPTIONS
        tcpip_error    = 1
        command_error  = 2
        data_error     = 3
        OTHERS         = 4.
*#5982
***    IF sy-subrc NE 0.
***      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
***      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
***        RAISING ftp_error.
***    ENDIF.
    CASE sy-subrc.
      WHEN 0.
      WHEN 1.
**        MESSAGE e999 WITH 'Fehler bei Datenübertragung von' if_filename
        MESSAGE e214 WITH if_filename
          RAISING ftp_error.
      WHEN OTHERS.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
          RAISING ftp_error.
    ENDCASE.
*##5982

  ELSE.
*# ASCII-Mode
...
    ELSE.
      CALL FUNCTION 'FTP_R3_TO_SERVER'
        EXPORTING
          handle         = mf_ftp_handle
          fname          = if_filename
          character_mode = if_char_mode
        TABLES
          text           = <lt_data>
        EXCEPTIONS
          tcpip_error    = 1
          command_error  = 2
          data_error     = 3
          OTHERS         = 4.
*#5982
***5982      IF sy-subrc NE 0.
***5982MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
***5982        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
***5982          RAISING ftp_error.
***5982      ENDIF.
      CASE sy-subrc.
        WHEN 0.
        WHEN 1.
          MESSAGE e999 WITH 'Error File Transfer:' if_filename
            RAISING ftp_error.
        WHEN OTHERS.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
            RAISING ftp_error.
      ENDCASE.
*##5982
    ENDIF.
  ENDIF.

  IF lf_logout = 'X'.
    ftp_logout( ).
  ENDIF.

ENDMETHOD.

Comment 3 Hopmann, Peter intern

2016-03-23 13:56:15 CET

neues Attribut, protected static:
gt_connection type /GIB/DCV_OBJ_INSTANCE_T

METHOD constructor.
...
*{   INSERT         P16K900022                                        1
*#5982
data: ls_connection type /GIB/DCV_OBJ_INSTANCE_S.

ls_connection-data_r = me.
append ls_connection to gt_connection.

*##5982
*}   INSERT
ENDMETHOD.

METHOD ftp_logout.
...
  CLEAR: mf_ftp_handle.
*{   INSERT         P16K900022                                        1
*#5982
delete gt_connection
  where data_r = me.
  if gt_connection is initial.
*##5982
*}   INSERT
*# RFC-Verbindung schließen
  CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      destination = 'SAPFTPA'
    EXCEPTIONS
      OTHERS      = 0.
*{   INSERT         P16K900022                                        2
*#5982
  endif.
*}   INSERT
  CLEAR: ms_vmi020.
ENDMETHOD.