ABAP

, . , . .
. , 30 :

SELECTION-SCREENBEGINOFLINE.
SELECTION-SCREENCOMMENT3(15)text-s01FORFIELDso_ct.
SELECT-OPTIONS:so_ctFORgs_subssc-typecase.
SELECTION-SCREENENDOFLINE.	

, :

TYPES:
	BEGINOFts_typecase,
	casetypeTYPEze_sd_typecase,
	textTYPEtext50,
	ENDOFts_typecase.
DATAlt_typecaseTYPESTANDARDTABLEOFts_typecase.

. , :

ATSELECTION-SCREENONVALUE-REQUESTFORso_ct-low.

SELECTtypecasetext
INTOTABLElt_typecase
FROMzs_sd_typecase
WHEREtypecaseNOTIN('02','05').	

, , , . . :

CALLFUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield='TYPECASE'
value_org='S'
TABLES
value_tab=lt_typecase
EXCEPTIONS
PARAMETER_ERROR=1
NO_VALUES_FOUND=2
OTHERS=3 .	

. , .
:

SELECTION-SCREENBEGINOFLINE.
SELECTION-SCREENCOMMENT3(15)text-s01FORFIELDso_ct.
SELECT-OPTIONS:so_ctFORgs_subssc-typecase.
SELECTION-SCREENENDOFLINE. 

TYPES:
BEGINOFts_typecase,
casetypeTYPEzs_sd_typecase,
textTYPEtext50,
ENDOFts_typecase.
DATAlt_typecaseTYPESTANDARDTABLEOFts_typecase.

ATSELECTION-SCREENONVALUE-REQUESTFORso_ct-low.

SELECTtypecasetext
  INTOTABLElt_typecase
FROMzs_sd_typecase
WHEREtypecaseNOTIN('02','05').

CALLFUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield='TYPECASE'
value_org='S'
TABLES
value_tab=lt_typecase
EXCEPTIONS
PARAMETER_ERROR=1
NO_VALUES_FOUND=2
OTHERS =3 .