Enhancing existing Abap code: using values that doesn't exist in table

Question

Hi,<br><br>
I would like to enhance this code . My requirement is as follows.<br><br>
I have two tables  customer and product<br><br>
<pre>KNVP  customer master data table
Customer                            PF                Person
700008          YF     45555
700008          YQ     46666
700008          ZF     46666
700008          YM     49999
700008          ZQ     44444
700008          ZM     43333
T179 product hierarchy table*
product hier                     PF
1000014000          ZM     
1000015000          ZF     
1000033000          ZQ     
The current extractor is showing YM for all YPF values
Customer         Zperson          ZPF        YPF    YPerson
700008            46666              ZF          YM        49999
700008            43333              ZQ         YM        49999
700008            44444              ZM         YM        49999</pre>
<br><br>
Case 1:IF customer doesn't have Partner function value YQ in master data then partner function YF person and partner function should be use.
<br><br>
case 2: IF customer doesn't have Partner function value YF in master data then partner function YQ person and partner function should be use.
<br><br>
case3:IF customer doesn't have Partner function value YQ and YF in master data then partner function YM person and partner function should be use.
<br><br>
The tricky part is that YQ doesn't exist in T179 table
<br><br>
<pre>
LOOP AT T_DATA.
      ZIDX = SY-TABIX.
      CLEAR T179.
   Select partner function, assigned to current
   product hierarchy level 2
      SELECT * FROM T179
               WHERE  STUFE = '2'
               AND    PRODH = T_DATA-PRODH.
      ENDSELECT.
   Replace value with new partner function.
   by replacing first letter to 'Y'
      CONCATENATE 'Y' T179-ZZPARVW+1(1) INTO NEWPF.
   Try to find new sales employee with this new partner function
      CLEAR KNVP.
      SELECT * FROM  KNVP UP TO 1 ROWS
        WHERE  KUNNR  = T_DATA-KUNNR
        AND    VKORG  = T_DATA-VKORG
        AND    PARVW  = NEWPF.
      ENDSELECT.
      IF SY-SUBRC EQ 0.
   New partner found with this partner function
        T_DATA-ZPARVW = NEWPF.
        T_DATA-ZPERNR = KNVP-PERNR.
  ELSE.
            NEWPF = 'YM'.
   Try to find new sales employee with partner function 'YM'
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = NEWPF.
        ENDSELECT.
        T_DATA-ZPARVW = NEWPF.
        T_DATA-ZPERNR = KNVP-PERNR.
      ENDIF.
      MODIFY T_DATA INDEX ZIDX TRANSPORTING ZPARVW ZPERNR.
</pre>
<br><br>Edited by: Matt on Aug 24, 2010 9:31 AM - fixed formatting

Answer 1

Hi,
thanks for your input, I have written it like this and it is working well for YQ and YF partner functions but YM is not showing when both are missing.
LOOP AT T_DATA.
      ZIDX = SY-TABIX.
      CLEAR T179.
*    Select partner function, assigned to current
*    product hierarchy level 2
      SELECT * FROM T179
               WHERE  STUFE = '2'
               AND    PRODH = T_DATA-PRODH.
      ENDSELECT.
*    Replace value with new partner function.
*    by replacing first letter to 'Y'
      CONCATENATE 'Y' T179-ZZPARVW+1(1) INTO NEWPF.
IF SY-SUBRC EQ 0.
IF NEWPF EQ 'YF'.
      READ TABLE T_KNVP WITH KEY PARVW = 'YF'.
        IF SY-SUBRC EQ 0.  "YF exists in master data
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = 'YF'.
        ENDSELECT.
          T_DATA-ZPARVW = 'YF'.
          T_DATA-ZPERNR = KNVP-PERNR.
        ELSE.
        READ TABLE T_KNVP WITH KEY PARVW = 'YQ'.
        IF SY-SUBRC EQ 0. "YQ exists in master data
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = 'YQ'.
        ENDSELECT.
           T_DATA-ZPARVW = 'YQ'.
           T_DATA-ZPERNR = KNVP-PERNR.
ENDIF.
ENDIF.
ENDIF.
IF NEWPF EQ 'YQ'.
      READ TABLE T_KNVP WITH KEY PARVW = 'YQ'.
        IF SY-SUBRC EQ 0.  "YQ exists in master data
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = 'YQ'.
        ENDSELECT.
          T_DATA-ZPARVW = 'YQ'.
          T_DATA-ZPERNR = KNVP-PERNR.
        ELSE.
        READ TABLE T_KNVP WITH KEY PARVW = 'YF'.
        IF SY-SUBRC EQ 0. "YF exists in master data
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = 'YF'.
        ENDSELECT.
           T_DATA-ZPARVW = 'YF'.
           T_DATA-ZPERNR = KNVP-PERNR.
ENDIF.
ENDIF.
ENDIF.
      ELSE.
        NEWPF = 'YM'.
*    Try to find new sales employee with partner function 'YM'
        CLEAR KNVP.
        SELECT * FROM  KNVP UP TO 1 ROWS
          WHERE  KUNNR  = T_DATA-KUNNR
          AND    VKORG  = T_DATA-VKORG
          AND    PARVW  = NEWPF.
        ENDSELECT.
        T_DATA-ZPARVW = NEWPF.
        T_DATA-ZPERNR = KNVP-PERNR.
      ENDIF.
      MODIFY T_DATA INDEX ZIDX TRANSPORTING ZPARVW ZPERNR.
    ENDLOOP.
thanks
Edited by: Bhat Vaidya on Aug 30, 2010 1:31 PM