ABAP 语法备忘刘欣

---------在循环中---------

CONTINUE:
结束当前循环进行下一次循环
CHECK:
判断条件，不符合时结束当前循环进入下一次循环
EXIT:
结束整个循环，继续向下运行
RETURN:
退出当前的程序块

-------分类汇总处理--------

（1/2）得到按主键去重的小表：

sort Gt_head_little by ORDERID .
DELETE ADJACENT DUPLICATES FROM Gt_head_little. "小表去重

（2/2）按小表主键每一行，每次取大表的多条数据：

LOOP AT Gt_head  INTO DATA(gs_line) WHERE ORDERID = <gs100>-ORDERID.MOVE-CORRESPONDING gs_line TO gs_temp.APPEND gs_temp to gt_temp.ENDLOOP.

-------分条数下发数据给接口--------

"下面代码，分批发送
DATA:lt_esb_com  TYPE zsca_esb_com_tab,lt_response TYPE STANDARD TABLE OF  zsca_esb_return_common,lt_out      TYPE STANDARD TABLE OF  zspp_pr2dfsk,gv_message  TYPE string,                                 "#EC NEEDEDlv_lines    TYPE char10,lv_rfcdest  TYPE rfcdest,ls_rfc      TYPE ZSPP_PR2DFSK,p_rows      TYPE i VALUE 200.DATA lv_indicator_line TYPE I VALUE 0.lv_lines = lines( gt_rfc ).LOOP AT gt_rfc into ls_rfc.APPEND ls_rfc TO  lt_out.lv_indicator_line = lv_indicator_line + 1.IF ( sy-tabix MOD p_rows ) EQ 0.  "满足200行，todoCALL FUNCTION 'ZSAP_PP_JKSCM_PR_OUT' DESTINATION lv_rfcdestTABLEStt_esb_com            = lt_esb_comet_response           = lt_responseet_data               = lt_outEXCEPTIONSsystem_failure        = 1communication_failure = 2OTHERS                = 3.IF sy-subrc <> 0.MESSAGE e038 WITH sy-subrc INTO gv_message.ELSE.MESSAGE s000 WITH '已经发送条数:' && lv_indicator_line  INTO gv_message .ENDIF."进度条提示CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'EXPORTINGpercentage = lv_indicator_line / lv_lines   * 100   " 注意这里sy-tabix早已经改变，所以只有用自己的计数器text       = '已经发送条数:' && lv_indicator_line .   "提示文本WRITE:/ '已经发送条数:' && lv_indicator_line .REFRESH: lt_out,lt_out[],lt_esb_com,lt_esb_com[].ENDIF."完成LOOP前，不够整发的数据会积累到lt_out
ENDLOOP."完成LOOP后，把剩下的数据发一次。 感觉函数出现两次，主要是原来代码加日志太多了，只能这样了IF lt_out IS NOT INITIAL.lv_lines = lines( lt_out ).CALL FUNCTION 'ZSAP_PP_JKSCM_PR_OUT' DESTINATION lv_rfcdestTABLEStt_esb_com            = lt_esb_comet_response           = lt_responseet_data               = lt_outEXCEPTIONSsystem_failure        = 1communication_failure = 2OTHERS                = 3.IF sy-subrc <> 0.MESSAGE e038 WITH sy-subrc INTO gv_message.ELSE.MESSAGE s000 WITH '最后发送条数:' lv_lines INTO gv_message.ENDIF.WRITE: / '最后发送条数:' && lv_lines.REFRESH: lt_out,lt_out[],lt_esb_com,lt_esb_com[].ENDIF.REFRESH: GT_RFC, GT_RFC[].

ABAP 语法备忘刘欣相关推荐

MarkDown 语法备忘
转载: MarkDown 语法备忘简书是支持Markdown的,在 iOS 项目中也经常用 markdown 为项目写说明,下面是常见的备忘一些常见的的 markdown语法. 语法分级标题:行首 ...
Python语法备忘
Python语法备忘 Numpy numpy数据类型: np常用函数 ndarry ndarray属性 ndarray函数 ndarray索引/切片方式 random函数 linalg函数 Panda ...
批处理文件bat 语法备忘
==== 注 ======================================= EDA中国门户网站]%`2G-Z+h-O .bat是dos下的批处理文件 EDA中国门户网站s&v ...
bash:附近有语法错误_Bash备忘单：按键组合和特殊语法
bash:附近有语法错误 Bourne Again Shell(Bash)是POSIX计算机的文本界面. Shell,Bash或其他方式为您提供了一种无需回旋接口即可直接与计算机对话的方法:您键入希望 ...
Cheat—— 给Linux初学者和管理员一个终极命令行备忘单
当你不确定你所运行的命令,尤其是那些使用了许多选项的复杂命令时,你会怎么做?在这种情况下,我们使用man pages来获取帮助.还有一些其它的选择可能包括像'help','whereis'和'what ...
java备忘录_Java 8备忘单中的可选
java备忘录 Java 8 java.util.Optional<T>是scala.Option[T]和Data.Maybe在Haskell中的较差表亲. 但这并不意味着它没有用. 如果 ...
Java 8备忘单中的可选
Java 8 java.util.Optional<T>是scala.Option[T]和Data.Maybe在Haskell中的较差表亲. 但这并不意味着它没有用. 如果您不熟悉此概念, ...
UWP开发入门教程备忘
UWP-01~03 略~ UWP-04 - 什么是XAML? XAML - 遵循XML语法,XAML实际上是在创建类的实例,并给它们设定属性值,用于定义UI UWP-05 - 类型转换器类型转换器 ...
fib函数用python编写_Python中利用函数装饰器实现备忘功能
"备忘"的定义 "memoization"(备忘)这个词是由Donald Michie在1968年提出的,它基于拉丁语单词"memorandum&qu ...
VB.net小技巧——VB中利用TreeView控件和Box控件做知识备忘
提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 VB.net小技巧--VB中利用TreeView控件和Box控件做知识备忘这里不涉及代码的展示,主要是为了阐述一种做笔记的思想. 为 ...

ABAP 语法备忘刘欣

ABAP 语法备忘刘欣相关推荐

最新文章

热门文章

ABAP 语法备忘 刘欣

ABAP 语法备忘 刘欣相关推荐

最新文章

热门文章

ABAP 语法备忘刘欣

ABAP 语法备忘刘欣相关推荐