Alternative to ‘BAPI_OBJCL_GETDETAIL’ especially in case of Multiple Materials

[krish469]

I have used FM ‘BAPI_OBJCL_GETDETAIL’ in one of my enhancements where the possibility of records are very huge. When code moved to Quality it has caused serious troubles and I have been forced to change the source code.

So, I started to alternative solutions. I haven’t found any read made solution like any existing BAPI or FM or CDS View. I came across a solution posted in below link https://www.linkedin.com/pulse/alternate-sap-bapi-bapiobjclgetdetail-samay-kumar-jain/

It was very informative but looks like long procedure to me, so I have started search in SAP SCN for tables involved to get material characteristics. I couldn’t get (maybe I missed) in my search.

 

Tables involved:

CABN	To get Internal Characteristic Number by passing Characteristic Name assigned to Material Characteristic Class
CAWN	To get pre-defined Characteristic values based on Internal Characteristic Number
CAWNT	To get pre-defined Characteristic values Texts based on Internal Characteristic Number
INOB	To get Characteristic Object for a Class and Class object [ In Our case - Material ]
AUSP	To get Characteristic Values for Object [ In Our case - Material]

 

     TYPES: BEGIN OF lty_inob,

               cuobj      TYPE cuobj,

               objek      TYPE cuobn,

               cuobj_ausp TYPE cuobn,

             END OF lty_inob.



      TYPES: BEGIN OF lty_ausp,

               objek TYPE cuobn,

               atinn TYPE atinn,

               atzhl TYPE wzaehl,

               mafid TYPE klmaf,

               klart TYPE klassenart,

               adzhl TYPE adzhl,

               atwrt TYPE atwrt,

             END OF lty_ausp.



      DATA: lt_inob TYPE STANDARD TABLE OF lty_inob,

            lt_ausp TYPE STANDARD TABLE OF lty_ausp

                          WITH NON-UNIQUE SORTED KEY s1 COMPONENTS objek.



      DATA: lr_plnum       TYPE RANGE OF plnum,

            lr_aufnr       TYPE RANGE OF aufnr,

            lr_matnr_cuobn TYPE RANGE OF cuobn,

            lr_atnam       TYPE RANGE OF atnam,

            lv_matnr_inob  TYPE cuobn,

            lv_matnr       TYPE matnr.   



            lr_atnam = VALUE #( BASE lr_atnam

                              ( sign = 'I' option = 'EQ' low = 'Z_GAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_OAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_CAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_AAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_BAB' )  ).



*lr_atnam range object of Material Characterstics

            SELECT atinn,

                   adzhl,

                   atnam

                   FROM cabn

                   INTO TABLE @DATA(lt_cabn)

                   FOR ALL ENTRIES IN @lr_atnam

                   WHERE atnam = @lr_atnam-low

                   ORDER BY PRIMARY KEY.

            IF sy-subrc = 0.

              SELECT atinn,

                     atzhl,

                     adzhl,

                     atwrt

                     FROM cawn

                     INTO TABLE @DATA(lt_cawn)

                     FOR ALL ENTRIES IN @lt_cabn

                     WHERE atinn = @lt_cabn-atinn

                     AND   adzhl = @lt_cabn-adzhl.

              IF sy-subrc = 0.

                SORT lt_cawn BY atinn adzhl atwrt.

              ENDIF.



              SELECT atinn,

                     atzhl,

                     spras,

                     adzhl,

                     atwtb

                     FROM cawnt

                     INTO TABLE @DATA(lt_cawnt)

                     FOR ALL ENTRIES IN @lt_cabn

                     WHERE atinn = @lt_cabn-atinn

                     AND   spras = @sy-langu

                     AND   adzhl = @lt_cabn-adzhl

                     ORDER BY PRIMARY KEY.

            ENDIF. "Select from CABN

            lr_atnam = VALUE #( BASE lr_atnam

                              ( sign = 'I' option = 'EQ' low = 'Z_GAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_OAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_CAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_AAB' )

                              ( sign = 'I' option = 'EQ' low = 'Z_BAB' )  ).

*@lr_matnr_cuobn range object of Material

            SELECT cuobj,

                   objek

                   FROM inob

                   INTO TABLE @lt_inob

                   FOR ALL ENTRIES IN @lr_matnr_cuobn

                   WHERE klart = '001'

                   AND   obtab = 'MARA'

                   AND   objek = @lr_matnr_cuobn-low

                   ORDER BY PRIMARY KEY.

            IF sy-subrc = 0.

              LOOP AT lt_inob ASSIGNING FIELD-SYMBOL(<lfs_inob>).

                <lfs_inob>-cuobj_ausp = <lfs_inob>-cuobj.

              ENDLOOP. "LOOP AT lt_inob ASSIGNING FIELD-SYMBOL(<lfs_inob>).



              SELECT objek,

                     atinn,

                     atzhl,

                     mafid,

                     klart,

                     adzhl,

                     atwrt

                     FROM ausp

                     INTO TABLE @lt_ausp

                     FOR ALL ENTRIES IN @lt_inob

                     WHERE objek = @lt_inob-cuobj_ausp

                     ORDER BY PRIMARY KEY.

            ENDIF. "Select from INOB

          ENDIF. "IF NOT lr_matnr IS INITIAL.

 

Intially I have used Ranges in Select query as in opeartion. It may cause dump if reocrds in range cross more than Number of DBSL marker

Select aa,

       bb

      from xx

      into table @data(lt_tab)

      where aa in @lr_aa.

So I have used For all entries instead of ranges and I ovecame the dump.

 

             CLEAR: lv_matnr_inob.

              lv_matnr_inob = lv_matnr.

              READ TABLE lt_inob ASSIGNING <lfs_inob> WITH KEY objek = lv_matnr_inob BINARY SEARCH.

              IF sy-subrc = 0.

*Using Sorted key gives better results                

LOOP AT lt_ausp ASSIGNING FIELD-SYMBOL(<lfs_ausp>) USING KEY s1 WHERE objek = <lfs_inob>-cuobj_ausp.

                  READ TABLE lt_cabn ASSIGNING FIELD-SYMBOL(<lfs_cabn>)

                                                            WITH KEY atinn = <lfs_ausp>-atinn

                                                                     adzhl = <lfs_ausp>-adzhl BINARY SEARCH.

                  IF sy-subrc = 0.



                    CASE <lfs_cabn>-atnam.

                      WHEN 'Z_GAB'         OR

                           'Z_OAB'         OR

                           'Z_CAB'         OR

                           'Z_AAB'



                        READ TABLE lt_cawn ASSIGNING FIELD-SYMBOL(<lfs_cawn>)

                                                     WITH KEY atinn = <lfs_ausp>-atinn

                                                              adzhl = <lfs_ausp>-adzhl

                                                              atwrt = <lfs_ausp>-atwrt BINARY SEARCH.

                        IF sy-subrc = 0.

                          READ TABLE lt_cawnt ASSIGNING FIELD-SYMBOL(<lfs_cawnt>)

                                                        WITH KEY atinn = <lfs_ausp>-atinn

                                                                 atzhl = <lfs_cawn>-atzhl

                                                                 adzhl = <lfs_cawn>-adzhl BINARY SEARCH.

                          IF sy-subrc = 0.

                            CASE <lfs_cabn>-atnam.

                              WHEN 'Z_GAB'.

                                <lfs_receipts>-zzgab        = |{ <lfs_ausp>-atwrt } - { <lfs_cawnt>-atwtb }|.

                              WHEN 'Z_OAB'.

                                <lfs_receipts>-zzoab       = |{ <lfs_ausp>-atwrt } - { <lfs_cawnt>-atwtb }|.

                              WHEN 'Z_CAB'.

                                <lfs_receipts>-zzcab      = |{ <lfs_ausp>-atwrt } - { <lfs_cawnt>-atwtb }|.

                              WHEN 'Z_AAB'.

                                <lfs_receipts>-zzaab      = |{ <lfs_ausp>-atwrt } - { <lfs_cawnt>-atwtb }|.

                             

                            ENDCASE.

                          ENDIF. "READ TABLE lt_cawnt ASSIGNING FIELD-SYMBOL(<lfs_cawnt>)

                        ENDIF. "READ TABLE lt_cawn ASSIGNING FIELD-SYMBOL(<lfs_cawn>)



                      WHEN 'Z_BAB'. "Characterstic Without Pre-defined Values

                        <lfs_receipts>-zzbab   = |{ <lfs_ausp>-atwrt }|.

                    ENDCASE.



                  ENDIF. "READ TABLE lt_cabn ASSIGNING FIELD-SYMBOL(<lfs_cabn>)

                ENDLOOP. "LOOP AT lt_ausp ASSIGNING FIELD-SYMBOL(<lfs_ausp>) WHERE objek = <lfs_inob>-cuobj_ausp.

              ENDIF. "READ TABLE lt_inob ASSIGNING <lfs_inob> WITH KEY objek = lv_matnr_inob BINARY SEARCH.