二八原则的算法

昨天公司老总要求按二八原则把占公司销量，收入以及利润80%的车型统计出来，写了个程序，原代码如下：

REPORT ZCALRATE .
DATA: it_ztkcjg TYPE TABLE OF ztkcjg,
      wa_ztkcjg TYPE ztkcjg.

INITIALIZATION.

START-OF-SELECTION.
  PERFORM frm_get_data.
*&---------------------------------------------------------------------*
*&      Form  frm_get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_get_data.
  DATA: lv_bl(13) TYPE p DECIMALS 6,
        lv_bl_ban(13) TYPE p DECIMALS 6 VALUE '0.8001'.
  SELECT * FROM ztkcjg
           INTO TABLE it_ztkcjg.
  LOOP AT it_ztkcjg INTO wa_ztkcjg.
    wa_ztkcjg-zkcfg = 'X'.
    wa_z