Eigenschaften | Quelltext
Titel | CHECK_UPD |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 13.11.2001 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM CHECK_UPD                                                *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM CHECK_UPD.
    7
      data: leave.
    8
      CHECK STATUS-ACTION NE ANZEIGEN.
    9
      IF <STATUS>-UPD_FLAG EQ SPACE.
    10
        IF STATUS-ACTION EQ TRANSPORTIEREN.
    11
          MOVE <STATUS>-KEYTBMODFD TO <STATUS>-UPD_FLAG.
    12
        ELSE.
    13
          LOOP AT TOTAL.
    14
    *       CHECK <ACTION> NE NEUER_GELOESCHT AND <ACTION> NE ORIGINAL.
    15
            CHECK <ACTION> NE ORIGINAL.
    16
            MOVE 'X' TO <STATUS>-UPD_FLAG.
    17
            EXIT.
    18
          ENDLOOP.
    19
          IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-BASTAB NE SPACE AND
    20
             X_HEADER-TEXTTBEXST NE SPACE.
    21
            LOOP AT TOTAL.
    22
    *         CHECK <ACTION_TEXT> NE NEUER_GELOESCHT AND
    23
              CHECK <ACTION_TEXT> NE ORIGINAL.
    24
              MOVE 'X' TO <STATUS>-UPD_FLAG.
    25
              EXIT.
    26
            ENDLOOP.
    27
          ENDIF.
    28
          IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-TEXTTBEXST <> SPACE.
    29
            PERFORM VIM_CHECK_UPD_TEXTTAB. "SW Texttransl
    30
          ENDIF.
    31
          IF <STATUS>-UPD_FLAG EQ SPACE AND X_HEADER-ADRNBRFLAG EQ 'N'.
    32
            DESCRIBE TABLE VIM_ADDRESSES_TO_SAVE.
    33
            IF SY-TFILL GT 0.
    34
              MOVE 'X' TO <STATUS>-UPD_FLAG.
    35
            ENDIF.
    36
          ENDIF.
    37
        ENDIF.
    38
      ENDIF.
    39
      IF X_HEADER-FRM_AF_CHK NE SPACE AND STATUS-ACTION NE TRANSPORTIEREN.
    40
        PERFORM (X_HEADER-FRM_AF_CHK) IN PROGRAM (SY-REPID).
    41
      ENDIF.
    42
      if <status>-upd_flag = space and vim_called_by_cluster = space and
    43
       ( function = back OR function = end ).
    44
        perform vim_add_img_notices_pai using 'E'
    45
                                        changing leave.
    46
        if leave = space.
    47
          clear function.
    48
        endif.
    49
      endif.
    50
      MOVE 'X' TO <STATUS>-UPD_CHECKD.
    51
    ENDFORM.