1
*---------------------------------------------------------------------*
2
* FORM UPDATE_STATUS *
3
4
FORM UPDATE_STATUS.
5
MOVE: STATUS-DATA TO <STATUS>-ST_DATA,
6
STATUS-MODE TO <STATUS>-ST_MODE,
7
STATUS-DELETE TO <STATUS>-ST_DELETE,
8
STATUS-ACTION TO <STATUS>-ST_ACTION,
9
TITLE TO <STATUS>-TITLE,
10
* L TO <STATUS>-CUR_LINE,
11
FIRSTLINE TO <STATUS>-FIRSTLINE,
12
MAXLINES TO <STATUS>-MAXLINES,
13
F TO <STATUS>-CUR_FIELD,
14
O TO <STATUS>-CUR_OFFSET,
15
MARK_EXTRACT TO <STATUS>-MK_XT,
16
MARK_TOTAL TO <STATUS>-MK_TO,
17
FUNCTION TO <STATUS>-FCODE.
18
IF L EQ 0.
19
MOVE 1 TO <STATUS>-CUR_LINE.
20
ELSE.
21
MOVE L TO <STATUS>-CUR_LINE.
22
ENDIF.
23
ENDFORM. "UPDATE_STATUS