1 |
2 |
3 |
4 |
5 |
6 | FORM INIT_STATE_VECTOR. |
7 |
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 |
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 |
40 | CLEAR FILL_EXTR_FIRST_PROC. |
41 |
42 |
43 | TRANSLATE <STATUS>-ALR_SORTED USING 'RXX '. |
44 |
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. |