内表中的处理问题

awarecan

原帖由 rosefish 于 2009-5-21 11:50 发表

“程序 = 算法 + 数据结构”
上面这个算法非常好，我觉得这是实现楼主需求的最佳算法。另外我想补充几点数据结构或者说是ABAP语法的看法：
1. loop itab 在ABAP中的语句是loop at itab.
2. end at 在ABAP中是一个关键字endat.
3. at new f. at end of f. 要考虑f前面的字段。比如内表的字段是f1,f2,...fn. 如果使用at new f2这样的语句，结果会被f1影响。详细情况请debug。
4. at end of f.语句执行后，f后面的字段值会丢失(变成*)。
因此，要用楼上的算法写一个完整的程序实现楼主的需求，可能需要解决上面的几个问题。

小鱼眼还真尖。
所以，还是我的一个程序是对的，要用last_value保存一下。

yexin168

原帖由 awarecan 于 2009-5-21 10:14 发表
可能连last_value都不用声明，在at end of key里直接用itab也行。

data itab type table of xxx.
data found.

sort itab by key date.
loop itab.
  at new key.
    clear found.
  end at.

  if found is initial.
    if itab-date >= 200903.
      itab is your need
      found = 'X'.
    endif.
  endif.

  at end of key.
    if found is initial.
      itab is your need
    endif.
  end at.
endloop.

谢谢awarecan  和rosefish  
我想问下：
at new key.
    clear found.
  end at.  这里的key 能否 是多个字段的结合呢？  还有 at end of key
比如 at new  MATNR WERKS LGORT CHARG.
         。。
         end.    这样可以吗？   谢谢~~

awarecan

原帖由 yexin168 于 2009-5-22 09:41 发表


谢谢awarecan  和rosefish  
我想问下：
at new key.
    clear found.
  end at.  这里的key 能否 是多个字段的结合呢？  还有 at end of key
比如 at new  MATNR WERKS LGORT CHARG.
         。。
         end.    这样可以吗？   谢谢~~

不可以。

可以

loop

  at new MATNR
  end at

  at new WERKS
  end at

  at new LGORT
  end at

end loop

fengleihen

所以对于他的需求来说，我写的还是有点好处的。大众化的。

fengleihen

自恋下，嘿嘿

yexin168

呵呵，fengleihen  应该有写过关于MCHB ，或者mard 等的表的需求吧。
他们的取数逻辑就是这样的。。
比如MCHB 就要根据  MATNR WERKS LGORT CHARG 来确定唯一值....
     用了多几个loop后，ABAP 的执行效率很慢的..
我现在在测试awarecan  提供给我的方法，看看执行效果如果。。呵呵..

fengleihen

原帖由 yexin168 于 2009-5-22 13:30 发表
呵呵，fengleihen  应该有写过关于MCHB ，或者mard 等的表的需求吧。
他们的取数逻辑就是这样的。。
比如MCHB 就要根据  MATNR WERKS LGORT CHARG 来确定唯一值....
     用了多几个loop后，ABAP 的执行效率很慢的..
我现在在测试awarecan  提供给我的方法，看看执行效果如果。。呵呵..

按理来说，我的执行效率要好点，因为一开始删除了重复项，loop 总表数目减少，
并且每次找对象值运行loop只有一条数据。

awarecan

原帖由 fengleihen 于 2009-5-22 13:47 发表

按理来说，我的执行效率要好点，因为一开始删除了重复项，loop 总表数目减少，
并且每次找对象值运行loop只有一条数据。

你的算法会反复的做sort好不好，不要耗费时间么？
另外 loop at where，如果不是where的不是left aligned key，也是要full table scan的，至少是O(n/2)。
再想想吧

yexin168

你的算法会反复的做sort好不好，不要耗费时间么？
另外 loop at where，如果不是where的不是left aligned key，也是要full table scan的，至少是O(n/2)。
再想想吧

这样吧。。我把我写的程序贴上来，帮我看看，那种方式效率高，因为真的速度很慢。。

SELECT
        LFGJA
        LFMON
        WERKS
        LGORT
        MATNR
        LABST AS KALAB  "非限制
        INSME AS KAINS  "质检
        SPEME AS KASPE  "冻结
      INTO CORRESPONDING FIELDS OF TABLE  GTD_003
      FROM MARD
      WHERE WERKS  IN S_WERKS
      AND   MATNR  IN S_MATNR
      AND   LGORT  IN S_LGORT
       AND  LFGJA <= P_LFGJA .

    SELECT
       LFGJA
       LFMON
       WERKS
       LGORT
       MATNR
       LABST AS KALAB  "非限制
       INSME AS KAINS  "质检
       SPEME AS KASPE  "冻结
     APPENDING CORRESPONDING FIELDS OF TABLE  GTD_003
     FROM MARDH
     WHERE WERKS  IN S_WERKS
     AND   MATNR  IN S_MATNR
     AND   LGORT  IN S_LGORT
       AND  LFGJA <= P_LFGJA .

LOOP AT GTD_003.
      CONCATENATE GTD_003-LFGJA  GTD_003-LFMON INTO  GTD_003-PYEAR.  “把年度和月份合并处理
      MODIFY GTD_003.
    ENDLOOP.

  SORT GTD_003 BY  MATNR WERKS LGORT PYEAR DESCENDING .

GTD_000[] = GTD_003[].

  DELETE ADJACENT DUPLICATES FROM GTD_000 COMPARING MATNR WERKS LGORT.

LOOP AT GTD_000 ASSIGNING <GTD_000>.
      SORT GTD_003 BY  MATNR WERKS LGORT PYEAR ASCENDING.
      LOOP AT GTD_003  WHERE WERKS = <GTD_000>-WERKS AND  LGORT = <GTD_000>-LGORT AND MATNR = <GTD_000>-MATNR  AND PYEAR >= GDF_SPMON  .
        EXIT.
      ENDLOOP.
      IF SY-SUBRC <> 0.
        LOOP AT GTD_003  WHERE WERKS = <GTD_000>-WERKS AND  LGORT = <GTD_000>-LGORT AND MATNR = <GTD_000>-MATNR  AND PYEAR < GDF_SPMON  .
          EXIT.
        ENDLOOP.

        IF SY-SUBRC = 0 .
          MOVE-CORRESPONDING GTD_003 TO GTD_KC.
          APPEND GTD_KC.
          CLEAR GTD_KC.
        ENDIF.
      ELSE.
        MOVE-CORRESPONDING GTD_003 TO GTD_KC.
        APPEND GTD_KC.
        CLEAR GTD_KC.
      ENDIF.

    ENDLOOP.
这个是用的是f 的方法来写的... 出来的结果看了下，应该是对的..


下面用另外一位兄弟的做法：少了 GTD_000 这个内表循环
DATA : FOUND TYPE C  .
    DATA LAST_VALUE LIKE LINE OF GTD_003.

    LOOP AT  GTD_003 .
      AT NEW  MATNR.
        AT NEW WERKS.
          AT NEW LGORT.
              CLEAR FOUND .
              CLEAR LAST_VALUE.
            ENDAT .
          ENDAT .
        ENDAT .

      IF FOUND IS INITIAL .
        IF GTD_003-PYEAR = GDF_SPMON  .
          MOVE-CORRESPONDING GTD_003 TO GTD_KC.
        APPEND GTD_KC.
        CLEAR GTD_KC.
          FOUND = 'X'.

        ELSEIF GTD_002-PYEAR > GDF_SPMON.
           MOVE-CORRESPONDING GTD_003 TO GTD_KC.
        APPEND GTD_KC.
        CLEAR GTD_KC.
          FOUND = 'X'.
        ELSE.
          LAST_VALUE = GTD_003.

        ENDIF.
      ENDIF.

      AT END OF MATNR.
        AT END OF WERKS.
          AT END OF LGORT.
              IF FOUND IS INITIAL.
                MOVE-CORRESPONDING LAST_VALUE TO GTD_KC.
                APPEND GTD_KC.
                CLEAR: GTD_KC,LAST_VALUE.
              ENDIF.
          ENDAT.
        ENDAT.
      ENDAT.
    ENDLOOP.
这个出来结果是有点问题的。 这个还要进一步处理，否则没办法根据MATNR WERKS LGORT 来删选...

yexin168

我想能在select 的时候就把这个逻辑实现了应该速度最快把..