Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

cost analysis data in CO03 transaction

graghavendra_sharma
Contributor
0 Kudos

Hi Friends

Can anybody pls let me know any funciton module or method to retrieve cost analysis data from CO03 transaction. CO03 -> GOTO -> COSTS -> ANALYSIS, will give an ALV report.

very urgent.

thanks

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi raghav,

i don't know a FM. I use in Report KOB1 via BDC.

Here a short extract:

DATA BEGIN OF BDCDATA OCCURS 500.

INCLUDE STRUCTURE BDCDATA.

DATA END OF BDCDATA.

*

PERFORM KOB1 USING ITAB-AUFNR BUDAT_LOW BUDAT_HIGH.

FORM KOB1 USING AUFNR BUDAT_LOW BUDAT_HIGH.

*

DATA: BUDAT_LOW_C(10), BUDAT_HIGH_C(10).

*

WRITE BUDAT_LOW TO BUDAT_LOW_C.

WRITE BUDAT_HIGH TO BUDAT_HIGH_C.

*

REFRESH BDCDATA.

*

PERFORM BDC_DYNPRO USING 'RKAEP000' '0110'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ONLI'.

PERFORM BDC_FIELD USING 'AUFNR-LOW' AUFNR.

PERFORM BDC_FIELD USING 'AUFNR-HIGH' SPACE.

PERFORM BDC_FIELD USING 'AUFGR' SPACE.

PERFORM BDC_FIELD USING 'KSTAR-LOW' SPACE.

PERFORM BDC_FIELD USING 'KSTAR-HIGH' SPACE.

PERFORM BDC_FIELD USING 'KOAGR' SPACE.

PERFORM BDC_FIELD USING 'R_BUDAT-LOW' BUDAT_LOW_C.

PERFORM BDC_FIELD USING 'R_BUDAT-HIGH' BUDAT_HIGH_C.

PERFORM BDC_FIELD USING 'P_DISVAR' '/TEL'.

*

CALL TRANSACTION 'KOB1' USING BDCDATA MODE 'E'.

*

ENDFORM.

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

*

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

*

ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.

*

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

*

ENDFORM.

Hope it helps.

Regards, Dieter

2 REPLIES 2

Former Member
0 Kudos

Hi raghav,

i don't know a FM. I use in Report KOB1 via BDC.

Here a short extract:

DATA BEGIN OF BDCDATA OCCURS 500.

INCLUDE STRUCTURE BDCDATA.

DATA END OF BDCDATA.

*

PERFORM KOB1 USING ITAB-AUFNR BUDAT_LOW BUDAT_HIGH.

FORM KOB1 USING AUFNR BUDAT_LOW BUDAT_HIGH.

*

DATA: BUDAT_LOW_C(10), BUDAT_HIGH_C(10).

*

WRITE BUDAT_LOW TO BUDAT_LOW_C.

WRITE BUDAT_HIGH TO BUDAT_HIGH_C.

*

REFRESH BDCDATA.

*

PERFORM BDC_DYNPRO USING 'RKAEP000' '0110'.

PERFORM BDC_FIELD USING 'BDC_OKCODE' '=ONLI'.

PERFORM BDC_FIELD USING 'AUFNR-LOW' AUFNR.

PERFORM BDC_FIELD USING 'AUFNR-HIGH' SPACE.

PERFORM BDC_FIELD USING 'AUFGR' SPACE.

PERFORM BDC_FIELD USING 'KSTAR-LOW' SPACE.

PERFORM BDC_FIELD USING 'KSTAR-HIGH' SPACE.

PERFORM BDC_FIELD USING 'KOAGR' SPACE.

PERFORM BDC_FIELD USING 'R_BUDAT-LOW' BUDAT_LOW_C.

PERFORM BDC_FIELD USING 'R_BUDAT-HIGH' BUDAT_HIGH_C.

PERFORM BDC_FIELD USING 'P_DISVAR' '/TEL'.

*

CALL TRANSACTION 'KOB1' USING BDCDATA MODE 'E'.

*

ENDFORM.

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

*

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

*

ENDFORM.

FORM BDC_FIELD USING FNAM FVAL.

*

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

*

ENDFORM.

Hope it helps.

Regards, Dieter

0 Kudos

Hi Dieter,

Thanks for your response. Somehow I was able to soleve this issue.

Regards

Raghav