Sorting Internal Tables(内表排序)

原创 2011年01月19日 14:09:00

DATA: BEGIN OF LINE,
        LAND(3)  TYPE C,
        NAME(10) TYPE C,
        AGE      TYPE I,
        WEIGHT   TYPE P DECIMALS 2,
      END OF LINE.

DATA ITAB LIKE STANDARD TABLE OF LINE WITH NON-UNIQUE KEY LAND.

LINE-LAND = 'G'.   LINE-NAME   = 'Hans'.
LINE-AGE  = 20.    LINE-WEIGHT = '80.00'.
APPEND LINE TO ITAB.

LINE-LAND = 'USA'. LINE-NAME   = 'Nancy'.
LINE-AGE  = 35.    LINE-WEIGHT = '45.00'.
APPEND LINE TO ITAB.

LINE-LAND = 'USA'. LINE-NAME   = 'Howard'.
LINE-AGE  = 40.    LINE-WEIGHT = '95.00'.
APPEND LINE TO ITAB.

LINE-LAND = 'GB'.  LINE-NAME   = 'Jenny'.
LINE-AGE  = 18.    LINE-WEIGHT = '50.00'.
APPEND LINE TO ITAB.

LINE-LAND = 'F'.   LINE-NAME   = 'Michele'.
LINE-AGE  = 30.    LINE-WEIGHT = '60.00'.
APPEND LINE TO ITAB.

LINE-LAND = 'G'.   LINE-NAME   = 'Karl'.
LINE-AGE  = 60.    LINE-WEIGHT = '75.00'.
APPEND LINE TO ITAB.

PERFORM LOOP_AT_ITAB.

SORT ITAB.
PERFORM LOOP_AT_ITAB.

SORT ITAB.
PERFORM LOOP_AT_ITAB.

SORT ITAB STABLE.
PERFORM LOOP_AT_ITAB.

SORT ITAB DESCENDING BY LAND WEIGHT ASCENDING.
PERFORM LOOP_AT_ITAB.

FORM LOOP_AT_ITAB.
  LOOP AT ITAB INTO LINE.
    WRITE: / LINE-LAND, LINE-NAME, LINE-AGE, LINE-WEIGHT.
  ENDLOOP.
  SKIP.
ENDFORM.

 

 

 



 

 

 

 

DATA: BEGIN OF LINE,
        TEXT(6),
        XTEXT(160) TYPE X,
      END OF LINE.

DATA ITAB LIKE HASHED TABLE OF LINE WITH UNIQUE KEY TEXT.

LINE-TEXT = 'Muller'.
CONVERT TEXT LINE-TEXT INTO SORTABLE CODE LINE-XTEXT.
INSERT LINE INTO TABLE ITAB.

LINE-TEXT = 'Möller'.
CONVERT TEXT LINE-TEXT INTO SORTABLE CODE LINE-XTEXT.
INSERT LINE INTO TABLE ITAB.

LINE-TEXT = 'Moller'.
CONVERT TEXT LINE-TEXT INTO SORTABLE CODE LINE-XTEXT.
INSERT LINE INTO TABLE ITAB.

LINE-TEXT = 'Miller'.
CONVERT TEXT LINE-TEXT INTO SORTABLE CODE LINE-XTEXT.
INSERT LINE INTO TABLE ITAB.

SORT ITAB.
PERFORM LOOP_AT_ITAB.

SORT ITAB BY XTEXT.
PERFORM LOOP_AT_ITAB.

SORT ITAB AS TEXT.
PERFORM LOOP_AT_ITAB.

FORM LOOP_AT_ITAB.
  LOOP AT ITAB INTO LINE.
    WRITE: / LINE-TEXT, line-.
  ENDLOOP.
  SKIP.
ENDFORM.

 

代码摘自:http://help.sap.com/saphelp_NW04/helpdata/en/fc/eb3800358411d1829f0000e829fbfe/content.htm

Sicily 1351. Multi-key Sorting

1351. Multi-key Sorting Constraints Time Limit: 10 secs, Memory Limit: 32 MB Description Consi...
  • u012925008
  • u012925008
  • 2015年03月18日 23:22
  • 875

ABAP 中关键字TABLE在处理内表的作用

标准表(带索引,可以用索引访问) 排序表(带索引和关键字,可以通过索引和关键字来访问) 哈希表  (带关键字,只能通过关键字来访问)   内表的各种操作如下所示:...
  • helongyang
  • helongyang
  • 2012年09月07日 13:51
  • 1082

Pancake sorting 煎饼排序

Pancake sorting 煎饼排序
  • jiyanfeng1
  • jiyanfeng1
  • 2015年07月21日 12:04
  • 1306

数据结构——排序算法总结

排序就是将一组对象按照规定的次序重新
  • u010926964
  • u010926964
  • 2014年10月14日 08:07
  • 14909

算法(一)-排序sorting

问题:输入数字a1,a2,a3...an,使其升序输出。 1、插入排序-insertion sort ·算法: 这个算法从数组的第二个元素开始循环,将选中的元素与之前的元素一一比较,如果选中的元素小于...
  • u013219238
  • u013219238
  • 2015年08月18日 18:00
  • 424

1697: [Usaco2007 Feb]Cow Sorting牛排序

1697: [Usaco2007 Feb]Cow Sorting牛排序 Time Limit: 5 Sec  Memory Limit: 64 MB Submit: 485  Solved: 27...
  • CRZbulabula
  • CRZbulabula
  • 2015年10月17日 23:25
  • 435

1004. Multi-key Sorting

1004. Multi-key Sorting Description Consider a table with rows and columns. Th...
  • u012230199
  • u012230199
  • 2014年02月11日 21:41
  • 590

show tables not like xxx

有时候,比如备份数据库,需要排除一些表 SHOW TABLES WHERE Name NOT LIKE 'tree%'; http://stackoverflow.com/questions/36...
  • lein_wang
  • lein_wang
  • 2015年09月16日 09:42
  • 1451

Internal Table

一. Internal Table 的宣告 ABAP/4中的Internal Table是一种Data Structure,类似于其它语言中的STRUTURE,它可以由几个不同类型的字段(field...
  • yuqinying112
  • yuqinying112
  • 2012年05月04日 08:38
  • 842

External Sort(外排序)

今天听到外排序这个词, 是源于网上看到的一个面试题。 有意思。 以前也听过, 当时只知道这是一个解决了对billlions of integers进行排序的算法。 今天来正式面对这个问题, 引入外排序...
  • a130737
  • a130737
  • 2015年03月08日 20:34
  • 1669
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Sorting Internal Tables(内表排序)
举报原因:
原因补充:

(最多只允许输入30个字)