Properties | SourceCde
Title |  |
Original language | DE | Englisch
Created | 27.10.1998 |  | SAP |
Last changed by | 13.11.2001 |  | SAP |
Status | Active |
Attributes
Type | INCLUDE program |
Status | Test program |
Application | Basis |
Package | SVIM | Basis View Maintenance
| Editor lock
txt
    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.