REPORT Z07_016.
DATA: BEGIN OF line,
land(5) 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 = 'SEOUL'. line-name = 'CHO'.
line-age = 20. line-weight = '80.00'.
APPEND line TO itab.
line-land = 'DAEGU'. line-name = 'KIM'.
line-age = 35. line-weight = '45.00'.
APPEND line TO itab.
line-land = 'BUSAN'. line-name = 'LEE'.
line-age = 40. line-weight = '95.00'.
APPEND line TO itab.
line-land = 'SUWON'. line-name = 'HAN'.
line-age = 18. line-weight = '50.00'.
APPEND line TO 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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
611 | REPORT z19_005 [1] | sapjoy | 2007.04.03 | 2927 |
610 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
609 | REPORT z17_20 | sapjoy | 2012.08.01 | 2890 |
608 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
607 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
606 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2878 |
605 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
604 | DBZF1SSEL | sapjoy | 2006.12.19 | 2847 |
603 | REPORT z18_014 | sapjoy | 2007.03.09 | 2844 |
602 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
601 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
600 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
599 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
598 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
» | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
596 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
595 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2793 |
594 | report zunicode_026. | sapjoy | 2008.11.21 | 2783 |
593 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
592 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |