String operations

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 ,               "sales rate
                 PROR   the TYPE P  DECIMALS  2 ,                           " productivity
              RER   the TYPE P  DECIMALS  2 ,                               "R & D rate
             DAYPAY  the TYPE P  DECIMALS  2 ,                           " the daily wage should bear
            END  OF TP .



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

* the SELECT
     the 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 )   'entry date' CENTERED .
The WRITE :  the AT   66 ( . 1 ) SY -VLINE .
The WRITE :  the AT   67 ( 10 )   'termination date' CENTERED .
The WRITE :  the AT   77 ( . 1 ) SY -VLINE .
The WRITE :  the AT   78 ( 10 )   'month salary' CENTERED .
WRITE :  AT   88 ( 1 ) SY -VLINE .
The WRITE :  the AT   89 ( 10 )    'related to the number' CENTERED .
The WRITE :  the AT   99 ( . 1 ) SY -VLINE .
The WRITE :  the AT   100 ( 10 )   'related ratio' CENTERED .
The WRITE :  the AT   110 ( . 1 ) SY -VLINE .
The WRITE :  the AT   111 ( 10 )   'pay day' CENTERED .
the WRITE :  the 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      'production and sales ratio' , DI , AONSA , AONOUT , AONRE .
WRITE  :  AT  80    'R & D ratio' , DA .