How to use read statement on a select options

Hi all,
I am trying to read the all the values on user selection screen select options.
I have an internal table loaded with data.
So while looping this internal table, I need to check the table certain tank field (lgort) against the select options tank values entered by user.
It is fine when user uses the multiple values on the select options since I use the "READ" statement on the select options and get the matching values.
Example: when user uses the multiple value selection on a select-options to enter values A554 and A555
The select-options table will be:
sign   option    low         high
I          EQ       A554
I          EQ       A555
LOOP AT gt_output_location INTO gw_output.
READ TABLE s_lgort INTO gw_lgort WITH KEY low = gw_output-lgort.
    IF sy-subrc = 0.
    * append row to another table.
    ENDIF.
ENDLOOP.
Problem:
Example: when user uses range on a select-options to enter values A554 and A555
sign   option    low         high
I          BT      A554       A555
The read statement can only get matching value A554.
LOOP AT gt_output_location INTO gw_output.
READ TABLE s_lgort INTO gw_lgort WITH KEY low = gw_output-lgort.
    IF sy-subrc = 0.
    * append row to another table.
    ENDIF.
ENDLOOP.
Anyone have any idea on this?? Thanks!!

Hi all, I need to consider each and every lines of the gt_output_location as there are other fields need to consider also. Basically I am checking each and every lines of this table to see which lines I need to append to another table.
That is why I did not use "LOOP AT gt_output_location INTO gw_output WHERE lgort IN s_lgort"
The full gt_output_location:
LOOP AT gt_output_location INTO gw_output.
* IF p_lgort = space AND p_umlgo = space.
 IF gv_lines_lgort = 0 AND gv_lines_umlgo = 0.
* only append those from tank <> to tank
 IF gw_output-lgort <> gw_output-umlgo.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ELSE. "from tank == to tank
* append those from plant <> to plant
 IF gw_output-werks <> gw_output-umwrk.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ENDIF.
 ENDIF.
* ELSEIF p_lgort = space AND p_umlgo <> space.
 ELSEIF gv_lines_lgort = 0 AND gv_lines_umlgo > 0.
* IF gw_output-umlgo = p_umlgo.
 READ TABLE s_umlgo INTO gw_umlgo WITH KEY low = gw_output-umlgo.
 IF sy-subrc = 0.
* only append those from tank <> to tank
 IF gw_output-lgort <> gw_output-umlgo.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ELSE. "from tank == to tank
* append those from plant <> to plant
 IF gw_output-werks <> gw_output-umwrk.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ENDIF.
 ENDIF.
 ENDIF.
* ELSEIF p_umlgo = space AND p_lgort <> space.
 ELSEIF gv_lines_umlgo = 0 AND gv_lines_lgort > 0.
* IF gw_output-lgort = p_lgort.
 READ TABLE s_lgort INTO gw_lgort WITH KEY low = gw_output-lgort.
 IF sy-subrc = 0.
* only append those from tank <> to tank
 IF gw_output-lgort <> gw_output-umlgo.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ELSE. "from tank == to tank
* append those from plant <> to plant
 IF gw_output-werks <> gw_output-umwrk.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ENDIF.
 ENDIF.
 ENDIF.
 ELSE.
* IF gw_output-lgort = p_lgort AND gw_output-umlgo = p_umlgo.
 READ TABLE s_lgort INTO gw_lgort WITH KEY low = gw_output-lgort.
 IF sy-subrc = 0.
* only append those from tank <> to tank
 IF gw_output-lgort <> gw_output-umlgo.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ELSE. "from tank == to tank
* append those from plant <> to plant
 IF gw_output-werks <> gw_output-umwrk.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ENDIF.
 ENDIF.
 ENDIF.
 READ TABLE s_umlgo INTO gw_umlgo WITH KEY low = gw_output-umlgo.
 IF sy-subrc = 0.
* only append those from tank <> to tank
 IF gw_output-lgort <> gw_output-umlgo.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ELSE. "from tank == to tank
* append those from plant <> to plant
 IF gw_output-werks <> gw_output-umwrk.
 APPEND gw_output to gt_output.
 CLEAR gw_output.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 CLEAR gw_lgort.
 CLEAR gw_umlgo.
 ENDLOOP.

Similar Messages

How to use collect statement for below

data : begin of itab,
         n(3) type c,
      n1 type n,
      k(5) type c,
      end of itab.
select n n1 from into itab table /zteest.
*internal table has
n      n1    k
gar    100 uji
hae    90   iou
gar    90   uji
hae    87   iou
I want
gar 190
hae 177
How to use collect statement as n1 is n ..?
let me know..
Thanks

try this..
DATA : BEGIN OF itab OCCURS 0,
n(3) TYPE c,
n1(3) TYPE p DECIMALS 2,
k(5) TYPE c,
END OF itab.
itab-n = 'gar'.
itab-n1 = 100.
itab-k = 'uji'.
COLLECT itab .CLEAR itab.
itab-n = 'hae'.
itab-n1 = 90.
itab-k = 'iou'.
COLLECT itab .CLEAR itab.
itab-n = 'gar'.
itab-n1 = 90.
itab-k = 'uji'.
COLLECT itab .CLEAR itab.
itab-n = 'hae'.
itab-n1 = 87.
itab-k = 'iou'.
COLLECT itab .CLEAR itab.

How to use collect statement

hi everybody,
how to use collect statement to get the total amount paid to different vendor payments
data : begin of wa occurs 0,
 bukrs type bsak-bukrs,
 lifnr type bsak-lifnr,
 land1 type lfa1-land1,
 name1 like lfa1-name1,
 dmbtr like bsak-dmbtr,
 count type i value 0,
 tot_vend type i,
 vend type i.
data :end of wa.
data : itab like table of wa.
select distinct bukrs lifnr waers from bsak into
corresponding fields of wa
 where bukrs in s_bukrs
 and lifnr in s_lifnr
 and bschl in s_bschl.
i want the total amount paid according to vendor i am using this way but i am not getting
loop at itab into wa.
wa-dmbtr = bsak-dmbtr.
collect wa-dmbtr into itab.
modify itab from wa transporting dmbtr.
i am unalbe to get it
can anybody help me regarding this if possible with example.
thanks in advance,
regards,
venu.

Hi Venu,
types: BEGIN OF ty,
 NAME(20),
 SALES TYPE I,
 END OF ty.
data : itab type standard table of ty,
itab1 type standard table of ty,
wa type ty,
wa1 type ty.
wa-NAME = 'Duck'. wa-SALES = 10.
append wa to itab.
wa-NAME = 'Tiger'. wa-SALES = 20.
append wa to itab.
wa-NAME = 'Duck'. wa-SALES = 30.
append wa to itab.
loop at itab into wa.
wa1 = wa.
collect wa1 into itab1.
endloop.
loop at itab1 into wa1.
write : / wa1-name , wa1-sales.
endloop.
COLLECT is used to create unique or compressed datsets. The key fields are the default key fields of the internal table itab .
If you use only COLLECT to fill an internal table, COLLECT makes sure that the internal table does not contain two entries with the same default key fields.
If, besides its default key fields, the internal table contains number fields (see also ABAP/4 number types ), the contents of these number fields are added together if the internal table already contains an entry with the same key fields.
If the default key of an internal table processed with COLLECT is blank, all the values are added up in the first table line.
In the program you mentioned yesterday,I am not able to get the logic since many lines are commented.

How to use perform statements in sap scripts

how to use perform statements in sap scripts . and pls send me one progam for this
thnaks
raja

Hi Raja,
PERFORM key work is used to include subroutine in sapscript form...
But the processing is lttle bit different form the one we use in ABAP.
Here the paramters passed to form is stored in internal table of name-value table. there are two table one for inbound parameter and other for outbound parameters.
Check out the example below to see how this is used..
Definition in the SAPscript form:
/: PERFORM GET_BARCODE IN PROGRAM QCJPERFO
/: USING &PAGE&
/: USING &NEXTPAGE&
/: CHANGING &BARCODE&
/: ENDPERFORM
/ &BARCODE&
Coding of the calling ABAP program:
REPORT QCJPERFO.
FORM GET_BARCODE TABLES IN_PAR STUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.
DATA: PAGNUM LIKE SY-TABIX, "page number
NEXTPAGE LIKE SY-TABIX. "number of next page
READ TABLE IN_PAR WITH KEY PAGE.
CHECK SY-SUBRC = 0.
PAGNUM = IN_PAR-VALUE.
READ TABLE IN_PAR WITH KEY NEXTPAGE.
CHECK SY-SUBRC = 0.
NEXTPAGE = IN_PAR-VALUE.
READ TABLE OUT_PAR WITH KEY BARCODE.
CHECK SY-SUBRC = 0.
IF PAGNUM = 1.
OUT_PAR-VALUE = |. "First page
ELSE.
OUT_PAR-VALUE = ||. "Next page
ENDIF.
IF NEXTPAGE = 0.
OUT_PAR-VALUE+2 = L. "Flag: last page
ENDIF.
MODIFY OUT_PAR INDEX SY-TABIX.
ENDFORM.
Hope this is clear to understand...
Enjoy SAP.
Pankaj Singh.

How to use union statement with declare & set function?

Hi Experts,
i have small query about how to use union statement with declare & set function?
Example as below :
DECLARE @name AS date
Declare @name2 AS date
/* SELECT FROM [2013].[dbo].[OINV] T0 */
/* WHERE */
SET @name = /* T0.DocDate */ '[%1]'
SET @name2 = /* T0.DocDate */ '[%2]'
select '2013',t5.U_salmannm,t1.CardName,t2.sumapplied as CollectionAmount,t2.DcntSum ,t3.DocTotal as InvoiceTotal,
datediff(dd,t3.DocDate,t1.Docdate) as Days
from 2013.dbo.orct t1
inner join 2013.dbo.RCT2 t2 on t1.DocNum = t2.DocNum
left join 2013.dbo.oinv t3 on
t3.docentry = t2.baseAbs
inner join 2013.dbo.ocrd t4 on t1.Cardcode = t4.CardCode
inner join [2013].[dbo].[@CQ_RTSM] t5 on t4.U_BeatCode = t5.U_RoutCode
where t2.DcntSum <> 0.000000 and t3.DocDate between [%1] and [%2]
Union
/* SELECT FROM [2014].[dbo].[OINV] T0 */
/* WHERE */
SET @name = /* T0.DocDate */ '[%1]'
SET @name2 = /* T0.DocDate */ '[%2]'
select '2014',t5.U_salmannm,t1.CardName,t2.sumapplied as CollectionAmount,t2.DcntSum ,t3.DocTotal as InvoiceTotal,
datediff(dd,t3.DocDate,t1.Docdate) as Days
from 2014.dbo.orct t1
inner join 2014.dbo.RCT2 t2 on t1.DocNum = t2.DocNum
left join 2014.dbo.oinv t3 on
t3.docentry = t2.baseAbs
inner join 2014.dbo.ocrd t4 on t1.Cardcode = t4.CardCode
inner join [2014].[dbo].[@CQ_RTSM] t5 on t4.U_BeatCode = t5.U_RoutCode
where t2.DcntSum <> 0.000000 and t3.DocDate between [%1] and [%2]

You have to create stored procedure in SQL only .
Like u must have create for Crystal .
You can execute procedure in query manager but you have to enter parameter manually..
example
Exec @Test '20140101' '20140501'
Every time user has to enter it manually in yyyymmdd format in case of date parameters.
Example
Create Proc [@Test]
as begin
DECLARE @name AS date
Declare @name2 AS date
/* SELECT FROM [2013].[dbo].[OINV] T0 */
/* WHERE */
select '2013',t5.U_salmannm,t1.CardName,t2.sumapplied as CollectionAmount,t2.DcntSum ,t3.DocTotal as InvoiceTotal,
datediff(dd,t3.DocDate,t1.Docdate) as Days
from 2013.dbo.orct t1
inner join 2013.dbo.RCT2 t2 on t1.DocNum = t2.DocNum
left join 2013.dbo.oinv t3 on
t3.docentry = t2.baseAbs
inner join 2013.dbo.ocrd t4 on t1.Cardcode = t4.CardCode
inner join [2013].[dbo].[@CQ_RTSM] t5 on t4.U_BeatCode = t5.U_RoutCode
where t2.DcntSum <> 0.000000 and t3.DocDate between @Name and @Name2
Union
/* SELECT FROM [2014].[dbo].[OINV] T0 */
/* WHERE */
select '2014',t5.U_salmannm,t1.CardName,t2.sumapplied as CollectionAmount,t2.DcntSum ,t3.DocTotal as InvoiceTotal,
datediff(dd,t3.DocDate,t1.Docdate) as Days
from 2014.dbo.orct t1
inner join 2014.dbo.RCT2 t2 on t1.DocNum = t2.DocNum
left join 2014.dbo.oinv t3 on
t3.docentry = t2.baseAbs
inner join 2014.dbo.ocrd t4 on t1.Cardcode = t4.CardCode
inner join [2014].[dbo].[@CQ_RTSM] t5 on t4.U_BeatCode = t5.U_RoutCode
where t2.DcntSum <> 0.000000 and t3.DocDate between
between @Name and @Name2
end

How to use CASE statement in WDA

Hi All,
Can any one Please expain me ' How to use CASE statement in Web dynpro ABAP? '
Please give me an example also.
Thanks in Advance !

Hi,
The usage of case statement in webdynpro is same as used in general ABAP.
Data: l_id type string.
l_id = wdevent->get_string( 'ID' ).
case l_id.
when 'BTN1'.
when 'BTN2'.
when 'OTHERS'.
endcase.
Regards,
Radhika.

How to use multiple statements inside the "THEN" block of CASE statement?

Below is the code:
SET @strTempString = case @strKeyMode
WHEN 'AUTO/CYCLE'
THEN @strRefID + '|' + @strRetID
WHEN 'CYCLE'
THEN @strRefID + '|' + @strRetID
WHEN 'COMMERCIAL'
THEN @strRefID + '|' + @strRetID
WHEN 'ISNAP'
THEN set @strFName = ltrim(rtrim((Left(dbo.CleanTheStringAdv(@strFName + ' ', 2) + ' ', 2))))
'' + @strRefID + '|' + @strLName + '|' + @strFName + '|' + @strZIPorPolType
WHEN 'ASNAP'
THEN @strRefID + '|' + @strRetID
WHEN 'MOAT'
THEN @strRefID + '|' + @strRetID
else '0'
end
The first 3 conditions are understandable. How to use multiple statements in 4th case?
Here I first want to set the value as:
set @strFName = ltrim(rtrim((Left(dbo.CleanTheStringAdv(@strFName + ' ', 2) + ' ', 2))))
and then return the string '' + @strRefID + '|' + @strLName + '|' + @strFName + '|' + @strZIPorPolType to @strTempString.
Please help me remove the syntax errors.
Thanks in advance.

Try below SQL
DECLARE @strKeyMode varchar(20) = 'ISNAP'
DECLARE @SQL VARCHAR(MAX)
DECLARE @strRefID int=1
DECLARE @strRetID INT=2
--FIRST WAY
IF @strKeyMode ='AUTO/CYCLE'
SELECT CAST(@strRefID as varchar(10))
ELSE IF @strKeyMode ='CYCLE'
SELECT @sql = CAST(@strRefID as varchar(10)) + '|' + CAST(@strRetID as varchar(10))
ELSE IF @strKeyMode='ISNAP'
SELECT @sql = CAST(@strRefID as varchar(10)) + '|' + CAST(@strRetID as varchar(10))+'test'+'abc'
ELSE
SELECT @SQL='ABC'
print @sql
----SECOND WAY
SELECT @SQL = CASE @strKeyMode
WHEN 'AUTO/CYCLE' THEN CAST(@strRefID as varchar(10))
WHEN 'CYCLE' THEN CAST(@strRefID as varchar(10)) + '|' + CAST(@strRetID as varchar(10))
WHEN 'ISNAP' THEN CAST(@strRefID as varchar(10)) + '|' + CAST(@strRetID as varchar(10))+'test'+'abc'
ELSE 'No Record'
END
PRINT (@SQL)
--Prashanth

How to use X-Fi Effects without selecting SB as the default sound device?

How to use X-Fi Effects without selecting SB as the default sound device?Hello everyone,
That's my situation.
I have Sound Blaster X-Fi Go sound card and I am using SRS HD Audio Lab. SRS HD Audio Lab was selected as the default audio device and X-Fi effects (X-Fi CMSS-3d, Equalizer etc.) was working without any problem in Windows Xp. I have Windows 7 now and when i select SRS HD Audio Lab as the default device, Creative effects are not working, i must select "SB X-Fi Go!" to get them working but i can't use SRS HD Audio Lab in that case. SRS is also using SB X-Fi Go sound card as the output and volume adjustment on console launcher is working but something is disabling the effects. Any solutions to enable effects ?
Thanks.

If the kernel modules for your sound card and webcam both support the index parameter (use modinfo to find out) then adding
options <name_of_preferred_card's_kernel_module> index=0
options <name_of_second_card's_kernel_module> index=1
to /etc/modprobe.d/modprobe.conf (or another modprobe conf file of your choice) should solve the problem.

How to use " PERFORM ", STATEMENT WITH OFFSET

hI,
How we use Perform statement with offset, like
Example:   " PERFORM READ_SEGRELEASE USING INT_EDIDC+11."
My requirement is to use Perform with Automatic length declaration.
Automatic length declaration in PERFORM statement
Kindly Explain and Provide some Example programm written in this situation.
Thanks,
P.N.Kumar

Hiere is an example of what you probably require:
DATA:
lv_offset        TYPE syoffi,
lv_length        TYPE flength,
lv_field          TYPE string.
lv_field = 'This is my value: hello world'.
lv_length = 5.
lv_offset = 18.
PERFORM read_segrelease USING lv_field
                                                        lv_length
                                                        lv_offset.
*&      Form READ_SEGRELEASE
*       text
*      -->P_LV_FIELD text
*      -->P_LV_LENGTH text
*      -->P_LV_OFFSET text
FORM read_segrelease USING    p_lv_field         TYPE string
                                                     p_lv_length      TYPE flength
                                                     p_lv_offset      TYPE syoffi.
DATA:
lv_result    TYPE string.
lv_result = p_lv_field+p_lv_offset(p_lv_length).
WRITE: / lv_result.
ENDFORM.                    " READ_SEGRELEASE

How to set BDCDATA table for a SELECT-OPTIONS object?

Dear experts,
I have a transaction with PARAMETERS and SELECT-OPTIONS objects. This transaction will be called by another program by using CALL TRANSACTION 'mytransaction' USING mybdcdata statement. Below is some of the called transaction's source code:
DATA:
date TYPE sflight-fldate.
PARAMETERS:
p_carid TYPE sflight-carrid,
p_conid TYPE sflight-connid.
SELECT-OPTIONS:
so_date FOR date.
This is what I wrote in the calling program to define the values of the called transaction PARAMETERS fields:
DATA:
wa_bdcdata TYPE bdcdata,
it_bdcdata TYPE TABLE OF bdcdata.
wa_bdcdata-program = 'MYPROGRAM'.
wa_bdcdata-dynpro = '1000'.
wa_bdcdata-dynbegin = 'X'.
APPEND wa_bdcdata TO it_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'P_CARID'.
wa_bdcdata-fval = 'AA'.
APPEND wa_bdcdata TO it_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam = 'P_CONID'.
wa_bdcdata-fval = '017'.
APPEND wa_bdcdata TO it_bdcdata.
CALL TRANSACTION 'MYTRANSACTION' USING it_bdcdata.
Unfortunately, I don't know how to set the values for the SELECT-OPTIONS screen fields. How to do this?
I've Googled this and tried several guesses but none was found or successful. Thanks in advance.
Regards,
Haris

Hi ,
Better go for SUBMIT report   instead of CALL transaction ...
find the name of report being called on that transaction which you will be calling . Use that report name in SUBMIT
Just take help from below code .
Before using do please read by pressing f1 on SUBMIT syntax .
data:seltab     type table of rsparams,
         seltab_wa like line of seltab.
    move: 'LANGU' to seltab_wa-selname,
          'S'      to seltab_wa-kind,
          'I'      to seltab_wa-sign,
          'BT'     to seltab_wa-option,
          'D'      to seltab_wa-low,
          'I'      to seltab_wa-high.
    append seltab_wa to seltab.
    clear seltab_wa.
    move: 'E'      to seltab_wa-sign,
          'EQ'     to seltab_wa-option,
          'F'      to seltab_wa-low,
          space    to seltab_wa-high.
    append seltab_wa to seltab.
    clear seltab_wa.
    move: 'AUFNR' to seltab_wa-selname,
          p_aufnr to seltab_wa-low.
    append seltab_wa to seltab.
    clear seltab_wa.
    submit rkaep000 using selection-set 'VARIANT1'
                      with aufnr = p_aufnr
                      with selection-table seltab
                      exporting list to memory
                      and return .
regards
Deepak.

How to pass select-options in key while using Read Statement.

Hi SAP gurus,
I was using a select stmt. with were clause of Select-options it was working fine,
now my scenerio is changed i need to read an internal table
with key of select-options....
how to read internal table with key S_MATNR (Select-options).

Hi,
We can certainly do this.
We need to loop the internal table with select-options condition.
Example :
LOOP AT ITAB WHERE FIELD = S_FIELD.
ENDLOOP.
This should solve your problem.
Plz reward if useful.
Thanks,
Dhanashri.

How to use collect statement properly

In PBID table , i will get 4 rows for a material . I will get the corresponding values of bdzei from the same table . Now i will pass this bdzei into pbhi table. then i will get some 200 rows of data. I have to sum up the field plnmg , by grouping the laeda field of pbhi. In short, i need to know the sum of pbhi-plnmg for a particular pbhi-laeda . I know a way to do it. But i want to know how to use the COLLECT statement for this purpose. My output should contain oly 1 line for 1 material ..
PBID table
Matnr BDZEI
p4471 457
 1002
 2309
 2493
PBHI table
BDZEI LAEDA PLNMG
1002 06.08.2004 0.000
1002 06.08.2004 83.000
457 07.08.2004 12.000
457 07.08.2004 24.000
Reqd O/p
MATNR LAEDA PLNMG
p4471 06.08.2004 83
p4471 07.08.2004 36
Hope u understood my situation .please help me out ...
Thanking you in advance ..
Shankar

REPORT zppr_zpipr NO STANDARD PAGE HEADING LINE-SIZE 150 LINE-COUNT 63.
TABLES: pbid,
 pbhi,
 makt,
 mseg,
 mkpf.
DATA: BEGIN OF it_pbid OCCURS 0,
 matnr LIKE pbid-matnr, " Material
 status TYPE c LENGTH 4, " For distinguishing materials from pbid and pbim .. will contain space for PBID and 'PBIM' for PBIM
 bdzei LIKE pbid-bdzei,
 laeda LIKE pbhi-laeda,
end of it_pbid.
DATA: BEGIN OF it_pbim OCCURS 0,
 matnr LIKE pbid-matnr, " Material
 status TYPE c LENGTH 4, " For distinguishing materials from pbid and pbim .. will contain space for PBID and 'PBIM' for PBIM
 bdzei LIKE pbim-bdzei,
 laeda LIKE pbhi-laeda,
end of it_pbim.
DATA: BEGIN OF it_pbid_pbim OCCURS 0,
 matnr LIKE pbid-matnr, " Material
 laeda LIKE pbhi-laeda, " Reduction Date
 dbmng LIKE pbhi-dbmng, " Planned quantity in the data base
 plnmg LIKE pbhi-plnmg, " Planned quantity
 status TYPE c LENGTH 4, " For distinguishing materials from pbid and pbim .. will contain space for PBID and 'PBIM' for PBIM
 mblnr LIKE mseg-mblnr, " Material Doc Number
 pbfnr LIKE pbid-pbdnr, " Plan Number
 maktx LIKE makt-maktx, " Matl Desc
 aenam LIKE pbhi-aenam, " User Changed
 erfmg LIKE mseg-erfmg, " Qty Invoiced
 budat LIKE mkpf-budat, " Invoice date
 bdzei LIKE pbid-bdzei, " Independent requirements pointer
 werks LIKE pbid-werks, " plant
 pirrednqty TYPE i, " PIR Reduction Quantity = pbih-plnmg - pbih-dbmng
 diff TYPE i, " Difference
 slno TYPE i, " Sl No
END OF it_pbid_pbim.
DATA: BEGIN OF it_allrows OCCURS 0.
 INCLUDE STRUCTURE it_pbid_pbim.
DATA: END OF it_allrows.
*DATA: BEGIN OF it_final OCCURS 0.
 INCLUDE STRUCTURE it_pbid_pbim.
*DATA: END OF it_final.
DATA: BEGIN OF line,
 matnr LIKE pbid-matnr, " Material
 laeda LIKE pbhi-laeda, " Reduction Date
 plnmg LIKE pbhi-plnmg, " Planned quantity
 maktx LIKE makt-maktx, " Matl Desc
 dbmng LIKE pbhi-dbmng, " Planned quantity in the data base
 mblnr LIKE mseg-mblnr, " Material Doc Number
 pbfnr LIKE pbid-pbdnr, " Plan Number
 aenam LIKE pbhi-aenam, " User Changed
 erfmg LIKE mseg-erfmg, " Qty Invoiced
 budat LIKE mkpf-budat, " Invoice date
 bdzei LIKE pbid-bdzei, " Independent requirements pointer
 werks LIKE pbid-werks, " plant
 pirrednqty TYPE i, " PIR Reduction Quantity = pbih-plnmg - pbih-dbmng
 diff TYPE i, " Difference
 slno TYPE i, " Sl No
 status TYPE c LENGTH 4, " For distinguishing materials from pbid and pbim .. will contain space for PBID and 'PBIM' for PBIM
END OF line.
DATA Itfinal1 LIKE STANDARD TABLE
 OF LINE
 WITH DEFAULT KEY.
DATA ITfinal LIKE ITfinal1.
DATA: BEGIN OF it_dates OCCURS 0,
 date TYPE sy-datum,
END OF it_dates.
DATA: l_slno TYPE i.
DATA: l_zebra TYPE c.
SELECT-OPTIONS:
 s_werks FOR pbid-werks obligatory.
SELECT-OPTIONS:
 s_matnr FOR pbid-matnr.
SELECT-OPTIONS:
 s_pbdnr FOR pbid-pbdnr.
SELECT-OPTIONS:
 s_laeda FOR pbhi-laeda obligatory.
parameter:
 c_print type checkbox.
SELECT matnr bdzei FROM pbid INTO (it_pbid-matnr, it_pbid-bdzei) WHERE werks IN s_werks AND matnr IN s_matnr AND pbdnr IN s_pbdnr.
it_pbid-status = 'PBID'.
APPEND it_pbid.
move-corresponding it_pbid to it_pbid_pbim.
Append it_pbid_pbim.
ENDSELECT.
SELECT matnr bdzei FROM pbim INTO (it_pbim-matnr,it_pbim-bdzei) WHERE werks IN s_werks AND matnr IN s_matnr AND pbdnr IN s_pbdnr.
APPEND it_pbim.
Append it_pbid_pbim.
ENDSELECT.
*break-point.
START-OF-SELECTION.
LOOP AT s_laeda.
 it_dates-date = s_laeda-low.
 APPEND it_dates.
ENDLOOP.
DATA: l_startdate LIKE sy-datum.
IF s_laeda-high EQ space.
ELSE.
 l_startdate = s_laeda-low + 1.
 DO.
 IF l_startdate <= s_laeda-high.
 it_dates-date = l_startdate.
 APPEND it_dates.
 ELSE.
 it_dates-date = sy-datum.
 EXIT.
 ENDIF.
 l_startdate = l_startdate + 1.
 ENDDO.
ENDIF.
*break-point.
LOOP AT it_pbim.
 LOOP AT it_dates.
 it_pbim-laeda = it_dates-date.
 it_pbim-status = 'PBIM'.
 MODIFY it_pbim TRANSPORTING laeda status.
 MOVE-CORRESPONDING it_pbim TO it_pbid_pbim.
 APPEND it_pbid_pbim.
 ENDLOOP.
ENDLOOP.
break-point.
l_zebra = 'X'.
DATA: l_toterfmg LIKE mseg-erfmg.
DATA: l_erfmg LIKE mseg-erfmg.
data: l_totpir type i.
**************************************PBID*************************************
LOOP AT it_pbid.
 move-corresponding it_pbid to it_pbid_pbim.
 append it_pbid_pbim.
 SELECT SINGLE maktx FROM makt INTO (it_pbid_pbim-maktx) WHERE matnr = it_pbid-matnr.
 MODIFY table it_pbid_pbim TRANSPORTING maktx.
 SELECT aenam laeda FROM pbhi INTO (it_pbid_pbim-aenam,it_pbid_pbim-laeda) WHERE bdzei = it_pbid-bdzei AND aenam = 'Abbau-'.
 MODIFY TABLE it_pbid_pbim TRANSPORTING aenam laeda. " debug here
 select single sum( dbmng ) sum( plnmg ) FROM pbhi INTO (it_pbid_pbim-dbmng,it_pbid_pbim-plnmg) WHERE bdzei = it_pbid-bdzei AND aenam = 'Abbau-' and laeda = it_pbid_pbim-laeda..
 MODIFY TABLE it_pbid_pbim TRANSPORTING dbmng plnmg. " debug here
 endselect.
 it_pbid_pbim-pirrednqty = it_pbid_pbim-dbmng - it_pbid_pbim-plnmg.
 MODIFY table it_pbid_pbim TRANSPORTING pirrednqty.
 IF ( it_pbid_pbim-laeda IN s_laeda AND it_pbid_pbim-aenam EQ 'Abbau-' ).
 MOVE-CORRESPONDING it_pbid_pbim TO it_allrows.
 append it_allrows.
 ELSEIF NOT it_pbid_pbim-laeda IN s_laeda.
 delete it_pbid_pbim index sy-tabix. " debug here
 ENDIF.
 ENDSELECT.
ENDLOOP.
**************************************PBIM*************************************
LOOP AT it_pbim.
 move-corresponding it_pbim to it_pbid_pbim.
 append it_pbid_pbim.
 SELECT SINGLE maktx FROM makt INTO (it_pbid_pbim-maktx) WHERE matnr = it_pbim-matnr.
 MODIFY table it_pbid_pbim TRANSPORTING maktx.
 SELECT aenam laeda FROM pbhi INTO (it_pbid_pbim-aenam,it_pbid_pbim-laeda) WHERE bdzei = it_pbim-bdzei AND aenam = 'Abbau-'.
 MODIFY TABLE it_pbid_pbim TRANSPORTING aenam laeda. " debug here
 select single sum( dbmng ) sum( plnmg ) FROM pbhi INTO (it_pbid_pbim-dbmng,it_pbid_pbim-plnmg) WHERE bdzei = it_pbim-bdzei AND aenam = 'Abbau-' and laeda = it_pbid_pbim-laeda..
 MODIFY TABLE it_pbid_pbim TRANSPORTING dbmng plnmg. " debug here
 it_pbid_pbim-pirrednqty = it_pbid_pbim-dbmng - it_pbid_pbim-plnmg.
 MODIFY table it_pbid_pbim TRANSPORTING pirrednqty.
 IF ( it_pbid_pbim-laeda IN s_laeda AND it_pbid_pbim-aenam EQ 'Abbau-' ).
 MOVE-CORRESPONDING it_pbid_pbim TO it_allrows.
 append it_allrows.
 ELSEIF NOT it_pbid_pbim-laeda IN s_laeda.
 delete it_pbid_pbim index sy-tabix. " debug here
 ENDIF.
 ENDSELECT.
ENDLOOP.
sort it_allrows by matnr laeda status.
**********************************ALL ROWS************************
loop at it_allrows.
line-matnr = it_allrows-matnr.
line-laeda = it_allrows-laeda.
line-plnmg = it_allrows-plnmg.
line-dbmng = it_allrows-dbmng.
line-mblnr = it_allrows-mblnr.
line-pbfnr = it_allrows-pbfnr.
line-maktx = it_allrows-maktx.
line-aenam = it_allrows-aenam.
line-erfmg = it_allrows-erfmg.
line-budat = it_allrows-budat.
line-bdzei = it_allrows-bdzei.
line-werks = it_allrows-werks.
line-pirrednqty = it_allrows-pirrednqty.
line-diff = it_allrows-diff.
line-slno = it_allrows-slno.
line-status = it_allrows-status.
collect line into itfinal1.
endloop.
loop at itfinal1 into line.
collect line into itfinal.
 write: / line-matnr, line-plnmg, line-dbmng,line-laeda,line-status..
endloop.
skip 4.
loop at itfinal into line.
write: / line-matnr, line-plnmg, line-dbmng,line-laeda,line-status..
endloop.
break-point.

How to retrieve data using logical database and custom select options

Hi all,
I have a selection screen which is displayed by logical database PSJ and I have two select options of my own. I need to retrieve data based on both selection screen of logical database and my own select options. How can I do it?
Thanks in advance.

Hai Gupta
Check the following Document & Links
1. A logical database is in fact
a program only.
2. This LDB provides two main things :
a) a pre-defined selection screen
which handles all user inputs and validations
b) pre defined set of data
based upon the user selection.
3. So we dont have to worry about from
which tables to fetch data.
4. Moreover, this LDB Program,
handles all user-authorisations
and is efficient in all respects.
5. tcode is SLDB
good info about Logical Database. you can check the link.
http://www.geekinterview.com/question_details/1506
http://help.sap.com/saphelp_46c/helpdata/EN/35/2cd77bd7705394e10000009b387c12/frameset.htm
Re: How to Create and Use ldb in reports?
Re: Logical databases
http://help.sap.com/saphelp_46c/helpdata/en/9f/db9bed35c111d1829f0000e829fbfe/frameset.htm
Functions for displaying and changing logical databases:
Call Transaction SE36 or
Choose ABAP Workbench -> Development -> Programming environ. -> Logical databases
Interaction between database program and report:
During program processing, subroutines are performed in the database program and events are executed in the report.
To read data from a database tables we use logical database.
A logical database provides read-only access to a group of related tables to an ABAP/4 program.
advantages:-
The programmer need not worry about the primary key for each table.Because Logical database knows how the different tables relate to each other,and can issue the SELECT command with proper where clause to retrieve the data.
i)An easy-to-use standard user interface.
ii)check functions which check that user input is complete,correct,and plausible.
iii)meaningful data selection.
iv)central authorization checks for database accesses.
v)good read access performance while retaining the hierarchical data view determined by the application logic.
disadvantages:-
i)If you donot specify a logical database in the program attributes,the GET events never occur.
ii)There is no ENDGET command,so the code block associated with an event ends with the next event
statement (such as another GET or an END-OF-SELECTION).
1. transaction code SLDB.
2.enter name z<ldb-name>
3.create
4.short text
5.create
6. name of root node (here Ekko)
7. enter short text (f6)
8.node type -> data base table.
9.create
10 change logical DB
riht click on ekko and insert node
here node name ekpo
11.create
12. click on selections
13. press no Should the changed structure of Z<ldb name> be saved first.
14.select tables which you want to join.
15.transfer
16 now you have to o to coding part.
17. save
activate.
19.click to src code
double click on first include and activate
Regards
Sreeni

Using read statement

Hi experts
how should i modify this statement
'select single parnr from ihpa into g_parnr' inorder to improve the performance.
can i use 'read' if yes can u plz give me the code for that
regards
siri

Hii
use identical select statements.
Therefore, SORT the table and use READ TABLE WITH KEY BINARY SEARCH.
USE THE FOLLOWING
sort IT_VBAP BY MATNR .
LOOP AT IT_VBAP.
READ TABLE IT_MAKT KEY MATNR = IT_VBAP-MATNR
TRANSPORTING MAKTX binary search .
IF SY-SUBRC NE 0.
SELECT MATNR MAKTX FROM MAKT
APPENDING TABLE IT_MAKT-MAKTX
WHERE MATNR EQ IT_VBAP-MATNR.
ENDIF.
MOVE: IT_MAKT TO IT_VBAP-MAKTX.
ENDLOOP.
Instead of: 
LOOP AT IT_VBAP.
SELECT SINGLE MAKTX INTO IT_VBAP-MAKTX
FROM MAKT
WHERE MATNR EQ IT_VBAP-MATNR.
ENDLOOP.
reward points if helpful .
Regards
Naresh

HOW TO USE PERFORM STATEMENT IN SMARTFORMS

Hi,
Can anyone tell me how to use call subroutine in smartform?
Thanks & Regards,
Gauarv.

Hi,
Hope this helps you..
You can use the PERFORM command to call an ABAP subroutine
(form) from
any program, subject to the normal ABAP runtime
authorization
checking. You can use such calls to subroutines for
carrying out
calculations, for obtaining data from the database that is
needed at
display or print time, for formatting data, and so on.
PERFORM commands, like all control commands, are executed
when a
document is formatted for display or printing.
Communication between a
subroutine that you call and the document is by way of
symbols whose
values are set in the subroutine.
The system does not execute the PERFORM command within
SAPscript
replace modules, such as TEXT_SYMBOL_REPLACE or
TEXT_INCLUDE_REPLACE.
The replace modules can only replace symbol values or
resolve include
texts, but not interpret SAPscript control commands.
Syntax in a form window:
/: PERFORM <form> IN PROGRAM <prog>
/: USING &INVAR1&
/: USING &INVAR2&
/: CHANGING &OUTVAR1&
/: CHANGING &OUTVAR2&
/: ENDPERFORM
INVAR1 and INVAR2 are variable symbols and may be of any of
the four
SAPscript symbol types.
OUTVAR1 and OUTVAR2 are local text symbols and must
therefore be
character strings.
The ABAP subroutine called via the command line stated
above must be
defined in the ABAP report prog as follows:
FORM <form> TABLES IN_TAB STRUCTURE ITCSY
OUT_TAB STRUCTURE ITCSY.
ENDFORM.
The values of the SAPscript symbols passed with /: USING...
are now
stored in the internal table IN_TAB . Note that the system
passes the
values as character string to the subroutine, since the
field Feld
VALUE in structure ITCSY has the domain TDSYMVALUE (CHAR
80). See the
example below on how to access the variables.
The internal table OUT_TAB contains names and values of the
CHANGING
parameters in the PERFORM statement. These parameters are
local text
symbols, that is, character fields. See the example below
on how to
return the variables within the subroutine.
From within a SAPscript form, a subroutine GET_BARCODE in
the ABAP
program QCJPERFO is called. Then the simple barcode
contained there
('First page', 'Next page', 'Last page') is printed as
local variable
symbol.

How to use read statement on a select options

Similar Messages

Maybe you are looking for