1
*---------------------------------------------------------------------*
2
* FORM X_ENQUEUE *
3
4
* enqueue view (external call) *
5
6
* XE_SELLIST ---> table of selection conditions for view/table *
7
* VALUE(XE_NAME) ---> name of view/table to process *
8
* VALUE(XE_ACT) ---> action: E -> enqueue, D -> dequeue *
9
* VALUE(EXIT_FORM) ---> name of exit form to process after enqueue *
10
* VALUE(XE_ENQRNG) ---> flag: X -> enqueue range, ' ' -> full table *
11
12
FORM X_ENQUEUE TABLES XE_SELLIST STRUCTURE VIMSELLIST
13
USING VALUE(XE_NAME) VALUE(XE_ACT) VALUE(EXIT_FORM)
14
VALUE(XE_ENQRNG).
15
DATA: VIEWNAME_SAFE LIKE VIMDESC-VIEWNAME, ENQ_RANGE_SAFE(1) TYPE C.
16
17
VIEWNAME_SAFE = VIM_VIEW_NAME. ENQ_RANGE_SAFE = VIM_ENQUEUE_RANGE.
18
VIM_VIEW_NAME = XE_NAME. VIM_ENQUEUE_RANGE = XE_ENQRNG.
19
ASSIGN XE_SELLIST-*SYS* TO <VIM_SELLIST>.
20
PERFORM ENQUEUE USING XE_ACT EXIT_FORM.
21
VIM_VIEW_NAME = VIEWNAME_SAFE. VIM_ENQUEUE_RANGE = ENQ_RANGE_SAFE.
22
ENDFORM.