Parallel processing: Help!

Question

Hi Experts!
I need to use parallel processing for BAPI_INQUIRY_CREATEFROMDATA2 since this process huge data.
How could I actually start a parallel processing using this BAPI ?
Thanks!

Answer 1

Hi,
Check this example..This code is there in the abap help..
Press F1 on the CALL FUNCTION key word..
Then choose the link..
"CALL FUNCTION func STARTING NEW TASK taskname. "
There you will find the code that I mentioned here...
DATA: MSG_TEXT(80) TYPE C. "Message text
Asynchronous call to Transaction SM59 -->
Create a new session
CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'TEST'
  DESTINATION 'NONE'
  EXPORTING
      TCODE = 'SM59'
  EXCEPTIONS
    COMMUNICATION_FAILURE = 1 MESSAGE MSG_TEXT
    SYSTEM_FAILURE        = 2 MESSAGE MSG_TEXT.
  IF SY-SUBRC NE 0.
    WRITE: MSG_TEXT.
  ELSE.
    WRITE: 'O.K.'.
  ENDIF.
Using RFC groups to parallelize function module calls (RFC parallel processing)
TYPES: BEGIN OF TASKLIST_TYPE,
       TASKNAME(4) TYPE C, "Task administration
       RFCDEST LIKE RFCSI-RFCDEST
       END OF TASKLIST_TYPE.
DATA: INFO LIKE RFCSI, C,  "Message text
      JOBS TYPE I VALUE 10,  "Number of parallel jobs
      SND_JOBS TYPE I VALUE 1,  "Sent jobs
      RCV_JOBS TYPE I VALUE 1,  "Received replies
      EXCP_FLAG(1) TYPE C,  "Number of RESOURCE_FAILUREs
      TASKNAME(4) TYPE N VALUE '0001',  "Task name administration
      TASKLIST TYPE TABLE OF TASKLIST_TYPE,
      WA_TASKLIST TYPE TASKLIST_TYPE.
DO.
  CALL FUNCTION 'RFC_SYSTEM_INFO'
       STARTING NEW TASK TASKNAME DESTINATION IN GROUP DEFAULT
       PERFORMING RETURN_INFO ON END OF TASK
       EXCEPTIONS
         COMMUNICATION_FAILURE = 1
         SYSTEM_FAILURE        = 2
         RESOURCE_FAILURE      = 3.
  CASE SY-SUBRC.
    WHEN 0.
Administration of asynchronous tasks
      WA_TASKLIST-TASKNAME = TASKNAME.
      CLEAR WA_TASKLIST-RFCDEST.
      APPEND WA_TASKLIST TO TASKLIST.
      WRITE: /  'Started task: ', WA_TASKLIST-TASKNAME COLOR 2.
      TASKNAME = TASKNAME + 1.
      SND_JOBS = SND_JOBS + 1.
      JOBS     = JOBS - 1.  "Number of existing jobs
      IF JOBS = 0.
        EXIT.  "Job processing finished
      ENDIF.
    WHEN 1 OR 2.
Handling of communication and system failure
    WHEN 3.  "No resources available at present
Receive reply to asynchronous RFC calls
      IF EXCP_FLAG = SPACE.
         EXCP_FLAG = 'X'.
First attempt for RESOURCE_FAILURE handling
         WAIT UNTIL RCV_JOBS >= SND_JOBS UP TO '0.01' SECONDS.
      ELSE.
Second attempt for RESOURCE_FAILURE handling
         WAIT UNTIL RCV_JOBS >= SND_JOBS UP TO '0.1' SECONDS.
      ENDIF.
      IF SY-SUBRC = 0.
        CLEAR EXCP_FLAG.  "Reset flag
      ELSE.  "No replies
        "Endless loop handling
      ENDIF.
    ENDCASE.
ENDDO.
Receive remaining asynchronous replies
WAIT UNTIL RCV_JOBS >= SND_JOBS.
LOOP AT TASKLIST INTO WA_TASKLIST.
  WRITE:/   'Received task:', WA_TASKLIST-TASKNAME COLOR 1,
        30  'Destination: ', WA_TASKLIST-RFCDEST COLOR 1.
ENDLOOP
FORM RETURN_INFO USING TASKNAME.
  RECEIVE RESULTS FROM FUNCTION 'RFC_SYSTEM_INFO'
    IMPORTING RFCSI_EXPORT = INFO
    EXCEPTIONS
      COMMUNICATION_FAILURE = 1
      SYSTEM_FAILURE        = 2.
  RCV_JOBS = RCV_JOBS + 1.  "Receiving data
    IF SY-SUBRC NE 0.
Handling of communication and system failure
    ELSE.
      READ TABLE TASKLIST WITH KEY TASKNAME = TASKNAME
                          INTO WA_TASKLIST
      IF SY-SUBRC = 0.  "Register data
        WA_TASKLIST-RFCDEST = INFO_RFCDEST.
        MODIFY TASKLIST INDEX SY-TABIX FROM WA_TASKLIST.
      ENDIF.
    ENDIF.
ENDFORM
Thanks,
Naren