REPORT Z07_017 .
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.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
650 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
649 | REPORT z19_01. | sapjoy | 2012.08.01 | 3531 |
648 | z_exception_test | sapjoy | 2010.10.10 | 3520 |
647 | report zsalv_036 . | sapjoy | 2010.08.20 | 3472 |
646 | REPORT z18_04 . | sapjoy | 2012.08.01 | 3353 |
645 | REPORT ZSMARTFORMS_03. | sapjoy | 2008.11.28 | 3345 |
644 | REPORT z18_05 | sapjoy | 2012.08.01 | 3334 |
643 | Sub DOI_EXCEL_MACRO() | sapjoy | 2008.12.26 | 3312 |
642 | subroutine pool | sapjoy | 2013.11.15 | 3282 |
641 | REPORT z18_003 | sapjoy | 2007.03.05 | 3281 |
640 | REPORT z19_004 | sapjoy | 2007.03.27 | 3230 |
639 | REPORT Z_WHEREUSEDLIST [4] | sapjoy | 2011.03.28 | 3215 |
638 | REPORT ZALVCOLOR | sapjoy | 2010.10.09 | 3212 |
637 | zsalv_edit [1] | sapjoy | 2010.08.20 | 3208 |
636 | REPORT ZSAPTIP_002. | sapjoy | 2009.02.20 | 3207 |
635 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3205 |
634 | REPORT z18_06. | sapjoy | 2012.08.01 | 3160 |
633 | REPORT zsapdoi_001. [2] | sapjoy | 2008.12.20 | 3137 |
632 | report zsalv_042 . | sapjoy | 2010.08.20 | 3132 |
631 | REPORT z18_01. | sapjoy | 2012.08.01 | 3114 |