字符串作业

DATA AONSA TYPE I VALUE 0.
  DATA AONOUT TYPE I VALUE 0.
  DATA AONRE TYPE I VALUE 0.
  DATA DI TYPE P DECIMALS 2 VALUE 2.
  DATA  DA TYPE P DECIMALS 2  VALUE 2.
TABLES: ZFF_DTPRO1.
TYPES:BEGIN OF TP.
           INCLUDE  TYPE ZFF_DTPRO1.
              TYPES  :   SAR    TYPE P DECIMALS 2,              "销售率
                 PROR  TYPE P DECIMALS 2,                          "生产率
              RER  TYPE  P DECIMALS 2,                              "研发率
             DAYPAY TYPE P DECIMALS 2,                          "每日应结工资
            END OF TP.



DATA   GT_TAB TYPE TABLE OF TP.
DATA   GS_TAB TYPE TP.

SELECT *
     FROM ZFF_DTPRO1
     INTO TABLE GT_TAB.



LOOP AT GT_TAB INTO  GS_TAB.
  IF SY-TABIX = 1.
WRITE: AT /1(121) SY-ULINE.
WRITE: AT /1(1)  SY-VLINE.
WRITE: AT  2(10)  '姓名'CENTERED.
WRITE: AT  12(1) SY-VLINE.
WRITE: AT  13(20)  'ID'CENTERED.
WRITE: AT  33(1) SY-VLINE.
WRITE: AT  34(10)  '员工编号'CENTERED.
WRITE: AT  44(1) SY-VLINE.
WRITE: AT  45(10)  '部门'CENTERED.
WRITE: AT  55(1) SY-VLINE.
WRITE: AT  56(10)  '入职日期'CENTERED.
WRITE: AT  66(1) SY-VLINE.
WRITE: AT  67(10)  '离职日期'CENTERED.
WRITE: AT  77(1) SY-VLINE.
WRITE: AT  78(10)  '当月薪酬'CENTERED.
WRITE: AT  88(1) SY-VLINE.
WRITE: AT  89(10)   '相关数量'CENTERED.
WRITE: AT  99(1) SY-VLINE.
WRITE: AT  100(10)  '相关比率'CENTERED.
WRITE: AT  110(1) SY-VLINE.
WRITE: AT  111(10)  '日薪酬'CENTERED.
WRITE: AT  121(1) SY-VLINE.

WRITE: AT /1(121) SY-ULINE.
ENDIF.
GS_TAB-SAR = GS_TAB-ONSA / (  GS_TAB-LEAVEDA - GS_TAB-ENTRYDA ).
GS_TAB-PROR = GS_TAB-ONOUT / (  GS_TAB-LEAVEDA - GS_TAB-ENTRYDA ).
GS_TAB-RER = GS_TAB-ONRE  / (  GS_TAB-LEAVEDA - GS_TAB-ENTRYDA ).
GS_TAB-DAYPAY  = GS_TAB-MONPAY / 22.
WRITE: AT /1(1)  SY-VLINE.
WRITE: AT  2(10)  GS_TAB-EMNA CENTERED.
WRITE: AT  12(1) SY-VLINE.
WRITE: AT  13(20)  GS_TAB-IDNU CENTERED.
WRITE: AT  33(1) SY-VLINE.
WRITE: AT  34(10)  GS_TAB-EMID CENTERED.
WRITE: AT  44(1) SY-VLINE.
WRITE: AT  45(10)  GS_TAB-DEPA CENTERED.
WRITE: AT  55(1) SY-VLINE.
WRITE: AT  56(10)  GS_TAB-ENTRYDA CENTERED.
WRITE: AT  66(1) SY-VLINE.
WRITE: AT  67(10)  GS_TAB-LEAVEDA CENTERED.
WRITE: AT  77(1) SY-VLINE.
WRITE: AT  78(10)  GS_TAB-MONPAY CENTERED.
WRITE: AT  88(1) SY-VLINE.
CASE  GS_TAB-DEPA.
  WHEN '销售部'.
WRITE: AT  89(10)   GS_TAB-ONSA CENTERED.
WHEN '生产部'.
WRITE: AT  89(10)   GS_TAB-ONOUT CENTERED.
WHEN:'研发部'.
WRITE: AT  89(10)   GS_TAB-ONRE CENTERED.
ENDCASE.
WRITE: AT  99(1) SY-VLINE.
CASE  GS_TAB-DEPA.
  WHEN '销售部'.
WRITE: AT  100(10)   GS_TAB-SAR CENTERED.
WHEN '生产部'.
WRITE: AT  100(10)   GS_TAB-PROR CENTERED.
WHEN:'研发部'.
WRITE: AT  100(10)   GS_TAB-RER CENTERED.
ENDCASE.
WRITE: AT  110(1) SY-VLINE.
WRITE: AT  111(10)  GS_TAB-DAYPAY CENTERED.
WRITE: AT  121(1) SY-VLINE.

WRITE: AT /1(121) SY-ULINE.
AONSA = AONSA + GS_TAB-ONSA.
AONOUT = AONOUT +  GS_TAB-ONOUT.
AONRE  = AONRE  + GS_TAB-ONRE.
ENDLOOP.
DI = AONOUT / AONSA.
DA = AONRE / AONOUT.

WRITE : AT /1     '生产销售比',DI,AONSA,AONOUT,AONRE.
WRITE : AT 80   '研发生产比', DA.