Aşağıda debug işlemleri için kullanabileceğiniz bir ABAP kodu örneği gösterilmektedir. [ 1 *--------------------------------------------...
Aşağıda debug işlemleri için kullanabileceğiniz bir ABAP kodu örneği gösterilmektedir.
[ 1 *---------------------------------------------* 2 * Report Z_MEMBERLIST01_DEBUG * 3 * * 4 *---------------------------------------------* 5 * * 6 * * 7 *---------------------------------------------* 8 9 REPORT z_memberlist01_debug. 10 11 TYPE-POOLS: slis. 12 DATA wa_zmember01 TYPE zmember01. " define work area 13 WRITE 'This is my first list'. 14 ULINE. " horizontal line 15 16 * loop 17 * each record of the table with all fields 18 * will be printed on a new line of the list 19 SELECT * FROM zmember01 INTO wa_zmember01. 20 WRITE / wa_zmember01. 21 ENDSELECT. 22 SKIP. " 1 blank line 23 24 * SELECT statement like before 25 * single fields of the record will be printed 26 SELECT * FROM zmember01 INTO wa_zmember01. 27 WRITE / wa_zmember01-mdob. 28 WRITE wa_zmember01-mname. 29 ENDSELECT. 30 SKIP. " 1 blank line 31 32 * SELECT statement like before 33 * single fields will be printed like before 34 * but the WRITE statement is concatenated into a chain statement 35 SELECT * FROM zmember01 INTO wa_zmember01. 36 WRITE: / wa_zmember01-mdob, 37 wa_zmember01-mname. 38 ENDSELECT. 39 40 DATA zmember01_itab TYPE TABLE OF zmember01. 41 42 SELECT * FROM zmember01 INTO TABLE zmember01_itab. 43 44 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
45 EXPORTING 46 i_callback_program = 'Z_MEMBERLIST01_DEBUG' 47 i_callback_user_command = 'CALLBACK_USER_COMMAND' 48 i_structure_name = 'ZMEMBER01' 49 TABLES 50 t_outtab = zmember01_itab.
51
52 *&---------------------------------------------*
53 *& Form user_command
54 *&---------------------------------------------*
55 * -->R_UCOMM User-Command
56 * -->RS_SELFIELD Selection
57 *----------------------------------------------*
58 FORM callback_user_command USING r_ucomm LIKE sy-ucomm
59 rs_selfield TYPE slis_selfield.
60 DATA msgstring TYPE string. " Variable for message
61 CONCATENATE 'Usercommand' r_ucomm " build message
62 'was triggered' INTO msgstring
63 SEPARATED BY space.
64 MESSAGE msgstring TYPE 'I'. " display message
65 ENDFORM. "user_command ]
[post_ads_2]
Kaynak Kod İle İlgili Notlar
Satır 11
TYPE-POOLS ifadesi bir tür grubunun kullanımını tanımlar ve böylece tür grubunda tanımlı türler mevcut programda kullanılabilir. Sürüm 7.0 EHP2 itibariyle, bu deyim artık kullanılmıyor; burada sadece programı, layer-aware debugging yapamayan, önceki sürümlerde çalıştırılabilir yapmak için kullanılmıştır.
40-42. Satırlar
Üye listesinin görüntülenmesi için bir içsel tablo tanımlanır ve doldurulur.
44. Satır
SAP fonksiyon modüllerinden birisi olan REUSE_ALV_GRID_DISPLAY'in çağrılması:
- T_OUTTAB parametresi görüntülenmesi gereken içsel tabloyu aktarır.
- I_STRUCTURE_NAME parametresi sistemin içsel tabloyu görüntülemek için kullanması gereken, ZMEMBER01 ABAP Dictionary tablosunun adını aktarır.
- I_CALLBACK_USER_COMMAND ve I_CALLBACK_PROGRAM parametreleri tablo görünümünde kullanıcı tanımlı fonksiyonları geri çağırmak için kullanılan alt program ve callback programının adını aktarmak için kullanılır.
CALLBACK_USER_COMMAND alt programı bir callback fonksiyonu olarak belirtilmiştir. Bu fonksiyon, REUSE_ALV_GRID_DISPLAY modülü tarafından tanımlanan arayüze sahip olmalıdır. R_UCOMM parametresi kullanıcı tarafından tetiklenen fonksiyon kodlarını aktarmak için kullanılır. (Örneğin; CASE r_ucomm. WHEN '&IC1'. satıra çift tıklandığında anlamına gelir) RS_SELFIELD parametresi tıklanan tablo satır ve sütununun ayrıntılı bilgisini aktarmanızı sağlar. (Örneğin, rs_selfield-value tıklanan hücrenin değerini gösterir)
61. Satır
Çıktıda görünmesi gereken mesaj oluşturulur.
64. Satır
Mesaj görüntülenir.
ABAP ile ilgili yayınlar birbirlerini takip eden konular içerir. Tüm ABAP yayınlarının listesine ulaşmak için tıklayınız.
YORUM