---------在循環中---------

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 语法备忘 刘欣的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。