OP-OF-PAGE.
WRITE: / ‘考试页-页眉‘.
END-OF-PAGE.
WRITE: / ‘考试页-页脚‘.
START-OF-SELECTION.
FORMAT COLOR = 6.
WRITE:AT /1(30) SY-ULINE.
WRITE:AT /1(1) SY-VLINE.
WRITE: AT 2(28) ‘考试‘ INVERSE ON CENTERED.
WRITE:AT 30(1) SY-VLINE.
WRITE:AT /1(30) SY-ULINE.
FORMAT COLOR OFF.
TYPES:BEGIN OF TYP_TAB,
NAME TYPE CHAR20,
SEX TYPE CHAR4,
ASS TYPE P DECIMALS 2,
END OF TYP_TAB.
DATA GT_TAB TYPE TABLE OF TYP_TAB .
DATA GS_TAB TYPE TYP_TAB.
GS_TAB-NAME = ‘张三‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘20000‘.
APPEND GS_TAB TO GT_TAB.
GS_TAB-NAME = ‘李四‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘30000‘.
APPEND GS_TAB TO GT_TAB.
GS_TAB-NAME = ‘王五‘.
GS_TAB-SEX = ‘女‘.
GS_TAB-ASS = ‘50000‘.
APPEND GS_TAB TO GT_TAB.
GS_TAB-NAME = ‘张三‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘20000‘.
INSERT GS_TAB INTO TABLE GT_TAB.
GS_TAB-NAME = ‘李四‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘30000‘.
INSERT GS_TAB INTO TABLE GT_TAB.
GS_TAB-NAME = ‘王五‘.
GS_TAB-SEX = ‘女‘.
GS_TAB-ASS = ‘50000‘.
INSERT GS_TAB INTO TABLE GT_TAB.
LOOP AT GT_TAB INTO GS_TAB.
IF SY-TABIX = 1.
WRITE :AT /1(34) SY-ULINE.
WRITE: AT /1(1) SY-VLINE.
WRITE: AT 2(10) ‘姓名‘CENTERED.
WRITE: AT 12(1) SY-VLINE.
WRITE:AT 13(10) ‘性别‘CENTERED.
WRITE:AT 23(1) SY-VLINE.
WRITE: AT 24(10) ‘资产‘CENTERED.
WRITE: AT 34(1) SY-VLINE.
WRITE :AT /1(34) SY-ULINE.
ENDIF.
WRITE: AT /1(1) SY-VLINE.
WRITE: AT 2(10) GS_TAB-NAME CENTERED.
WRITE: AT 12(1) SY-VLINE.
WRITE:AT 13(10) GS_TAB-SEX CENTERED.
WRITE:AT 23(1) SY-VLINE.
WRITE: AT 24(10) GS_TAB-ASS CENTERED.
WRITE: AT 34(1) SY-VLINE.
WRITE :AT /1(34) SY-ULINE.
ENDLOOP.
LOOP AT GT_TAB INTO GS_TAB WHERE NAME = ‘李四‘.
GS_TAB-SEX = ‘女‘.
MODIFY GT_TAB FROM GS_TAB TRANSPORTING SEX.
WRITE: AT /1(1) SY-VLINE.
WRITE: AT 2(10) GS_TAB-NAME CENTERED.
WRITE: AT 12(1) SY-VLINE.
WRITE:AT 13(10) GS_TAB-SEX CENTERED.
WRITE:AT 23(1) SY-VLINE.
WRITE: AT 24(10) GS_TAB-ASS CENTERED.
WRITE: AT 34(1) SY-VLINE.
WRITE :AT /1(34) SY-ULINE.
ENDLOOP.
LOOP AT GT_TAB INTO GS_TAB WHERE NAME = ‘张三‘.
GS_TAB-ASS = ‘123456.789‘.
MODIFY GT_TAB FROM GS_TAB TRANSPORTING ASS.
WRITE: AT /1(1) SY-VLINE.
WRITE: AT 2(10) GS_TAB-NAME CENTERED.
WRITE: AT 12(1) SY-VLINE.
WRITE:AT 13(10) GS_TAB-SEX CENTERED.
WRITE:AT 23(1) SY-VLINE.
WRITE: AT 24(10) GS_TAB-ASS CENTERED.
WRITE: AT 34(1) SY-VLINE.
WRITE :AT /1(34) SY-ULINE.
ENDLOOP.
DELETE GT_TAB FROM 1 TO 6.
.GS_TAB-NAME = ‘张三‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘20000‘.
COLLECT GS_TAB INTO GT_TAB.
GS_TAB-NAME = ‘李四‘.
GS_TAB-SEX = ‘男‘.
GS_TAB-ASS = ‘30000‘.
COLLECT GS_TAB INTO GT_TAB.
GS_TAB-NAME = ‘王五‘.
GS_TAB-SEX = ‘女‘.
GS_TAB-ASS = ‘50000‘.
COLLECT GS_TAB INTO GT_TAB.
SORT GT_TAB BY NAME ASCENDING.
READ TABLE GT_TAB INTO GS_TAB WITH KEY NAME = ‘李四‘ SEX = ‘男‘BINARY SEARCH.
skip.
WRITE :AT /15(34) SY-ULINE.
WRITE: AT /15(1) SY-VLINE.
WRITE: AT 16(10) GS_TAB-NAME COLOR COL_NEGATIVE CENTERED.
WRITE: AT 26(1) SY-VLINE.
WRITE:AT 27(10) GS_TAB-SEX COLOR COL_NEGATIVE CENTERED.
WRITE:AT 37(1) SY-VLINE.
WRITE: AT 38(10) GS_TAB-ASS COLOR COL_NEGATIVE CENTERED..
WRITE: AT 48(1) SY-VLINE.
WRITE :AT /15(34) SY-ULINE.
SKIP.
DATA GV_01 TYPE I VALUE 0 .
DATA GV_02 TYPE I .
DO 6 TIMES .
GV_02 = 6 - GV_01.
DO GV_02 TIMES.
WRITE :‘*‘.
ENDDO.
WRITE : /.
GV_01 = GV_01 + 1.
ENDDO.
原文地址:https://www.cnblogs.com/salah/p/11934471.html