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 VIM_STORE_STATE_INFO                                     *
    3
    *---------------------------------------------------------------------*
    4
    *       ........                                                      *
    5
    *---------------------------------------------------------------------*
    6
    FORM VIM_STORE_STATE_INFO.
    7
      MOVE: STATUS-DATA TO <STATUS>-ST_DATA,
    8
            STATUS-MODE TO <STATUS>-ST_MODE,
    9
            STATUS-DELETE TO <STATUS>-ST_DELETE,
    10
            STATUS-ACTION TO <STATUS>-ST_ACTION,
    11
            TITLE         TO <STATUS>-TITLE,
    12
            MAXLINES      TO <STATUS>-MAXLINES,
    13
            F             TO <STATUS>-CUR_FIELD,
    14
            O             TO <STATUS>-CUR_OFFSET,
    15
            FUNCTION      TO <STATUS>-FCODE.
    16
      IF L EQ 0.
    17
        MOVE 1 TO <STATUS>-CUR_LINE.
    18
      ELSE.
    19
        MOVE L TO <STATUS>-CUR_LINE.
    20
      ENDIF.
    21
    ENDFORM.                               "vim_store_state_info