Explode BOMs in Enterprise Portal using htmlb tree - Part 1 (ABAP)

[Former Member]

Introduction:

In this weblog i am going to present ABAP & JAVA code to explode BOMs in a nice htmlb tree structure. This is a very good example of how an ABAP developer with JAVA skills could produce useful application that run in enterprise portal.

ABAP PART

Lets start with ABAP part. The following steps will show you how to create an RFC that returns all the items of a BOM

Step 1:

Create an structure ZITEMS that has following fields.

Step 2:

Create an RFC function module "Z_EXPLODE_BOMS" that has following parameters.

Step3:

Add the following code to your function module. Generate and activate your function module.

FUNCTION Z_EXPLODE_BOMS.*"----------------------------------------------------------------------*"*"Local interface:*"  IMPORTING*"     VALUE(CAPID) LIKE  RC29L-CAPID*"     VALUE(MATNR) LIKE  RC29L-MATNR*"     VALUE(WERKS) LIKE  RC29L-WERKS*"     VALUE(DATUV) LIKE  STKO-DATUV DEFAULT 00000000*"  EXPORTING*"     VALUE(RETURN) LIKE  BAPIRET2 STRUCTURE  BAPIRET2*"     VALUE(TOPMAT) LIKE  CSTMAT STRUCTURE  CSTMAT*"  TABLES*"      ZITEMS STRUCTURE  ZITEMS*"----------------------------------------------------------------------  data: begin of stb occurs 0.          include structure stpox.  data: end of stb.  data: begin of matcat occurs 0.          include structure CSCMAT.  data: end of matcat.  if datuv is initial.    datuv = sy-datum.  endif.  CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'    EXPORTING      CAPID                 = capid      DATUV                 = datuv      MKTLS                 = 'X'      MEHRS                 = 'X'      MTNRV                 = matnr      WERKS                 = werks    IMPORTING      TOPMAT                = topmat    TABLES      STB                   = stb      matcat                = matcat    EXCEPTIONS      ALT_NOT_FOUND         = 1      CALL_INVALID          = 2      MATERIAL_NOT_FOUND    = 3      MISSING_AUTHORIZATION = 4      NO_BOM_FOUND          = 5      NO_PLANT_DATA         = 6      NO_SUITABLE_BOM_FOUND = 7      CONVERSION_ERROR      = 8      OTHERS                = 9.  IF SY-SUBRC <> 0.    CALL FUNCTION 'BALW_BAPIRETURN_GET2'      EXPORTING        TYPE   = SY-MSGTY        CL     = SY-MSGID        NUMBER = SY-MSGNO        PAR1   = SY-MSGV1        PAR2   = SY-MSGV2        PAR3   = SY-MSGV3        PAR4   = SY-MSGV4      IMPORTING        RETURN = RETURN.    EXIT.  ENDIF.  loop at stb.    zitems-idnrk = stb-idnrk.    zitems-ojtxp = stb-ojtxp.    loop at matcat where index eq stb-ttidx.      zitems-zparent = matcat-matnr.      exit.    endloop.    append zitems.    clear zitems.  endloop.ENDFUNCTION.