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
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Bom Explosion

Former Member

‎09-18-2008 7:26 PM

0 Kudos

Hi all ,

i am trying to get the sub components of a single finished material using FM CS_BOM_EXPLOSION.

But i am getting error , pls let know where the error is ....

Here is the code .......

&----

*& Report ZBOM_EXPLOSION

*&

&----

*&

*&

&----

REPORT ZBOM_EXPLOSION.

*************STRUCTURE OF CSTMAT(IMPORTING PARAMETER)**********

TYPES : S_CSTMAT TYPE STANDARD TABLE OF CSTMAT.

*DATA : L_CSTMAT TYPE S_CSTMAT.

DATA : L_CSTMAT TYPE S_CSTMAT.

***************STRUCTURE OF TABLES pARAMETER )****

TYPES : S_CSXDOC TYPE STANDARD TABLE OF CSXDOC, " STBD

S_CSXEQUI TYPE STANDARD TABLE OF CSXEQUI, " STBE

S_CSXKLA TYPE STANDARD TABLE OF CSXKLA, "STBK

S_CSXMAT TYPE STANDARD TABLE OF CSXMAT , " STBM

S_CSXGEN TYPE STANDARD TABLE OF CSXGEN, "STBP

S_CSXTPL TYPE STANDARD TABLE OF CSXTPL."STBT

DATA : L_CSXDOC TYPE S_CSXDOC, " Addition to the item collective table (document data)

L_CSXEQUI TYPE S_CSXEQUI, "Addition to the item collective table (equi data)

L_CSXKLA TYPE S_CSXKLA, " Supplement to collective item table (class data)

L_CSXMAT TYPE S_CSXMAT, " Addition to the item collective table (material data)

L_CSXGEN TYPE S_CSXGEN, "Item collective table

L_CSXTPL TYPE S_CSXTPL. " Supplement to collective item table (functional location data)

DATA : WA_CLASS TYPE S_CSXKLA,

WA_MAT TYPE CSTMAT .

********EXPORTING PARAMETERS ************************

PARAMETERS : P_CAPID TYPE TC04-CAPID , " APLLICATION

  • P_MEHRS TYPE CSDATA-XFELD , " MATERIAL EXPLOSION

P_MTNRV TYPE MARA-MATNR, " MATERIAL

  • STLAL TYPE STKO-STLAL, " ALTERNATIVE BOM

P_WERKS TYPE MARC-WERKS. " PLANT

  • P_VERID TYPE MKAL-VERID. " Production version (global)_

*SELECT-OPTIONS : L_CAPID FOR CAPID,

  • L_MEHRS FOR MEHRS,

  • L_MTNRV FOR

*******FUNCTION MODULE EXPORTING PARAMETERS**********

DATA : L_MATNR TYPE MATNR , " MATERIAL NUMBER

L_VERID TYPE VERID , " PRODUCTION VERSION

L_WERKS TYPE WERKS_D, "PALNT

L_STLNR TYPE STNUM . "BILL OF MATERIAL

INITIALIZATION .

AT SELECTION-SCREEN .

*******

START-OF-SELECTION .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = P_MTNRV

IMPORTING

OUTPUT = P_MTNRV.

.

CALL FUNCTION 'CS_BOM_EXPLOSION'

EXPORTING

CAPID = 'PP01'

MEHRS = 'X'

MTNRV = P_MTNRV

  • STLAL = ' '

WERKS = P_WERKS

  • MDNOT = ' '

  • PANOT = ' '

  • QVERW = ' '

  • VBELN = ' '

  • VBPOS = 0

  • VERID = ' '

  • VRSVO = 'X'

IMPORTING

  • TOPEQUI =

TOPMAT = L_CSTMAT

  • TOPTPL =

  • DSTST =

TABLES

stbd = L_CSXDOC

stbe = L_CSXEQUI

stbk = L_CSXKLA

stbm = L_CSXMAT

stbp = L_CSXGEN

stbt = L_CSXTPL.

  • EXCEPTIONS

  • ALT_NOT_FOUND = 1

  • CALL_INVALID = 2

  • MISSING_AUTHORIZATION = 3

  • NO_BOM_FOUND = 4

  • NO_PLANT_DATA = 5

  • NO_SUITABLE_BOM_FOUND = 6

  • OBJECT_NOT_FOUND = 7

  • CONVERSION_ERROR = 8

  • OTHERS = 9

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT L_CSTMAT INTO WA_MAT.

WRITE WA_MAT-MATNR.

ENDLOOP.

2 REPLIES 2

former_member212653
Active Contributor

‎09-18-2008 9:15 PM

0 Kudos

what is the error?can you be more specific...

Former Member
In response to former_member212653

‎09-18-2008 10:05 PM

0 Kudos

Hi ,

I am pasting my modified prog . Here it is executing but printing CALL_INVALID (exception 2 ) .

pls check out the program and let me know y it is printing that exception.

&----

*& Report ZHARKAR_BOM_EXPLOSION

*&

&----

*&

*&

&----

REPORT ZHARKAR_BOM_EXPLOSION.

*************STRUCTURE OF CSTMAT(IMPORTING PARAMETER)**********

*TYPES : S_CSTMAT TYPE STANDARD TABLE OF CSTMAT.

*

**DATA : L_CSTMAT TYPE S_CSTMAT.

*DATA : L_CSTMAT TYPE S_CSTMAT.

DATA : IT_TOPMAT TYPE CSTMAT OCCURS 0 WITH HEADER LINE.

***************STRUCTURE OF TABLES pARAMETER )****

*TYPES : S_CSXDOC TYPE STANDARD TABLE OF CSXDOC, " STBD

  • S_CSXEQUI TYPE STANDARD TABLE OF CSXEQUI, " STBE

  • S_CSXKLA TYPE STANDARD TABLE OF CSXKLA, "STBK

  • S_CSXMAT TYPE STANDARD TABLE OF CSXMAT , " STBM

  • S_CSXGEN TYPE STANDARD TABLE OF CSXGEN, "STBP

  • S_CSXTPL TYPE STANDARD TABLE OF CSXTPL."STBT

*

*DATA : L_CSXDOC TYPE S_CSXDOC OCCURS 0 WITH HEADER LINE , " Addition to the item collective table (document data)

  • L_CSXEQUI TYPE S_CSXEQUI, "Addition to the item collective table (equi data)

  • L_CSXKLA TYPE S_CSXKLA, " Supplement to collective item table (class data)

  • L_CSXMAT TYPE S_CSXMAT, " Addition to the item collective table (material data)

  • L_CSXGEN TYPE S_CSXGEN, "Item collective table

  • L_CSXTPL TYPE S_CSXTPL. " Supplement to collective item table (functional location data)

*

*DATA : WA_CLASS TYPE S_CSXKLA,

  • WA_MAT TYPE CSTMAT .

*

DATA : IT_STBD TYPE CSXDOC OCCURS 0 WITH HEADER LINE,

IT_STBE TYPE CSXEQUI OCCURS 0 WITH HEADER LINE,

IT_STBK TYPE CSXKLA OCCURS 0 WITH HEADER LINE,

IT_STBM TYPE CSXMAT OCCURS 0 WITH HEADER LINE,

IT_STBP TYPE CSXGEN OCCURS 0 WITH HEADER LINE,

IT_STBT TYPE CSXTPL OCCURS 0 WITH HEADER LINE.

********EXPORTING PARAMETERS ************************

PARAMETERS : P_CAPID TYPE TC04-CAPID , " APLLICATION

  • P_MEHRS TYPE CSDATA-XFELD , " MATERIAL EXPLOSION

P_MTNRV TYPE MARA-MATNR, " MATERIAL

P_STLAL TYPE STKO-STLAL, " ALTERNATIVE BOM

P_WERKS TYPE MARC-WERKS, " PLANT

P_VERID TYPE MKAL-VERID. " Production version (global)_

*******FUNCTION MODULE EXPORTING PARAMETERS**********

*

*DATA : L_MATNR TYPE MATNR , " MATERIAL NUMBER

  • L_VERID TYPE VERID , " PRODUCTION VERSION

  • L_WERKS TYPE WERKS_D, "PALNT

  • L_STLNR TYPE STNUM . "BILL OF MATERIAL

*

*

INITIALIZATION .

AT SELECTION-SCREEN .

*******

START-OF-SELECTION .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = P_MTNRV

IMPORTING

OUTPUT = P_MTNRV.

.

CALL FUNCTION 'CS_BOM_EXPLOSION'

EXPORTING

CAPID = 'PP01'

MEHRS = 'X'

MTNRV = P_MTNRV

STLAL = P_STLAL

WERKS = P_WERKS

  • MDNOT = ' '

  • PANOT = ' '

  • QVERW = ' '

  • VBELN = ' '

  • VBPOS = 0

VERID = P_VERID

  • VRSVO = 'X'

IMPORTING

    • TOPEQUI =

TOPMAT = IT_TOPMAT

  • TOPTPL =

  • DSTST =

TABLES

stbd = IT_STBD

stbe = IT_STBE

stbk = IT_STBK

stbm = IT_STBM

stbp = IT_STBP

stbt = IT_STBT

EXCEPTIONS

ALT_NOT_FOUND = 1

CALL_INVALID = 2

MISSING_AUTHORIZATION = 3

NO_BOM_FOUND = 4

NO_PLANT_DATA = 5

NO_SUITABLE_BOM_FOUND = 6

OBJECT_NOT_FOUND = 7

CONVERSION_ERROR = 8

OTHERS = 9 .

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CASE SY-SUBRC.

WHEN '1'.

WRITE 'ALT_NOT_FOUND'.

WHEN '2'.

WRITE 'CALL_INVALID'.

WHEN '3'.

WRITE 'MISSING_AUTHORIZATION'.

WHEN '4'.

WRITE ' NO_BOM_FOUND '.

WHEN '5'.

WRITE 'NO_PLANT_DATA '.

WHEN '6'.

WRITE 'NO_SUITABLE_BOM_FOUND'.

WHEN '7'.

WRITE ' OBJECT_NOT_FOUND'.

WHEN '8'.

WRITE 'CONVERSION_ERROR'.

WHEN '9'.

WRITE 'OTHERS '.

ENDCASE.

LOOP AT IT_TOPMAT.

WRITE IT_TOPMAT-MATNR.

ENDLOOP.