SAP_ABAP程式優化-多執行緒並行處理 （轉）
阿新 • • 發佈：2018-12-23
ID 'VALUE' FIELD g_applserver. "
SELECT SINGLE classname
FROM rzllitab
INTO g_classname "Server Group Name
WHERE applserver = g_applserver
AND grouptype = 'S'. "S:伺服器組，空:登陸組
非同步呼叫完整程式：
實際專案實施過程中，我們會遇到程式效能優化的問題，這裡介紹一種方法：通過RFC介面進行遠端函式的非同步呼叫實現程式的並行處理。
同步/非同步呼叫函式語法
同步呼叫：CALL FUNCTION 'AAA' ；
同步呼叫的實質：程式進行單執行緒執行。
非同步呼叫：CALL FUNCTION 'AAA' STARTING NEWTASK <taskname> "任務名稱
DESTINATION IN GROUP <RFC Serve Group>
PERFORMING <subroutine>ON END OF TASK
非同步呼叫的實質：程式進行多執行緒執行。
一些關於函式非同步呼叫實現程式並行處理的文章，沒有介紹如下問題：
⒈ 為了避免相同程式重複執行產生的後臺任務相互衝突，需要保證在相同時間段同一程式只被一個使用者佔用；
⒉ 非同步呼叫獲取的最終結果資料與同步呼叫獲取的結果存在差異；
⒊ 固定RFC Server Group如system = 'parallel_generators'，無法保證程式在不同伺服器中通用性。
問題1分析：從MD01中執行MRP我們可以知道，系統為了避免相同程式併發執行，導致後臺任務衝突， MD01在並行模式下是不允許被兩個使用者同時執行的。如下圖
解決方法：通過在程式中利用鎖物件 來達到程式相同時間段只被同一使用者佔用的目的。
問題2分析：在LOOP迴圈中採用非同步呼叫函式的模式，通過SY-SUBRC = 0來判斷任務啟動成功，當SY-SUBRC <> 0時，則獲取先前啟動的程序返回的值，但是這樣就遇到一個問題：如第N次迴圈正好分配給程式的程序被佔用完，這樣本次無法啟動一個任務程序，導致本次的原始資料通過函式無法獲取目標，從而最終結果出現數據不完整和數值不斷變化的現象。
解決方法：犧牲部分效能保證資料的完整。通過RZ12獲取伺服器的Max. requests in queue 的值，LOOP迴圈的時候統計啟動的啟動的程序數是否 = Max. requests inqueue，如果等於則獲取先前啟動的程序返回的值，然後再重新啟動程序，重複此操作。系統分配給每個程式的最大程序數> Max. requests in queue，但是把啟動的程序數限制在Max.requests in queue的水平可以保證獲取結果的完整性。如下圖所示
問題3分析：一般系統直接指定<RFC Serve Group> =' parallel_generators '，如上圖的“伺服器組”對應的內容，為了保持一般性通過如下邏輯段獲取
CALL 'C_SAPGPARAM' "#EC CI_CCALL ID 'NAME' FIELD 'rdisp/myname'ID 'VALUE' FIELD g_applserver. "
SELECT SINGLE classname
FROM rzllitab
INTO g_classname "Server Group Name
WHERE applserver = g_applserver
AND grouptype = 'S'. "S:伺服器組，空:登陸組
下面通過例子來說明函式非同步呼叫，這裡使用函式
'MD_STOCK_REQUIREMENTS_LIST_API'獲取MD04中的物料+工廠 MRP資料明細。首先我們使用同步呼叫的方法，然後再使用非同步呼叫的方法，比較二者在同等條件下的執行效率。
（假設需求：從物料工廠表MARC中獲取一定的行專案，這裡設定為18000條，然後通過呼叫函式獲取物料工廠對應的MRP清單，將物料工廠與獲取的對應清單整合輸出）
同步呼叫：（完整程式在程式最後）
select matnr werks
UP TO 18000 ROWS "資料條目18000
INTO CORRESPONDING FIELDS OF TABLE it_marc
FROM marc
WHERE matnr IN s_matnr
AND werks IN s_werks.
LOOP AT it_marc INTO wa_marc.
CLEAR it_md.
CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'EXPORTING
MATNR = wa_marc-matnr
WERKS = wa_marc-werks
TABLES
MDEZX = it_md
EXCEPTIONS
MATERIAL_PLANT_NOT_FOUND = 1
PLANT_NOT_FOUND = 2
OTHERS = 3.
LOOP AT it_md INTO wa_md.
MOVE-CORRESPONDING wa_md TO wa_output.
wa_output-matnr = wa_marc-matnr.
wa_output-werks = wa_marc-werks.
APPEND wa_output TO it_output.
CLEAR:wa_output,wa_md.
ENDLOOP.
CLEAR wa_marc.
ENDLOOP.
很顯然在同步執行情況下，只有一個程序是執行我們呼叫的函式，其他的程序處於idle狀態。
非同步呼叫：
解決問題1：為了達到當前使用者可以獨佔程式，進入選擇介面即鎖定程式：
AT SELECTION-SCREEN."鎖定程式
CALL FUNCTION 'ENQUEUE_EZZSOPR0032'EXPORTING
mode_trdir = 'E' "鎖型別
name = 'ZSOPR0032' "鎖物件名稱
x_name = ' '
_scope = '2'
_wait = ' '
_collect = ' '
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE '物件已被鎖定,請稍後執行' TYPE 'E'.
ENDIF.
解決問題1：當程式非同步呼叫函式的操作結束後，即可接觸對程式的鎖定：
END OF SELECTION."解除程式的鎖定
CALL FUNCTION 'DEQUEUE_EZZSOPR0032'EXPORTING
mode_trdir = 'E'
name = 'ZSOPR0032'
x_name = ' '
_scope = '3'
_synchron = ' '
_collect = ' '.
解決問題3：獲取RFC Serve Group name
* 獲取 RFC Serve Group name Start--*
* 一般系統預設g_classname = 'parallel_generators'，但為了通用性按照如下方法獲取
CALL 'C_SAPGPARAM' "#EC CI_CCALL
ID 'NAME' FIELD 'rdisp/myname'
ID 'VALUE' FIELD g_applserver.
SELECT SINGLE classname
FROM rzllitab
INTO g_classname "Server Group Name
WHERE applserver = g_applserver
AND grouptype = 'S'. "S:伺服器組，空:登陸組
* 獲取 RFC Serve Group name End--*
解決問題2：通過 最大請求佇列的值 來控制啟動程序數
SELECT matnr werks
UP TO 18000 ROWS "資料條目18000
INTO CORRESPONDING FIELDS OF TABLE it_marc
FROM marc
WHERE matnr IN s_matnr
AND werks IN s_werks.
LOOP AT it_marc INTO wa_marc.
* 生成任務名稱 = 'Task' + sy-tabix Start--*
WRITE sy-tabix TO g_taskname.
CONDENSE g_taskname.
CONCATENATE 'Task' g_taskname INTO g_taskname.
* 生成任務名稱 = 'Task' + sy-tabix End--*
lw_marc-taskname = g_taskname.
lw_marc-matnr = wa_marc-matnr.
lw_marc-werks = wa_marc-werks.
APPEND wa_marc TO lt_marc.
* 非同步呼叫函式 Start--*
CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API' STARTINGNEW TASK g_taskname
DESTINATION INGROUPg_classname
PERFORMING frm_subroutine_done ONEND OF TASK"子程式
* 只要將函式的EXPORTING引數放在此處，其他引數放到子程式中
EXPORTING
matnr = wa_marc-matnr
werks = wa_marc-werks
* 系統標準報錯資訊
EXCEPTIONS
communication_failure = 1 MESSAGE mess
system_failure = 2 MESSAGE mess
resource_failure = 3.
IF sy-subrc = 0.
snd_jobs = snd_jobs + 1.
ENDIF.
* 非同步呼叫函式 End--*
open_task_num = open_task_num + 1. "記錄啟動的程序數量
IF open_task_num = p_wp. "p_wp = RZ12中的 Max. requests in queue
* 獲取併發程序返回的結果
WAIT UNTIL rcv_jobs >= snd_jobs.
CLEAR:open_task_num,rcv_jobs,snd_jobs.
FREE:lt_marc.
ENDIF.
CLEAR wa_marc.
ENDLOOP.
*&---------------------------------------------------------------------*
*& Form FRM_SUBROUTINE_DONE
*&---------------------------------------------------------------------*
FORM frm_subroutine_done USING g_taskname.
rcv_jobs = rcv_jobs + 1. "Receiving data
CLEAR:it_md[].
RECEIVE RESULTS FROMFUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
TABLES
mdezx = it_md
EXCEPTIONS
material_plant_not_found = 1
plant_not_found = 2
OTHERS = 3.
functioncall1 = done.
SORT lt_marc BY taskname.
LOOP AT it_md INTO wa_md.
READ TABLE lt_marc INTO lw_marc WITH KEY taskname = g_taskname BINARYSEARCH.
MOVE-CORRESPONDING wa_md TO wa_output.
wa_output-matnr = lw_marc-matnr.
wa_output-werks = lw_marc-werks.
APPEND wa_output TO it_output.
CLEAR:wa_output,wa_md,lw_marc.
ENDLOOP.
ENDFORM. " FRM_SUBROUTINE_DONE
同步呼叫執行時間
非同步呼叫執行時間
SE30中擷取的兩張執行時間圖，
同步用時429s = 83sABAP程式使用時間 + 346s資料訪問消耗時間；
非同步用時75s = 74sABAP 程式使用時間 + <1s的資料庫訪問消耗時間。
本伺服器Max.requests in queue = 5. 執行時間429 / 75 = 5.7，即提升了5倍多的執行效率。
同步呼叫完整程式：
福大
Description: 同步呼叫函式獲取MRP明細列表DEMO
*&---------------------------------------------------------------------* *& 程式名稱：同步呼叫函式獲取MRP明細列表DEMO *& 程 序 名：ZDEMO_MXQ_TB *& 開發日期：2013-05-15 *& 創 建 者：漢得 *& 申 請 者： *&---------------------------------------------------------------------* *& 摘要說明 *&--------* *& 從物料工廠表MARC中獲取一定的行專案，然後通過呼叫函式獲取物料工廠對應的 *& MRP清單，將物料工廠與獲取的對應清單整合輸出 *&---------------------------------------------------------------------* *& 變更記錄 *& 日期 修改者 傳輸請求號 修改內容及原因 *&--------------- ---------- -------------------- ------------------* * *&---------------------------------------------------------------------* REPORT ZDEMO_MXQ_TB. *----------------------------------------------------------------------* * Type-pools * *----------------------------------------------------------------------* TYPE-POOLS: slis. *----------------------------------------------------------------------* * Table * *----------------------------------------------------------------------* TABLES:marc. *----------------------------------------------------------------------* * Internal Tables and Work Areas *----------------------------------------------------------------------* DATA:BEGIN OF wa_marc, matnr TYPE marc-matnr, "物料號 werks TYPE marc-werks, "工廠 END OF wa_marc. DATA:it_marc LIKE TABLE OF wa_marc. "函式呼叫引數 DATA:it_md TYPE STANDARD TABLE OF mdez, wa_md LIKE LINE OF it_md. DATA:BEGIN OF wa_output. INCLUDE STRUCTURE mdez. DATA:matnr TYPE marc-matnr. "物料號 DATA:werks TYPE marc-werks. "工廠 DATA:END OF wa_output. DATA:it_output LIKE TABLE OF wa_output. *----------------------------------------------------------------------* * Variables *----------------------------------------------------------------------* *----------------------------------------------------------------------* * ALV層級關係定義 *----------------------------------------------------------------------* DATA: it_fieldcat TYPE slis_t_fieldcat_alv, wa_layout TYPE slis_layout_alv. DATA: wa_fieldcat TYPE slis_fieldcat_alv. DATA gv_grid TYPE REF TO cl_gui_alv_grid. DATA: git_events TYPE slis_t_event, "ALV 事件 git_listheader TYPE slis_t_listheader. "ALV 表頭 DATA wa_header TYPE slis_listheader. *&---------------------------------------------------------------------* *& Define marco *&---------------------------------------------------------------------* DEFINE macro_fill_fcat. clear wa_fieldcat. &1 = &1 + 1. wa_fieldcat-col_pos = &1. wa_fieldcat-fieldname = &2. wa_fieldcat-seltext_l = &3. wa_fieldcat-seltext_m = &3. wa_fieldcat-seltext_s = &3. append wa_fieldcat to it_fieldcat. END-OF-DEFINITION. *----------------------------------------------------------------------* * SELECTION-SCREEN *----------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *PARAMETERS:p_wp TYPE c . "程序數 SELECT-OPTIONS:s_matnr FOR marc-matnr, s_werks FOR marc-werks. SELECTION-SCREEN END OF BLOCK blk1. *initialialization INITIALIZATION. *at selection screen AT SELECTION-SCREEN. *start of selection START-OF-SELECTION. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING PERCENTAGE = 10 TEXT = '資料獲取中...'. PERFORM frm_get_date. *END OF SELECTION END-OF-SELECTION. PERFORM frm_init_fieldcat. PERFORM frm_init_layout. PERFORM frm_alv_output. *&---------------------------------------------------------------------* *& Form FRM_GET_DATE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM FRM_GET_DATE . SELECT matnr werks UP TO 18000 ROWS "最多獲取20條資料 INTO CORRESPONDING FIELDS OF TABLE it_marc FROM marc WHERE matnr IN s_matnr AND werks IN s_werks. LOOP AT it_marc INTO wa_marc. CLEAR it_md. CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API' EXPORTING MATNR = wa_marc-matnr WERKS = wa_marc-werks TABLES MDEZX = it_md EXCEPTIONS MATERIAL_PLANT_NOT_FOUND = 1 PLANT_NOT_FOUND = 2 OTHERS = 3. LOOP AT it_md INTO wa_md. MOVE-CORRESPONDING wa_md TO wa_output. wa_output-matnr = wa_marc-matnr. wa_output-werks = wa_marc-werks. APPEND wa_output TO it_output. CLEAR:wa_output,wa_md. ENDLOOP. CLEAR wa_marc. ENDLOOP. ENDFORM. " FRM_GET_DATE *&---------------------------------------------------------------------* *& Form FRM_INIT_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_init_fieldcat. DATA: l_colpos TYPE lvc_s_fcat-col_pos VALUE 0. macro_fill_fcat l_colpos 'MATNR' '物料號' . macro_fill_fcat l_colpos 'WERKS' '工廠' . macro_fill_fcat l_colpos 'DELKZ' 'MRP元素' . macro_fill_fcat l_colpos 'MNG01' '數量' . macro_fill_fcat l_colpos 'DAT00' '日期' . ENDFORM. " FRM_INIT_FIELDCAT *&---------------------------------------------------------------------* *& Form FRM_INIT_LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_init_layout . wa_layout-zebra = 'X'. wa_layout-f2code = '&ETA'. "雙擊顯示詳細資訊 wa_layout-detail_popup = 'X'. wa_layout-colwidth_optimize = 'X'. * wa_layout-box_fieldname = 'BOX'."將BOX欄位作為選擇標記列 ENDFORM. " FRM_INIT_LAYOUT *&---------------------------------------------------------------------* *& Form FRM_ALV_OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_output . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid is_layout = wa_layout it_fieldcat = it_fieldcat i_save = 'A' * it_events = git_events[] * i_callback_pf_status_set = 'PF_STATUS_SET' * i_callback_user_command = 'USER_COMMAND' TABLES t_outtab = it_output EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. " FRM_ALV_OUTPUT *Selection texts *---------------------------------------------------------- * S_MATNR D . * S_WERKS D .Extracted by Direct Download Enterprise version 1.3.1 - E.G
非同步呼叫完整程式：
Code listing for: ZDEMO_MXQ_YB
Description: 非同步呼叫函式獲取MRP明細列表DEMO
*&---------------------------------------------------------------------* *& 程式名稱：非同步呼叫函式獲取MRP明細列表DEMO *& 程 序 名：ZDEMO_MXQ_YB *& 開發日期：2013-05-15 *& 創 建 者：漢得 *& 申 請 者： *&---------------------------------------------------------------------* *& 摘要說明 *&--------* *& 從物料工廠表MARC中獲取一定的行專案，然後通過呼叫函式獲取物料工廠對應的 *& MRP清單，將物料工廠與獲取的對應清單整合輸出 *&---------------------------------------------------------------------* *& 變更記錄 *& 日期 修改者 傳輸請求號 修改內容及原因 *&--------------- ---------- -------------------- ------------------* * *&---------------------------------------------------------------------* REPORT zdemo_mxq_yb. *----------------------------------------------------------------------* * Type-pools * *----------------------------------------------------------------------* TYPE-POOLS: slis. *----------------------------------------------------------------------* * Table * *----------------------------------------------------------------------* TABLES:marc. *----------------------------------------------------------------------* * Internal Tables and Work Areas *----------------------------------------------------------------------* DATA:BEGIN OF wa_marc, matnr TYPE marc-matnr, "物料號 werks TYPE marc-werks, "工廠 taskname(10) TYPE c, "任務名 END OF wa_marc. DATA:it_marc LIKE TABLE OF wa_marc. DATA:lt_marc LIKE TABLE OF wa_marc, "存放臨時資料 lw_marc LIKE wa_marc. "函式呼叫引數 DATA:it_md TYPE STANDARD TABLE OF mdez, wa_md LIKE LINE OF it_md. DATA:BEGIN OF wa_output. INCLUDE STRUCTURE mdez. DATA:matnr TYPE marc-matnr. "物料號 DATA:werks TYPE marc-werks. "工廠 DATA:END OF wa_output. DATA:it_output LIKE TABLE OF wa_output. *----------------------------------------------------------------------* * Variables *----------------------------------------------------------------------* DATA:g_taskname(10) TYPE c, "task name（同時執行的任務名稱必須保持唯一） g_classname TYPE rzlli_apcl, "Server Group Name g_applserver TYPE rzllitab-applserver,"RFC Serve Group excp_flag(1) TYPE c. "Number of RESOURCE_FAILUREs DATA:snd_jobs TYPE i, rcv_jobs TYPE i, functioncall1(1) TYPE c. CONSTANTS: done(1) TYPE c VALUE 'X'. *----------------------------------------------------------------------* * ALV層級關係定義 *----------------------------------------------------------------------* DATA: it_fieldcat TYPE slis_t_fieldcat_alv, wa_layout TYPE slis_layout_alv. DATA: wa_fieldcat TYPE slis_fieldcat_alv. DATA gv_grid TYPE REF TO cl_gui_alv_grid. DATA: git_events TYPE slis_t_event, "ALV 事件 git_listheader TYPE slis_t_listheader. "ALV 表頭 DATA wa_header TYPE slis_listheader. *&---------------------------------------------------------------------* *& Define marco *&---------------------------------------------------------------------* DEFINE macro_fill_fcat. clear wa_fieldcat. &1 = &1 + 1. wa_fieldcat-col_pos = &1. wa_fieldcat-fieldname = &2. wa_fieldcat-seltext_l = &3. wa_fieldcat-seltext_m = &3. wa_fieldcat-seltext_s = &3. append wa_fieldcat to it_fieldcat. END-OF-DEFINITION. *----------------------------------------------------------------------* * SELECTION-SCREEN *----------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001. *PARAMETERS:p_wp TYPE c . "程序數 SELECT-OPTIONS:s_matnr FOR marc-matnr, s_werks FOR marc-werks. PARAMETERS:p_wp TYPE c . "併發程序數（根據RZ12中的最大請求佇列數設定） SELECTION-SCREEN END OF BLOCK blk1. *initialialization INITIALIZATION. p_wp = 5. *at selection screen AT SELECTION-SCREEN. "鎖定程式 CALL FUNCTION 'ENQUEUE_EZZSOPR0032' EXPORTING mode_trdir = 'E' name = 'ZSOPR0032' x_name = ' ' _scope = '2' _wait = ' ' _collect = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3. IF sy-subrc <> 0. * Implement suitable error handling here MESSAGE '物件已被鎖定,請稍後執行' TYPE 'E'. ELSE. "鎖定成功 ENDIF. *start of selection START-OF-SELECTION. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 10 text = '資料獲取中...'. PERFORM frm_get_date. *END OF SELECTION END-OF-SELECTION. "解除程式的鎖定 CALL FUNCTION 'DEQUEUE_EZZSOPR0032' EXPORTING mode_trdir = 'E' name = 'ZSOPR0032' x_name = ' ' _scope = '3' _synchron = ' ' _collect = ' '. PERFORM frm_init_fieldcat. PERFORM frm_init_layout. PERFORM frm_alv_output. *&---------------------------------------------------------------------* *& Form FRM_GET_DATE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_get_date . DATA:mess(40) TYPE c. "併發執行出錯資訊 DATA:open_task_num TYPE i. "啟動任務數量 SELECT matnr werks UP TO 18000 ROWS ""資料條目18000 INTO CORRESPONDING FIELDS OF TABLE it_marc FROM marc WHERE matnr IN s_matnr AND werks IN s_werks. * 獲取 RFC Serve Group name Start--* * 一般系統預設g_classname = 'parallel_generators'，但為了通用性按照如下方法獲取 CALL 'C_SAPGPARAM' "#EC CI_CCALL ID 'NAME' FIELD 'rdisp/myname' ID 'VALUE' FIELD g_applserver. SELECT SINGLE classname FROM rzllitab INTO g_classname "Server Group Name WHERE applserver = g_applserver AND grouptype = 'S'. "S:伺服器組，空:登陸組 * 獲取 RFC Serve Group name End--* CLEAR open_task_num. LOOP AT it_marc INTO wa_marc. * 生成任務名稱 = 'Task' + sy-tabix Start--* WRITE sy-tabix TO g_taskname. CONDENSE g_taskname. CONCATENATE 'Task' g_taskname INTO g_taskname. * 生成任務名稱 = 'Task' + sy-tabix End--* lw_marc-taskname = g_taskname. lw_marc-matnr = wa_marc-matnr. lw_marc-werks = wa_marc-werks. APPEND wa_marc TO lt_marc. * 非同步呼叫函式 Start--* CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API' STARTING NEW TASK g_taskname DESTINATION IN GROUP g_classname PERFORMING frm_subroutine_done ON END OF TASK "子程式 * 只要將函式的EXPORTING引數放在此處，其他引數放到子程式中 EXPORTING matnr = wa_marc-matnr werks = wa_marc-werks * 系統標準報錯資訊 EXCEPTIONS communication_failure = 1 MESSAGE mess system_failure = 2 MESSAGE mess resource_failure = 3. IF sy-subrc = 0. snd_jobs = snd_jobs + 1. ENDIF. * 非同步呼叫函式 End--* open_task_num = open_task_num + 1. "記錄啟動的程序數量 IF open_task_num = p_wp. "p_wp = RZ12中的 Max. requests in queue * 獲取併發程序返回的結果 WAIT UNTIL rcv_jobs >= snd_jobs. CLEAR:open_task_num,rcv_jobs,snd_jobs. FREE:lt_marc. ENDIF. CLEAR wa_marc. ENDLOOP. ENDFORM. " FRM_GET_DATE *&---------------------------------------------------------------------* *& Form FRM_SUBROUTINE_DONE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_subroutine_done USING g_taskname. rcv_jobs = rcv_jobs + 1. ""Receiving data CLEAR:it_md[]. RECEIVE RESULTS FROM FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API' TABLES mdezx = it_md EXCEPTIONS material_plant_not_found = 1 plant_not_found = 2 OTHERS = 3. functioncall1 = done. SORT lt_marc BY taskname. LOOP AT it_md INTO wa_md. READ TABLE lt_marc INTO lw_marc WITH KEY taskname = g_taskname BINARY SEARCH. MOVE-CORRESPONDING wa_md TO wa_output. wa_output-matnr = lw_marc-matnr. wa_output-werks = lw_marc-werks. APPEND wa_output TO it_output. CLEAR:wa_output,wa_md,lw_marc. ENDLOOP. ENDFORM. " FRM_SUBROUTINE_DONE *&---------------------------------------------------------------------* *& Form FRM_INIT_FIELDCAT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_init_fieldcat. DATA: l_colpos TYPE lvc_s_fcat-col_pos VALUE 0. macro_fill_fcat l_colpos 'MATNR' '物料號' . macro_fill_fcat l_colpos 'WERKS' '工廠' . macro_fill_fcat l_colpos 'DELKZ' 'MRP元素' . macro_fill_fcat l_colpos 'MNG01' '數量' . macro_fill_fcat l_colpos 'DAT00' '日期' . ENDFORM. " FRM_INIT_FIELDCAT *&---------------------------------------------------------------------* *& Form FRM_INIT_LAYOUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_init_layout . wa_layout-zebra = 'X'. wa_layout-f2code = '&ETA'. "雙擊顯示詳細資訊 wa_layout-detail_popup = 'X'. wa_layout-colwidth_optimize = 'X'. * wa_layout-box_fieldname = 'BOX'."將BOX欄位作為選擇標記列 ENDFORM. " FRM_INIT_LAYOUT *&---------------------------------------------------------------------* *& Form FRM_ALV_OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM frm_alv_output . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid is_layout = wa_layout it_fieldcat = it_fieldcat i_save = 'A' * it_events = git_events[] * i_callback_pf_status_set = 'PF_STATUS_SET' * i_callback_user_command = 'USER_COMMAND' TABLES t_outtab = it_output EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. ENDFORM. " FRM_ALV_OUTPUT *Selection texts *---------------------------------------------------------- * P_WP 併發程序數 * S_MATNR D . * S_WERKS D . *Messages *---------------------------------------------------------- * * Message class: Hard coded * 物件已被鎖定,請稍後執行Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 702