FOR ALL ENTERIES?

WHAT IS THE USE OF FOR ALL ENTERIES IN AN INTERNAL TABLE?PLZZ TELL

Hi,
FOR ALL ENTRIES works with a database in a quantity-oriented manner. Initially all data is collected in an internal table. Make sure that this table contains at least one entry (query sy-subrc or DESCRIBE), otherwise the subsequent transaction will be carried out without any restrictions).
SELECT...FOR ALL ENTRIES IN is treated like a SELECT statement with an external OR condition. The system only selects those table entries that meet the logical condition .
Using FOR ALL ENTRIES is recommended when data is not being read from the database, that is, it is already available in the program, for example, if the user has input the data. Otherwise a join is recommended.
Here is sample program for FOR ALL ENTRIES:
DATA:it_ekko LIKE ekko OCCURS 0 WITH HEADER LINE.
DATA:it_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
SELECT * FROM ekko INTO TABLE it_ekko UP TO 10 ROWS.
IF NOT it_ekko[] IS INITIAL.
    SELECT * FROM ekpo INTO TABLE it_ekpo
    FOR ALL ENTRIES IN it_ekko
    WHERE ebeln = it_ekko-ebeln.
ENDIF.
LOOP AT it_ekko.
    WRITE:/ it_ekko-ebeln.
    HIDE it_ekko-ebeln.
ENDLOOP.
AT LINE-SELECTION.
LOOP AT it_ekpo WHERE ebeln = it_ekko-ebeln.
    WRITE:/ it_ekpo-ebelp,it_ekpo-ebeln.
ENDLOOP.
Regds
Sivaparvathi
Please reward points if helpful....

Similar Messages

For all Enteries in & Ranges Performance Problem

Is there any soln of For all enteries in & Ranges as
If i use for all enteries in my report, it becomes slow .
and if i use Ranges , if no. of record exceeds system will throw dump.
Since long i couldnt find any good soln for this problem , can anyone guide me
how to solve this problem.
Thanks

Hi All
I am pasting down query for more expert optimzation comments of the current probs
SELECT zsd_weigh_bridg1~weight_no zsd_weigh_bridg1~challn_no
           likp~vbeln AS likp_vbeln likp~lfdat
           lips~vgbel
           vbfa~vbeln AS vbfa_vbeln vbfa~vbtyp_n
           mkpf~budat
*         vtfa~vbeln AS vtfa_vbeln
           ekko~knumv AS ekko_knumv
           ekpo~inco1 ekpo~werks
           APPENDING CORRESPONDING FIELDS OF TABLE lit_in
      FROM zsd_weigh_bridg1
           INNER JOIN likp ON likp~traid = zsd_weigh_bridg1~weight_no
           INNER JOIN lips ON lips~vbeln = likp~vbeln
           INNER JOIN vbfa ON vbfa~vbelv = likp~vbeln
           LEFT OUTER JOIN mkpf ON mkpf~mblnr = vbfa~vbeln
           LEFT OUTER JOIN vtfa ON vtfa~vbelv = vbfa~vbeln
           INNER JOIN ekko ON ekko~ebeln = lips~vgbel
           INNER JOIN ekpo ON ekpo~ebeln = ekko~ebeln
*           FOR ALL ENTRIES IN git_bridge
      WHERE zsd_weigh_bridg1~weight_no in r_weight." git_bridge-weight_no ." r_weight.
ENDIF.
lit_in_tmp[] = lit_in[].
DELETE lit_in_tmp WHERE vbtyp_n NE '8'.
IF lit_in_tmp[] IS NOT INITIAL.
    SELECT mandt knumv kposn vbeln netwr netpr INTO TABLE lit_vfsi
      FROM vfsi FOR ALL ENTRIES IN lit_in
     WHERE vbeln EQ lit_in-likp_vbeln.
    SELECT mandt tknum vbelv posnv vbtyp_v vbeln posnn vbtyp_n
           INTO TABLE lit_vtfa
      FROM vtfa FOR ALL ENTRIES IN lit_in
     WHERE vbelv EQ lit_in-vbfa_vbeln.
    IF lit_vtfa[] IS NOT INITIAL.
      SELECT mandt fknum fkpos knumv
        FROM vfkp INTO CORRESPONDING FIELDS OF TABLE lit_vfkp
             FOR ALL ENTRIES IN lit_vtfa
       WHERE fknum EQ lit_vtfa-vbeln.
    ENDIF.
ENDIF.

Joins And For all Enteries in Select Statement

Could you please tell me when there is a high amount of data which is being handled in the table, does the use of INNER JOINS and FOR ALL ENTERIES in SELECT Statement decreases the system performance? ?
Can you also let me know where can i get some tips regarding do's and dont's for ABAP Programming, I want to increase my system performance.
Currently the programs which are being used are taking a lot of time for execution...
Its very URGENT!

Hai Jyotsna
Go through the following Tips for improving Performence
For all entries
The for all entries creates a where clause, where all the entries in the driver table are combined with OR. If the number of entries in the driver table is larger than rsdb/max_blocking_factor, several similar SQL statements are executed to limit the length of the WHERE clause.
The plus
Large amount of data
Mixing processing and reading of data
Fast internal reprocessing of data
Fast
The Minus
Difficult to program/understand
Memory could be critical (use FREE or PACKAGE size)
Some steps that might make FOR ALL ENTRIES more efficient:
Removing duplicates from the driver table
Sorting the driver table
If possible, convert the data in the driver table to ranges so a BETWEEN statement is used instead of and OR statement:
               FOR ALL ENTRIES IN i_tab
                  WHERE mykey >= i_tab-low and
             mykey <= i_tab-high.
Nested selects
The plus:
Small amount of data
Mixing processing and reading of data
Easy to code - and understand
The minus:
Large amount of data
when mixed processing isnt needed
Performance killer no. 1
Select using JOINS
The plus
Very large amount of data
Similar to Nested selects - when the accesses are planned by the programmer
In some cases the fastest
Not so memory critical
The minus
Very difficult to program/understand
Mixing processing and reading of data not possible
Use the selection criteria
SELECT * FROM SBOOK.
CHECK: SBOOK-CARRID = 'LH' AND
                  SBOOK-CONNID = '0400'.
ENDSELECT.
SELECT * FROM SBOOK
WHERE CARRID = 'LH' AND
        CONNID = '0400'.
ENDSELECT.
Use the aggregated functions
C4A = '000'.
SELECT * FROM T100
WHERE SPRSL = 'D' AND
        ARBGB = '00'.
CHECK: T100-MSGNR > C4A.
C4A = T100-MSGNR.
ENDSELECT.
SELECT MAX( MSGNR ) FROM T100 INTO C4A
WHERE SPRSL = 'D' AND
       ARBGB = '00'.
Select with view
SELECT * FROM DD01L
WHERE DOMNAME LIKE 'CHAR%'
        AND AS4LOCAL = 'A'.
SELECT SINGLE * FROM DD01T
    WHERE   DOMNAME    = DD01L-DOMNAME
        AND AS4LOCAL   = 'A'
        AND AS4VERS    = DD01L-AS4VERS
        AND DDLANGUAGE = SY-LANGU.
ENDSELECT.
SELECT * FROM DD01V
WHERE DOMNAME LIKE 'CHAR%'
       AND DDLANGUAGE = SY-LANGU.
ENDSELECT.
Select with index support
SELECT * FROM T100
WHERE     ARBGB = '00'
       AND MSGNR = '999'.
ENDSELECT.
SELECT * FROM T002.
SELECT * FROM T100
    WHERE     SPRSL = T002-SPRAS
          AND ARBGB = '00'
          AND MSGNR = '999'.
ENDSELECT.
ENDSELECT.
Select Into table
REFRESH X006.
SELECT * FROM T006 INTO X006.
APPEND X006.
ENDSELECT
SELECT * FROM T006 INTO TABLE X006.
Select with selection list
SELECT * FROM DD01L
WHERE DOMNAME LIKE 'CHAR%'
        AND AS4LOCAL = 'A'.
ENDSELECT
SELECT DOMNAME FROM DD01L
INTO DD01L-DOMNAME
WHERE DOMNAME LIKE 'CHAR%'
       AND AS4LOCAL = 'A'.
ENDSELECT
Key access to multiple lines
LOOP AT TAB.
CHECK TAB-K = KVAL.
ENDLOOP.
LOOP AT TAB WHERE K = KVAL.
ENDLOOP.
Copying internal tables
REFRESH TAB_DEST.
LOOP AT TAB_SRC INTO TAB_DEST.
APPEND TAB_DEST.
ENDLOOP.
TAB_DEST[] = TAB_SRC[].
Modifying a set of lines
LOOP AT TAB.
IF TAB-FLAG IS INITIAL.
    TAB-FLAG = 'X'.
ENDIF.
MODIFY TAB.
ENDLOOP.
TAB-FLAG = 'X'.
MODIFY TAB TRANSPORTING FLAG
           WHERE FLAG IS INITIAL.
Deleting a sequence of lines
DO 101 TIMES.
DELETE TAB_DEST INDEX 450.
ENDDO.
DELETE TAB_DEST FROM 450 TO 550.
Linear search vs. binary
READ TABLE TAB WITH KEY K = 'X'.
READ TABLE TAB WITH KEY K = 'X' BINARY SEARCH.
Comparison of internal tables
DESCRIBE TABLE: TAB1 LINES L1,
                TAB2 LINES L2.
IF L1 <> L2.
TAB_DIFFERENT = 'X'.
ELSE.
TAB_DIFFERENT = SPACE.
LOOP
AT TAB1.
    READ TABLE TAB2 INDEX SY-TABIX.
    IF TAB1 <> TAB2.
      TAB_DIFFERENT = 'X'. EXIT.
    ENDIF.
ENDLOOP.
ENDIF.
IF TAB_DIFFERENT = SPACE.
ENDIF.
IF TAB1[] = TAB2[].
ENDIF.
Modify selected components
LOOP AT TAB.
TAB-DATE = SY-DATUM.
MODIFY TAB.
ENDLOOP.
WA-DATE = SY-DATUM.
LOOP AT TAB.
MODIFY TAB FROM WA TRANSPORTING DATE.
ENDLOOP.
Appending two internal tables
LOOP AT TAB_SRC.
APPEND TAB_SRC TO TAB_DEST.
ENDLOOP
APPEND LINES OF TAB_SRC TO TAB_DEST.
Deleting a set of lines
LOOP AT TAB_DEST WHERE K = KVAL.
DELETE TAB_DEST.
ENDLOOP
DELETE TAB_DEST WHERE K = KVAL.
Tools available in SAP to pin-point a performance problem
·                The runtime analysis (SE30)
·                SQL Trace (ST05)
·                Tips and Tricks tool
·                The performance database
Optimizing the load of the database
Using table buffering
Using buffered tables improves the performance considerably. Note that in some cases a statement can not be used with a buffered table, so when using these statements the buffer will be bypassed. These statements are:
Select DISTINCT
ORDER BY / GROUP BY / HAVING clause
Any WHERE clause that contains a sub query or IS NULL expression
JOIN s
A SELECT... FOR UPDATE
If you wan t to explicitly bypass the buffer, use the BYPASS BUFFER addition to the SELECT clause.
Use the ABAP SORT Clause Instead of ORDER BY
The ORDER BY clause is executed on the database server while the ABAP SORT statement is executed on the application server. The database server will usually be the bottleneck, so sometimes it is better to move the sort from the database server to the application server.
If you are not sorting by the primary key ( E.g. using the ORDER BY PRIMARY key statement) but are sorting by another key, it could be better to use the ABAP SORT statement to sort the data in an internal table. Note however that for very large result sets it might not be a feasible solution and you would want to let the database server sort it.
Avoid the SELECT DISTINCT Statement
As with the ORDER BY clause it could be better to avoid using SELECT DISTINCT, if some of the fields are not part of an index. Instead use ABAP SORT + DELETE ADJACENT DUPLICATES on an internal table, to delete duplicate rows.
Thanks & regards
Sreenivasulu P

I can not get my email to send through my iPad email. The email works for all other options. The error says I need to enter a password in setting, but I have entered the password numerous times to no avail. Any ideas?

I can not get my email to send through my iPad email. The email works for all other options. The error says I need to enter a password in setting, but I have entered the password numerous times to no avail. Any ideas?

iOS: Unable to send or receive email
http://support.apple.com/kb/TS3899
Can’t Send Emails on iPad – Troubleshooting Steps
http://ipadhelp.com/ipad-help/ipad-cant-send-emails-troubleshooting-steps/
 Cheers, Tom

HT1677 When I am searching and enter what I am looking for all of my old emails are popping up. Is there a reason for this and way to remove it?

While searching with safari when I am typing in what I am searching for all of my old emails pop in that are related to the subject. Is there a reason for this and or way to rid the search of this?

Sometimes you want to just to search something that specific. Like if I am searching "ebay" I want the address and site for ebay to appear not everyone of my previous emails reguarding Ebay or searches in regards to ebay and this is all that pops up.

Using delete and FOR ALL ENTRIES

Hi,
We have a error message regarding the following code :
Delete FROM TABLE FOR ALL ENTRIES IN lt_TABLE WHERE
TABLE_KEY1 = LT_TABLE_KEY1
Could we use the For All entries with "Select" ?
For information, the error message is "Unable to interpret "FOR". Possible causes: Incorrect spelling or comma error.
Thank you.

Hi,
Check the below syntax, if you want to delete from database
DELETE FROM sflight
WHERE carrid = p_carrid AND
fldate = sy-datum AND
seatsocc = 0.
Just a suggestion. May be from next time you can use F1 help for syntax:
1. Place the cursor on the delete keword in your program and press F1 - You willl get all the possible syntax for delete statement
2. Else open the transaction ABAPDOCU, Click Keyword Help, Enter the required keyword(delete in this case) and press cont.. You will get the syntax.
Hope thsi will help you.
Regards,
Swarna Munukoti.

SD Flow program using For all entries.

using simple ALV grid: I have the urgent requirement of changing the following program using 'For all entries' instead of joins and I should not use 'TABLES' -- For top-of-page I need to get dynamic fields like if I select company code in the selection screen then I need to get 'This report is base on COMPANY CODE'.
This program is about sales flow where i shud get only those records that have ebeln in vbak, delivery, invoice.
The original program is as follows:
*& Report ZSD_DOCU_FLOW                                               *
REPORT zsd_docu_flow NO STANDARD PAGE HEADING                    .
* Program     : ZCOS_SALES                                           *
* Dev. Class : ZSD
* Functional :
* Created on :                                                        *
* Project     :
* CR Number   :
* Transaction : ZSDCSUT                                               *
* Description :   * Sales document life cylce for given customer
*                  to declaired period displaying the sales document
*                  details ,with relevant del details and corresponding
*                  Invocie Details
*-----------     Tables Declaration      -----------*
TABLES: vbak,vbap,vbfa,kna1,vbrk,vbrp,likp,lips,t001.
TYPE-POOLS : slis.
*-----------    Internal Tables Declaration      -----------*
*      Internal Table for Sales Order data                   *
DATA: BEGIN OF it_so OCCURS 0,
        vbeln LIKE vbak-vbeln,
        kunnr LIKE vbak-kunnr,
        posnr LIKE vbap-posnr,
        matnr LIKE vbap-matnr,
        kwmeng LIKE vbap-kwmeng,
        netwr LIKE vbap-netwr,
     END OF it_so.
*      Internal Table for Delivery Order data                   *
DATA: BEGIN OF it_del OCCURS 0,
        delnum LIKE likp-vbeln,
        lfdat LIKE likp-lfdat,
        delitem LIKE lips-posnr,
        lfimg LIKE lips-lfimg,
      END OF it_del.
*      Internal Table for Invoice data                          *
DATA: BEGIN OF it_inv OCCURS 0,
        invnum LIKE vbrk-vbeln,
        invitem LIKE vbrp-posnr,
        fkimg LIKE vbrp-fkimg,
        amount LIKE vbrp-netwr,
     END OF it_inv.
*      Internal Table for Final data                            *
DATA: BEGIN OF it_final OCCURS 0,
        vbeln LIKE vbak-vbeln,
        posnr LIKE vbap-posnr,
        kunnr LIKE vbak-kunnr,
        name LIKE kna1-name1,
        matnr LIKE vbap-matnr,
        kwmeng LIKE vbap-kwmeng,
        netwr LIKE vbap-netwr,
        delnum LIKE likp-vbeln,
        lfdat LIKE likp-lfdat,
        delitem LIKE lips-posnr,
        lfimg LIKE lips-lfimg,
        invnum LIKE vbrk-vbeln,
        invitem LIKE vbrp-posnr,
        fkimg LIKE vbrp-fkimg,
        amount LIKE vbrp-netwr,
     END OF it_final.
*-----------    Variables Declaration      -----------*
DATA: v_name LIKE kna1-kunnr," variable for customer name
      v_delnum LIKE likp-vbeln," variable for delivery number
      v_invnum LIKE vbrk-vbeln." variable for invoce number
DATA : ls_layout TYPE slis_layout_alv,
       it_fcat TYPE slis_t_fieldcat_alv ,
       wa_fcat TYPE slis_fieldcat_alv,
       lh TYPE slis_t_listheader,
       ls TYPE slis_listheader,
       it_events TYPE slis_t_event ,
       ls_event TYPE slis_alv_event ,
       i_sort     TYPE slis_t_sortinfo_alv,
       w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20).
DATA : l_repid LIKE trdir-name.
l_repid = 'ZSD_DOCU_FLOW1'.
*-----------    Select-options & parameters Declaration ---*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE vbak-bukrs_vf,
             p_vkorg LIKE vbak-vkorg,
            p_vtweg LIKE vbak-vtweg,
            p_spart LIKE vbak-spart.
SELECT-OPTIONS: s_kunnr FOR vbak-kunnr,
                s_audat FOR vbak-audat.
SELECTION-SCREEN END OF BLOCK b1.
*----------- AT SELECTION-SCREEN --------------------------*
AT SELECTION-SCREEN.
SELECT SINGLE * FROM t001 INTO t001
                            WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Company Code'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                          WHERE vkorg = p_vkorg.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Sales Organization'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                            WHERE vtweg = p_vtweg.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid distribution channel'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
                            WHERE spart = p_spart.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Division'.
ENDIF.
SELECT SINGLE * FROM kna1 INTO kna1
                            WHERE kunnr IN s_kunnr.
IF sy-subrc <> 0.
    MESSAGE e000(8i) WITH 'Enter a Valid Customer Number'.
ENDIF.
*----------- START-OF-SELECTION-----------------------------*
START-OF-SELECTION.
ls-typ = 'H'.
ls-info = 'Sales Document Flow'.
APPEND ls TO lh.
ls-typ = 'S'.
WRITE: sy-datum TO l_date USING EDIT MASK '__/__/____'.
CONCATENATE 'DATE :' l_date INTO l_date1 SEPARATED BY space.
ls-info = l_date1.
APPEND ls TO lh.
PERFORM field_cat.
PERFORM t_sort_build USING i_sort.
PERFORM get-data.
*----------- END-OF-SELECTION-----------------------------*
END-OF-SELECTION.
IF it_final[] IS INITIAL.
    MESSAGE i000(8i) WITH 'No data Found'.
    EXIT.
ENDIF.
PERFORM print-data.
*&      Form get-data
*       text
* --> p1        text
* <-- p2        text
FORM get-data .
* Accesing Sales Data
SELECT a~vbeln a~kunnr b~posnr b~matnr b~kwmeng b~netwr
   INTO CORRESPONDING FIELDS OF TABLE it_so
   FROM vbak AS a INNER JOIN vbap AS b
                         ON a~vbeln = b~vbeln
                          WHERE a~bukrs_vf = p_bukrs
                             AND a~vkorg = p_vkorg
                             AND a~vtweg = p_vtweg
                                AND a~spart = p_spart
                                 AND a~kunnr IN s_kunnr
                                      AND a~audat IN s_audat.
LOOP AT it_so.
    SELECT SINGLE name1 FROM kna1 INTO v_name
                                     WHERE kunnr = it_so-kunnr.
    SELECT SINGLE vbeln FROM vbfa INTO v_delnum
                                      WHERE vbelv = it_so-vbeln
                                        AND vbtyp_n = 'J'.
    IF sy-subrc = 0.
      SELECT SINGLE vbeln FROM vbfa INTO v_invnum
                            WHERE vbelv = v_delnum
                              AND vbtyp_n = 'M'.
    ENDIF.
    MOVE-CORRESPONDING it_so TO it_final.
    it_final-name = v_name.
    it_final-delnum = v_delnum.
    it_final-invnum = v_invnum.
    APPEND it_final.
    CLEAR it_final.
    CLEAR v_delnum.
    CLEAR v_invnum.
ENDLOOP.
LOOP AT it_final.
    IF it_final-delnum NE ' '.
* Reading Del Data.
      SELECT SINGLE a~vbeln a~lfdat b~posnr b~lfimg   INTO
                (it_del-delnum, it_del-lfdat, it_del-delitem,
                 it_del-lfimg ) FROM
                    likp AS a INNER JOIN lips AS b ON a~vbeln = b~vbeln
                               WHERE a~vbeln = it_final-delnum
                               AND b~posnr = it_final-posnr.
      MOVE-CORRESPONDING it_del TO it_final.
      MODIFY it_final.
    ENDIF.
    IF it_final-invnum NE ' '.
* Reading Invoice Data.
      SELECT SINGLE vbeln posnr fkimg netwr INTO
     (it_inv-invnum, it_inv-invitem, it_inv-fkimg, it_inv-amount )
                   FROM vbrp WHERE vbeln = it_final-invnum
                              AND   posnr = it_final-posnr.
      MOVE-CORRESPONDING it_inv TO it_final.
      MODIFY it_final.
    ENDIF.
ENDLOOP.
ENDFORM.                    " get-data
*&      Form print-data
*       text
* --> p1        text
* <-- p2        text
FORM print-data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
     i_callback_program                = l_repid
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
     i_callback_top_of_page            = 'TOP'
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      =
*     I_GRID_SETTINGS                   =
*     IS_LAYOUT                         =
     it_fieldcat                       = it_fcat
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
     IT_SORT                           = i_sort[]
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     IS_VARIANT                        =
*     IT_EVENTS                         =
*     IT_EVENT_EXIT                     =
*     IS_PRINT                          =
*     IS_REPREP_ID                      =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     I_HTML_HEIGHT_TOP                 =
*     I_HTML_HEIGHT_END                 =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = it_final.
*   EXCEPTIONS
*     PROGRAM_ERROR                     = 1
*     OTHERS                            = 2
* IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* ENDIF.
ENDFORM.                    " print-data
*&      Form field_cat
*       text
* --> p1        text
* <-- p2        text
FORM field_cat .
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-key = 'X'.
wa_fcat-ref_fieldname = 'VBELN'.
wa_fcat-ref_tabname = 'VBAK'.
wa_fcat-seltext_m = 'Sales Order NO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'POSNR'.
wa_fcat-ref_fieldname = 'POSNR'.
wa_fcat-ref_tabname = 'VBAP'.
wa_fcat-seltext_m = 'SalesItemNO'.
wa_fcat-fix_column = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KUNNR'.
wa_fcat-seltext_m = 'CUSTNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NAME'.
wa_fcat-seltext_m = 'CUSTNAME'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'MATNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KWMENG'.
wa_fcat-seltext_m = 'Sales Quantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NETWR'.
wa_fcat-seltext_m = 'Value'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELNUM'.
wa_fcat-seltext_m = 'DeloveryNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELITEM'.
wa_fcat-seltext_m = 'DelItemNO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFDAT'.
wa_fcat-seltext_m = 'DelDate'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFIMG'.
wa_fcat-seltext_m = 'DelQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVNUM'.
wa_fcat-seltext_m = 'InvoiceNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVITEM'.
wa_fcat-seltext_m = 'InvoiceItem'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'FKIMG'.
wa_fcat-seltext_m = 'INVQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'AMOUNT'.
wa_fcat-seltext_m = 'INVvalue'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
ENDFORM.     " field_cat
*&      Form top
*       text
FORM t_sort_build USING l_sort TYPE slis_t_sortinfo_alv.
DATA: ls_sort TYPE slis_sortinfo_alv.
ls_sort-fieldname = 'VBELN'.
ls_sort-spos      = 1.
ls_sort-up        = 'X'.
ls_sort-subtot    = 'X'.
APPEND ls_sort TO l_sort.
ls_sort-fieldname = 'KUNNR'.
ls_sort-spos      = 2.
ls_sort-up        = 'X'.
APPEND ls_sort TO l_sort.
ENDFORM.                    "t_sort_bui
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary       = lh
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
ENDFORM.                    "TOP
===========================================================================
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW                                                    *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN,     "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR,     " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR,     " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR,     " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG,   " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR,     " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN,           "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT,           " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR,           " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG,           " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN,          "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR,          "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG,          "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR,          "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
      V_DELVBELN TYPE LIKP-VBELN,
      V_INVVBELN TYPE VBRK-VBELN,
      V_BUKRS TYPE T001-BUKRS,    "COMPANY CODE "#EC *
      V_AUDAT TYPE VBAK-AUDAT,
      V_VKORG TYPE VBAK-VKORG,
      V_VKGRP TYPE VBAK-VKGRP,
      V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
      WA_VBAK TYPE XT_VBAK,
      IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
      WA_VBAP TYPE XT_VBAP,
      IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
      WA_LIKP TYPE XT_LIKP,
      IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
      WA_LIPS TYPE XT_LIPS,
      IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
      WA_VBRK TYPE XT_VBRK,
      IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
      WA_VBRP TYPE XT_VBRP,
      IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
      WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_LSTHDR TYPE SLIS_T_LISTHEADER,
      WA_LSTHDR TYPE SLIS_LISTHEADER,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
                S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
                S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
                S_AUDAT FOR V_AUDAT,      "SALES DOCUMENT DATE
                S_VKORG FOR V_VKORG,      "SALES ORGANISATION
                S_VKGRP FOR V_VKGRP,      "SALES GROUP
                S_SPART FOR V_SPART.      "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*&      Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
        INTO TABLE IT_VBAK
        FROM VBAK
        WHERE VBELN IN S_VBELN.
*        BUKRS_VF IN S_BUKRS AND
*        VKORG IN S_VKORG AND
*        VKGRP IN S_VKGRP AND
*        SPART IN S_SPART AND
*        KUNNR IN S_KUNNR AND
*        AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
        INTO TABLE IT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
        INTO TABLE IT_LIKP
        FROM LIKP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
        INTO TABLE IT_LIPS
        FROM LIPS
        FOR ALL ENTRIES IN IT_VBAP
        WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
        INTO TABLE IT_VBRK
        FROM VBRK
        FOR ALL ENTRIES IN IT_LIKP
        WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
        INTO TABLE IT_VBRP
        FROM VBRP
        FOR ALL ENTRIES IN IT_LIPS
        WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM.                    " GET_DATA
Edited by: srk s on Jan 29, 2008 7:33 PM
Edited by: Alvaro Tejada Galindo on Jan 29, 2008 9:49 AM

Hi Satish,
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries, I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW                                                    *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN,     "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR,     " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR,     " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR,     " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG,   " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR,     " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN,           "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT,           " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR,           " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG,           " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN,          "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR,          "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG,          "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR,          "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
      V_DELVBELN TYPE LIKP-VBELN,
      V_INVVBELN TYPE VBRK-VBELN,
      V_BUKRS TYPE T001-BUKRS,    "COMPANY CODE "#EC *
      V_AUDAT TYPE VBAK-AUDAT,
      V_VKORG TYPE VBAK-VKORG,
      V_VKGRP TYPE VBAK-VKGRP,
      V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
      WA_VBAK TYPE XT_VBAK,
      IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
      WA_VBAP TYPE XT_VBAP,
      IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
      WA_LIKP TYPE XT_LIKP,
      IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
      WA_LIPS TYPE XT_LIPS,
      IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
      WA_VBRK TYPE XT_VBRK,
      IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
      WA_VBRP TYPE XT_VBRP,
      IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
      WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
      WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
      IT_LSTHDR TYPE SLIS_T_LISTHEADER,
      WA_LSTHDR TYPE SLIS_LISTHEADER,
      IT_EVENTS TYPE SLIS_T_EVENT,
      WA_EVENTS TYPE SLIS_ALV_EVENT,
      IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
                S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
                S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
                S_AUDAT FOR V_AUDAT,      "SALES DOCUMENT DATE
                S_VKORG FOR V_VKORG,      "SALES ORGANISATION
                S_VKGRP FOR V_VKGRP,      "SALES GROUP
                S_SPART FOR V_SPART.      "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
          CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*&      Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
        INTO TABLE IT_VBAK
        FROM VBAK
        WHERE VBELN IN S_VBELN.
*        BUKRS_VF IN S_BUKRS AND
*        VKORG IN S_VKORG AND
*        VKGRP IN S_VKGRP AND
*        SPART IN S_SPART AND
*        KUNNR IN S_KUNNR AND
*        AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
        INTO TABLE IT_VBAP
        FROM VBAP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
        INTO TABLE IT_LIKP
        FROM LIKP
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
        INTO TABLE IT_LIPS
        FROM LIPS
        FOR ALL ENTRIES IN IT_VBAP
        WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
        INTO TABLE IT_VBRK
        FROM VBRK
        FOR ALL ENTRIES IN IT_LIKP
        WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
        INTO TABLE IT_VBRP
        FROM VBRP
        FOR ALL ENTRIES IN IT_LIPS
        WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM.                    " GET_DATA
Code Formatted by: Alvaro Tejada Galindo on Jan 29, 2008 9:48 AM

Need to run the report for All Values when Null is passed in parameter

Hi All,
In my BIP report, I am using a parameter :asset with Type as Text, which means user will type the values for the parameter in the text box.
Now, this parameter can take multiple comma separated values. I have a requirement to run the report for All Values when user doesn't enter any value in the parameter text box and if user enters any value(s) then the report will run for those values . The way, I tried to handle that in the query using couple of ways was :
IMP : My Database is SQL Server
where
(table.asset = isnull((:asset), table.asset) or table.asset in (:asset))
Now this works fine when I give a single asset number but when I give multiple values separated by comma like 123, 345 in the text box, then the statement fails saying 'encountered ,'
I also tried simply
table.asset in isnull((:asset),table.asset) -- but this doesn't work as it doesn't allow me to use in operater while using isnull and if i will use = operater then it won't work in case of multiple values
Any suggestions on how can I handle this? Any help would be highly appreciated.
Thanks,
Ronny

thanks for replying, but i tried this option too, it did not work for me, neither isnull nor coalesce. I mean, the solution work for single value but when i pass multiple values then separated by a comma then it doesn't work and shows me an error like "Incorrect Syntax ','". I am using SQL server as DB and bip is 10.1.3.4.1
also please share the SR number, so i can also check the same.
can there be any other work around to this?
thanks,
ronny

How to get One Selection Screen for all queries?

Hi Experts,
I have three queries having selection screens. All the selection screen have the same variables, but the reports are different.
I have created a workbook having these three queries. Each time when the workbook opens, the three selection screen pops up one after the another. Same values are entered in all the selection screens.
Now the user wants only one selection screen for all the three reports. Is it possible? I tried but I do not see any way.
I think there should be some way of getting it done.
Waiting for your inputs,
With kind regards,
Shreeem

Hi
If a workbook contains multiple queries that use the same variable, you are prompted to enter the variable values again for each query. To avoid this, set the Display Duplicate Variables Only Once flag.
Goto Workbook Settings>Under Variables Tab>select Display Duplicate Variables only Once
http://help.sap.com/saphelp_nw70ehp1/helpdata/EN/54/a493f7256b43698191a2623e5a0532/frameset.htm
Hope this helps,
Aparna Duvvuri

Default alarm for all-day events

When I set up iCal, I used a default alarm at 11 pm for ALL-DAY events. I don't stay up that late anymore, and now I have to manually reset the alarm to a more sane time every time I enter an all-day event. How do I change the default to earlier? Note: This is not the same default as for regular timed events ... that one I can change in Preferences.

Well, I couldn't figure this one out, so I just moved the calendars back to my main machine, and published them to the web for sharing with my laptop. On my main machine they worked fine.
Can't figure out why it wouldn't work on the server. Maybe it'll change with Leopard's iCal server.

How to change default action "alarm" for all signatures ?

My question belongs to a Cisco 1712 (128 MB, IOS 12.3T, SDM 2.5 installed):
I'm trying to change the default action "alarm" to "alarm,reset,drop" for all signatures of my custom set.
However doing so via SDM fails. First, it appears as being done correctly, but after compiling the signatures again, the default values are back there (in the same sense, I was unable to delete signatures, works just using the CLI).
I followed the instructions at cisco.com:
router(config)#ip ips signature-definition
router(config-sigdef)#signature 6130 10
router(config-sigdef-sig)#engine
router(config-sigdef-sig-engine)#event-action produce-alert
router(config-sigdef-sig-engine)#event-action deny-packet-inline
router(config-sigdef-sig-engine)#event-action reset-tcp-connection
router(config-sigdef-sig-engine)#exit
However ip ips signature-definition is not understood by the router, so the procedure fails.
Can you please assist me ?

You can use IOS command-line interface (CLI) to change signature actions for one signature or a group of signatures based on signature categories. The following example shows how to change signature action to alert, drop and reset for signature 6130 with subsig ID of 10.
router#configure terminal
Enter configuration commands, one per line. End with CNTL/Z.
router(config)#ip ips signature-definition
router(config-sigdef)#signature 6130 10
router(config-sigdef-sig)#engine
router(config-sigdef-sig-engine)#event-action produce-alert
router(config-sigdef-sig-engine)#event-action deny-packet-inline
router(config-sigdef-sig-engine)#event-action reset-tcp-connection
router(config-sigdef-sig-engine)#exit
router(config-sigdef-sig)#exit
router(config-sigdef)#exit
Do you want to accept these changes? [confirm]y
router(config)#

Schedule a Webi XIR2 report to run for all values of the prompt ...

Hi there,
Any ideea about if it's possible to schedule a Web Intelligence XIR2 report to automatically run for all 150 different prompt values in the LOV (and have 150 different instances)?
BOXIR2, Java deployment.
Many thanks.

You'd be scheduling the document 150 different times, each for one value of the LOV.
You'd use the ReportEngine (REBean) SDK to read the LOV values, then use the Enterprise SDK to schedule.
Here's a bit of code that illustrates how to schedule a Webi doc a single time with specified prompts. You'd do something similar, but iterate the prompt setting and scheduling:
    IInfoStore iStore = (IInfoStore) eSession.getService("InfoStore");
    ReportEngine reportEngine = ((ReportEngines) eSession.getService("ReportEngines"))
                                    .getService(ReportEngines.ReportEngineType.WI_REPORT_ENGINE);
    IInfoObjects objs = iStore.query("Select TOP 1 * From CI_INFOOBJECTS Where "
                                      + " SI_KIND='Webi' And SI_INSTANCE=0 "
                                      + " And SI_NAME = '" + reportName + "'");
    //============================================================================
    // Open Webi document, then get and set Prompts collection
    //============================================================================
    IWebi            webi    = (IWebi) objs.get(0);
    DocumentInstance di      = reportEngine.openDocument(webi.getID());
    Prompts          prompts = di.getPrompts();
    for(int i = 0, m = prompts.getCount() ; i < m ; i++) {
        Prompt prompt = prompts.getItem(i);
        String name   = prompt.getName();
        if("Enter value(s) for State:".equals(name)) {
            Lov lov = prompt.getLOV();
            lov.refresh();
            Values values = lov.getAllValues();
            prompt.enterValues(new ValueFromLov[] { values.getValueFromLov(0),
                                                    values.getValueFromLov(1)});
        } else if ("Enter Shop Id:".equals(name)) {
            prompt.enterValues(new String[] { "261" });
    //===========================================================================
    // Copy prompts over to InfoObject
    //===========================================================================
    PromptsUtil.populateWebiPrompts(prompts, webi);
    //===========================================================================
    // Schedule Webi report to run once now
    //===========================================================================
    webi.getWebiFormatOptions().setFormat(IWebiFormatOptions.CeWebiFormat.Webi);
    ISchedulingInfo schedInfo = webi.getSchedulingInfo();
    schedInfo.setRightNow(true);
    schedInfo.setType(CeScheduleType.ONCE);
    iStore.schedule(objs);
Sincerely,
Ted Ueda

Custom CSS-Applying selected background for all the cols in the report

Hi,
I am trying to set a particular background for all the columns in the report(not for all the projects,so that I can avoid option of manually setting background color for complete report.For this I thought custom CSS is best option.So edited custom.css(C:\OBI11g_Middleware\Oracle_BI1\bifoundation\web\app\res\s_blafp\b_mozilla_4) file with below code and went to the Answers-> Criteria->Choose Column->style-> check "Use Custom CSS Class"->MyCell
Code used in custom.css
.MyCell { background-color: #00ff00; font-style:italic; font-weight: bold;}
Somehow I dont see the background color applied to any of the columns in report.Can anyone had successful attempt of this Custom CSS.Thanks in Advance.

I am trying both the solutions.
User 979493,
I started manually writing the code instead of pasting and almost worked.In the mentioned below paths I dont have custom.css file,so I created one and manually entered below code.But does it work for only that particular column and not for all the columns.Is it supposed to work for all the columns or just that column.
For example: I have 2 cols in the report,I used "Use Custom CSS Class" -> MyCell for the first column and when I ran results it shows background color for only col1 and not for col2.I thought this feature will apply background color for all the columns in the report.Please correct me if I am wrong.
custom.css file content:
.MyCell{background-color: #00ff00;font-style:italic;font-weight:bold;}

Performance on Select Single&Write AND Select*(For All Entries)&Read&Write

Hi Experts,
I got a code review problem & we are in a argument.
I need the best performance code out of this two codes. I have tested this both on 5 & 1000 & 3000 & 100,000 & 180,000 records.
But still, I just need a second opinion of experts.
TYPES : BEGIN OF ty_account,
        saknr   TYPE   skat-saknr,
        END OF ty_account.
DATA : g_txt50      TYPE skat-txt50.
DATA : g_it_skat    TYPE TABLE OF skat,       g_wa_skat    LIKE LINE OF g_it_skat.
DATA : g_it_account TYPE TABLE OF ty_account, g_wa_account LIKE LINE OF g_it_account.
Code 1.
SELECT saknr INTO TABLE g_it_account FROM skat.
LOOP AT g_it_account INTO g_wa_account.
SELECT SINGLE txt50 INTO g_txt50 FROM skat
    WHERE spras = 'E'
      AND ktopl = 'XXXX'
      AND saknr = g_wa_account-saknr.
WRITE :/ g_wa_account-saknr, g_txt50.
CLEAR : g_wa_account, g_txt50.
ENDLOOP.
Code 2.
SELECT saknr INTO TABLE g_it_account FROM skat.
SELECT * INTO TABLE g_it_skat FROM skat
FOR ALL ENTRIES IN g_it_account
      WHERE spras = 'E'
        AND ktopl = 'XXXX'
        AND saknr = g_it_account-saknr.
LOOP AT g_it_account INTO g_wa_account.
READ TABLE g_it_skat INTO g_wa_skat WITH KEY saknr = g_wa_account-saknr.
WRITE :/ g_wa_account-saknr, g_wa_skat-txt50.
CLEAR : g_wa_account, g_wa_skat.
ENDLOOP.
Thanks & Regards,
Dileep .C

Hi Dilip.
from you both the code I have found that you are selecting 2 diffrent fields.
In Code 1.
you are selecting SAKNR and then for these SAKNR you are selecting TXT50 from the same table.
and in Code 2 you are selecting all the fields from SAKT table for all the values of SAKNR.
I don't know whats your requirement.
Better you declare a select option on screen and then fetch required fields from SAKT table for the values entered on screen for SAKNR.
you only need TXT50 and SAKNR fields.
so declare two types one for SAKNR and another for TXT50.
Points to be remember.
1. while using for all entries always check the for all entries table should not be blank.
2. you will have to fetch all the key fields in table while applying for all entries,
    you can compare key fields with a constant which is greater than initial value.
3. while reading the table sort the table by the field on which you are going to read it.
try this:
TYPES : BEGIN OF ty_account,
saknr TYPE skat-saknr,
END OF ty_account.
TYPES : begin of T_txt50,
      saknr type saknr,
      txt50 type txt50,
end of t_txt50.
DATA: i_account type table of t_account,
      w_account type t_account,
      i_txt50 type table t_txt50,
      w_txt50 type t_txt50.
select SAKNR from SKAT into table i_account.
if sy-subrc = 0.
sort i_account by saknr.
select saknr txt50 from SKAT into table i_txt50
for all entries in i_account
where SAKNR = i_account-SAKNR
here mention al the primary keys and compare them with their constants.
endif.
Note; here you need to take care that, you will have to fetch all the key fields in table i_txt50.
and compare those fields with there constants which should be greater than initial values.
they should be in proper sequence.
now for writing.
loop at i_account into w_account.
clear w_txt50.
sort i_txt50 by saknr.
read table i_txt50 into w_txt50 with key SAKNR = w_account-saknr
if sy-subrc = 0.
write: w_txt50-saknr, w-txt50-txt50.
clear w_txt50, w_account.
endif.
endloop.
Hope it wil clear your doubts.
Thanks
Lalit

For all those out there with Iphone5 WIFI issues,Please READ THIS

I pre-ordered my iphone 5 (Black) got that last week. Quickly backed up my Iphone 4 and Restored my iphone 5.The first thing i checked to see is connecting to my WIFI network at home. And i kept getting a message "UNABLE TO CONNECT TO THE NETWORK". I had the iphone 4 aside and i can see iphone 4 is connected just fine. So are my laptop, Ipad and other devices.
So what is different in Iphone5?
After couple of days of head banging, and phone calls with apple support. I finally gave up and went to a apple store , they said, They have not heard any WIFI issues and my case was the first , However to keep me happy they said they will replace my device, But if have the same issue ,they will NOT be able to replace it again. And they even showed me the new iphoen connects to their "Non-secured" apple WIFI network.
So i take the new phone home, and the first thing i try is connecting to WIFI.And i still get "Unable to connect to the wifi network ".And i still can see Iphone 4 working fine and connecting to the same network just fine. With the second iphone5 also not working, I realized it is not hardware, but something surely changed with WIFI in iphone 5. I have a NETGEAR router with its latest firmware installed(2.0.26). I then downgraded my firmware to 2.0.21, then gave a shot.
BINGO..Iphone 5 works fine connects to wifi.and so is my iphone4 too.
So for all those users out there, the fact is something changed in iphone 5 WIFI algorithm. And if anyone really disagrees with me on this, I am going to post a video to demonstrate on YOUTUBE. I believe it is completely UNFAIR for apple to now ask you Upgrade/change your router or its firmware. And it is not fair for router companies to Fix anything to make their firmware compatible with iphone5.
So iphone 5 Users, Please lets us all push for a fix on this issue. WE WANT FIX.

I can't tell you how frustrated/disappointed I was when this exact situation happened to me. I upgraded my wife's iPhone 4 to an iPhone 5 just to find out that it wouldn't connect to my home wifi but would connect everywhere else. Guess what...
I found a fix!!
On you iPhone go to Settings, General, About, scroll to "WiFi Address". Now stay there.
Log-in to your modem thru your web browser via IP Address. (Keep in mind, I use a 2Wire modem, yours may be different) Clicked "Wireless" for wireless settings, scrolled down to "MAC Filtering" and clicked "Edit Allowed/Blocked Device List". At the bottom, there's a field to which you can manually enter a MAC address to you allow or block. If you're using a different modem with different menus/options, just browse around til you find a similar option of manually adding MAC addresses for access or blocking.
MAC Address = Wifi Address. See where i'm going with this?
Type the WiFi Address from you iPhone in the MAC address field, click "Add to List". If MAC filtering is enabled, it'll be added to the BLOCK list, simply click on the address, and click the double arrow pointing towards the ALLOW list so it'll transfer lists to where you want it, then click save.
Now go back to your iPhone and attempt to re-connect to your wifi network as you normally would & voila!
This worked for me, i hope it works for you as well.

FOR ALL ENTERIES?

Similar Messages

Maybe you are looking for