배치특성정보 SQL로 선택하기

웬지 FM이 쓰고싶지 않을 때

"배치특성 선택

  APPEND VALUE: #( sign = 'I' option = 'EQ' low = '특성명입력'     ) TO lr_atnam.

  LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<ls_data>).

    lt_obj_list-matnr = <ls_data>-matnr.

    lt_obj_list-charg = <ls_data>-b_charg.

    lt_obj_list-objek = <ls_data>-matnr && <ls_data>-b_charg.

    APPEND lt_obj_list.

    IF p_reel = 'X'.

      lt_obj_list-matnr = <ls_data>-matnr.

      lt_obj_list-charg = <ls_data>-r_charg.

      lt_obj_list-objek = <ls_data>-matnr && <ls_data>-r_charg.

      APPEND lt_obj_list.

    ENDIF.

  ENDLOOP.

  SELECT inob~cuobj,

         inob~objek,

         ausp~atinn,

         cabn~atnam,

         ausp~atwrt

    FROM inob

    JOIN ausp

      ON inob~cuobj EQ ausp~objek

     AND inob~klart EQ ausp~klart

    JOIN cabn

      ON ausp~atinn EQ cabn~atinn

    INTO TABLE @DATA(lt_inob)

     FOR ALL ENTRIES IN @lt_obj_list

   WHERE inob~klart EQ '023'

     AND inob~obtab EQ 'MCH1'

     AND inob~objek EQ @lt_obj_list-objek

     AND ausp~mafid EQ 'O'

     AND cabn~atnam IN @lr_atnam.

  SORT: lt_inob     BY objek atnam.

  SORT: lt_obj_list BY objek.

  LOOP AT lt_obj_list.

    READ TABLE lt_inob WITH KEY objek = lt_obj_list-objek

                                BINARY SEARCH

                                TRANSPORTING NO FIELDS.

    IF sy-subrc EQ 0.

      LOOP AT lt_inob ASSIGNING FIELD-SYMBOL(<ls_inob>) FROM sy-tabix.

        IF lt_obj_list-objek NE <ls_inob>-objek.

          EXIT.

        ENDIF.

        MOVE-CORRESPONDING lt_obj_list TO lt_obj.

        lt_obj-cuobj = <ls_inob>-cuobj.

        lt_obj-atinn = <ls_inob>-atinn.

        lt_obj-atnam = <ls_inob>-atnam.

        lt_obj-atwrt = <ls_inob>-atwrt.

        APPEND lt_obj. CLEAR lt_obj.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

  SORT lt_obj BY objek atnam.