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 INIT_STATE_VECTOR                                        *
    3
    *---------------------------------------------------------------------*
    4
    * viewspezif. Statusvektor initialisieren                             *
    5
    *---------------------------------------------------------------------*
    6
    FORM INIT_STATE_VECTOR.
    7
    * IF <STATUS>-ALR_SETUP EQ SPACE.
    8
      NEXTLINE = 1.
    9
      MOVE: NICHT_GELOESCHT   TO <STATUS>-ST_DELETE,
    10
            GESAMTDATEN       TO <STATUS>-ST_DATA,
    11
            GESAMTDATEN       TO TITLE-DATA,
    12
            LIST_BILD         TO <STATUS>-ST_MODE,
    13
            LIST_BILD         TO TITLE-MODE,
    14
            MAINT_MODE        TO <STATUS>-ST_ACTION,
    15
            MAINT_MODE        TO TITLE-ACTION,
    16
            <STATUS>-CORR_NBR TO <STATUS>-L_CORR_NBR,
    17
            CORR_NBR          TO <STATUS>-CORR_NBR,
    18
            TITLE             TO <STATUS>-TITLE,
    19
            1                 TO <STATUS>-CUR_LINE,
    20
            1                 TO <STATUS>-FIRSTLINE,
    21
            0                 TO <STATUS>-MK_XT,
    22
            0                 TO <STATUS>-MK_TO,
    23
            0                 TO <STATUS>-MAXLINES,
    24
            0                 TO <STATUS>-CUR_OFFSET,
    25
            SPACE             TO <STATUS>-FCODE,
    26
            SPACE             TO <STATUS>-CUR_FIELD,
    27
            SPACE             TO <STATUS>-UPD_FLAG,
    28
            SPACE             TO <STATUS>-CRCNTSKNWN,
    29
            SPACE             TO <STATUS>-KEYTBMODFD,
    30
            SPACE             TO <STATUS>-DLCLALRCKD,
    31
            SPACE             TO <STATUS>-TR_ALRCHKD,
    32
    *         'X'               TO <STATUS>-ALR_SETUP,
    33
            'x'               TO <STATUS>-INITIALIZD,
    34
            NICHT_MARKIERT    TO BLOCK_SW.
    35
      IF MAINT_MODE = STATUS-ACTION OR MAINT_MODE = ANZEIGEN.  "UF profilesb
    36
        CLEAR <STATUS>-PROF_FOUND.
    37
      ENDIF.                               "UF profilese
    38
      CLEAR <STATUS>-NEWADRCNT.
    39
    * ENDIF.
    40
      CLEAR FILL_EXTR_FIRST_PROC.
    41
    * Übergangslösung Sortierungsproblem Anfang
    42
    * CLEAR <STATUS>-ALR_SORTED.
    43
      TRANSLATE <STATUS>-ALR_SORTED USING 'RXX '.
    44
    * Übergangslösung Sortierungsproblem Ende
    45
      CLEAR: VIM_OLD_VIEWKEY, VIM_OLD_ST_SELECTED.
    46
      TRANSLATE VIM_NO_MAINKEY_EXISTS USING VIM_NO_MKEY_NOT_PROCSD_PATT.
    47
      LAST_CORR_NUMBER = <STATUS>-L_CORR_NBR.
    48
    ENDFORM.