考试1

标签：arc   form   select   begin   font   start   family   sys   color   

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.

考试1

标签：arc   form   select   begin   font   start   family   sys   color   

原文地址：https://www.cnblogs.com/salah/p/11934471.html