1
*---------------------------------------------------------------------*
2
* FORM SET_STATUS_NOKEYSELCNDS *
3
4
* ........ *
5
6
FORM SET_STATUS_NOKEYSELCNDS.
7
CLEAR <STATUS>-NOKEYSLCDS.
8
* LOOP AT DPL_SELLIST.
9
LOOP AT <VIM_CK_SELLIST> INTO DPL_SELLIST.
10
READ TABLE X_NAMTAB INDEX DPL_SELLIST-TABIX.
11
IF X_NAMTAB-KEYFLAG EQ SPACE.
12
<STATUS>-NOKEYSLCDS = 'X'. EXIT.
13
ENDIF.
14
ENDLOOP.
15
<STATUS>-INITIALIZD = 'X'.
16
ENDFORM. "set_status_nokeyselcnds