AT END OF 用法以及星号处理

合并前

合并后

 

 DATA: lt_out LIKE TABLE OF gs_out .
      DATA: ls_out LIKE gs_out .
      DATA: ls_out2 LIKE gs_out .
      DATA lv_tabix TYPE sy-tabix .
      LOOP AT gt_out INTO gs_out WHERE mark EQ 'X' .
        CLEAR lv_tabix .
        lv_tabix =  sy-tabix   .
*      IF gs_out-blart = 'AF'
*         AND  (
        IF
         gs_out-hkont     = '0016020001'
         OR gs_out-hkont  = '0016020002'
         OR gs_out-hkont  = '0016020003'
         OR gs_out-hkont  = '0016020004'
         OR gs_out-hkont  = '0016020005'
         OR gs_out-hkont  = '0016020006'
         OR gs_out-hkont  = '0017020000'
         OR gs_out-hkont  = '0066010020'
         OR gs_out-hkont  = '0066020003' .

*        ) .

          APPEND gs_out TO lt_out .
          DELETE gt_out INDEX lv_tabix .

        ENDIF .

      ENDLOOP .


      SORT lt_out BY bukrs budat belnr blart belnr blart bschl hkont .
      DATA:  lv_dmbtr     LIKE bseg-dmbtr .
      DATA:  lv_dmbtr1    LIKE bseg-dmbtr .
      DATA:  lv_txt20     LIKE skat-txt20 .
      DATA:  lv_txt50     LIKE skat-txt50 .
      LOOP AT lt_out INTO ls_out .
        lv_dmbtr =  lv_dmbtr + ls_out-dmbtr .
        lv_dmbtr1 =  lv_dmbtr1 + ls_out-dmbtr1 .
        ls_out2 = ls_out .
        AT END OF hkont .
          ls_out  = ls_out2 . "在end of 里面非 数值会变成**********
          ls_out-dmbtr = lv_dmbtr .
          ls_out-dmbtr1 = lv_dmbtr1 .
          APPEND ls_out TO gt_out .
          CLEAR  : lv_dmbtr ,lv_dmbtr1 .
        ENDAT .
      ENDLOOP .