Properties SourceCde
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