Modify

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L4S32 { color: #3399FF; } .L4S33 { color: #4DA619; } .L4S52 { color: #0000FF; }    LOOP  AT citab2.
     READ  TABLE itab_mbu_sum
           WITH  KEY gjahr = citab2-gjahr
                   perio = citab2-perio
                   zmbu  = citab2-zmbu
                   smtype =  '2'  BINARY  SEARCH.
     IF itab_mbu_sum- buffer <>  0.
      citab2-ratio  = citab2- buffer / itab_mbu_sum- buffer.
     ELSE.
      citab2-ratio  =  0.
     ENDIF.
     IF itab_mbu_sum-buffer1 <>  0.
      citab2-ratio1 = citab2-buffer1 / itab_mbu_sum-buffer1.
     ELSE.
      citab2-ratio1 =  0.
     ENDIF.
     MODIFY citab2.
     CLEAR: citab2.
   ENDLOOP.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23947343/viewspace-700960/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23947343/viewspace-700960/