Jan 17, 2005 at 01:03 PM

Restricting selection-options

55 Views

I want to restrict the selection option of a field.

There will be no intervals to enter.

Only EQ will be available.

Will allow multiple values but no intervals.

when I enter somthing* and than proceed it displays a popup showing which criteria to select and there is only EQ value.

In other circumstances it works as I want. But I do not want the popup.

Please help.

I write the code below.

TABLES:

vbak.

SELECT-OPTIONS:

zvbeln FOR vbak-vbeln

NO INTERVALS

MATCHCODE OBJECT zpyp_posid

OBLIGATORY

.

INITIALIZATION.

PERFORM init_1001.

&----

*& Form init_1001

&----

text

----

FORM init_1001 .

TYPE-POOLS:

sscr.

DATA:

restriction TYPE sscr_restrict,

wa_opt_list TYPE sscr_opt_list,

ls_ass TYPE sscr_ass.

MOVE 'EQ' TO wa_opt_list-name.

MOVE 'X' TO wa_opt_list-options-eq.

APPEND wa_opt_list TO restriction-opt_list_tab.

MOVE: 'S' TO ls_ass-kind,

'I' TO ls_ass-sg_main,

' ' TO ls_ass-sg_addy,

'EQ' TO ls_ass-op_main,

'EQ' TO ls_ass-op_addy,

'ZVBELN' TO ls_ass-name.

APPEND ls_ass TO restriction-ass_tab.

CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'

EXPORTING

PROGRAM =

restriction = restriction

DB = ' '

EXCEPTIONS

too_late = 1

repeated = 2

selopt_without_options = 3

selopt_without_signs = 4

invalid_sign = 5

empty_option_list = 6

invalid_kind = 7

repeated_kind_a = 8

OTHERS = 9

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.