如何限制SELECT－OPTIONS的选择屏幕的OPTION

 

REPORT Z_CONECT_A.

* Include type pool SSCR
I&g8~`9p;f0TYPE-POOLS sscr.

TABLES : marc.

*定义选择屏幕select-options :ITPUB个人空间!kYz"oJa3YE
  s_matnr for marc-matnr,
q FN~ Mm0  s_werks for marc-werks.

* Define the object to be passed to the RESTRICTION parameter
n2J0VKf@ D5w l0DATA restrict TYPE sscr_restrict.

* Auxiliary objects for filling RESTRICT
"j ]R2b7BT0DATA : optlist TYPE sscr_opt_list,ITPUB个人空间1R/M;O@c+uc
           ass type sscr_ass.

INITIALIZATION.

* 限制MATNR参数只能使用‘EQ’ 和‘BT’.
$y]3J:^0q5n0n4U!x@0  optlist-name = 'OBJECTKEY1'.ITPUB个人空间8Q/]]%F H:A$P'xe
  optlist-options-eq = 'X'.
d@w#o8f&dp0  optlist-options-bt = 'X'.ITPUB个人空间RWF&Ug%M+Z Q9a
  APPEND optlist TO restrict-opt_list_tab.

  ass-kind = 'S'.ITPUB个人空间z'Nf7g"|+TbQ3[
  ass-name = 'S_MATNR'.
/JnOI HSlo0  ass-sg_main = 'I'.ITPUB个人空间q uT`7u3I*C@
  ass-sg_addy = space.ITPUB个人空间1sK.W;z4_FP f+Q
  ass-op_main = 'OBJECTKEY1'.
y0Vd5Id"|"j0t0  APPEND ass TO restrict-ass_tab.

* 限制 WERKS 参数只能使用CP, GE, LT, NE.ITPUB个人空间pOW`[7I8N
  optlist-name = 'OBJECTKEY2'.ITPUB个人空间Bl:C{ sj"SH6g)P
  optlist-options-cp = 'X'.
G*c_rGI*uk0  optlist-options-ge = 'X'.ITPUB个人空间Vtn+q jX%Cx"Wl
  optlist-options-lt = 'X'.
~ u V+a0kF[0  optlist-options-ne = 'X'.
I1o(G,|'Hc tw.Q(n0  APPEND optlist TO restrict-opt_list_tab.

  ass-kind = 'S'.
+I)Q4/t J5X*a0  ass-name = 'S_WERKS'.
Jm _5~]i8p/;L0  ass-sg_main = 'I'.ITPUB个人空间xN`v,a.hH
  ass-sg_addy = space.ITPUB个人空间ecjOS#[c(dq8u
  ass-op_main = 'OBJECTKEY2'.
R@+wD r`~0  APPEND ass TO restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
q~_,vXu8`%e0   EXPORTINGITPUB个人空间T u5g.UP[:C
    restriction                  = restrictITPUB个人空间ldg;j+H-z-aJ6[1Q
   EXCEPTIONSITPUB个人空间E0_1v |4d-}OT6Ds
     TOO_LATE                     = 1
*@/faGvnS0     REPEATED                     = 2ITPUB个人空间O9i/k8nGc'}6~
     SELOPT_WITHOUT_OPTIONS       = 3
+b8Z)py0v3Ej0     SELOPT_WITHOUT_SIGNS         = 4ITPUB个人空间T~^L+Jx IUNj
     INVALID_SIGN                 = 5ITPUB个人空间`#~)?/q7Wyd8?bdR
     EMPTY_OPTION_LIST            = 6ITPUB个人空间 v [c4E0h/[7R
     INVALID_KIND                 = 7
-^ oF_^m8k|h0     REPEATED_KIND_A              = 8ITPUB个人空间@@b2~.Jy U'h
     OTHERS                       = 9
&c{:LC,Iq%E0            .
T E!C{~2M(tU0  IF sy-subrc <> 0.ITPUB个人空间CC {-kL7{;t(x
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOITPUB个人空间?tQ7?w tC"W~@
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ITPUB个人空间NLAi$VX |
  ENDIF. ITPUB个人空间b1?O1bZ4G