Perşembe , 14 Aralık 2017

User Exit / BADI leri bulan program

Home Forumlar SAP ABAP Forum ABAP Genel User Exit / BADI leri bulan program

Etiket: ,

Bu konu 0 yanıt ve 1 izleyen içeriyor ve en son  Sinan Dilaver tarafından 3 yıl önce tarihinde güncellendi.

1 yazı görüntüleniyor (toplam 1)
  • Yazar
    Yazılar
  • #1003

    Sinan Dilaver
    Yönetici

    User Exit / BADI leri tek tek aramamınıza görek yok, aşağıdaki kodlarla uygun bir program oluşturup çalıştırdığınızda size o işlem kodundaki user exit ve badileri bulacaktır.

    CALL CUSTOMER-FUNCTION komutu için break koyabilirsiniz.

    BADI bulmak için SXV_GET_CLIF_BY_NAME fonksiyonunun ilk satırına break koyun, tüm BADI ler önce bu fonksiyona düşer.

    User exit bulmak için aşağıdaki kodu yazıp çalıştırabilirsiniz.
    *&———————————————————————*
    *& Report YSMOD2
    *&———————————————————————*
    REPORT ysmod2.

    TABLES: modsap, modact, tstc.

    PARAMETERS: input1 LIKE tstc-tcode DEFAULT ‘ ‘,
    input2 LIKE modsap-typ DEFAULT ‘ ‘.

    DATA: search1(6),
    search2(3),
    search3 LIKE modsap-member.

    DATA : first_row VALUE ‘Y’.

    CONCATENATE: ‘%’ input1 ‘%’ INTO search1,
    ‘%’ input2 INTO search2.

    SELECT * FROM tstc WHERE tcode LIKE search1.

    first_row = ‘Y’.

    CHECK tstc-pgmna NE space.

    CONCATENATE ‘%’ tstc-pgmna ‘%’ INTO search3.

    SELECT * FROM modsap WHERE typ LIKE search2
    AND member LIKE search3.

    SELECT SINGLE * FROM modact WHERE member = modsap-name.

    IF first_row EQ ‘Y’.
    WRITE: /0 tstc-tcode, 6 tstc-pgmna, 16 modsap-name, 32 modsap-typ,
    45 modsap-member, 70 modact-name.
    first_row = ‘N’.
    ELSE.
    WRITE: /16 modsap-name, 32 modsap-typ, 45 modsap-member, 70 modact-name.
    ENDIF.

    CLEAR : modsap, modact.

    ENDSELECT.

    IF sy-subrc NE 0.
    WRITE : /0 tstc-tcode, 6 tstc-pgmna, 30 ‘No exits found’.
    ENDIF.

    CLEAR tstc.

    ENDSELECT.

1 yazı görüntüleniyor (toplam 1)

Bu konuyu yanıtlamak için giriş yapmış olmalısınız.