topic performance in Application Development and Automation Discussions

performance

Former Member — Tue, 05 Sep 2006 13:18:06 GMT

hi all,

output is like this.

actuals budget

sales costofsales contribution margin--sales costofsales contribution margin

manufacturing

Gearboxes Sales RR.

Gearboxes Sales TM.

Gearboxes Sales GE.

Spare Gear Sales RR.

Spare Gear Sales GE.

Eng & Gear Box Assy TM.

Spare gear sales TM.

Others.

Others- TMF Development'

subtotal

mro

MRO Turbomeca.

MRO Military Local.

MRO Civil Local.

MRO Civil & Military International.

Sales of Spares.

Service Station.

SUB TOTAL.

GRAND TOTAL.

my requirement is like this.

selection acreen is

fiscal year----

period -

i need to take the information from glpca table where customer enters fiscal year and period.

SELECT ryear poper rprctr racct activ hsl refdocnr matnr kunnr

PS_PSP_PNR VKGRP INTO TABLE IT_TAB1 FROM GLPCA WHERE KOKRS EQ 'D006'

AND RYEAR EQ RYEAR AND POPER EQ POPER.

1) where activ = rmwl ,i need to take all the (refdocnr),based on ref doc nos go to VBFA table retrieve VBELV values,

based on VBELV go to VBAK table retrieve VKGRP values.

LOOP AT it_tab1 WHERE activ = 'RMWL'.

MOVE-CORRESPONDING it_tab1 TO it_RMWL.

APPEND IT_RMWL.

ENDLOOP.

SELECT VBELV VBELN FROM VBFA

INTO CORRESPONDING FIELDS OF TABLE IT_VBFA

FOR ALL ENTRIES IN IT_RMWL

WHERE VBELN = IT_RMWL-REFDOCNR.

SELECT VBELN VKGRP FROM VBAK

INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

FOR ALL ENTRIES IN IT_VBFA

WHERE VBELN = IT_VBFA-VBELV.

LOOP AT IT_RMWL.

MOVE-CORRESPONDING IT_RMWL TO IT_TAB3.

READ TABLE IT_VBFA WITH KEY VBELN = IT_RMWL-REFDOCNR.

READ TABLE IT_VBAK WITH KEY VBELN = IT_VBFA-VBELV.

IF SY-SUBRC = 0.

IT_TAB3-VKGRP = IT_VBAK-VKGRP.

APPEND IT_TAB3.

ENDIF.

ENDLOOP.

based on first condition i need to caluculate the manufacturing actual mro cost of sales.

depend upon profit center and sales groups 15 cost of sales i need to caluculate 15 conditions are there.

IF it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'RR' OR

it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'RRG' .

LV_acsal01 = LV_acsal01 + it_tab3-HSL.

endif.

2) where activ = sd00, i must take all the recors from it_tab1.

based on second condition i need to caluculate the all actual sales.

LOOP AT it_tab1 WHERE activ = 'SD00'.

MOVE-CORRESPONDING it_tab1 TO it_TAB2.

APPEND it_tab2.

ENDLOOP.

SORT IT_TAB2 BY RPRCTR.

depend upon profit center and sales groups 15 actual sales i need to caluculate 15 conditions are there.

IF it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RR' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RRG' .

LV_aSALE01 = LV_aSALE01 + it_tab2-HSL.

endif.

3) where activ = sd00, i must take all the wbs elements from it_tab1.

LOOP AT it_tab1 WHERE activ = 'SD00'.

MOVE-CORRESPONDING it_tab1 TO it_TAB2.

APPEND it_tab2.

ENDLOOP.

SORT it_TAB2 BY ps_psp_pnr.

DELETE ADJACENT DUPLICATES FROM it_TAB2 COMPARING ps_psp_pnr.

DELETE it_tab1

WHERE ( RACCT <> '0000831201' AND

racct <> '0000831501' ).

LOOP AT it_TAB2.

MOVE-CORRESPONDING IT_TAB2 TO IT_CMRO.

LOOP AT it_tab1

WHERE ( PS_PSP_PNR = IT_CMRO-PS_PSP_PNR ) AND

( RACCT = '0000831201' OR

RACCT = '0000831501' ).

it_CMRO-csale = it_CMRO-csale + it_tab1-hsl.

ENDLOOP.

if NOT it_CMRO-csale is initial.

APPEND it_CMRO.

endif.

ENDLOOP.

each wbs element i must search it_tab1 where the account nos eq to 831501,831201.

but when activ = sd00 record and account nos 831501,831201 records are different in the table.

that means

fiscalyear period activ amount wbselement account no

2007 003 sd00 716.01 731567 567890

2007 003 koae 654.98 731567 831501

if its satisfy the second condition i must add all the amounts(cost of sales).

based on third condition i must calucualte the actual mro cost of sales.

LOOP AT IT_CMRO.

IF IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'ARR' OR

IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'ARE' OR

IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'TMR' OR

IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'ATR' OR

IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'TMK' OR

IT_CMRO-RPRCTR = '0000006001' AND IT_CMRO-VKGRP = 'TUR'.

LV_ACSAL11 = LV_ACSAL11 + IT_CMRO-CSALE.

endif.

4) budget sales,cost of sales is like this.

SELECT * FROM ZBUDGET INTO TABLE it_GETB.

LOOP AT it_getb.

IF it_getb-icode = 'B001' AND it_getb-ryear = ryear

AND it_getb-poper = poper.

LV_BSALE01 = LV_BSALE01 + IT_GETB-HSL.

ENDIF.

15 conditions

IF it_getb-icode = 'B001' AND it_getb-ryear = ryear

AND it_getb-poper = poper.

LV_BCSAL01 = LV_BCSAL01 + IT_GETB-CSALE.

ENDIF.

15 conditions

5) contribution = sales - cost of sales

margin = ( contribution / sales ) * 100.

for this reqirement i wrote the code like this.iam new abap area.

i am not sure i wrote the code according programing standards and performance point of view.

&----

*& Report ZFRSGDD1 *

*& *

&----

*& *

&----

REPORT ZFRSGDD1 NO STANDARD PAGE HEADING

LINE-SIZE 255

LINE-COUNT 65.

====[TABLES]=======================================================

TABLES: GLPCA,ZBUDGET,VBFA,VBAK.

===[INTERNAL TABLES]==================================================

DATA: BEGIN OF it_tab1 OCCURS 0,

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

VKGRP LIKE GLPCA-VKGRP,

END OF it_tab1.

DATA: BEGIN OF it_RMWL OCCURS 0,

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

END OF it_RMWL.

DATA: BEGIN OF it_tab2 OCCURS 0,

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

VKGRP LIKE GLPCA-VKGRP,

CSALE LIKE GLPCA-HSL,

END OF it_tab2.

DATA: BEGIN OF it_TAB3 OCCURS 0,

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

VKGRP LIKE GLPCA-VKGRP,

END OF it_TAB3.

DATA: BEGIN OF it_SALE01 OCCURS 0,

KEY(2),

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

VKGRP LIKE GLPCA-VKGRP,

END OF it_SALE01.

DATA: BEGIN OF it_DCSAL OCCURS 0,

KEY(2),

RYEAR LIKE GLPCA-RYEAR,

POPER LIKE GLPCA-POPER,

RPRCTR LIKE GLPCA-RPRCTR,

RACCT LIKE GLPCA-RACCT,

ACTIV LIKE GLPCA-ACTIV,

HSL LIKE GLPCA-HSL,

REFDOCNR LIKE GLPCA-REFDOCNR,

MATNR LIKE GLPCA-MATNR,

KUNNR LIKE GLPCA-KUNNR,

PS_PSP_PNR LIKE GLPCA-PS_PSP_PNR,

VKGRP LIKE GLPCA-VKGRP,

CSALE LIKE GLPCA-HSL,

END OF it_DCSAL.

DATA: it_CMRO LIKE it_tab2 OCCURS 0 WITH HEADER LINE.

DATA: it_getb LIKE zbudget OCCURS 0 WITH HEADER LINE.

DATA :IT_DGETB1 LIKE IT_GETB OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF IT_VBFA OCCURS 0,

VBELV LIKE VBFA-VBELV,

VBELN LIKE VBFA-VBELN,

END OF IT_VBFA.

DATA: BEGIN OF IT_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

VKGRP LIKE VBAK-VKGRP,

END OF IT_VBAK.

===[DATA]=============================================================

DATA: LV_ASALE01 TYPE P DECIMALS 0,

LV_ASALE02 TYPE P DECIMALS 0,

LV_ASALE03 TYPE P DECIMALS 0,

LV_ASALE04 TYPE P DECIMALS 0,

LV_ASALE05 TYPE P DECIMALS 0,

LV_ASALE06 TYPE P DECIMALS 0,

LV_ASALE07 TYPE P DECIMALS 0,

LV_ASALE08 TYPE P DECIMALS 0,

LV_ASALE09 TYPE P DECIMALS 0,

LV_ASALE10 TYPE P DECIMALS 0,

LV_ASALE11 TYPE P DECIMALS 0,

LV_ASALE12 TYPE P DECIMALS 0,

LV_ASALE13 TYPE P DECIMALS 0,

LV_ASALE14 TYPE P DECIMALS 0,

LV_ASALE15 TYPE P DECIMALS 0,

LV_ASALE16 TYPE P DECIMALS 0,

LV_ASALE17 TYPE P DECIMALS 0,

LV_ASALE18 TYPE P DECIMALS 0,

LV_ACSAL01 TYPE P DECIMALS 0,

LV_ACSAL02 TYPE P DECIMALS 0,

LV_ACSAL03 TYPE P DECIMALS 0,

LV_ACSAL04 TYPE P DECIMALS 0,

LV_ACSAL05 TYPE P DECIMALS 0,

LV_ACSAL06 TYPE P DECIMALS 0,

LV_ACSAL07 TYPE P DECIMALS 0,

LV_ACSAL08 TYPE P DECIMALS 0,

LV_ACSAL09 TYPE P DECIMALS 0,

LV_ACSAL10 TYPE P DECIMALS 0,

LV_ACSAL11 TYPE P DECIMALS 0,

LV_ACSAL12 TYPE P DECIMALS 0,

LV_ACSAL13 TYPE P DECIMALS 0,

LV_ACSAL14 TYPE P DECIMALS 0,

LV_ACSAL15 TYPE P DECIMALS 0,

LV_ACSAL16 TYPE P DECIMALS 0,

LV_ACSAL17 TYPE P DECIMALS 0,

LV_ACSAL18 TYPE P DECIMALS 0,

LV_BSALE01 TYPE P DECIMALS 0,

LV_BSALE02 TYPE P DECIMALS 0,

LV_BSALE03 TYPE P DECIMALS 0,

LV_BSALE04 TYPE P DECIMALS 0,

LV_BSALE05 TYPE P DECIMALS 0,

LV_BSALE06 TYPE P DECIMALS 0,

LV_BSALE07 TYPE P DECIMALS 0,

LV_BSALE08 TYPE P DECIMALS 0,

LV_BSALE09 TYPE P DECIMALS 0,

LV_BSALE10 TYPE P DECIMALS 0,

LV_BSALE11 TYPE P DECIMALS 0,

LV_BSALE12 TYPE P DECIMALS 0,

LV_BSALE13 TYPE P DECIMALS 0,

LV_BSALE14 TYPE P DECIMALS 0,

LV_BSALE15 TYPE P DECIMALS 0,

LV_BSALE16 TYPE P DECIMALS 0,

LV_BSALE17 TYPE P DECIMALS 0,

LV_BSALE18 TYPE P DECIMALS 0,

LV_BCSAL01 TYPE P DECIMALS 0,

LV_BCSAL02 TYPE P DECIMALS 0,

LV_BCSAL03 TYPE P DECIMALS 0,

LV_BCSAL04 TYPE P DECIMALS 0,

LV_BCSAL05 TYPE P DECIMALS 0,

LV_BCSAL06 TYPE P DECIMALS 0,

LV_BCSAL07 TYPE P DECIMALS 0,

LV_BCSAL08 TYPE P DECIMALS 0,

LV_BCSAL09 TYPE P DECIMALS 0,

LV_BCSAL10 TYPE P DECIMALS 0,

LV_BCSAL11 TYPE P DECIMALS 0,

LV_BCSAL12 TYPE P DECIMALS 0,

LV_BCSAL13 TYPE P DECIMALS 0,

LV_BCSAL14 TYPE P DECIMALS 0,

LV_BCSAL15 TYPE P DECIMALS 0,

LV_BCSAL16 TYPE P DECIMALS 0,

LV_BCSAL17 TYPE P DECIMALS 0,

LV_BCSAL18 TYPE P DECIMALS 0,

LV_VSALE01 TYPE P DECIMALS 0,

LV_VSALE02 TYPE P DECIMALS 0,

LV_VSALE03 TYPE P DECIMALS 0,

LV_VSALE04 TYPE P DECIMALS 0,

LV_VSALE05 TYPE P DECIMALS 0,

LV_VSALE06 TYPE P DECIMALS 0,

LV_VSALE07 TYPE P DECIMALS 0,

LV_VSALE08 TYPE P DECIMALS 0,

LV_VSALE09 TYPE P DECIMALS 0,

LV_VSALE10 TYPE P DECIMALS 0,

LV_VSALE11 TYPE P DECIMALS 0,

LV_VSALE12 TYPE P DECIMALS 0,

LV_VSALE13 TYPE P DECIMALS 0,

LV_VSALE14 TYPE P DECIMALS 0,

LV_VSALE15 TYPE P DECIMALS 0,

LV_VSALE16 TYPE P DECIMALS 0,

LV_VSALE17 TYPE P DECIMALS 0,

LV_VSALE18 TYPE P DECIMALS 0,

LV_VCSAL01 TYPE P DECIMALS 0,

LV_VCSAL02 TYPE P DECIMALS 0,

LV_VCSAL03 TYPE P DECIMALS 0,

LV_VCSAL04 TYPE P DECIMALS 0,

LV_VCSAL05 TYPE P DECIMALS 0,

LV_VCSAL06 TYPE P DECIMALS 0,

LV_VCSAL07 TYPE P DECIMALS 0,

LV_VCSAL08 TYPE P DECIMALS 0,

LV_VCSAL09 TYPE P DECIMALS 0,

LV_VCSAL10 TYPE P DECIMALS 0,

LV_VCSAL11 TYPE P DECIMALS 0,

LV_VCSAL12 TYPE P DECIMALS 0,

LV_VCSAL13 TYPE P DECIMALS 0,

LV_VCSAL14 TYPE P DECIMALS 0,

LV_VCSAL15 TYPE P DECIMALS 0,

LV_VCSAL16 TYPE P DECIMALS 0,

LV_VCSAL17 TYPE P DECIMALS 0,

LV_VCSAL18 TYPE P DECIMALS 0,

LV_ACONT01 TYPE P DECIMALS 0,

LV_ACONT02 TYPE P DECIMALS 0,

LV_ACONT03 TYPE P DECIMALS 0,

LV_ACONT04 TYPE P DECIMALS 0,

LV_ACONT05 TYPE P DECIMALS 0,

LV_ACONT06 TYPE P DECIMALS 0,

LV_ACONT07 TYPE P DECIMALS 0,

LV_ACONT08 TYPE P DECIMALS 0,

LV_ACONT09 TYPE P DECIMALS 0,

LV_ACONT10 TYPE P DECIMALS 0,

LV_ACONT11 TYPE P DECIMALS 0,

LV_ACONT12 TYPE P DECIMALS 0,

LV_ACONT13 TYPE P DECIMALS 0,

LV_ACONT14 TYPE P DECIMALS 0,

LV_ACONT15 TYPE P DECIMALS 0,

LV_ACONT16 TYPE P DECIMALS 0,

LV_ACONT17 TYPE P DECIMALS 0,

LV_ACONT18 TYPE P DECIMALS 0,

LV_AMARG01 TYPE P DECIMALS 0,

LV_AMARG02 TYPE P DECIMALS 0,

LV_AMARG03 TYPE P DECIMALS 0,

LV_AMARG04 TYPE P DECIMALS 0,

LV_AMARG05 TYPE P DECIMALS 0,

LV_AMARG06 TYPE P DECIMALS 0,

LV_AMARG07 TYPE P DECIMALS 0,

LV_AMARG08 TYPE P DECIMALS 0,

LV_AMARG09 TYPE P DECIMALS 0,

LV_AMARG10 TYPE P DECIMALS 0,

LV_AMARG11 TYPE P DECIMALS 0,

LV_AMARG12 TYPE P DECIMALS 0,

LV_AMARG13 TYPE P DECIMALS 0,

LV_AMARG14 TYPE P DECIMALS 0,

LV_AMARG15 TYPE P DECIMALS 0,

LV_AMARG16 TYPE P DECIMALS 0,

LV_AMARG17 TYPE P DECIMALS 0,

LV_AMARG18 TYPE P DECIMALS 0,

LV_BCONT01 TYPE P DECIMALS 0,

LV_BCONT02 TYPE P DECIMALS 0,

LV_BCONT03 TYPE P DECIMALS 0,

LV_BCONT04 TYPE P DECIMALS 0,

LV_BCONT05 TYPE P DECIMALS 0,

LV_BCONT06 TYPE P DECIMALS 0,

LV_BCONT07 TYPE P DECIMALS 0,

LV_BCONT08 TYPE P DECIMALS 0,

LV_BCONT09 TYPE P DECIMALS 0,

LV_BCONT10 TYPE P DECIMALS 0,

LV_BCONT11 TYPE P DECIMALS 0,

LV_BCONT12 TYPE P DECIMALS 0,

LV_BCONT13 TYPE P DECIMALS 0,

LV_BCONT14 TYPE P DECIMALS 0,

LV_BCONT15 TYPE P DECIMALS 0,

LV_BCONT16 TYPE P DECIMALS 0,

LV_BCONT17 TYPE P DECIMALS 0,

LV_BCONT18 TYPE P DECIMALS 0,

LV_BMARG01 TYPE P DECIMALS 0,

LV_BMARG02 TYPE P DECIMALS 0,

LV_BMARG03 TYPE P DECIMALS 0,

LV_BMARG04 TYPE P DECIMALS 0,

LV_BMARG05 TYPE P DECIMALS 0,

LV_BMARG06 TYPE P DECIMALS 0,

LV_BMARG07 TYPE P DECIMALS 0,

LV_BMARG08 TYPE P DECIMALS 0,

LV_BMARG09 TYPE P DECIMALS 0,

LV_BMARG10 TYPE P DECIMALS 0,

LV_BMARG11 TYPE P DECIMALS 0,

LV_BMARG12 TYPE P DECIMALS 0,

LV_BMARG13 TYPE P DECIMALS 0,

LV_BMARG14 TYPE P DECIMALS 0,

LV_BMARG15 TYPE P DECIMALS 0,

LV_BMARG16 TYPE P DECIMALS 0,

LV_BMARG17 TYPE P DECIMALS 0,

LV_BMARG18 TYPE P DECIMALS 0,

LV_VPSAL01 TYPE P DECIMALS 0,

LV_VPSAL02 TYPE P DECIMALS 0,

LV_VPSAL03 TYPE P DECIMALS 0,

LV_VPSAL04 TYPE P DECIMALS 0,

LV_VPSAL05 TYPE P DECIMALS 0,

LV_VPSAL06 TYPE P DECIMALS 0,

LV_VPSAL07 TYPE P DECIMALS 0,

LV_VPSAL08 TYPE P DECIMALS 0,

LV_VPSAL09 TYPE P DECIMALS 0,

LV_VPSAL10 TYPE P DECIMALS 0,

LV_VPSAL11 TYPE P DECIMALS 0,

LV_VPSAL12 TYPE P DECIMALS 0,

LV_VPSAL13 TYPE P DECIMALS 0,

LV_VPSAL14 TYPE P DECIMALS 0,

LV_VPSAL15 TYPE P DECIMALS 0,

LV_VPSAL16 TYPE P DECIMALS 0,

LV_VPSAL17 TYPE P DECIMALS 0,

LV_VPSAL18 TYPE P DECIMALS 0,

LV_VPCOS01 TYPE P DECIMALS 0,

LV_VPCOS02 TYPE P DECIMALS 0,

LV_VPCOS03 TYPE P DECIMALS 0,

LV_VPCOS04 TYPE P DECIMALS 0,

LV_VPCOS05 TYPE P DECIMALS 0,

LV_VPCOS06 TYPE P DECIMALS 0,

LV_VPCOS07 TYPE P DECIMALS 0,

LV_VPCOS08 TYPE P DECIMALS 0,

LV_VPCOS09 TYPE P DECIMALS 0,

LV_VPCOS10 TYPE P DECIMALS 0,

LV_VPCOS11 TYPE P DECIMALS 0,

LV_VPCOS12 TYPE P DECIMALS 0,

LV_VPCOS13 TYPE P DECIMALS 0,

LV_VPCOS14 TYPE P DECIMALS 0,

LV_VPCOS15 TYPE P DECIMALS 0,

LV_VPCOS16 TYPE P DECIMALS 0,

LV_VPCOS17 TYPE P DECIMALS 0,

LV_VPCOS18 TYPE P DECIMALS 0,

LV_PNAME01(35),

LV_PNAME02(35),

LV_PNAME03(35),

LV_PNAME04(35),

LV_PNAME05(35),

LV_PNAME06(35),

LV_PNAME07(35),

LV_PNAME08(35),

LV_PNAME09(35),

LV_PNAME10(35),

LV_PNAME11(35),

LV_PNAME12(35),

LV_PNAME13(35),

LV_PNAME14(35),

LV_PNAME15(35),

LV_PNAME16(35),

LV_PNAME17(35),

LV_PNAME18(35).

DATA: LV_SUBRC LIKE SY-SUBRC.

DATA: LTOT(20).

===[SELECTION SCREEN]=================================================

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-035.

PARAMETERS: RYEAR LIKE GLPCA-RYEAR.

PARAMETERS: POPER LIKE GLPCA-POPER.

PARAMETERS: DETAIL RADIOBUTTON GROUP G2,

SUMMARY RADIOBUTTON GROUP G2.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 30(12) TEXT-031.

SELECTION-SCREEN COMMENT 45(13) TEXT-032.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-033.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-001 FOR FIELD SALE01.

PARAMETERS:SALE01 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-002 FOR FIELD CSAL01.

PARAMETERS:CSAL01 RADIOBUTTON GROUP G1 DEFAULT 'X'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-003 FOR FIELD SALE02.

PARAMETERS:SALE02 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-004 FOR FIELD CSAL02.

PARAMETERS:CSAL02 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-005 FOR FIELD SALE03.

PARAMETERS:SALE03 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-006 FOR FIELD CSAL03.

PARAMETERS:CSAL03 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-007 FOR FIELD SALE04.

PARAMETERS:SALE04 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-008 FOR FIELD CSAL04.

PARAMETERS:CSAL04 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-009 FOR FIELD SALE05.

PARAMETERS:SALE05 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-010 FOR FIELD CSAL05.

PARAMETERS:CSAL05 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-011 FOR FIELD SALE06.

PARAMETERS:SALE06 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-012 FOR FIELD CSAL06.

PARAMETERS:CSAL06 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-013 FOR FIELD SALE07.

PARAMETERS:SALE07 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-014 FOR FIELD CSAL07.

PARAMETERS:CSAL07 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-015 FOR FIELD SALE08.

PARAMETERS:SALE08 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-016 FOR FIELD CSAL08.

PARAMETERS:CSAL08 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-017 FOR FIELD SALE09.

PARAMETERS:SALE09 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-018 FOR FIELD CSAL09.

PARAMETERS:CSAL09 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-034.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-019 FOR FIELD SALE11.

PARAMETERS:SALE11 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-020 FOR FIELD CSAL11.

PARAMETERS:CSAL11 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-021 FOR FIELD SALE12.

PARAMETERS:SALE12 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-022 FOR FIELD CSAL12.

PARAMETERS:CSAL12 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-023 FOR FIELD SALE13.

PARAMETERS:SALE13 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-024 FOR FIELD CSAL13.

PARAMETERS:CSAL13 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-025 FOR FIELD SALE14.

PARAMETERS:SALE14 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-026 FOR FIELD CSAL14.

PARAMETERS:CSAL14 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-027 FOR FIELD SALE15.

PARAMETERS:SALE15 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-028 FOR FIELD CSAL15.

PARAMETERS:CSAL15 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(35) TEXT-029 FOR FIELD SALE16.

PARAMETERS:SALE16 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 40(8) TEXT-030 FOR FIELD CSAL16.

PARAMETERS:CSAL16 RADIOBUTTON GROUP G1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B1.

TOP-OF-PAGE.

WRITE: /'Program:', SY-REPID.

WRITE: 42 'date:', SY-DATUM.

WRITE: 80 'TIME:', SY-UZEIT.

===[START-OF-SELECTION]===============================================

START-OF-SELECTION.

*& get the data

PERFORM fm_get_data.

IF SUMMARY = 'X'.

*& Print the actual report

PERFORM FM_PRINT_ACTUAL.

ELSE.

*& Print the actual report

PERFORM FM_DETAIL_REPORT.

ENDIF.

*& Print the actual report

===[END-OF-SELECTION]=================================================

END-OF-SELECTION.

===[FORMS]============================================================

&----

*& Form fm_get_data

&----

text

----

FORM fm_get_data.

SELECT ryear poper rprctr racct activ hsl refdocnr matnr kunnr

PS_PSP_PNR VKGRP INTO TABLE IT_TAB1 FROM GLPCA WHERE KOKRS EQ 'D006'

AND RYEAR EQ RYEAR AND POPER EQ POPER.

LOOP AT it_tab1 WHERE activ = 'RMWL'.

MOVE-CORRESPONDING it_tab1 TO it_RMWL.

APPEND IT_RMWL.

ENDLOOP.

SELECT VBELV VBELN FROM VBFA

INTO CORRESPONDING FIELDS OF TABLE IT_VBFA

FOR ALL ENTRIES IN IT_RMWL

WHERE VBELN = IT_RMWL-REFDOCNR.

SELECT VBELN VKGRP FROM VBAK

INTO CORRESPONDING FIELDS OF TABLE IT_VBAK

FOR ALL ENTRIES IN IT_VBFA

WHERE VBELN = IT_VBFA-VBELV.

LOOP AT IT_RMWL.

MOVE-CORRESPONDING IT_RMWL TO IT_TAB3.

READ TABLE IT_VBFA WITH KEY VBELN = IT_RMWL-REFDOCNR.

READ TABLE IT_VBAK WITH KEY VBELN = IT_VBFA-VBELV.

IF SY-SUBRC = 0.

IT_TAB3-VKGRP = IT_VBAK-VKGRP.

APPEND IT_TAB3.

ENDIF.

ENDLOOP.

LOOP AT it_tab1 WHERE activ = 'SD00'.

MOVE-CORRESPONDING it_tab1 TO it_TAB2.

APPEND it_tab2.

ENDLOOP.

SORT IT_TAB2 BY RPRCTR.

LOOP AT it_tab2.

*IF it_tab2-ps_psp_pnr eq '00000000'.

*IF IT_TAB2-MATNR <> 'OVERHAUL' AND IT_TAB2-MATNR <> 'SERVICE' AND

IT_TAB2-MATNR <> 'SPARES' AND IT_TAB2-MATNR <> 'REPAIR' AND
IT_TAB2-MATNR <> 'WORK-PARTY' AND IT_TAB2-MATNR <> 'TEST' AND
IT_TAB2-MATNR <> 'INVESTIGATION'.

IF it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RR' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RRG' .

LV_aSALE01 = LV_aSALE01 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '01'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ARG' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'AGB'.

LV_aSALE02 = LV_aSALE02 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '02'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GE' OR

it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GEB' OR

it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GGA'.

LV_aSALE03 = LV_aSALE03 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '03'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'R4B' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RRT' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RRC' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'TDR' OR

it_tab2-RPRCTR = '0000006003' AND it_tab2-VKGRP = 'RRY'.

LV_aSALE04 = LV_aSALE04 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '04'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GSA' OR

it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GSP' OR

it_tab2-RPRCTR = '0000006004' AND it_tab2-VKGRP = 'GES'.

LV_aSALE05 = LV_aSALE05 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '05'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ARA' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'AAS' OR

IT_TAB2-RPRCTR = '0000006001' AND IT_TAB2-VKGRP = 'TMG'.

LV_aSALE06 = LV_aSALE06 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '06'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'TMS' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ARP' OR

IT_TAB2-RPRCTR = '0000006001' AND IT_TAB2-VKGRP = 'ARS'.

LV_aSALE07 = LV_aSALE07 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '07'.

append it_sale01.

ENDIF.

IF ( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'RR' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'RRG' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ARG' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'AGB' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GE' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GEB' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GGA' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'R4B' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'RRT' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'RRC' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'TDR' ) AND

( it_tab2-RPRCTR NE '0000006003' OR it_tab2-VKGRP NE 'RRY' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GSA' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GSP' ) AND

( it_tab2-RPRCTR NE '0000006004' OR it_tab2-VKGRP NE 'GES' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ARA' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'AAS' ) AND

( IT_TAB2-RPRCTR NE '0000006001' OR IT_TAB2-VKGRP NE 'TMG' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'TMS' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ARP' ) AND

( IT_TAB2-RPRCTR NE '0000006001' OR IT_TAB2-VKGRP NE 'ARS' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ARR' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ARE' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'TMR' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'TUR' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'ATR' ) AND

( it_tab2-RPRCTR NE '0000006001' OR it_tab2-VKGRP NE 'TMK' ) AND

( it_tab2-RPRCTR NE '0000006002' ) AND

( IT_TAB2-RPRCTR NE '0000006101' ) AND

( IT_TAB2-RPRCTR NE '0000006102' ) AND

( IT_TAB2-RPRCTR NE '0000006103' ) AND

( it_tab2-RPRCTR NE '0000006002' ) AND

( IT_TAB2-RPRCTR NE '0000006101' ).

LV_aSALE08 = LV_aSALE08 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '08'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'DEV'.

LV_aSALE09 = LV_aSALE09 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '09'.

append it_sale01.

ENDIF.

*ENDIF.

IF IT_TAB2-MATNR EQ 'OVERHAUL' OR

IT_TAB2-MATNR EQ 'SERVICES' OR

IT_TAB2-MATNR EQ 'SPARES' OR

IT_TAB2-MATNR EQ 'REPAIR' OR

IT_TAB2-MATNR EQ 'WORK-PARTY' OR

IT_TAB2-MATNR EQ 'TEST' OR

IT_TAB2-MATNR EQ 'INVESTIGATION'.

IF it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ARR' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ARE' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'TMR' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'TUR' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'ATR' OR

it_tab2-RPRCTR = '0000006001' AND it_tab2-VKGRP = 'TMK'.

LV_aSALE11 = LV_aSALE11 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '11'.

append it_sale01.

ENDIF.

IF it_tab2-RPRCTR = '0000006002'.

LV_aSALE12 = LV_aSALE12 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '12'.

append it_sale01.

ENDIF.

IF IT_TAB2-RPRCTR = '0000006101'.

LV_aSALE13 = LV_aSALE13 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '13'.

append it_sale01.

ENDIF.

IF IT_TAB2-RPRCTR = '0000006102' OR

IT_TAB2-RPRCTR = '0000006103'.

LV_aSALE14 = LV_aSALE14 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '14'.

append it_sale01.

ENDIF.

IF it_tab2-rprctr = '0000006005'.

LV_aSALE15 = LV_aSALE15 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '15'.

append it_sale01.

ENDIF.

IF it_tab2-rprctr = '0000006006'.

LV_aSALE16 = LV_aSALE16 + it_tab2-HSL.

MOVE-CORRESPONDING IT_TAB2 TO IT_SALE01.

IT_SALE01-KEY = '16'.

append it_sale01.

ENDIF.

ENDLOOP.

LOOP AT it_tab3.

IF it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'RR' OR

it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'RRG' .

LV_acsal01 = LV_acsal01 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '01'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'ARG' OR

it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'AGB'.

LV_acsal02 = LV_acsal02 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '02'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GE' OR

it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GEB' OR

it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GGA'.

LV_acsal03 = LV_acsal03 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '03'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'R4B' OR

it_tab3-RPRCTR = '0000006003' AND it_tab3-VKGRP = 'RRT' OR

IT_TAB3-RPRCTR = '0000006003' AND IT_TAB3-VKGRP = 'RRY' OR

IT_TAB3-RPRCTR = '0000006003' AND IT_TAB3-VKGRP = 'RRC' OR

IT_TAB3-RPRCTR = '0000006003' AND IT_TAB3-VKGRP = 'TDR'.

LV_acsal04 = LV_acsal04 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '04'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GSA' OR

it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GSP' OR

it_tab3-RPRCTR = '0000006004' AND it_tab3-VKGRP = 'GES'.

LV_acsal05 = LV_acsal05 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '05'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'ARA' OR

it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'AAS' OR

IT_TAB3-RPRCTR = '0000006001' AND IT_TAB3-VKGRP = 'TMG'.

LV_acsal06 = LV_acsal06 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '06'.

append it_DCSAL.

ENDIF.

IF it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'TMS' OR

it_tab3-RPRCTR = '0000006001' AND it_tab3-VKGRP = 'ARP' OR

IT_TAB3-RPRCTR = '0000006001' AND IT_TAB3-VKGRP = 'ARS'.

LV_acsal07 = LV_acsal07 + it_tab3-HSL.

MOVE-CORRESPONDING IT_CMRO TO IT_DCSAL.

IT_DCSAL-KEY = '07'.