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