Pronlem in LOP while retrieving the employee details

Question

Hi,
I am new to HR for ABAP developing,
I have a Pronlem in a report for LOP (loss of pay) while retrieving the employee details.
(i.e) while retrieving employee details by individual it shows the correct details.
But, in the group of 10 employess out of 9 doesn't have the LOP and the 1 is having LOP. While retrieving this it shows all the
10 members have LOP.  It shows some amount for that 1 person also.
Kindly i need ur help for the above issues.
Waiting for ur valuable replies.

Answer 1

Hi swarna,
         Herewith i attached my code, would u please suggest me wer shud i make changes.
Rgds,
Karthik
START-OF-SELECTION.
  IF P_1 = 'X'.
    W_EXT = '.csv'.
  ELSE.
    W_EXT = 'err.csv'.
    PR_PATH = '/obrm/in/asset/'.
  ENDIF.
  CLEAR:W_PR_FNAME,
        W_STR,
        W_PATH1,
        W_LEN,
        W_F6_TMP.
  CLEAR:WA_MESSTAB,WA_UP_SUCC,WA_FINAL,WA_FILE.
  REFRESH:IT_FINAL, IT_MESSTAB,IT_UP_ERROR,IT_UP_SUCC,ITFILE,ITFILE1 .
  W_GO = 'X'.
  CALL FUNCTION 'SUBST_GET_FILE_LIST'
    EXPORTING
      DIRNAME      = PR_PATH
      FILENM       = '*'
    TABLES
      FILE_LIST    = ITFILE
    EXCEPTIONS
      ACCESS_ERROR = 1
      OTHERS       = 2.
  IF SY-SUBRC <> 0.
    MESSAGE TEXT-102 TYPE C_I.
    EXIT.
  ENDIF.
  LOOP AT ITFILE INTO WA_FILE.
    IF WA_FILE-NAME CS W_EXT.
      APPEND  WA_FILE TO ITFILE1.
      CLEAR WA_FILE.
    ENDIF.
  ENDLOOP.
  LOOP AT ITFILE1 INTO WA_FILE.
    IF SY-TABIX > 1.
      CLEAR IT_FINAL[].
    ENDIF.
    CONCATENATE PR_PATH WA_FILE-NAME INTO W_PR_FNAME.
    OPEN DATASET W_PR_FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    CLEAR : IT_SOURCE[].
    DO.
      READ DATASET W_PR_FNAME INTO W_STR.
      IF SY-SUBRC NE 0.
        EXIT.
      ENDIF.
      SPLIT W_STR AT ';' INTO
            WA_FINAL-F1
            WA_FINAL-F2
        WA_FINAL-F3.
      CLEAR WA_SOURCE.
      WA_SOURCE-F1 = WA_FINAL-F1.
      WA_SOURCE-F2 = WA_FINAL-F2.
      WA_SOURCE-F3 = WA_FINAL-F3.
      SO_SER-LOW = WA_FINAL-F1.
      SO_SER-SIGN = 'I'.
      SO_SER-OPTION = 'EQ'.
      APPEND SO_SER.
      APPEND WA_SOURCE TO IT_SOURCE.
      APPEND WA_FINAL TO IT_FINAL.
    ENDDO.
    CLOSE DATASET W_PR_FNAME.
    IF IT_FINAL[] IS INITIAL.
      MESSAGE TEXT-E01 TYPE C_I.
      EXIT.
    ENDIF.
    PERFORM MATERIAL_DOCS_GET.
    IF SY-SUBRC NE 0.
      MESSAGE TEXT-M01 TYPE 'S'.
      RETURN.
    ENDIF.
    DELETE IT_MDOCS WHERE BWART = '102'.
    LOOP AT IT_MDOCS INTO WA_MDOCS.
      WA_AMT_SUM-EBELN = WA_MDOCS-EBELN.
      WA_AMT_SUM-SHKZG = WA_MDOCS-SHKZG.
      WA_AMT_SUM-DMBTR = WA_MDOCS-DMBTR.
      COLLECT WA_AMT_SUM INTO IT_AMT_SUM.
    ENDLOOP.
    PERFORM SERIAL_NUMBERS_GET.
    IF IT_SRNO[] IS INITIAL.
      RETURN.
    ENDIF.
  ENDLOOP.
  CALL SCREEN 100.
END-OF-SELECTION.
  IF PR_TEST NE 'X'.
    PERFORM DISPLAY_LOG.
  ENDIF.
FORM MATERIAL_DOCS_GET .
  SELECT MATNR
         FROM MARA INTO TABLE IT_MATNR
         WHERE MATKL in ('DTH_STB','DTH_STBSC') AND
               MTART EQ 'UNBW'    AND
               LVORM EQ ' '.
  IF IT_MATNR IS NOT INITIAL.
    LOOP AT IT_MATNR INTO WA_MATNR.
      SO_MATNR-SIGN   = 'I'.
      SO_MATNR-OPTION = 'EQ'.
      SO_MATNR-LOW    =  WA_MATNR-MATNR.
      APPEND SO_MATNR.
    ENDLOOP.
  ELSE.
    MESSAGE TEXT-M06 TYPE 'S'.
    RETURN.
  ENDIF.
  SELECT A~OBKNR A~SERNR A~MATNR B~OBKNR B~MBLNR B~MJAHR B~BWART
         FROM OBJK AS A INNER JOIN SER03 AS B ON A~OBKNR = B~OBKNR
         INTO CORRESPONDING FIELDS OF TABLE IT_SER03
         WHERE A~SERNR IN SO_SER AND
               A~MATNR IN SO_MATNR AND
               B~BWART IN ('101','102','122') and
               B~LIEFERANT <> ' '.
  IF IT_SER03 IS NOT INITIAL.
    SELECT MBLNR MJAHR ZEILE EBELN EBELP LFBNR LFBJA LFPOS SJAHR SMBLN SMBLP BWART SHKZG WAERS MENGE MEINS KUNNR
           FROM MSEG INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
           FOR ALL ENTRIES IN IT_SER03
           WHERE MBLNR = IT_SER03-MBLNR       AND
                 MJAHR = IT_SER03-MJAHR       AND
                 BWART IN ('101','102','122') AND
                 MATNR IN SO_MATNR            AND
                 DMBTR > 0 .
  ENDIF.
  IF IT_MSEG IS NOT INITIAL.
    SELECT * FROM ZPOVAL_ASSET INTO CORRESPONDING FIELDS OF TABLE IT_PO
             FOR ALL ENTRIES IN IT_MSEG
             WHERE EBELN = IT_MSEG-EBELN.
    SELECT KUNNR REGIO
           FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1
           FOR ALL ENTRIES IN IT_MSEG
           WHERE KUNNR = IT_MSEG-KUNNR.
  ENDIF.
  DELETE IT_MSEG WHERE EBELN = '6100000124'.
  LOOP AT IT_SER03 INTO WA_SER03.
    WA_MDOCS-SERNR = WA_SER03-SERNR.
    WA_MDOCS-MATNR = WA_SER03-MATNR.
    READ TABLE IT_MSEG INTO WA_MSEG1 WITH KEY MBLNR = WA_SER03-MBLNR.
    IF SY-SUBRC = 0.
      MOVE-CORRESPONDING WA_MSEG1 TO WA_MDOCS.
      READ TABLE IT_PO INTO WA_PO WITH KEY EBELN = WA_MSEG1-EBELN.
      IF SY-SUBRC = 0.
        WA_MDOCS-DMBTR = WA_PO-DMBTR.
      ENDIF.
      READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_MSEG1-KUNNR.
      IF SY-SUBRC = 0.
        WA_MDOCS-KUNNR = WA_KNA1-KUNNR.
        WA_MDOCS-REGIO = WA_KNA1-REGIO.
      ENDIF.
      APPEND WA_MDOCS TO IT_MDOCS.
    ENDIF.
  ENDLOOP.
  SORT IT_MDOCS BY SERNR MJAHR MBLNR DESCENDING.
  DELETE ADJACENT DUPLICATES FROM IT_MDOCS COMPARING SERNR.
  IF SY-SUBRC EQ 0.
    LOOP AT IT_ZFT_POSTED_MDOCS1 INTO WA_ZFT_POSTED_MDOCS1.
      CONCATENATE TEXT-M09 WA_ZFT_POSTED_MDOCS1-MBLNR TEXT-M10 INTO WA_LOG-MSG SEPARATED BY SPACE.
      WRITE: /5 WA_LOG-MSG.
      DELETE IT_MDOCS WHERE MBLNR EQ WA_ZFT_POSTED_MDOCS1-MBLNR.
    ENDLOOP.
  ENDIF.
  CLEAR WA_LOG.
  REFRESH IT_LOG[].
  IF IT_MDOCS[] IS INITIAL.
    SY-SUBRC = 4.
    RETURN.
  ENDIF.
*copy material docs for dumping in ZFT_POSTED_ASSET
  IT_ZFT_POSTED_ASSET[] = IT_MDOCS[].
ENDFORM.                    " material_docs_get
FORM DISPLAY_LOG .
  IF IT_LOG[] IS INITIAL.
    RETURN.
  ENDIF.
  LOOP AT IT_LOG INTO WA_LOG.
    WRITE: /5 WA_LOG-MSG.
  ENDLOOP.
ENDFORM.                    " display_log
FORM SERIAL_NUMBERS_GET.
  DATA: WA_SRNO1 TYPE TY_SRNO.
  SELECT MBLNR MJAHR BUDAT
         FROM MKPF INTO CORRESPONDING FIELDS OF TABLE IT_MKPF
         FOR ALL ENTRIES IN IT_MDOCS
         WHERE MBLNR = IT_MDOCS-MBLNR AND
               MJAHR = IT_MDOCS-MJAHR.
  LOOP AT IT_MDOCS INTO WA_MDOCS.
    MOVE-CORRESPONDING WA_MDOCS TO WA_SRNO.
    READ TABLE IT_MKPF INTO WA_MKPF WITH KEY MBLNR = WA_MDOCS-MBLNR MJAHR = WA_MDOCS-MJAHR.
    IF SY-SUBRC = 0.
      WA_SRNO-BUDAT = WA_MKPF-BUDAT.
    ENDIF.
    APPEND WA_SRNO TO IT_SRNO.
  ENDLOOP.
  LOOP AT IT_SRNO INTO WA_SRNO WHERE BWART EQ '101'.
    READ TABLE IT_SRNO INTO WA_SRNO1 WITH KEY SERNR = WA_SRNO-SERNR
                                              BWART = '122'.
    IF SY-SUBRC EQ 0 AND WA_SRNO-MBLNR LT WA_SRNO1-MBLNR.
      DELETE IT_SRNO.
    ENDIF.
  ENDLOOP.
  DELETE IT_SRNO WHERE BWART = '122'.
  DESCRIBE TABLE IT_SRNO LINES W_COUNT.
  SORT IT_MDOCS BY SERNR.
  SORT IT_SRNO BY SERNR.
  SORT IT_FINAL BY F1.
  LOOP AT IT_SRNO.
    READ TABLE IT_MDOCS WITH KEY SERNR = IT_SRNO-SERNR.
    IF SY-SUBRC = 0 .
      IT_SRNO-VALUE = IT_MDOCS-DMBTR.
      IT_SRNO-EBELN = IT_MDOCS-EBELN.
      READ TABLE IT_FINAL WITH KEY F1 = IT_SRNO-SERNR.
      IT_SRNO-CAPDT = IT_FINAL-F2.
      CONCATENATE     IT_FINAL-F26(4) IT_FINAL-F20(2) IT_FINAL-F2+3(2)   INTO IT_SRNO-CAPDT.
      CLEAR KNA1.
      SELECT SINGLE * FROM KNA1 WHERE KUNNR = IT_FINAL-F3.
      IF SY-SUBRC = 0 .
        IT_SRNO-KUNNR = IT_FINAL-F2.
        IT_SRNO-REGIO = KNA1-REGIO.
      ENDIF.
      SELECT SINGLE * FROM ZFT_100_ASSET WHERE SERNR = IT_SRNO-SERNR.
      IF SY-SUBRC = 0.
        IT_SRNO-VALUE = 0 .
      ENDIF.
      MODIFY IT_SRNO.
      MOVE-CORRESPONDING IT_SRNO TO IT_ASSET  .
      IT_ASSET-ASSET_ACT_DT = IT_SRNO-CAPDT.
      CONCATENATE 'A' W_FREENUM2  INTO IT_ASSET-ASSET_ID.
      COLLECT IT_ASSET.
      MOVE-CORRESPONDING IT_ASSET TO IT_ASSET_POST.
      COLLECT IT_ASSET_POST.
    ENDIF.
  ENDLOOP .
  SORT IT_ASSET_POST BY ASSET_ID ASSET_ACT_DT REGIO.
  IF PR_TEST NE 'X'.
    LOOP AT IT_ASSET_POST.
      CLEAR W_FREENUM2.
      SELECT SINGLE * FROM ZFT_STATE_COST WHERE REGIO = IT_ASSET_POST-REGIO AND TYPE  = 'E' .
      IF SY-SUBRC <> 0 .
        MESSAGE X899(FI) WITH 'No cost center for the region'.
      ENDIF.
      CALL FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR             = '01'
          OBJECT                  = C_NRANGE1
        IMPORTING
          NUMBER                  = W_FREENUM2
        EXCEPTIONS
          INTERVAL_NOT_FOUND      = 1
          NUMBER_RANGE_NOT_INTERN = 2
          OBJECT_NOT_FOUND        = 3
          QUANTITY_IS_0           = 4
          QUANTITY_IS_NOT_1       = 5
          INTERVAL_OVERFLOW       = 6
          BUFFER_OVERFLOW         = 7
          OTHERS                  = 8.
      IF SY-SUBRC = 0.
      ENDIF.
      CONCATENATE 'A' W_FREENUM2  INTO IT_ASSET_POST-ASSET_ID.
      IT_ASSET_POST-KOSTL = ZFT_STATE_COST-KOSTL.
      MODIFY IT_ASSET_POST.
    CLEAR ZFT_100_ASSET.
    ENDLOOP.
  ENDIF.
  SORT IT_ASSET_POST BY ASSET_ACT_DT REGIO.
  SORT IT_ASSET BY ASSET_ACT_DT REGIO.
  LOOP AT IT_ASSET.
    READ TABLE IT_ASSET_POST WITH KEY ASSET_ACT_DT =  IT_ASSET-ASSET_ACT_DT REGIO = IT_ASSET-REGIO MATNR = IT_ASSET-MATNR.
    IF SY-SUBRC = 0 .
      IT_ASSET-ASSET_ID =  IT_ASSET_POST-ASSET_ID .
      IF IT_ASSET-VALUE = 0.
        IT_ASSET-TEXT = 'Asset Already Created'.
      ELSE.
      ENDIF.
      MODIFY IT_ASSET.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " serial_numbers_get
FORM ASSET_CREATE .
  DATA :LW_CNT TYPE I.
  LOOP AT IT_ASSET_POST WHERE VALUE > 0.
    CLEAR: IT_ASSET1[],LW_CNT.
    IT_ASSET1[] = IT_ASSET[].
    DELETE IT_ASSET1 WHERE ASSET_ID <> IT_ASSET_POST-ASSET_ID.
    DESCRIBE TABLE IT_ASSET1 LINES LW_CNT.
    MOVE IT_ASSET_POST-ASSET_ID TO WA_ANLA-ANLN1.
    CALL FUNCTION 'ASSET_EXISTENCE_CHECK'
      EXPORTING
        I_ANLN1          = WA_ANLA-ANLN1
        I_BUKRS          = '5100'
      EXCEPTIONS
        ANLAGE_DEAKTIV   = 1
        ANLAGE_GELOESCHT = 2
        ANLAGE_GESPERRT  = 3
        ANLAGE_NOT_FOUND = 4
        ANLAGE_IST_INVM  = 5
        OTHERS           = 6.
    IF SY-SUBRC EQ 0.
      CONCATENATE TEXT-M02 IT_ASSET_POST-ASSET_ID TEXT-M05 INTO W_MSG SEPARATED BY SPACE.
      WA_LOG-MSG = W_MSG.
      APPEND WA_LOG TO IT_LOG.
      CLEAR: WA_LOG, W_MSG.
      CONTINUE.
    ENDIF.
    IF SY-SUBRC <> 0.
    ENDIF.
    WA_ANLA-BUKRS = '5100'.  "company code
    IF IT_ASSET_POST-MATNR = '000000000030000452'.
      WA_ANLA-ANLKL = '00009021'.  "asset class for STB
    ELSEIF IT_ASSET_POST-MATNR = '000000000030000700'.
      WA_ANLA-ANLKL = '00009033'.  "asset class for HD STB Box
    ENDIF.
    WA_ANLA-ANLN1 = IT_ASSET_POST-ASSET_ID. "wa_srno-sernr.
    CONCATENATE 'STB - ' IT_ASSET_POST-ASSET_ID INTO WA_ANLA-TXT50 SEPARATED BY SPACE.
    WA_ANLA-AKTIV = IT_ASSET_POST-ASSET_ACT_DT.
    WA_ANLZ-KOSTL =  IT_ASSET_POST-KOSTL .                  "'1711121'.
    WA_ANLA-MENGE = LW_CNT.
    WA_ANLA-MEINS = 'EA'.
    CALL FUNCTION 'CREATE_ASSET'
      EXPORTING
        I_ANLA                     = WA_ANLA
  I_ANLV                           =
        I_ANLZ                     = WA_ANLZ
       I_DARK                      = 'X'
       I_NASSETS_FIX               = ' '
       I_CALLED_BY_PURCHASE_ORDER  = ' '
      TABLES
        T_ASSETS                   = IT_ASSETS
     EXCEPTIONS
       MISSING_COMPANY_CODE        = 1
       MISSING_ASSET_CLASS         = 2
       MISSING_ASSET_MAINNUMBER    = 3
       INTERNAL_ERROR              = 4
       OTHERS                      = 5
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF SY-SUBRC EQ 0.
      COMMIT WORK.
      SELECT SINGLE * FROM ANLB WHERE BUKRS = '5100' AND ANLN1 = WA_ANLA-ANLN1 AND AFASL = 'Z001'.
      IF SY-SUBRC = 0 .
        ANLB-AFABG = '20071201'.
        MODIFY ANLB.
        COMMIT WORK.
      ENDIF.
      SELECT SINGLE * FROM ANLB WHERE BUKRS = '5100' AND ANLN1 = WA_ANLA-ANLN1 AND AFASL = 'IN14'.
      IF SY-SUBRC = 0 .
        ANLB-AFABG = '20071201'.
        MODIFY ANLB.
        COMMIT WORK.
      ENDIF.