提问
ABAP Development

平行光标

2020-08-19 02:08发布

站内问答 / ABAP
2422 5 4

         点击此处--->   EasySAP.com群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）


我的要求是使用带有4或5个循环的并行游标。 我想将此代码转换为

在it_mard INTO wa_mard中循环。

wa_final-matnr = wa_mard-matnr。
wa_final-werks = wa_mard-werks。
wa_final-lgort = wa_mard-lgort。
wa_final-lgort。 labst = wa_mard-labst。


清除：wa_mseg，wa_ser03，wa_objk。
在it_mseg处放入wa_mseg，其中matnr = wa_mard-matnr
和werks = wa_mard-werks
lgort = wa_mard-lgort。


wa_final-aufnr = wa_mseg-aufnr。


在it_ser03上循环到wa_ser03在mblnr = wa_mseg-mblnr。
在it_objk上循环 在into wa_objk中obknr = wa_ser03-obknr。

清除：wa_final-status2。

如果wa_mseg-bwart ='261'。 -----------------------
wa_final-status ='已消耗'.---------------- -----
wa_final-status2 ="活动"。----------------------
清除：wa_final-plnbez，wa_final-bldat 。

读取表it_​​afko使用键aufnr = wa_mseg-aufnr进入wa_afko。

如果sy-subrc =0。
wa_final-plnbez = wa_afko-plnbez。
ENDIF。 br>
读取表it_​​mkpf使用键mblnr = wa_mseg-mblnr插入wa_mkpf。

如果sy-subrc =0。
wa_final-bldat = wa_mkpf-bldat。
ENDIF。
-------------------------------------------------- -----------------------------------要添加
ELSEIF wa_mseg-bwart ='551'。
CLEAR：wa_final-status2。
wa_final-status2 ="废料"。
wa_final-status2 ="无效"。

如果wa_final-status ='Scrap'。
CLEAR wa_final-aufnr。
ENDIF。
wa_final-date =''。
ENDIF。

wa_final-sernr = wa_objk-sernr。
SHIFT wa_final-sernr左删除指针为'0 '。
APPEND wa_final到它_final。
ENDLOOP。
ENDLOOP。
ENDLOOP。


* ------------- -------------------------------------------------- -

将it_view循环到wa_view中，matnr = wa_mard-matnr
AND b_werk = wa_mard-werks
AND b_lager = wa_mard-lgort。

清除：wa_final-plnbez， wa_final-bldat。

如果wa_view-b_lager ='112A'或wa_view-b_lager ='113A'或wa_view-b_lager ='114A'或wa_view-b_lager ='111V'。
清除：wa_final- status2。

wa_final-status ='正在生产'。
wa_final-date = wa_view-aedat。
wa_final-status2 =''。
如果wa_final-status ='正在生产 生产'。
CLEAR wa_final-aufnr。
ENDIF。
ELSE。
CLEAR：wa_final-status2。

wa_final-status ='Available'。
wa_final-date =''。
wa_final-status2 =''。

如果wa_final-status ='Available'。
清除wa_final-aufnr。
ENDIF。
ENDIF。
wa_final-sernr = wa_view-sernr。
SHIFT wa_final-sernr左删除领先'0'。
将wa_final附加到it_final。
ENDLOOP。
ENDLOOP。

         点击此处--->   EasySAP.com群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）


我的要求是使用带有4或5个循环的并行游标。 我想将此代码转换为

在it_mard INTO wa_mard中循环。

wa_final-matnr = wa_mard-matnr。
wa_final-werks = wa_mard-werks。
wa_final-lgort = wa_mard-lgort。
wa_final-lgort。 labst = wa_mard-labst。


清除：wa_mseg，wa_ser03，wa_objk。
在it_mseg处放入wa_mseg，其中matnr = wa_mard-matnr
和werks = wa_mard-werks
lgort = wa_mard-lgort。


wa_final-aufnr = wa_mseg-aufnr。


在it_ser03上循环到wa_ser03在mblnr = wa_mseg-mblnr。
在it_objk上循环 在into wa_objk中obknr = wa_ser03-obknr。

清除：wa_final-status2。

如果wa_mseg-bwart ='261'。 -----------------------
wa_final-status ='已消耗'.---------------- -----
wa_final-status2 ="活动"。----------------------
清除：wa_final-plnbez，wa_final-bldat 。

读取表it_​​afko使用键aufnr = wa_mseg-aufnr进入wa_afko。

如果sy-subrc =0。
wa_final-plnbez = wa_afko-plnbez。
ENDIF。 br>
读取表it_​​mkpf使用键mblnr = wa_mseg-mblnr插入wa_mkpf。

如果sy-subrc =0。
wa_final-bldat = wa_mkpf-bldat。
ENDIF。
-------------------------------------------------- -----------------------------------要添加
ELSEIF wa_mseg-bwart ='551'。
CLEAR：wa_final-status2。
wa_final-status2 ="废料"。
wa_final-status2 ="无效"。

如果wa_final-status ='Scrap'。
CLEAR wa_final-aufnr。
ENDIF。
wa_final-date =''。
ENDIF。

wa_final-sernr = wa_objk-sernr。
SHIFT wa_final-sernr左删除指针为'0 '。
APPEND wa_final到它_final。
ENDLOOP。
ENDLOOP。
ENDLOOP。


* ------------- -------------------------------------------------- -

将it_view循环到wa_view中，matnr = wa_mard-matnr
AND b_werk = wa_mard-werks
AND b_lager = wa_mard-lgort。

清除：wa_final-plnbez， wa_final-bldat。

如果wa_view-b_lager ='112A'或wa_view-b_lager ='113A'或wa_view-b_lager ='114A'或wa_view-b_lager ='111V'。
清除：wa_final- status2。

wa_final-status ='正在生产'。
wa_final-date = wa_view-aedat。
wa_final-status2 =''。
如果wa_final-status ='正在生产 生产'。
CLEAR wa_final-aufnr。
ENDIF。
ELSE。
CLEAR：wa_final-status2。

wa_final-status ='Available'。
wa_final-date =''。
wa_final-status2 =''。

如果wa_final-status ='Available'。
清除wa_final-aufnr。
ENDIF。
ENDIF。
wa_final-sernr = wa_view-sernr。
SHIFT wa_final-sernr左删除领先'0'。
将wa_final附加到it_final。
ENDLOOP。
ENDLOOP。

付费偷看设置
发送
5条回答
风早神人
1楼-- · 2020-08-19 03:05

有许多实现并行游标的方法，这完全取决于不同表中的数据如何具有匹配键（例如，从基数1：1到0..m：0..n）。

  1. 请使自己熟悉以下信息，
  2. 然后实际尝试对并行游标逻辑进行编码，以及
  3. 如果您仍然遇到问题 这样，我很高兴为您提供帮助

并行游标的一般准则如下：

  • 所有表格都需要按 与之比较的键
  • 键比较<，>，=用于增加光标，或"等待"下一个可能的匹配项
  • （平行）光标 每个嵌套循环或读取表都是必需的
  • （并行）光标标记嵌套表的（FROM）索引，您可以在其中继续"搜索"下一条记录，而无需实际搜索整个表
  • 排序的键和并行游标共同构成了与实际表搜索相比性能提高的魔力，在海量表数据集和大量匹配键的情况下
  • 因此，它对于小型数据集并没有任何用处。 在某些情况下，只有匹配的键很少
  • 与直接使用LOOP/READ by KEY语句相比，并行游标使编码更加混乱，从而导致测试工作量更大

并行游标的最基本形式是：

"两个表都按键K排序（而ITAB1有一个唯一键，而ITAB2没有）
 我= 1。
 将ITAB1环入WA1。
   从I循环到ITAB2到WA2。
     如果WA2-K <> WA1-K。
       我= SY-TABIX。
       出口。
     万一。
     " ..."->找到一个匹配项，匹配逻辑在此处发生
   结局。
 结局。

有关SAP在ABAP对象中的并行游标上进行上述编码的文档，性能示例：

  • 如果ITAB1具有n1项，而ITAB2具有n2项，则
    使用简单算法的嵌套循环为O（n1 * n2），而并行游标方法仅占用O（n1 + n2）时间。
    上述并行游标算法假定ITAB2仅包含
    entries
    如果此假设不成立，则并行游标算法会变得稍微复杂一些，但其性能特征将保持不变。
能不能别闹
2楼-- · 2020-08-19 03:07
< p> vivek gupta ，请继续关注您提出的问题。

  • 评论答案或您的问题是否还有未解决的问题。
  • 否则将答案标记为接受，如果它可以帮助您解决问题
  • 或发布您自己的答案并接受 如果您自己找到了另一个有用的解决方案
  • ，或者将您的问题重定向到另一个相关且对解决您的问题有用的问题
  • 最后，请关闭您的问题
SKY徐
3楼-- · 2020-08-19 03:02

我敢说您不需要实现并行游标。 您可能需要提高性能。 并行游标是执行此操作的旧方法。 如今（即过去的20年）使用HASHED表或SORTED表作为首选项。 有了这些，就不需要并行游标了，从而导致代码更简单甚至更快。

三十六小时_GS
4楼-- · 2020-08-19 02:50

感谢您的Valueble信息

昵称总是被占用
5楼-- · 2020-08-19 02:50

公平点， 但我总是问题"要求"，实际上是"我有问题，这是我的解决方案，它如何工作"。 因此，值得建议更好的技术。 按照优先顺序：

1。 CDS

2。 选择/加入

3。 哈希表/排序表

4。 平行光标。

我已经处理了数百万条记录中的数据集-在过去的20年中，我从未需要使用并行游标。 我非常怀疑OP的问题是它确实需要这种特殊的雪花。

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...