abap并行处理框架

由于abap不像C#，java等编程语言，它没有多线程机制，但是sap官方提供了一个并行处理框架，来实现在sap系统内处理大量数据的方法。

例子：

REPORT ZPARALLEL_PROCESSING_EXAMPLE.

* 类型声明，用于存储并行处理结果
TYPES: BEGIN OF ty_result,
         id TYPE i,
         result TYPE i,
       END OF ty_result.

* 数据声明
DATA: lt_tasks TYPE TABLE OF i WITH EMPTY KEY,       " 存储任务列表
      lt_results TYPE TABLE OF ty_result,           " 存储结果
      lv_count   TYPE i,                            " 任务数量
      lv_index   TYPE i,                            " 循环索引
      lt_jobs    TYPE TABLE OF bgRFC_JOBHANDLE,     " 存储并行处理作业句柄
      lv_job     TYPE bgRFC_JOBHANDLE.              " 作业句柄

* 准备任务列表
lv_count = 10.
DO lv_count TIMES.
  lv_index = sy-index * 10.
  APPEND lv_index TO lt_tasks.
ENDDO.

* 调用并行处理框架
CALL FUNCTION 'JOB_OPEN'
  CHANGING
    jobcount = lv_count
  EXCEPTIONS
    OTHERS   = 1.

IF sy-subrc = 0.
  LOOP AT lt_tasks INTO lv_index.
    CALL FUNCTION 'JOB_SUBMIT'
      EXPORTING
        jobname = 'ZPARALLEL_PROCESSING_EXAMPLE_PARALLEL_TASKS'
        step    = sy-index
        startdate    = sy-datum
        startimmediate = 'X'
      TABLES
        bg_taskparam = lt_index
        bg_tasks     = lt_jobs
      EXCEPTIONS
        OTHERS       = 1.

    IF sy-subrc = 0.
      APPEND lt_jobs TO lt_jobs.
    ENDIF.
  ENDLOOP.
ENDIF.

* 等待并行处理作业完成
CALL FUNCTION 'JOB_CLOSE'
  TABLES
    jobcounters = lt_jobs
  EXCEPTIONS
    OTHERS      = 1.

* 结果处理
SELECT * FROM zparallel_processing_results INTO TABLE lt_results.

LOOP AT lt_results INTO DATA(ls_result).
  WRITE: / 'Task ID:', ls_result-id, ' Result:', ls_result-result.
ENDLOOP.