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.