1
*---------------------------------------------------------------------*
2
* FORM BLAETTERN *
3
4
* ........ *
5
6
FORM BLAETTERN.
7
DATA: B_OVERLAPPING(1) TYPE C VALUE 'X'.
8
IF MAXLINES EQ 0.
9
EXIT.
10
ENDIF.
11
IF STATUS-ACTION EQ KOPIEREN OR LOOPLINES EQ 1.
12
CLEAR B_OVERLAPPING.
13
14
CALL FUNCTION 'SCROLLING_IN_TABLE'
15
EXPORTING
16
ENTRY_TO = MAXLINES
17
LOOPS = LOOPLINES
18
OK_CODE = FUNCTION
19
ENTRY_ACT = FIRSTLINE
20
LAST_PAGE_FULL = ' '
21
* OVERLAPPING = 'X'
22
OVERLAPPING = B_OVERLAPPING
23
IMPORTING
24
ENTRY_NEW = NEXTLINE.
25
ENDFORM.