Generic datasource by function module to fetch data from multiple tables?

Question

I'm writing a function module to fetch price, for generic datasource.
At first, extract test is OK. But InfoPackage never stop  when loading data to PSA in BW.
And I find the example codes:
     OPEN CURSOR WITH HOLD S_CURSOR FOR
      SELECT (S_S_IF-T_FIELDS) FROM SFLIGHT
                               WHERE CARRID  IN L_R_CARRID AND
                                     CONNID  IN L_R_CONNID.
    ENDIF.                             "First data package ?
* Fetch records into interface table.
*   named E_T_'Name of extract structure'.
    FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE E_T_DATA
               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.
There using Cursor to fetch data package by package, and raise exception NO_MORE_DATA to stop the loading process.
Now I fetch data from multiple tables, I don't think I can use Cursor.
Then How can I handle this?  
Thanks a lot.

Answer 1

Thanks
IF IT_999[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL VKORG VTWEG A~DATBI A~DATAB KBETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A999 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_999
                WHERE
*      A~KNUMH = IT_999-KNUMH  AND
       ( ( A~KSCHL = 'ZPRC' AND VKORG = 'Z000' AND VTWEG = 'Z1' ) OR
                      ( A~KSCHL = 'ZPRD' AND VKORG = 'A000' AND VTWEG = 'Y3' ) ) AND
*                      A~DATBI >= SY-DATUM AND
                      LOEVM_KO = ''.
    SELECT A~KNUMH A~MATNR A~KSCHL VKORG VTWEG A~DATBI A~DATAB KBETR AS KHETR  KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A999 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_999
                WHERE
*      A~KNUMH = IT_999-KNUMH AND
      A~KSCHL = 'ZPR3' AND A~VKORG = 'I000' AND
*                      DATBI >= SY-DATUM AND
                      LOEVM_KO = ''.
  ENDIF.
  IF IT_997[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL VTWEG A~DATBI A~DATAB KBETR AS KHETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
      TABLE TP_DATA
        FROM A997 AS A
          INNER JOIN KONP AS B
              ON A~KNUMH = B~KNUMH
          INNER JOIN MARA AS C
             ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_997
                WHERE
*      A~KNUMH = IT_997-KNUMH      AND
      A~KSCHL = 'ZPRA' AND VTWEG = 'Y1' AND
*                      DATBI >= SY-DATUM AND
                  LOEVM_KO = ''.
  ENDIF.
  IF IT_996[] IS INITIAL.
    SELECT A~KNUMH A~MATNR A~KSCHL A~DATBI A~DATAB KBETR AS KHETR KMEIN KPEIN C~MTART APPENDING CORRESPONDING FIELDS OF
       TABLE TP_DATA
         FROM A996 AS A
           INNER JOIN KONP AS B
               ON A~KNUMH = B~KNUMH
           INNER JOIN MARA AS C
              ON A~MATNR = C~MATNR
*          FOR ALL ENTRIES IN IT_996
                WHERE
*      A~KNUMH = IT_996-KNUMH AND
      A~KSCHL = 'ZPRB' AND
*                       DATBI >= SY-DATUM AND
      LOEVM_KO = ''.
  ENDIF.
  SELECT   MATNR     "u7269u6599u53F7u7801
           MEINH     "u4ED3u50A8u5355u4F4Du7684u5907u7528u8BA1u91CFu5355u4F4D
           UMREZ     "u57FAu672Cu8BA1u91CFu5355u4F4Du8F6Cu6362u5206u5B50
           UMREN     "u8F6Cu6362u4E3Au57FAu672Cu8BA1u91CFu5355u4F4Du7684u5206u6BCD
      FROM MARM
      INTO CORRESPONDING FIELDS OF TABLE IT_MARM
       FOR ALL ENTRIES IN TP_DATA
     WHERE MATNR = TP_DATA-MATNR AND  MEINH = TP_DATA-KMEIN.
  LOOP AT TP_DATA.
    IF TP_DATA-KPEIN NE 0.
      TP_DATA-KBETR =  TP_DATA-KBETR / TP_DATA-KPEIN.
      TP_DATA-KHETR =  TP_DATA-KHETR / TP_DATA-KPEIN.
    ENDIF.
    IF TP_DATA-KSCHL = 'ZPRA'.
*       TP_DATA-MEINH = 'ZI'.
*      TP_DATA-KSCHL = 'B4'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'CT'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPRB'.
*      TP_DATA-KSCHL = 'L0'.
*       TP_DATA-MEINH = 'ZI'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'BAG'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPRC' OR TP_DATA-KSCHL = 'ZPRD'.
*       TP_DATA-MEINH = 'ZI'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KHETR = TP_DATA-KBETR * '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'WZI'.
        TP_DATA-KBETR = TP_DATA-KBETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KHETR = TP_DATA-KBETR * '1.17'.
      ENDIF.
    ELSEIF TP_DATA-KSCHL = 'ZPR3'.
*      TP_DATA-KSCHL = 'B2'.
      IF TP_DATA-KMEIN = 'ZI'.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ELSE.
        READ TABLE IT_MARM INTO WA_MARM1 WITH KEY MATNR = TP_DATA-MATNR MEINH = TP_DATA-KMEIN.
*           READ TABLE IT_MARM INTO WA_MARM2 WITH KEY MATNR = TP_DATA-MATNR MEINH = 'BAG'.
        TP_DATA-KHETR = TP_DATA-KHETR * WA_MARM1-UMREN / WA_MARM1-UMREZ.
*           * WA_MARM2-UMREZ / WA_MARM2-UMREN.
        TP_DATA-KBETR = TP_DATA-KHETR / '1.17'.
      ENDIF.
    ENDIF.
    TP_DATA-MEINH = '01'.
    MODIFY TP_DATA.
E_T_DATA-MATNR =   TP_DATA-MATNR.
E_T_DATA-KSCHL =   TP_DATA-KSCHL.
E_T_DATA-KHETR =   TP_DATA-KHETR.
E_T_DATA-KBETR =   TP_DATA-KBETR.
E_T_DATA-KMEIN =   TP_DATA-KMEIN.
E_T_DATA-DATAB =   TP_DATA-DATAB.
E_T_DATA-DATBI =   TP_DATA-DATBI.
APPEND E_T_DATA.
    CLEAR WA_MARM1.
    CLEAR WA_MARM2.
  ENDLOOP.
Edited by: Shen Peng on Oct 20, 2010 10:09 AM