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 .