*selection sort
PARAMETERS: lines LIKE sy-index,
no_range LIKE sy-index.
TYPES: BEGIN OF number,
no TYPE i,
END OF number.
DATA: s_number TYPE number.
DATA: t_number TYPE TABLE OF number WITH HEADER LINE.
DATA: t_number1 TYPE TABLE OF number WITH HEADER LINE.
DATA: cl_random TYPE REF TO cl_random_number.
DATA: m TYPE i,
num TYPE i,
l_index1 TYPE i.
CREATE OBJECT cl_random.
CALL METHOD cl_random->if_random_number~init.
START-OF-SELECTION.
"添加隨機數賦給內表
DO lines TIMES.
CALL METHOD cl_random->if_random_number~get_random_int
EXPORTING
i_limit = no_range "随机数范围
RECEIVING
r_random = m.
t_number = VALUE #( no = m ).
APPEND t_number.
ENDDO.
*排序
DO lines TIMES.
READ TABLE t_number INDEX 1.
num = t_number-no.
LOOP AT t_number.
IF t_number-no < num.
num = t_number-no.
CLEAR: l_index1.
ELSEif t_number-no = num.
clear: l_index1.
num = t_number-no.
l_index1 = sy-tabix.
ENDIF.
ENDLOOP.
t_number1-no = num .
APPEND t_number1.
IF l_index1 IS NOT INITIAL.
DELETE t_number INDEX l_index1.
CLEAR: l_index1.
ELSE.
DELETE t_number WHERE no = num .
CLEAR: num.
ENDIF.
ENDDO.
cl_demo_output=>display( t_number1[] ).
