*&———————————————————————*
*& Form USER_COMMAND
*&———————————————————————*
* text
*———————————————————————-*
* –>R_UCOMM OK CODE
* –>RS_SELFIELD SELECT-FIELD
*———————————————————————-*
form USER_COMMAND using R_UCOMM like SY-UCOMM
RS_SELFIELD type SLIS_SELFIELD.
case R_UCOMM.
when ‘&IC1’. ” (DOUBLECLICK)
if RS_SELFIELD-TABINDEX > 0 and
RS_SELFIELD-SUMINDEX le 0.
if RS_SELFIELD-SEL_TAB_FIELD = ‘1-FieldName’.
endif.
endif.
endcase.
endform. “USER_COMMAND