Diğer programlama dillerinde olduğu gibi ABAP programlama dilinde de program çıktı komutları vardır. Bu yazımda "Write"" komutundan bahsedeceğim. Kod satırlarında bir çok örnek kullanımı vardır.
MOVE komutu
Move to komutunu kullanarak değişkenin değerine atama yapmış olduk. ‘124459’ olan type’i t (time) olan değişkene
WRITE: (200) 'Move komutu' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
DATA : lv_time TYPE t VALUE '124459',
lv_time_move TYPE tims.
lv_time = sy-uzeit.
MOVE sy-uzeit TO lv_time_move.
WRITE: / 'lv_time -> ',lv_time,
/ 'sy-uzeit -> ',lv_time_move.
NEW-LINE.
Metin Hizalama İşlemleri
Left-justified, centered, right-justified
*& Left-justified | centered | right-justified.
WRITE: (200) 'Left-justified, centered, right-justified.' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
DATA: lv_text TYPE string VALUE 'emreaydin'.
DATA: lv_text2 TYPE string VALUE 'technovaconsultanting'.
WRITE: 10(15) lv_text LEFT-JUSTIFIED COLOR COL_TOTAL. " 10 karakter içeriden en fazla 20 karaktere izin ver.
NEW-LINE.
WRITE: 10(15) lv_text2 LEFT-JUSTIFIED COLOR COL_NEGATIVE INVERSE ON. " 10 karakter içeriden en fazla 20 karaktere izin ver.
NEW-LINE.
WRITE: 10(15) lv_text RIGHT-JUSTIFIED COLOR COL_NEGATIVE INVERSE ON. " 10 karakter içeriden en fazla 20 karaktere izin ver.
NEW-LINE.
WRITE: 10(15) lv_text CENTERED COLOR COL_NEGATIVE INVERSE ON. " 10 karakter içeriden en fazla 20 karaktere izin ver.
NEW-LINE.
NO-SIGN, NO-ZERO, COLOR
NO-SIGN komutu numeric ifadedeki işaretleri siler. NO-ZERO komutu numeric ifadenin başındaki sıfırları siler.
Write komutuna renk vermek için COLOR ifadesi kullanılır.
WRITE: (200) 'No-sign & No-zero' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
DATA: lv_int TYPE int4.
DATA: lv_value TYPE n LENGTH 7 VALUE '345'.
lv_int = -454.
WRITE:/ lv_int COLOR COL_NORMAL,
/ lv_int NO-SIGN COLOR COL_NORMAL.
WRITE:/ lv_value,
/ lv_value NO-ZERO.
Currency ve Decimal
*Currency .
WRITE: (200) 'Currency' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
lv_int = 12345678.
DATA: lv_curr TYPE c LENGTH 10.
WRITE: lv_int TO lv_curr CURRENCY 'EUR'.
WRITE:/ lv_int,
/ lv_curr.
"" DECIMALS dec
WRITE: (200) 'Decimals' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
DATA: lv_pack TYPE p LENGTH 8 DECIMALS 4
VALUE '1234.5678',
lv_tx TYPE c LENGTH 10.
WRITE lv_pack TO lv_tx NO-GROUPING DECIMALS 2.
WRITE lv_tx.
NEW-LINE.
Tarih Formatı Değiştirme
Eğer sistemdeki tarih formatı ile kullanmak istediğiniz tarih formatı aynı değil ise, aşağıdaki kodlar sayesinde istediğiniz formata çevirebilirsiniz.
*& DD/MM/YY | MM/DD/YY
WRITE: (200) 'DD/MM/YY , MM/DD/YY' CENTERED COLOR COL_NEGATIVE .
NEW-LINE.
DATA formatted_text TYPE c LENGTH 30.
WRITE: 3(20) 'Sistem tarihi->' LEFT-JUSTIFIED, sy-datlo .
NEW-LINE.
WRITE sy-datlo TO formatted_text DD/MM/YY.
WRITE: 3(20) 'DD/MM/YY ->' LEFT-JUSTIFIED,formatted_text .
WRITE sy-datlo TO formatted_text YYMMDD.
NEW-LINE.
WRITE: 3(20) 'YYMMDD ->' LEFT-JUSTIFIED,formatted_text .
Emre AYDIN - Kişisel Blog 
Yorum bırakın