CODE PLEASE URGENT

Question

HI GEMS,
PLEASE SEND ME THE CODE PLEASE ITS URGENT.
The retrieval logic is to be used only for displaying the accounting and assessment year
1) Accounting Year: GJAHR-(GJAHR+1)
Assessment Year GJAHR1) – (GJAHR2)
2) Get the following details from BSIS/BSAS
BSIS/BSAS – BELNR
BSIS/BSAS – DMBTR
BSIS/BSAS – SHKZG
Where
BSIS/BSAS – GJAHR = P_GJAHR
BSIS/BSAS – HKONT = (334551, 499001, 402001, 402002, 403000) and store them in an internal table INTAB1
Summate the BSIS/BSAS –DMBTR and depict it in the first line of the table
3) For the documents contained in the INTAB1 table check whether there are any line items posted to HKONT’s =(260501,260502,260503) and store them in an internal table INTAB2
If yes then get the following fields from BSIS/BSAS table
BSIS/BSAS – BELNR
BSIS/BSAS – DMBTR
BSIS/BSAS – SHKZG
Where
BELNR = INTAB2-BELNR
GJAHR = P_GJAHR
HKONT = (260501, 260502 and, 260503)
SHKZG = “H”.
Summate the BSIS/BSAS – DMBTR and depict against second line item and fourth line.
4) Subtract line1 and line2 and depict against the 3 line.
5) Subtract the DMBTR of 4th line from the 2nd line DMBTR and depict against the 5th line item.

Answer 1

select BELNR DMBTR SHKZG
from BSIS
into itab
Where
GJAHR = P_GJAHR and
HKONT in (334551, 499001, 402001, 402002, 403000).
data s1 type i value 0.
loop at itab.
s1 = s1 + itab-dmbtr.
endloop.
Read itab where index = 1.
itab-dmbtr = s1.
append itab.
clear s1.
If itab1[] is not initial.
select BELNR DMBTR SHKZG
from BSIS
into itab2
Where
BELNR = INTAB2-BELNR and
GJAHR = P_GJAHR and
HKONT in (260501, 260502 , 260503) and
SHKZG = “H”.
endif.
data s2 type i value 0.
loop at itab2.
s2 = s2 + itab2-dmbtr.
endloop.
read itab2 where index =2.
itab2-dmbtr = s2.
append itab2.
read itab2 where index =4.
itab2-dmbtr = s2.
append itab2.
clear s2.