How to improve profamance of this

Question

Hi Gurus,
how to increase perfomance of this statement .
LOOP AT HEADCOUNT_TABLE.
    SELECT COUNT(*) INTO HEADCOUNT_TABLE-ZSEXEMPT
      FROM PA0000 INNER JOIN PA0001
        ON PA0000PERNR =  PA0001PERNR
     WHERE PA0001~KOSTL =  HEADCOUNT_TABLE-KOSTL
       AND PA0001~BUKRS =  HEADCOUNT_TABLE-BUKRS
       AND PA0000~BEGDA <= PROCESS_DATE
       AND PA0000~ENDDA >= PROCESS_DATE
       AND PA0000~STAT1 =  '3'
       AND PA0001~BEGDA <= PROCESS_DATE
       AND PA0001~ENDDA >= PROCESS_DATE
       AND PA0001~PERSG IN ('O', 'X', 'E', 'Y', 'T', 'A', 'I', 'L','F',
                            'S','D').
SELECT COUNT(*) INTO HEADCOUNT_TABLE-ZSCONTRACTOR
      FROM PA0000 INNER JOIN PA0001
        ON PA0000PERNR =  PA0001PERNR
     WHERE PA0001~KOSTL =  HEADCOUNT_TABLE-KOSTL
       AND PA0001~BUKRS =  HEADCOUNT_TABLE-BUKRS
       AND PA0000~BEGDA <= PROCESS_DATE
       AND PA0000~ENDDA >= PROCESS_DATE
       AND PA0000~STAT1 =  '3'
       AND PA0001~BEGDA <= PROCESS_DATE
       AND PA0001~ENDDA >= PROCESS_DATE
       AND PA0001~PERSG IN ('7', '8', '9').
endloop.
Thanks,
Kumar

Answer 1

Let's all go back to the requirement of this guy.
Please correct me if I'm wrong kumar.
The requirement are for each combination of company code (BUKRS) and cost center (KOSTL), count the number of active 'ZSEXEMPT' personnel (persg in ('O', 'X', 'E', 'Y', 'T', 'A', 'I', 'L','F','S','D')) and the number of active 'ZSCONTRACTOR' personnel (PERSG IN ('7', '8', '9')) in a specific key date (PROCESS_DATE).
Rightfuly, combination of BUKRS and KOSTL should be unique in HEADCOUNT_TABLE if above is the requirement and in the specific key date, PERNR is the key for P0000 and P0001.
If HEADCOUNT_TABLE does not contain all combination of BUKRS and KOSTL, you have to use for all entries as below example.
if HEADCOUNT_TABLE[] is not initial.
Select PA0000~PERNR
                   PA0001~KOSTL
                  PA0001~BUKRS
                   into table itab_ZSEXEMPT
                  from PA0000 INNER JOIN PA0001
ON PA0000~PERNR = PA0001~PERNR
for all entries in headcount_table
WHERE PA0001~KOSTL = HEADCOUNT_TABLE-KOSTL
AND PA0001~BUKRS = HEADCOUNT_TABLE-BUKRS
AND PA0000~BEGDA <= PROCESS_DATE
AND PA0000~ENDDA >= PROCESS_DATE
AND PA0000~STAT1 = '3'
AND PA0001~BEGDA <= PROCESS_DATE
AND PA0001~ENDDA >= PROCESS_DATE
AND PA0001~PERSG IN ('O', 'X', 'E', 'Y', 'T', 'A', 'I', 'L','F',
'S','D').
Select PA0000~PERNR
          PA0001~KOSTL
          PA0001~BUKRS into table itab_ZSCONTRACTOR
                  from PA0000 INNER JOIN PA0001
ON PA0000~PERNR = PA0001~PERNR
for all entries in headcount_table
WHERE PA0001~KOSTL = HEADCOUNT_TABLE-KOSTL
AND PA0001~BUKRS = HEADCOUNT_TABLE-BUKRS
AND PA0000~BEGDA <= PROCESS_DATE
AND PA0000~ENDDA >= PROCESS_DATE
AND PA0000~STAT1 = '3'
AND PA0001~BEGDA <= PROCESS_DATE
AND PA0001~ENDDA >= PROCESS_DATE
AND PA0001~PERSG IN ('7', '8', '9').
endif.
sort itab_ZSEXEMPT by kostl bukrs.
sort itab_ZSCONTRACTOR by kostl bukrs.
refresh temp_itab.
loop at HEADCOUNT_TABLE assigning <FS_HEADCOUNT>.
   temp_itab[] = itab_zsexempt[].
   delete temp_itab where bukrs NE <FS_HEADCOUNT>-bukrs and
                                  kostl NE <FS_HEADCOUNT>-kostl.
   describe table temp_itab lines <FS_HEADCOUNT>-ZSEXEMPT.
   refresh temp_itab.
   temp_itab[] = itab_ZSCONTRACTOR [].
   delete temp_itab where bukrs NE <FS_HEADCOUNT>-bukrs and
                                  kostl NE <FS_HEADCOUNT>-kostl.
   describe table temp_itab lines <FS_HEADCOUNT>-ZSCONTRACTOR .
   refresh temp_itab.
endloop.
Try that and compare the performance.
Regards,
Abraham