Skip to Content
Technical Articles
Author's profile photo Siva rama Krishna Pabbraju

Alternative to ‘BAPI_OBJCL_GETDETAIL’ especially in case of Multiple Materials

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.

Assigned tags

      Be the first to leave a comment
      You must be Logged on to comment or reply to a post.