Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM TRANSPORTIEREN                                           *
    3
    *---------------------------------------------------------------------*
    4
    *       send popup to confirm: saving etc.                            *
    5
    *---------------------------------------------------------------------*
    6
    FORM TRANSPORTIEREN.
    7
      CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
    8
           EXPORTING
    9
                TITEL         = SVIM_TEXT_020  "Einträge transportieren
    10
                DIAGNOSETEXT1 = SVIM_TEXT_018  "Daten wurden verändert.
    11
                DIAGNOSETEXT2 =
    12
                   SVIM_TEXT_021           "Wenn die Änderungen transport
    13
                DIAGNOSETEXT3 =
    14
                   SVIM_TEXT_022           "werden sollen, müssen sie ers
    15
                TEXTLINE1     = SVIM_TEXT_023  "gesichert werden.
    16
                TEXTLINE2     = SVIM_TEXT_019  "Änderungen vorher sichern ?
    17
           IMPORTING
    18
                ANSWER        = ANSWER.
    19
      CASE ANSWER.
    20
        WHEN 'J'.
    21
          SY-SUBRC = 0.
    22
        WHEN 'N'.
    23
          CLEAR <STATUS>-UPD_FLAG.
    24
          SY-SUBRC = 8.
    25
        WHEN 'A'.
    26
          SY-SUBRC = 12.
    27
      ENDCASE.
    28
    ENDFORM.