Yazılımname

ABAP : Exception condition "CNTL_ERROR" raised

2011-07-13T09:45:00.004+03:00

Bir job içerisinde batch input veya submit kullanılıyorsa ve arka tarafta bir dialog ekranda bir takım özel kontroller tetikleniyorsa,

A RAISE statement in the program "CL_GUI_CUSTOM_CONTAINER=======CP" raised the

exception

condition "CNTL_ERROR".

Since the exception was not intercepted by a superior

program, processing was terminated.

Hatası alabiliriz burada standard program submit ediliyorsa, RBDPROCESS gibi IDOC işleme programı örneğin, bunu yapmanın tek yolu programı kopyalayıp, Z'li bir kopyasında dialog ekranın çağırıldığı yeri commentlemektir :), en azından ben böyle çözdüm, yoksa işinizi yapsa bile her halukarda ST22 ye bir log düşüyor. İster batchde sy-batch = '' deyin ister submit ederken export list to memory deyin her halukarda hata alıyorsunuz eğer bunu yapmazsanız.

ABAP: Leave to list-processing ve ALV

2011-06-01T10:10:00.004+03:00

bir köşede dursun diyerekten yazıyorum, alv sonrası write komutunu çalıştırmak için (örneğin batch sonrası dönen mesajları yazdıran hazır bir şablonumuz var ) leave to list-processing kullanmak gerekir. amma velakin, bu komutu çalıştırdın sonra bizim gui statusumuz alv'nin gui statusu olarak karşımıza çıkar ve butonların çalışmadığını doğal olarak ekrandan çıkamadığımızı görürüz. Bunu aşmak için ;

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
SET PF-STATUS space.
SUPPRESS DIALOG.
* write komutlarımız *

LEAVE SCREEN.

ABAP : Smartform Karakter Limiti

2010-10-01T14:34:00.002+03:00

Merhabalar,

Uzun zamandır yazmıyorum zira İTÜ ile boğuşuyordum sonunda mezun oldum ve akabinde düzenli bir iş hayatına başladım, oh be kurtuldum derslerden, sevdiğim işe döndüm.

Soruna gelince, SMARTFORM'a export ettiğimiz karakter alanları eğer 255'i geçiyorsa çıktıya yazdıramazsınız. Yani, bir alan içeresinde 300 karakter var ve siz çıktıya

&alan&

olarak yazarsanız, sadece 255 karakterinin çıktığını göreceksiniz.

Bunu çözmek için, ABAP tarafında 255 karakterlik parçalara ayırmak yerine, çıktı üzerinde,

&alan(255)& &alan+255(255)& &alan+510(255)&

yazarak, karakterlerinizin çıktığını göreceksiniz.

ABAP : Dinamik Internal Table

2009-09-01T10:26:00.009+03:00

Merhabalar;
Bu yazıda, dinamik olarak itab oluşturma ve göstermeyi anlatacağım, aslında anlatmayacağım direk kodu koyacağım en güzeli debug ederek öğrenmek. Zira bu kod çok işinize yarayacaktır. Kendimden örnek vermem gerekirse, bir tabloda bulunan şantiyeleri ve bir ekrandan o şantiyelerin bağlı olduğu cinslere girilen tutarların kümüle olarak ekranda gösterilmesi istendi. Yani tabloya satır satır girilen şantiyeler ALV'nin satır değil sütunlarını oluşturacaktı yani elimde kaç sütun var belli değildi ayrıca adamlar eğer yeni şantiye girerse otomatik olarak ALV'ye sütun olarak gelecek ve onların bağlı olduğu cinslere girilen paralarda otomatik olaraka dağıtılacaktı ve bir cins birden fazla şantiyeye bağlı olabiliyordu. Sonuç olarak Cinsler satırları şantiyeler ise sütunları oluşturdu ve paralar otomatik olarak dağıtıldı. İnternetten bana yardımcı olan kodu aynen yazıyorum buradan örnek olarak yapabilirsiniz.

Önce tanımlamalar ve dynamic internal table' ın yaratılması;

TYPE-POOLS: slis.
FIELD-SYMBOLS: <t_dyntable> TYPE STANDARD TABLE, “ Dynamic internal table name
<fs_dyntable>, “ Field symbol to create work area
<fs_fldval> type any. “ Field symbol to assign values
PARAMETERS: p_cols(5) TYPE c. “ Input number of columns
DATA: t_newtable TYPE REF TO data,
t_newline TYPE REF TO data,
t_fldcat TYPE slis_t_fldcat_alv,
t_fldcat TYPE lvc_t_fcat,
wa_it_fldcat TYPE lvc_s_fcat,
wa_colno(2) TYPE n,
wa_flname(5) TYPE c.

* Create fields .
DO p_cols TIMES.
CLEAR wa_it_fldcat.
move sy-index to wa_colno.
concatenate 'COL'
wa_colno
into wa_flname.
wa_it_fldcat-fieldname = wa_flname.
wa_it_fldcat-datatype = 'CHAR'.
wa_it_fldcat-intlen = 10.
APPEND wa_it_fldcat TO t_fldcat.
ENDDO.

* Create dynamic internal table and assign to FS
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = t_fldcat
IMPORTING
ep_table = t_newtable.
ASSIGN t_newtable->* TO <t_dyntable>.
* Create dynamic work area and assign to FS
CREATE DATA t_newline LIKE LINE OF <t_dyntable>.
ASSIGN t_newline->* TO <fs_dyntable>.

Daha sonra fieldcatalogları oluşturma ve değer atama;

DATA: fieldname(20) TYPE c.
DATA: fieldvalue(10) TYPE c.
DATA: index(3) TYPE c.
DO p_cols TIMES.
index = sy-index.
MOVE sy-index TO wa_colno.
CONCATENATE 'COL'
wa_colno
INTO wa_flname.
* Set up fieldvalue
CONCATENATE 'VALUE' index INTO
fieldvalue.
CONDENSE fieldvalue NO-GAPS.
ASSIGN COMPONENT wa_flname
OF STRUCTURE <fs_dyntable> TO <fs_fldval>.
<fs_fldval> = fieldvalue.
ENDDO.
* Append to the dynamic internal table

APPEND <fs_dyntable> TO <t_dyntable>.

bu da gösterme kısmı ; evet adam abidik gubidik yerlerde data tanımlamaları yapmış ama düzenlersiniz artık :=) sadece örnek olsun diye kopyala yapıştır yapıyorum.

DATA: wa_cat LIKE LINE OF fs_fldcat.
DO p_cols TIMES.
CLEAR wa_cat.
MOVE sy-index TO wa_colno.
CONCATENATE 'COL'
wa_colno
INTO wa_flname.
wa_cat-fieldname = wa_flname.
wa_cat-seltext_s = wa_flname.
wa_cat-outputlen = '10'.
APPEND wa_cat TO fs_fldcat.
ENDDO.

* Call ABAP List Viewer (ALV)
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = fs_fldcat
TABLES
t_outtab = <t_dyntable>.

kaynak: buyrun
Evet, bu kod dynamic olarak itab yaratma konusunda oldukça işinize yarayacaktır zira beni büyük bir işten kurtarmıştı, umarım sizi de kurtarır.

Bitirirken;
Ece Temelkuran'ın bir yazısından ve Can Dündar'ın bir şiirinden alıntı yapacağım.

İhtiyarlamak azizim, gitmek korkusuyla başlar. içine bir şüphe düşüyorsa kapıyı çarpıp çıkacakken, duraksıyorsan, işte tam o an, yaşlanır insan.
yeni bir başlangıç yapmak için üstat, önce boşlukta durabilmesin. boşlukta "kalmaktan" kortuğun zaman, işte tam o an, bir daha yeni bir şeye başlayamayacak kadar ihtiyarlar, çökersin.
insan, sevgili arkadaş, zaman içinde yaşlanmaz aslında. bir ikindi, zamanın nasıl da geçtiğini düşündüğünde, düşündüğü bütün o zamanların yükü üzerine bindiğinde ihtiyarlar. tam o ikindi gitmeye karar verirse, şöyle yeniden "ne yapmalı?" yaylasına çıkıverirse dirilir yeniden...

...bazen hepimiz büyük bir havaalanındaki, annesiz-babasız yola çıkmış çocuklara benziyoruz. boynumuza asılmış isimlerimizle, ipli torbaların içinde pasaportlarımızla bir kalabalığın içinde gideceğimiz yönleri bulmaya çalışıyoruz. doğru uçağa binmeye uğraşıyoruz hepimiz. bazen kaybolup hangi yöne gidiyorsa büyük kalabalık, o tarafa doğru akıyoruz. hepimiz bir sürü, şaşkın çocuğuz.
azizim, pek seveni yoktur ama ben bayılırım havaalanlarına. çünkü "hiçbir yerdir" oralar. bütün yönlerin tam ortası, yolların yuvası. sadece çantan ve sen varsındır, bir de dünyanın en pahalı kahvesi. tek yapman gereken ne tarafa gideceğini düşünmektir. anonsların peşinden koşturan insanlara bakarak gönül gezdirmektir işin: nereye gideyim?
azizim, daha ne olsun? gidiyorsan hayatta 1-0 öndesindir zaten!
Ece Temelkuran

ve her zamanki gibi şiirle bitiriyoruz;

Bugunlerde herkes gitmek istiyor. Küçük bir sahil kasabasina,
bir baska ülkeye,daglara, uzaklara...
Hayatindan memnun olan yok. Kiminle konussam ayni sey...
Her seyi, herkesi birakip gitme istegi.
Öyle ''yanina almak istedigi üç sey'' falan yok.
Bir kendisi.
...
Can Dündar'ın gitmek isimli şiirinden.

ABAP : Internal Table Loop Performansi

2009-08-19T15:36:00.009+03:00

İç içe loop, sık sık kullandığımız bir yapıdır.
Örneğin, FI tarafında BKPF den okuduğumuz her belgenin BSEG'de ki kalemi için
bir işlem yapmamız gerekebilir.
Bu, en kötü yöntem olarak şöyle yapılabilir; (aslında en kötü değil, zira bazen loop metodunda ki where koşundan hızlı olabiliyor nedenini sonraki yazılarda yayınlıyacağım)

LOOP AT lt_bkpf INTO ls_bkpf.
LOOP AT lt_bseg INTO ls_bseg.
lv_counter = lv_counter + 1.
IF ls_bseg-BUKRS = ls_bkpf-BUKRS AND
ls_bseg-BELNR = ls_bkpf-BELNR AND
ls_bseg-GJAHR = ls_bkpf-GJAHR.
* kodlar *
ENDIF.
ENDLOOP.
ENDLOOP.

burada gereksiz bir çok belgeye girecek ve sistem kaynaklarını epey sömürecektir.

LOOP AT lt_bkpf INTO ls_bkpf.
LOOP AT lt_bseg INTO ls_bseg WHERE
BUKRS = ls_bkpf-BUKRS AND
BELNR = ls_bkpf-BELNR AND
GJAHR = ls_bkpf-GJAHR.
lv_counter = lv_counter + 1.
* kodlar *
ENDLOOP.
ENDLOOP.

burada ki algoritmada nispeten daha az döngü olacaktır ve bir öncekine göre daha hızlı bir yöntemdir çünkü LOOP dan sonra kullandığımız WHERE koşulu döngü sayısını azaltacaktır.
Peki daha fazla hızlandırılamaz mı ? Tabiki hızlandırılır :)
Nasıl mı ?
Mintax'la canım mintaxla bende yıkarım mintaxla.

Çok basit olarak Önce sort ederiz daha sonra BSEG , ITAB'ını read table ile okuyabiliriz.
Loop yaparken cursor mantığını kullanabildiğimiz için, sy-tabix ile ilgili satırı hızlı bir biçimde

alabilirz.
şöyleki

SORT lt_bkpf BY BUKRS BELNR GJAHR.
SORT lt_bseg BY BUKRS BELNR GJAHR.
LOOP AT lt_bkpf INTO ls_bkpf.
READ TABLE lt_bseg TRANSPORTING NO FIELDS WITH KEY
BUKRS = ls_bkpf-BUKRS
BELNR = ls_bkpf-BELNR
GJAHR = ls_bkpf-GJAHR.
CHECK sy-subrc = 0.
LOOP AT lt_bseg INTO ls_bseg FROM sy-tabix.
lv_counter = lv_counter + 1.
* kodlar *
AT END OF GJAHR.
EXIT.
ENDAT.
ENDLOOP.
ENDLOOP.

Yukarıda ki read table metoduna BINARY SEARCH ekleyerek, daha hızlı bir biçimde okuma yapabiliriz :=)
Şöyleki ;

SORT lt_bkpf BY BUKRS BELNR GJAHR.
SORT lt_bseg BY BUKRS BELNR GJAHR.
LOOP AT lt_bkpf INTO ls_bkpf.
READ TABLE lt_bseg TRANSPORTING NO FIELDS WITH KEY
BUKRS = ls_bkpf-BUKRS
BELNR = ls_bkpf-BELNR
GJAHR = ls_bkpf-GJAHR BINARY SEARCH.
CHECK sy-subrc = 0.
LOOP AT lt_bseg INTO ls_bseg FROM sy-tabix.
lv_counter = lv_counter + 1.
* kodlar *
AT END OF GJAHR.
EXIT.
ENDAT.
ENDLOOP.
ENDLOOP.

******* Sonradan gelen edit

Bunu da kendim test ederken buldum, üsttekinden biraz hızlı ama pointer mantığından biraz yavaş sonuç veriyor fakat yine de güzel :=).

LOOP AT lt_bkpf INTO ls_bkpf.
LOOP AT lt_bseg INTO ls_bseg FROM w_index.

IF ls_bseg-belnr NE ls_bkpf-belnr or
ls_bseg-bukrs ne ls_bkpf-bukrs or
ls_bseg-gjahr ne ls_bkpf-gjahr.

w_index = sy-tabix.
EXIT.
else.
* kodlar *
lv_counter = lv_counter + 1.
ENDIF.
ENDLOOP.
endloop.

******* *************************************

field symbol kullanarak (C de ki pointer mantığı) performansı biraz daha artırabiliriz.

SORT lt_bkpf BY BUKRS BELNR GJAHR.
SORT lt_bseg BY BUKRS BELNR GJAHR.
LOOP AT lt_bkpf ASSIGNING <ls_bkpf>
READ TABLE lt_bseg TRANSPORTING NO FIELDS WITH KEY
BUKRS = <ls_bkpf>-BUKRS
BELNR = <ls_bkpf>-BELNR
GJAHR = <ls_bkpf>-GJAHR BINARY SEARCH.
CHECK sy-subrc = 0.
LOOP AT lt_bseg ASSIGNING <ls_bseg> FROM sy-tabix.
lv_counter = lv_counter + 1.
** kodlar **
AT END OF GJAHR.
EXIT.
ENDAT.
ENDLOOP.
ENDLOOP.

kaynak : Ivan Femia.

bitirirken;

Deprem, bizim için "yaşama alışmalıyız" la biten bir cümlenin ilk kelimesidir sadece.Bu günlerde yine sık duyar olduk bu kelimeyi. 17 Ağustos 1999'un deprem görüntüleri geliyor bir yandan, telsiz konuşmaları...
Bu topraklarda çabuk unutulur acı, kederli bir mecburettir sanki acıyı unutmak. Ya o acıyı birinci dereceden yaşayanlar ? Bingöl depreminde ki Anneler mesela ?
İnsan aslında ölür değil mi, çocuğu ölünce?
Unutulmuş olamaz; yatılı okuldan öğrencilerin tabutlarla dağılışı. Bir gece, uykusunda çocukların dağılıveren bir okul binasının altında kalışı, unutulmuş olamaz.

Parasız yatılı başka bir şeydir Doğu'da. Ben görmüştüm, Diyarbakır'da anneler çocuklarını alıp getirip yalvarırlar; "Benimkini de alın okula!", ağlarlar. çünkü, karnı doysun diye. Bu bahtsız topraktan kurtulsun, adam olsun diye. Gelecek kış veremden, sonraki yaz sarılıktan ölmesin diye. Çocuklar giderler. Parasızlıktan ailelerini aylarca görmeye gelemezler. Evlerine döndüklerinde fiyaka yapmak için mahallede birazcık okul formasıyla gezerler. Okulda dayağın en beterini yeseler de, geceleri korkup altlarına etseler de, annelerini çok özleseler de ağızlarını açıp tek bir kelime etmezler. Çünkü onlar, bu toprakların "şanslı" çocukları olduklarını bilirler. Başka "kurtulma" şansları yoktur, sonbahar gelince tıpış tıpış yeniden okula giderler. Ayakkabılarının önleri açılsa da aylarca bunu kimseye söyleyemezler. İncecik enselerinden bir ağır hayat geçer, hiç ses etmezler. Oralarda çocuklar müthiş erken büyürler. Kocaman gözlerinde büyük adamların efkârını gezdirirler. Buralardakiler bunu pek bilmezler.
Belki de bu yüzden çocuklara bol duran isimleri verirler buralarda. Şehabettin, Abdullah, Tacettin... Belki de, öldüklerinde, çocuk oldukları iyice tınlamasın kalanların kulağında diye "amca" isimleri takıyorlar bebeklere!

Siz hiç ölü çocuk gördünüz mü? Tıpkı ölü kuşlara benzerler. Dünyanın en yumuşak şeyidir ölü serçeler, ürkütücü yumuşaktırlar. Artık hiç telaşlı değildirler, göz kapakları bu yüzden ilk kez görünürler. ölü çocuklar da öyledir. Gördünüz mü hiç bilmem, ilk toprağı babaları atar üzerlerine. çocuğunuzun üzerine toprak attığınızı bir kez içinizden geçirsenize...

Yazı; parasız yatılı başka birşeydir doğuda kısmından itibaren Ece Temelkuran'ın çeşitli yazılarını harmanlayarak yazılmıştır.

Bingöl ile başladık şiirimiz de Bingöl ile alakalı olsun;
Kemalettin Kamu'nun Bingöl çobanları isimli şiirinden;

...Anam bir yaz gecesi doğurmuş beni burda
Bu çamlıkta söylemiş son sözlerini babam
Şu karşıki bayırda verdim kuzuyu kurda
"Suna"mın başka köye gelin gittiği akşam...

ABAP : En kisa yoldan ALV gosterimi

2009-08-01T20:04:00.007+03:00

Bir ay boyunca yaz okuluyla uğraştık, bloga yazamadık artık vakit geldi :=) .

Bu yazıda, en kısa kodla alv gösterme işlemine değinelim.

Burada OO ABAP'ın nimetlerinden yararlanıyoruz ve nimet demişken, OO ABAP'ı üç kere öpüp başımıza koyuyoruz.

Yakında Horst Keller, ki kendisi ABAP OBJECTS kitabının yazarıdır, abimizden ; OO ABAP için 7 altın kural isimli yazının özetini yayınlıyacağım zira 70 sayfalık bir yazı, kaynağınıda vereceğim isteyen hepsini okusun. OO ABAP'ı gördükçe "biz ne saçlamıyoruz böyle" diyeceksiniz.

Gelelim kodlara;

report z_gostert.
data: o_alv type ref to cl_gui_alv_grid,
gt_bkpf type table of bkpf.
select * from bkpf into table gt_bkpf up to 10 rows.

* ALV objesini yaratıyoruz, burada dikkat etmemiz nokta
* screen0 ı göndermek.
create object o_alv
exporting
i_parent = cl_gui_container=>screen0.

* Structure'a göre otomatik olarak fcat'imiz oluşacaktır

call method o_alv->set_table_for_first_display
exporting
i_structure_name = 'BKPF'
changing
it_outtab = gt_bkpf.

* ALV nin gösterileceği yeni bir selection screen tanımlıyoruz
selection-screen begin of screen 1001.

selection-screen end of screen 1001.

call selection-screen 1001.

diyerek yazımızı "bitirken" bölümü ile bitiriyoruz. Bu sefer edebiyat ile alakalı değil siyaset ile akalı olacak :).

Bitirirken;

Platon'un devlet kitabını şöyle bir karışıtırın.
Sokrates, öğrencileriyle girdiği "lider kim olmalı" tartışmasında, devletin kim tarafından yönetilmesi gerektiği sorusunu sorar öğrencilerine.
Sokrates tabiki devletin filozoflar tarafından yönetilmesi gerektiğini söyler. Öğrencileri hık mık eder,

-Olur mu hocam, felsefeciler biraz deli olur berecemezler,
en akıllılar bile bir süre sonra hizmet edemeyecek hale gelirler.
derler

Sokrates ise suçun filozoflarda değil onları kullanamayanlarda olduğunu söyler.
O zamanlarda, devletin başına erdemli insanlar gelirse, iyi yönetilir diye düşünülüyordu.
Platon aynı kitapta bu liderler için "tanrı o liderlerin mayasına altın katmıştır onlar o yüzden lider olurlar" diye de yazar aynı zamanda. Aslında ta o zamandan kapitalist sisteme de dokundurmuş , o "altın" da şüphesiz , "sermaye" olmalı :). Tabiki bu sermaye lafı Brezilya’daki Lula hükümeti, Bolivya’daki Morales hükümeti , Venezüella'daki Chavez hükümeti gibi ve diğer "gerçek sol" Latin Amerika hükümetleri için pek geçerli değil.
Neyse;
16. yy da Machiavelli yeni bir tanımla ortaya çıktı, bilirsiniz;
"Hükümdar olmak için erdemli bir insan olmaya gerek yoktur, kurnaz olmak kafidir", "İyi özelliklere sahip olmasına gerek yoktur, sadece öyle gözüksün yeter" deyip akabinde siyaseti ve ahlakı birbirinden ayırdı .Başarı gelecekse hertürlü pislik yapılabilir , amaç uğruna herşey mübahtır anlayışını sokarak bir çığır açtı aslında.
Günümüzde de mevcut olan anlayış bu değil mi ? :)

Ülke istediği kadar demokratikleşme girişimlerinde bulunsun istediği kadar "ben değiştim" desin, ahlak ve kültür anlayışını değişmeden, yani mevcut toplumda ki insan modeli değişmeden, bu girişimler ve değişimler hep birer "çaba" veya "geçici başarı" olarak kalacak ve en ufak bir sendelemede diktatörlük vari otoriter yönetime dönme eğilimi gösterecektir.

Edit: Yapamadım; şiir eklemeden duramadım.

Başka türlü bir şey benim istediğim:
Ne ağaca benzer, ne de buluta.
Burası gibi değil gideceğim memleket
Denizi ayrı deniz,
Havası ayrı hava..

Can Yücel'in Değişik isimli şiirinden.

ABAP : Macro - Ayin Son Gunu

2009-06-12T14:31:00.005+03:00

Selamlar,

Ayın son günüyle beraber tarihi hesaplamak için, Last_Day_Of_Month gibi fonksiyonlar mevcuttur, fakat bunu yapmak yerine, ufak bir işlemle ayın son gününü hesaplayabiliriz.

Yapacağımız şey ;

Elimizdeki tarihin gününü 01 e çekmek, arkasından 31 eklemek, günü tekrar 1'e çekmek ve daha sonra 1 çıkarmak :)

bu ufak işlemle o ayın son günüyle beraber tarihe ulaşmış oluruz.

Makroya gelince;

DEFINE SON_GUN.
&1+6(2) = '01'.
&1 = &1 + 31.
&1+6(2) = '01'.
&1 = &1 - 1.
END-OF-DEFINITION.

data:
lv_tarih type d.

lv_tarih = sy-datum.
son_gun lv_tarih.

Bitirirken;

Bir önceki yazımda yazdığım Hakkari ile ilgili yazıya devam edelim ;
Zeydan Kurtuluş; her santimine bolca kar, bolca yağmur ve bolca ağıt düşen Hakkari'yi ve Hakkari'nin çocuklarını bakın nasıl tanımlıyor.

Hiçbir gün öylesine yaşanmaz Hakkari'de… İnsan hakkı değil, zorunluluktur çalışmak. Kimse yalnızca kadın, erkek ya da çocuk değildir... Çobandır, korucudur, çiftçidir, öğretmendir.. Avcıdır, yolcudur yeri geldiğinde.. Yaylaya çıkılacak, dağlara tırmanılacak, sürüler korunacaktır… Küçük kardeşlere bakılacak, tezekler kışa hazırlanacak, koyunlar kırkılacak , koyunlar-keçiler sağılacak , köprüler geçilecektir her gün, yine yine yine… Uzak hayaller, yakın dertlerle daha da uzaklaşsa da bu kentte, söğüt yaprağıyla ıslık çalmayı, can simidine dönüşen pet şişelerle Zap Suyunda yüzmeyi, iki direği, bir parça toprağı futbol sahasına çevirmeyi, hayata gol atmayı bilir çocuklar..

ABAP : Makrolar

2009-06-11T14:05:00.003+03:00

Selamlar, makroların ne olduğunu anlatmaya gerek yok sanırım her programlama dilinde nerdeyse aynı şeyleri yapıyorlar.

ABAP'ta makrolara gelince ;

REPORT ZMAKRO.

DATA: sonuc TYPE I,
deger1 TYPE I VALUE 1,
deger2 TYPE I VALUE 2.

DEFINE ISLEM.
SONUC = &1 &2 &3.
CIKTI &1 &2 &3 SONUC.
END-OF-DEFINITION.

DEFINE CIKTI.
WRITE: / 'SONUC &1 &2 &3 =', &4.
END-OF-DEFINITION.

ISLEM 1 + 2.
ISLEM 3 ** 4.
ISLEM deger2 - deger1.

Programı çalıştırdığımızda sonuçlardan zaten nasıl çalıştığını göreceğiz.

Örneğin ISLEM makrosu, 1. , 2.ve 3. parametreyi alarak SONUC için işleme tabi tutuyor . CIKTI isimli makro ise SONUC'u da alarak ayrı bir işleme tabi tutuyor ve ekrana yazdırıyor.

Şöyle bir çıktı olacaktır.

SONUC 1 + 2 = 3
SONUC 3 ** 4 = 81
SONUC DEGER2 - DEGER1 = 1

Bitirirken; yine bir konuya değinelim;

TRT1 de "Gönlümün Sağ Alt Köşesi" isimli bir belgesel vardı; Hakkari belgeseli.

Kurtuluş Zeydan , yani yapımcısı, şunları söylemişti yapıtı için, ne de güzel söylemiş :).

"Bizler, karayolları haritasını ikiye katlayıp, yaz tatillerine, kayak keyiflerine çıkarken, 'Wellcome Bodrum, wellcome Uludağ'larla karşılanırken, 'Hoşça kal' dediğimiz topraklar vardır, haritanın diğer yanında. Şova dönüşmeyen sessiz acıların, gösterişten uzak coşkuların, kader sanılanak doğan çocukların, inceldiği yerden kopan hayatların, ikisi bir araya gelmeyen yakaların, yine de başı dik, alnı açık insanların kentidir Hakkari… Her santimine bolca kar, bolca yağmur ve bolca ağıt düşen Sağ Alt Köşesidir Gönlümün...

SQL : Job History Goruntuleme

2009-06-11T13:00:00.007+03:00

Selamlar,
Job histroy'i hızlı görüntüleme için ufak bir script buldum bir blog sitesinde :=) oradan alaraktan buraya yazıyorum zira benimde işime epey yarayacaktır. Adamın yazdığına göre kendiside bir yerden almış bir proje esnasında :=). Kaynak anonim oluyor yani. Halk dilinde söylenir dururmuş bu script, söyleyeni belli olmayan türküler gibi.

select job_name, run_datetime, run_duration
from
(
select job_name, DATEADD(hh, -7, run_datetime) as run_datetime,
SUBSTRING(run_duration, 1, 2) + ':' + SUBSTRING(run_duration, 3, 2) + ':' +
SUBSTRING(run_duration, 5, 2) AS run_duration
from
(
select DISTINCT
j.name as job_name,
run_datetime = CONVERT(DATETIME, RTRIM(run_date)) +
(run_time * 9 + run_time % 10000 * 6 + run_time % 100 * 10) / 216e4,
run_duration = RIGHT('000000' + CONVERT(varchar(6), run_duration), 6)
from msdb..sysjobhistory h
inner join msdb..sysjobs j
on h.job_id = j.job_id
) t
) t
order by job_name, run_datetime

Bitirirken Tatar Ramazan'dan bahsedelim, Tatar Ramazan'ı bilirsiniz :=) . Onu Türk öykücülüğüne kazandıran Kerim Korcan'dır.

Kendisi o kitap için;

“Ben üniversite kürsülerinde vatandaşların hak ve hukuk eşitliği için ağlayan ama içeride insanların anasını ağlatan adaleti, tekmil ters uygulamalarıyla mahpushanede cürmü meşut ettim, suçüstü yakaladım. Madem ki adalet mülkün temelidir, ben de toplum sorunlarına, başlangıç olarak oradan yaklaşmayı uygun buldum.

diye bahseder.

Tatar Ramazan, Türk öykücülüğünün en çıplak gerçekçi kahramanı olduğu gibi; Doğulu yaşam biçiminin, mertliğin ve cesaretin, onurun ve ozanlığın, zulme karşı direncin ve başkaldırının da ender kişiliklerindendir.

Mehmet Altun ise kitap için gayet yerinde bir tespit yapar;

"İnce Memed" in sıska bedeni ve esmer yüzü Torosların zulmüne nasıl başkaldırıyorsa; "Tatar Ramazan" ın sarı saçları, çakmak gözleri ve geniş omzuna yüklediği anlamlı isyanı da mahpusluğun zulmüne o denli başkaldırıyor.
Mehmet Altun

ABAP : Selection Screen Toolbar'ina Buton Ekleme

2009-06-11T11:01:00.004+03:00

Selamlar,

Selection screenimizde, execute tuşunun yanına eğer kendi butonumuzu koymak ve başka işlemler yaptırmak istiyorsak, çok kısa bir işlem yapmamız gerekli;

gerekli table

parametresini yazalım.

TABLES: sscrfields.

butonda gözükecek texti tanımlayalım

INITIALIZATION.
MOVE 'buton 1' TO sscrfields-functxt_0n."

n burada 1 den 5 e kadar olabilir.

arkasından bunu ekleyelim,

SELECTION-SCREEN FUNCTION KEY n.

butona basınca düşeceği eventi tanımlayalım;

AT SELECTION-SCREEN.
IF sy-ucomm = 'FC0n'." <<<
....
ENDIF.

Bitirirken; Machbet'ten bir alıntı yapalım;

Machbet'in ağzından Lady Machbet öldüğünde dökülen sözler ;

Yarın...Yine yarın...Yine yarın...
Sürüklenip gidiyor böyle bu boş bu yaşam,
Kayıtlı zamanın son hecesine kadar...
Yaşam dediğin yürüyen bir gölge,
Bir garip oyuncu;
Bir hışım sahnede dolanıp boy gösteriyor;
Sonra haber çıkmıyor zavallıdan.
Yaşam bir masal; kaçığın birinin anlattığı .
Şamata ve öfke dolu baştan başa;
Hiçbir anlamı yok.

William Shakespeare büyük adam valla.

ABAP : iki tarih arasi farki saat cinsinden hesaplama

2009-06-09T14:18:00.004+03:00

Selamlar, bu ara epey yazı yazmaya başladım malum okul bitti,

neyse;

az önce ihtiyacım olduğu ve yaptıktan sonra hem bana daha sonra hem de size yardımcı olacağından iki tarih arasında ki saat farkını şöyle hesaplarız;

DATA: l_basla TYPE t,
l_bit TYPE t,
l_baslangic_tarihi TYPE d,
l_bitis_tarihi TYPE d,
l_saat TYPE p DECIMALS 2.

l_basla = p_starttime.
l_bit = p_endtime.
l_baslangic_tarihi = p_bas.
l_bitis_tarihi = p_bit.

l_saat = ( ( l_bitis_tarihi - l_baslangic_tarihi ) * 24
+ ( l_bit - l_basla ) / 3600 ).

Bitirirken, Kral Lear'da ki meşhur Piç Edmund'un tiratından bir kısım yazalım;

Tiratlar Kral Lear /EdmundEDMUND :
Ey tabiat! Benim tanrım sensin! Ben senin kanunlarına kul köleyim...
...Hele şumektup istediğim tesiri yapsın, hele yalanım muvaffak olsun, piç Edmund meşru Edgar'ı nasıl altedermiş, o zaman görürüz. Büyüyorum artık... Yükseliyorum. Hadi tanrılar, koruyun piçleri!

ABAP : Debugging

2009-06-09T11:49:00.003+03:00

Selamlar, debuglamanın ne olduğunu anlatmaya gerek yok heralde, zaten rapor düzeltirken epey haşır neşir olacaksınız. Debuga başlamak için normalde transaction yerine /h yazılıp enter'a basılır ve ne işlem yapılacaksa devam edilir ve debuga düşülür. /h nin dışında ufak tefek farklı kodlar da vardır. Şöyle ki ;

"/h" en genel debuglama kodu
"/hs" sistem ve dynpro debuglama
"/ha" sadece abap debuglama
"/hx" debugu bitirme.

Evet bu kadar.

Çok kısa olduğu için bu yazı, bir şiirle bitirme gereği duymuyorum ama kısa birşey alıntılayım.

Orhan Veli rakıyı çok severmiş hatta bu "rakı şişesinde balık olsam" mısralarını da o sebepten yazmıştır diye düşünüyorum :).

Neyse;

...Orhan Veli, rakısına çok değer verirdi; Nazım Hikmet için açlık grevine girdiğimiz günlerde, avare avare dolaşırken bana demişti ki, "Rakı yok, meze yok, dolaş babam dolaş". Bir gün de Oktay Rifat, çok içtiği için Orhan Veli'yi uyaracak olmuş, "Böyle içersen, sonra kadınla yatamazsın" demiş; Orhan da elindeki kadehi göstererek, "Ya bu daha güzelse?" diye yanıtlamış onu...

Melih Cevdet

ABAP : Webservis yaratma

2009-06-08T21:05:00.008+03:00

Selamlar,

Webservis yaratma konusunda epey mail aldım ve sonunda resimli olarak anlatan bir yazı yazmaya karar verdim :).

Webservis candır efendim, hertürlü heryerden ulaşılabilir, baba yarısıdır. Kullanın , kullandırtın. İnsanı mutlu eder.

Orhan Veli'nin dediği gibi "bir de rakı şişesinde balık olsam" diyesi gelir insanın .

Gelelim, webservis yaratmaya,

buyrunuz resimli anlatım aşağıdadır.

SE37 ye gidip bir fonksiyon yaratıyoruz.

RFC olmasına DİKKAT EDİYORUZ.

PASS VALUE kısmını tıklıyoruz

Kodumuzu yazıyoruz ve aktive etmeyi unutmuyoruz

SE80'den gidip packagemizi buluyoruz ve sağ tıklayıp menülere ulaşıyoruz.

Function modul olarka yaratıyoruz.

Az önce yarattığımız fonksiyonun adını veriyoruz.

Release tıkını atıyoruz, attıktan sonra kendi aktif edecektir, yok olmaz ise WSCONFIG ve WSADMIN gerekli aktivasyon işlemlerini yapabiliriz.

WSADMIN i açıyoruz

Fonksiyonumuzu buluyoruz

WEB SERVICE > WSDL yi seçiyoruz

Devam..

SAP kullancı adı ve şifremizi giriyoruz.

Gördüğümüz üzere WSDL hali karşımıza geldi, şifre sormasını istemiyorsak programımızdan çağırırken, Credentials ayarlarını setlemeyi unutmuyoruz :=) .
Hadi kolay gelsin.

Yazımızı bir Orhan Veli şiiri ile bitirelim.

DEDİKODU

Kim söylemiş beni
Süheyla'ya vurulmuşum diye?
Kim görmüş, ama kim,
Eleni'yi öptüğümü,
Yüksek kaldırımda, güpe gündüz?
Melahat'i almışım da sonra
Alemdara gitmişim, öyle mi?
Onu sonra anlatırım, fakat
Kimin bacağını sıkmışım tramvayda?
Güya bir de Galataya dadanmışız;
Kafaları çekip çekip
Orada alıyormuşuz soluğu;
Geç bunları, anam babam, geç;
Geç bunları bir kalem;
Bilirim ben yaptığımı.
Ya o, Mualla'yı sandala atıp,
Ruhumda hicranını söyletme hikayesi?

Orhan Veli

SQL : T-SQL ile text dosyasi okuma

2009-06-07T23:45:00.006+03:00

Selamlar,
Bir prosedürün içinden bir text dosyasına ulaşmanız gerekebilir. Genellikle, bir yerden okunan verileri windows service ile yazdığınız dizinden okumanız gerekebilir (bana gerekti ordan biliyorum).
Onun içinde yapmanız gereken;

declare @o int, @f int, @t int, @ret int
declare @line varchar(8000)
exec sp_oacreate 'scripting.filesystemobject', @o out
exec sp_oamethod @o, 'opentextfile', @f out, 'c:\deneme.txt', 1
exec @ret = sp_oamethod @f, 'readline', @line out
while( @ret = 0 )
begin
print @line
exec @ret = sp_oamethod @f, 'readline', @line out end

Hadi kolay gelsin.
Bir Yelda Karataş şiiriyle bitireyim ya da özgeçmişi mi demeli..

YELDA KARATAŞ

Zonguldak’ta doğdu.
Denizi ve defne kokusunu unutamıyor.
Ellerine ve gökyüzüne inanmayı yatılı okulda öğrendi.
Bütün çocukları seviyor, bütün renkleri…
Ama bütün insanları asla!
Bu nedenle, şarkı sözü, deneme yazıyor.
Bu nedenle bazı filmlere ağlıyor, bazı müziklerde
Tüyleri diken diken…
Bu nedenle şiir yazıyor.
O’nun ilk kitabı bu.

Kalın olarak yazdığım kısım ne güzel de olmuş.

SQL : Hangi Prosedur Hangi Tabloyu Kullanmis

2009-06-07T23:42:00.003+03:00

Selamlar,
Mevcut veritabanınızda bir tabloda değişiklik yapmak istediğiniz, hangi prosedürlerin etkilenebileceğini görmek için kağıtla kalemle uğraşmaya, hangi tablo hangi prosedürü kullanıyor tarzında dökümantasyoncuklar yapmak yerine, basit bir sorgu ile hangi tablonuz hangi prosedürlerde geçmiş şöyle öğrenebilirsiniz;

SELECT o.name, t.TABLE_NAME, c.text
FROM syscomments c
JOIN sysobjects o
ON c.id = o.id
JOIN INFORMATION_SCHEMA.Tables t
ON c.text LIKE '%'+t.TABLE_NAME+'%' and
table_name = 'tablo_adı'

ABAP : SPOOL TO PDF Convert ve Download

2009-06-04T10:44:00.003+03:00

Selamlar,

Bir çıktıyı PDF e dönüştürmenin çeşitli yöntemleri mevcuttur. Bunlar;

-Spool numarasının direk PDF e dönüştürmek

-Çıktının OTF 'sini alarak PDF e dönüştürmek.

Benim anlatacağım direk spool numarasından PDF e dönüştürme metodudur.

Hatta arkasından dönüşmüş PDF'i de bilgisayara kaydetmeyi göstereceğim :=).
Arkasından da gaymaklı ekmek gadayıfı eheh.

* Spool to PDF conversions

data: gd_spool_nr like tsp01-rqident,

gd_destination like rlgrap-filename,

gd_bytecount like tst01-dsize,

gd_buffer type string.

data : it_pdf_output like tline occurs 0 with header line.

data: numbytes type i,

pdfspoolid like tsp01-rqident,

it_mess_att like solisti1 occurs 0 with header line.

data:

p_padest like tsp03-padest.

p_padest = 'ZHP2'.

call function 'CONVERT_OTFSPOOLJOB_2_PDF'

exporting

src_spoolid = gd_spool_nr "buraya spool numarasını yazıyoruz

dst_device = p_padest

importing

pdf_bytecount = numbytes

pdf_spoolid = pdfspoolid

tables

pdf = it_pdf_output

exceptions

err_no_otf_spooljob = 1

others = 12.

*--- DOWNLOAD TO PC {bu form için kerem köseoğlu'na teşekkür ediyoruz }

data:

p_file like rlgrap-filename .

data cancel.

p_file = 'C:\temp\file.pdf'.

perform download_w_ext tables it_pdf_output

using p_file

'.pdf'

'BIN'

numbytes

cancel.

FORM download_w_ext

TABLES datatab

USING

filename LIKE rlgrap-filename

value(extension) TYPE c

mode TYPE c

bin_filesize TYPE i

cancel TYPE c.

DATA: name TYPE string,

path TYPE string,

fullpath TYPE string,

ext TYPE string,

filter TYPE string,

size TYPE i,

uact TYPE i.

IF mode <> 'ASC' AND mode <> 'BIN'.

sy-subrc = 1. EXIT.

ENDIF.

CLEAR cancel.

ext = extension.

IF ext(1) = '.'.

SHIFT ext.

ENDIF.

name = filename.

IF name IS INITIAL.

name = 'test.*'.

REPLACE '$' WITH ext INTO name.

ELSEIF name NA '.'. "name has no extension, add ext

CONCATENATE name '.' ext INTO name.

ENDIF.

filter = '(*.$)|*.$|'.

REPLACE '$' WITH ext INTO filter.

fullpath = name.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

bin_filesize = bin_filesize

filename = fullpath

filetype = mode

TABLES

data_tab = datatab

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6.

filename = fullpath.

ENDFORM. "download_w_ext

.NET : Globalization Ayarlari

2009-06-04T10:35:00.008+03:00

Selamlar,

Geliştirdiğiniz windows uygulamasında, eğer Globalization ayarlarının manuel olarak ayarlanmasını ve heryerde aynı olmasını istiyorsanız yapacağız işlem çok basit. Program.cs nin içersiğinde birazdan vereceğim kodları yapıştırmanız yeterli :=).

Aksi halde, Globalization ayarlarına dikkat etmeden yazdığınız programda veri girişleri kendi bilgisayarınızda farklı iken müşterinin bilgisayarında farklı olacaktır. Örneğin ondalık ayırımı bizde farklı iken en-US Globalization ayarlarında farklı olmaktadır.

Program.cs de;

using System.Globalization;

import ettikten sonra,

[STAThread]

static void Main()

içine;

   CultureInfo c = new System.Globalization.CultureInfo("en-GB");
   System.Threading.Thread.CurrentThread.CurrentCulture = c;
   System.Threading.Thread.CurrentThread.CurrentUICulture = c;

yazmanız yeterlidir.

Hadi kolay gelsin iyi çalışmalar. :=)

SQL : An INSERT EXEC statement cannot be nested.

2009-05-29T09:25:00.006+03:00

vaeeeey okuyucular selam :=)
yine bir sorunla karşı karşıyayız,
malum MSSQL de uzun prosedürler yazarken, ayak işlerini başka prosedürlere yaptırmamız gerekebiliyor. Fakat , iç içe çağırdığınız prosedürlerde, eğer çağırdığınız prosedür başka bir prosedür çağırıyor ve bir #temp tabloya veri sokuyorsa ve sizin çağırdığınız prosedürde kendi içinde veri sokuyorsa, ve sizde son prosedürde bir temp tabloya veri sokuyorsanız (tamam biraz karışık oldu ).
An INSERT EXEC statement cannot be nested.

diye bir hata verecektir.
Çözümü de GLOBAL TEMP TABLE kullanmaktır,
Bazı sitelerden OPENROWSET gibi abidik gubidik, sorgu sırasında dahi SQL bağlantısı açan, uzun karışık yöntemler mevcuttur,
boşverin onları gülün geçin "hmm fevkalede" gibi yapmacık tepkiler verip uzaklaşın ordan :).

Nedir peki GLOBAL TEMP TABLE ;
Küreselleşen dünyada ki küreselleşmiş temp table yani;
efendim normalde tanımlarken #temp yazmıyor muyuz?
bunda sadece ##temp yazacağız, o kadar :=).
Yani arasında ki fark, rakıyı tek içmekle duble içmek arasında ki fark kadar.

Yani çağırdığımız prosedürlerden birinin sonucunu global temp tabloya atacağız ve son prosedürden çağırma işlemini ve arkasından drop işlemini yapacağız. Normalde temp tablolar prosedürle işiniz bitince otomatik droplanırken, bunda bağlantı kapanınca droplanıyor, siz her ihtimale karşı işiniz bitince drop edin :)

Örnek; (benim örneğim değil, kendimin ki baya uzun )

create proc test1
as

select orderid, customerid, employeeid from ##temp2

go
create proc test2
as
create table ##temp2 (orderid int ,
customerid char(5), employeeid int)

insert into ##temp2 exec test3
go

create proc test3
as
select top 100 orderid, customerid,
employeeid from orders
go

exec test2
exec test1

go
drop proc test1, test2, test3
drop table ##temp2
go

----

Son söz ;
Ainesi iştir prosedürün, koda bakılmaz.

ABAP : Smartform'da pencereyi son nesne olarka ayarlama

2009-05-02T14:50:00.003+03:00

Merhabalar,

Smartform'da yaratılan bir pencerenin son nesne olarak gelmesi,

yani 5 sayfalık bir çıktıda 5. sayfanın sonunda gelmesi yada 1 sayfalık bir çıktıda, sayfanın sonunda gelmesi için yapmanız gereken, pencerenin koşullar sekmesinde

"yalnızca ana pencerenin sonundan sonra" ve "yalnızca bölümün sonunda" seçeneğini tıklamaktır.

Vay efendim son nesne olarak çıktı ama 2 sayfalık çıktılarda ikisinde de çıktı sorunu veya

son nesne oldu ama sadece ilk sayfada çıktı sorunu yok artık ,

sonra vay ben duymadım vay ben görmedim demeyin.

Piyonları doğru yere koyun hadi iyi çalışmalar.

ABAP : SAP NETWEAVER 7.0 ABAP TRIAL VERSION

2009-04-23T23:05:00.004+03:00

Merhabalar, sap netweaver 7.0-7.1 abap trial version kurulumu ile ilgili bazı mailler alıyorum, özellikle hata aldıkları

ve kurulumu yapamadıkları yönünde. Karşınıza muhtemelen;

WARNING:could not delete temporary file C:\DOCUME~1\pc\LOCALS~1\Temp\ismp003\4410326

gibi hatalar çıkmaktadır. Bu hata tamamen JAVA'dan kaynaklı bir sorundur. Düzeltmek için yapmanız gerekenler, "Regional Settings / Bölgesel Ayarlar" dan , ayarları Turkish ya da Türkçe den, English ya da İngilizce'ye çekmektir.
Bunu JAVA neden yapıyor bilmiyorum ama bu sorun JAVA tabanlı bir çok yazılımda karşımıza çıkmaktadır. Örneğin, Adobe Flex ile kodlarınızı derlerken veya bazı oyunlarda :) sorun olarak karşımıza çıkmakta saç baş yoldurmaktadır.

Hadi iyi çalışmalar, piyonları doğru yere koyun akıllı oynayın.

ABAP : ALV validasyonu, IS_VALID ?

2009-04-21T09:18:00.005+03:00

Merhabalar,
Değiştirilebilir hücrelerin olduğu bir ALV de, ekrana girilen değerler uygun mu değil mi diye kontrol etmek için CHECK_CHANGED_DATA metodu ile kullanacağımız bir parametre mevcut, E_VALID parametresi.
Örneğin, sayı alanına text girip bir butona basarsanız ALV otomatik olarak size hata loglarının olduğu bir popup çıkaracaktır. Fakat PAI metodları çalışmaya devam edecektir. Yani sizin koyduğunuz bir butonun arkasında bir PERFORM mevcut ise, hataya rağmen çalışacaktır. Bunu engellemek için ekranda butona basıldıktan sonra, değiştirilebilir hücrelerde ki değerleri almak için kullandığımız CHECK_CHANGED_DATA metodundan bir parametre daha alıyoruz. IS_VALID parametresi.

Eğer ALV de ki değerler uygun ise, size X değilse boş döndürecektir. Örnek olarak;

******************************************************
DATA : lv_valid .

CLEAR lv_valid .

CALL METHOD alv_grid->check_changed_data
IMPORTING
e_valid = lv_valid.

** giriş geçerli ise
IF lv_valid = 'X' .

ENDIF .
******************************************************
Uğur Özdemir'euradan 100 puan veriyoruz, zira birde ALV classının içinde IS_VALID var ki tek başına niye çalışmıyor diye tüm günümü yedi. CHECK_CHANGED_DATA'da ki E_VALID imdadıma yetişti.

Ayrıca buradan kodları çalıp kendi sitesinde kendi yapmış gibi gösteren, sonra çıkıp "buradan çalıp başka yerlerde kullanıyorlar" diyen kişiler; dombilidir , taocudur, ver kurtulcudur, öyledir böyledir, atari salonlarında ki "ver gülüm geçiyim daha çok oynarsın" diyenlerdendir, çocukların topunu kesen amca ruhludur.

ABAP : Selection Screen Variant Secimi

2009-04-14T10:27:00.002+03:00

Selamlar, uzun süredir yazamıyordum çünkü yazamıyordum :=), bu aralar after effects ile videolara görsel efekt ekleme işine sardım. Neyse, gelelim variant seçimine.
ALV'de kaydedilen variantları selection screen içinden seçip direk olarak seçtiğimiz düzenin yani variantın gelmesini istiyorsak çok kısa bir işlem yapmamız gerekecektir.
Öncelikle, seçim ekranında ki parametremizi tanımlayalım.

TYPE-POOLS: SLIS.

PARAMETERS : p_vari TYPE slis_vari.

ALV'ye göndereceğimiz parametreyi tanımlayalım. (Ekrandan seçtiğimiz varianti ALV'de kullanabilmek için)

DATA:
IS_VARIANT LIKE DISVARIANT.

Daha sonra raporumuza ait variantları getirmesi için bir fonksiyon çağırmamız gerekiyor. Öncelikle seçim ekranında ilgili parametremiz için F4 tuşuna basılınca çalışacak formları yaratalım.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM ALV_VARIANT_F4 CHANGING P_VARI.

START-OF-SELECTION.
.
.
.
END-OF-SELECTION.

Formu yazalım.

FORM ALV_VARIANT_F4 CHANGING PA_VARI.
DATA: RS_VARIANT LIKE DISVARIANT.

RS_VARIANT-REPORT = sy-repid.
RS_VARIANT-USERNAME = SY-UNAME.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
EXPORTING
IS_VARIANT = RS_VARIANT
I_SAVE = 'A'
IMPORTING
ES_VARIANT = RS_VARIANT
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC = 0.
PA_VARI = RS_VARIANT-VARIANT.
ENDIF.
ENDFORM. "alv_variant_f4

İşlemler bittikten sonra, ALV'yi çağıran formumuzun içinde

is_variant-variant = p_vari.

yazmamız gerekecektir. Bu , ekrandan seçtiğimiz variantı, is_variant değişkenine atacaktır.
ALV'yi çağıran fonksiyonumuzda diğer parametlerin yanında IS_VARIANT değişkenini de gönderdiğimiz zaman, ekrandan seçilen variantın direk ALV'ye atandığını ve raporun ona göre geldiğini göreceğiz :=).

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
.
.
.
IS_VARIANT = IS_VARIANT
TABLES
.
.
.

Deveye sormuşlar boynun niye eğri diye, artık o konuyla ilgili gündeme gelmek istemiyorum demiş.
Evet sevgili ABAPçılar sizde iyi bir çocuk olursanız belki şirinleri bile görebilirsiniz :=)

ABAP : Error when opening an RFC connection

2009-01-22T13:37:00.003+02:00

Merhabalar,

Z'li bir programımız eğer içinde bir RFC çalışıyorsa yada remote bir yere istekte bulunuyorsa bunu direk JOB yani artalan tanımladığımızda karşımıza Error when opening an RFC connection hatası gelecektir.

Bunu çözmenin yolu; ilgili fonksiyonun yanına IN BACKGROUND TASK yazmaktır.

Örnek olarak ;

CALL FUNCTION 'HTTP_GET' IN BACKGROUND TASK
    EXPORTING
      ABSOLUTE_URI         = URI
      RFC_DESTINATION      = 'SAPHTTP'
    TABLES
      RESPONSE_ENTITY_BODY = ILINE[]            "BLANKSTOCRLF = '/'
      RESPONSE_HEADERS     = RESPONSE_HEADERS.

Modülcülerle paslı oynayın gol yemeyin, kış geldi bol bol snowboard yapın, kaseye dikkat edin.

ABAP : Internal Table Performans Karsilastirma

2009-01-03T22:27:00.009+02:00

Merhabalar,
Daha önceki yazımda, ITAB ile ilgili teknik bilgiler vermiştim. Bu yazıda ise internal table için performans konularına değineceğim. Öncelikle basit bir program yazıyoruz, tablolara yazma ve okuma zamanları tutan ve ekrana yazan basit bir program.
Aşağıda görüldüğü gibi, STANDARD, SORTED ve HASHED olmak üzere üç tablo tipini de tanımlıyoruz.
Öncelikle ekrandan girilen kadar satırı tablolarımıza yazıyoruz.

Öncelikle, tablolarımızdan okurken WITH TABLE KEY metodunu kullanıyoruz, burada table_line bizim için key bir alan, daha sonra süreleri ekrana yazdırıyoruz.

Aşağıda görüldüğü gibi bu sefer INDEX ile okuyoruz ve okuma sürelerini ekrana yazıyoruz.

Programımızı açıp öncelikle 100 değerini giriyoruz ve 100 kayıt için yazma ve okuma değerlerini ekrana yazdırıyoruz.

INSERT değerlerine bakarsak, SORTED table için diğerlerinden biraz fazla olduğunu görebiliriz, çünkü verileri sürekli sıralı tuttuğu için değer girerkende veriyi sırayı bozmadan sokmaya çalışacaktır.

Görüldüğü üzere, With Key metoduyla okurken STANDARD tablonun değerinin bir hayli yüksek olduğu gözümüze çarpmaktadır fakat INDEX yöntemi ile okumaya çalışırsak , okuma hızının çok düşük olduğu yine görülecektir.

Sayıyı 1000 e kadar yükseltiriyoruz ve çalıştır tuşuna basıyoruz.

Diğer değerlerin pek değişmediği fakat STANDARD tablodan WITH TABLE KEY metoduyla okuma değerinin çok fazla yükseldiği yine görülecektir, INDEX ile okuma metodunda değer yine sabit kalmaktadır.

HASH table için okuma değeri yine neredeyse aynıdır, daha önceki yazımda bahsettiğim gibi HASHED tablolarda okuma değerleri kayıt sayısından bağımsızdır.

Sayıyı 5000'e yükseltiyoruz ve tekrar çalıştırıyoruz.

Görüldüğü gibi STANDARD tablodan okuma değerinin çok fazla yükseldiği diğer değerlerin yine çok fazla değişmediği görülür.

Test sonuçlarında, STANDARD tablodan WITH TABLE KEY metoduyla veri okumanın bir facia olduğunu görüyoruz, INDEX ile okuma tekniğinde ise değerin değişmediğini ve gayet hızlı bir biçimde okunduğunu görebiliyoruz. HASHED tablolarda değerin değişmediği yine SORTED tablolarda çok fazla oynama olmadığı basit bir biçimde görülmektedir.
ABAP programlarımızda, ihtiyaçlarımıza göre doğru internal table biçimini seçmek programlarımızı oldukça hızlandıracaktır.

Dikkat edelim çanak çömlek patlamasın.

İyi çalışmalar

Modülcülerle paslı oynayıp gol yememeye çalışın.

Yeni yıl da geldi, temiz kod yazın, yeni bir sayfa açın, kendinizi düzene sokun adam olun akıllı olun.

ABAP : Internal Table tipleri , ozellikleri ve teknik bilgiler

2008-12-26T23:37:00.013+02:00

Merhabalar,
Bu yazıda basit olarak internal table özellikleri, tipleri ve onlara özgü durumları anlatacağım. Daha çok teknik tarafı ile ilgilidir, yani bir ITAB nasıl kullanılır veri nasıl atılır , okunur ve değiştirilebilir yazısı değildir.

Internal tableları index table ve hashed table diye ikiye ayırabiliriz. Yine Index tablelar kendi içinde, standard ve sorted olarak ikiye ayrılır. Hepsinin kendine has özellikleri mevcuttur, veri okuma, yazma, arama hızları hepsinin farklıdır. Yine alanlara ulaşım, tekil kayıtlılık, çok kayıtlılık özellikleri yine hepsinin farklıdır. Bunlara kısa kısa değinmeye çalışacağım.

Standard ve Sortab tablolar için en hızlı ulaşım index ile ulaşımdır. Sorted tablo her zaman verileri sıralanmış olarak tutar ve ulaşım için "binary search" metodunu kullanır. Verilere ulaşım hızı, kayıt sayısına bağlı olmakla birlikte logaritmik bir artış gösterir. Hashed tablolarda ise durum farklıdır, verilere ulaşım sadece anahtar alan ile olur ve kayıt sayısı önemli değildir, sabittir. Hashed tablolarda verilere ulaşım hızını etkileyen faktör key alanın uzunluğudur.

Programlarımızda, DATA diye başlayıp tablo tanımladığımızda tüm özelliklerini, key alanlarını vermemiz gerekir yani bir "complete type definition" yapılması gerekir. Sadece STANDARD TABLE tanımı yapılırken buna gerek yoktur,

Örneğin,

DATA: ITAB type table of struc dediğimizde aslında bu

DATA : ITAB TYPE STANDARD TABLE of struc WITH NON-UNIQUE DEFAULT KEY ile aynı anlama gelmektedir.

HASHED tablolar mutlaka UNIQUE tanımlanmalıdır, SORTED tablolar ise hem UNIQUE hemde NON-UNIQUE tanımlanabilir.

Tabloları okurken, WITH KEY metodu kullanımına dikkat etmemiz gerekir. Çünkü burada herhangi bir alanı kullanabilir, eğer kullandığımız alan gerçekten KEY değilse, o zaman sorted ve hashed tablolara ulaşım hızı standard tablolara ulaşım hızıyla aynı olacaktır ve yavaş olacaktır. Anahtar alanı tanımlanmış tablolarda okuma yapılacaksa, WITH TABLE KEY metodu kullanılmalıdır, eğer KEY alan tanımlanmamışsa ve bu metod kullanılmak istenirse Syntax error hatası görülecektir.

ITAB'larla alakalı bazı teknik bilgilier

- 32 bitlik mimaride, teorik maksimum boyut 2 GB olabilir.
- Pratikte, 500 MB veri tutabilir.
- Tablo başına 4.000.000.000 satır veri tutulabilir.

RAM'inizin yetmediği durumlarda, karşılaşacağınız ABAP hatası ; TSV_TNEW_PAGE_ALLOC_FAILED.

ITAB'ımızın , bellekte ne kadar yer tuttuğunu merak ediyorsak, SETTINGS sekmesinden, table memory display seçeneğini aktif etmemiz gerekir. DEBUG ederken, aşağıdaki gibi ITAB'ın bellekte ne kadar yer kapladığını görmemiz mümkündür.

Bir sonraki yazımda, bu ITAB tiplerinin performanslarını karşılaştıracağız.

iyi çalışmalar.

Attığınız şutlara paslara dikkat edin.

ABAP : Satinalma Siparisi Yaratma

2008-12-20T12:15:00.003+02:00

Satınalma siparişini yaratmak için Batch Input yerine BAPI kullanmak en mantıklı ve en hızlı yoldur.
Dolduracağımız bir kaç ana tablonun dışında tek yapmamız gereken, BAPI_PO_CREATE fonksiyonunu çağırmaktır.
Örnek;

Data: int_pohead like BAPIEKKOC,
int_poitem like BAPIEKPOC occurs 0 with header line,
int_posched like BAPIEKET occurs 0 with header line,
int_ret like BAPIRETURN occurs 0 with header line.
Data: d_purchord like BAPIEKKOC-PO_NUMBER.

Move: 'NB' to int_pohead-DOC_TYPE,
'1000' to int_pohead-PURCH_ORG,
'001' to int_pohead-PUR_GROUP,
'0000001234' to int_pohead-vendor,

'00010' to int_poitem-po_item,
'Material' to int_poitem-material,
'Material' to int_poitem-pur_mat,
'1000' to int_poitem-plant,

'00010' to int_posched-PO_ITEM,
'20080531' to int_posched-DELIV_DATE,
'2' to int_posched-QUANTITY.
* Miktarları he zaman schedule tablolarına giriyoruz
hem Satınalma Siparişi BAPI si için hemde satış siparişi bapileri için.

Append int_poitem.
Clear int_poitem.
APPEND int_posched.
CLEAR int_posched.

CALL FUNCTION 'BAPI_PO_CREATE'
EXPORTING
PO_HEADER = int_pohead
SKIP_ITEMS_WITH_ERROR = ' '
IMPORTING
PURCHASEORDER = d_purchord
TABLES
PO_ITEMS = int_poitem
PO_ITEM_SCHEDULES = int_posched
RETURN = int_ret .

ABAP : POPUP ile ekrandan deger alma

2008-12-16T11:23:00.011+02:00

Rapor ekranımızda, örneğin ALV ekranında bir işlem öncesi bazı değerleri almamız gerekebilir.
Satış siparişi yarattığımızı varsayalım;
ALV de ilgili satır için girilmesi gereken başlık verilerini POPUP ile kullanıcıya sorup rahat bir şekilde gereken değerleri alabiliriz.
Kullanacağımız fonksiyon POPUP_GET_VALUES

Örnek kod:

*Fields tablosunu, ekrana koyacağımız parametreler için kullanıyoruz.

data : fields like sval occurs 0 with header line .

fields-tabname = 'VBAK' .
fields-fieldname = 'AUART' .
fields-field_obl = 'X' .
append fields . clear fields .

fields-tabname = 'VBAK' .
fields-fieldname = 'VKORG' .
fields-field_obl = 'X' .
append fields . clear fields .

fields-tabname = 'VBAK' .
fields-fieldname = 'VTWEG' .
fields-field_obl = 'X' .
append fields . clear fields .

fields-tabname = 'VBAK' .
fields-fieldname = 'SPART' .
fields-field_obl = 'X' .
append fields . clear fields .

call function 'POPUP_GET_VALUES'
exporting
popup_title = 'Ek değerleri giriniz'
start_column = '5'
start_row = '5'
tables
fields = fields[]
exceptions
error_in_fields = 1
others = 2.

* Değerleri okumak için tanımladığımız değişkkenlere, read table
* metoduyla değerlerimizi atarız

if fields[] is not initial.

read table fields with key fieldname = 'AUART' .
gv_auart = fields-value .
read table fields with key fieldname = 'VKORG' .
gv_vkorg = fields-value .
read table fields with key fieldname = 'VTWEG' .
gv_vtweg = fields-value .
read table fields with key fieldname = 'SPART' .
gv_spart = fields-value .
endif.

ABAP : Dinamik Select Sorgusu

2008-11-04T16:45:00.005+02:00

Sorgumuzda ki alanları dinamik olarak oluşturmamız ve select sorgusunu buna göre yapmamız gerekebilir.
Bunun için yapmamız gerken;
stype_fields
tipinde bir tablo yaratmak ve sütun isimlerini içine eklemektir.

Örnek;

TYPES :
BEGIN OF stype_fields,
fieldname TYPE name_feld,
END OF stype_fields

*ITAB ımızı tanımlayalım.
DATA:
gt_itab type standard table of MSEG with header line.

* Dinamik sorgu için kullanacağımız field isimlerinin bulunduğu
* tablo
data : g_t_fields type standard table of stype_fields.

* burada sütun isimlerini kafamıza göre belirliyoruz

append 'MSEG~ANLN1' to g_t_fields.
append 'MSEG~ANLN2' to g_t_fields.
append 'MSEG~APLZL' to g_t_fields.
append 'MSEG~AUFNR' to g_t_fields.
append 'MSEG~AUFPL' to g_t_fields.

* Select sorgumuz

select (g_t_fields)
into corresponding fields of table gt_itab
from MSEG.

İyi çalışmalar & attığınız paslara şutlara dikkat edin. :=)

ABAP : ALV ' de trafik isiklari kullanimi

2008-11-04T10:53:00.003+02:00

ALV ekranında trafik ışıkları kullanımının iki tane yolu vardır. Bu metodlardan en kolayı, ALV çağırırken kullandığımız is_layout parametresini kullanmaktır.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = gt_fcat
is_layout = layout
....
.... Internal table tanımlanırken, trafik ışıklarını göstermemiz için ek bir alan koymamız gerekir;
DATA : layout TYPE slis_layout_alv . "alv grid'in layout parametresi için.
DATA:
begin of gt_itab occurs 0,
icon_field(1) type c,
...
...
...
yapmamız gereken, internal tablomuzda LOOP yapıp, icon_field alanını doldurmaktır.

gt_itab-icon_field = 3. "yeşil ışık
gt_itab-icon_field = 2. "sarı ışık
gt_itab-icon_field = 1. "kırmızı ışık

Daha sonra yapmamız gereken, ALV_GRID i çağırmadan önce,

layout değişkenimiz için;

layout-lights_tabname = 'GT_ITAB'.
layout-lights_fieldname = 'ICON_FIELD'.

değerlerini göndermektir.

ABAP : Submit Report Via Selection Screen

2008-10-11T10:31:00.005+03:00

Bir rapor içerisinden başka bir raporu çağırmak istediğimiz de; yani çağırıp sonucu görüntülemek veya çağırıp ekran değerlerini set etmek istediğimizde kullanmamız gereken metod;

SUBMIT

VIA SELECTION SCREEN

WITH SELECTION-TABLE

AND RETURN.

*programda back tuşuna basıldığında progamdan çıkmayıp ana ekranı görüntülemesi *için RETURN kullanılmalı.

Yukarıda ki kod; raporu çağıracak ekran değerlerini et edecek ve duracaktır. Eğer; SUBMIT edip raporu görüntülemesini istiyorsak ; "VIA SELECTION SCREEN" kısmını kaldırmamız gerekecektir. Böylece, bir raporun içersinden başka bir raporu çağırmış ve raporun çıktısını görüntülemiş oluruz.

kısmı ise, diğer raporun ekranında bulunan seçimleri set etmek için kullanılan tablodur.

DATA:

seltab TYPE TABLE OF rsparams,

seltab_line LIKE LINE OF seltab .

*Örneğin ekranımızda so_tarih isminde bir select-option olsun ve çağıracağımız programda so_date isminde bir select-option olsun;

seltab_line-selname = 'SO_DATE'.

seltab_line-kind = 'S'.

*buradan aşağısı için, tanımladığınız select-option da

*loop yaparak move-corresponding de diyebilirsiniz

seltab_line-sign = 'I'.

seltab_line-option = 'BT'.

seltab_line-low = so_tarih-low.

seltab_line-high = so_tarih-high.

APPEND seltab_line TO seltab.

*Ayarları set ettikten sonra programı çağırmak kalacaktır

SUBMIT rapor_denem_1

VIA SELECTION SCREEN

WITH SELECTION-TABLE seltab

AND RETURN.

Örnek;

SUBMIT RFSSLD00 WITH SD_KTOPL-LOW = P_KTOPL
WITH SD_SAKNR IN S_RACCT
WITH SD_BUKRS-LOW = P_BUKRS
WITH B_MONATE IN S_MONAT
WITH SD_GJAHR-LOW = P_GJAHR
WITH P_ZMIZAN = 'X'
AND RETURN .

İyi çalışmalar & attığınız paslara şutlara dikkat edin.

.NET : Function Grabber

2008-10-01T11:43:00.004+03:00

Merhabalar,
ABAP programcılarının çok işine yarayacağını düşündüğüm Function Grabber'ı yakında buradan yayınlıyacağım. Program şuanda bitmiş durumda , sadece nasıl süslesem diye bakıyorum :).
Program; SAP a bağlanıp ekrana girdiğiniz fonksiyon tüm Import Export ve Table parametrelerini okuyarak, ilgili değişkenleri otomatik olarak tanımlamakta ve isterseniz tabloları dolduracak formlarıda otomatik olarak yazmaktadır. Aşağıya birkaç tane resim ekliyorum bakabilirsiniz.

İyi çalışmalar & Attığınız paslara, şutlara dikkat edin!

.NET : This row already belongs to another table

2008-09-25T12:33:00.001+03:00

.NET'te , elimizdeki iki DATATABLE içinde loop yapıp, birinin değerlerini diğerine atmak istediğimizde;
This row already belongs to another table
gibi bir hata vermektir. Yani;

C#
foreach(DataRow row in dt1.Rows){
    if(......){
        dt2.Rows.Add(row);
    }
}

VB.net
for each row as datarow in dt1.rows
if .... then
dt2.rows.add(row)
endif.
next.

İşlemini yapamamaktayız. Sebebi ise ADD metodunu kullandığımızda, dt1 in referanslarıyla dt2 ye ekleme yapmaya çalışmasıdır.
Burada kullanacağımız metod, datatable nesnesinin IMPORTROW metodudur.

Örnek;

C#
DataTable dt1 = ds.Tables[0];
DataTable dt2 = new DataTable();

dt2 = dt1.Clone();   "sütünların aynı olması için clone şart
foreach(DataRow row in dt1.Rows){
    if(......){
        dt2.ImportRow(row);
    }
}

VB.NET
dim dt1 as datatable = ds.tables(0)
dim dt2 as new datatable

dt2 = dt1.clone
for each row as datarow in dt1.rows
if ..... then
dt2.ImportRow(row)
endif
next

iyi çalışmalar & attığınız şutlara paslara dikkat edin :).

ABAP : En hizli BADI bulma yontemi

2008-09-23T12:48:00.003+03:00

Bir transaction içindeki BADI'leri bulmak için yapacağınız işlem sırasıyla;
SE37 ye gidin,
Fonksiyon adına SXV_GET_CLIF_BY_NAME yazıp içine girin.
Kodun içine bir break-point koyun.
Yeni bir pencere açarak transaction kodunuzu yazın.
Yazıp ENTER tuşuna bastığınızda otomatik olarka break-point'e düşecektir
Burada ki , EXIT_NAME BADI'nin adını verecektir.
Yapacağınız her işlemde buraya düşer ve o transactiondaki işlemlere ait
BADI'leri kolaylıkla bulabilirsiniz.

Kolay gelsin & attığınız paslara şutlara dikkat edin.

.NET : Zula

2008-09-20T14:51:00.005+03:00

İş ve okuldan arta kalan zamanda kodladığım ve paylaşıma yönelik olan ZULA isimli projemi yakında yayına geçiriyorum. Program genel olarak paylaşmaya yönelik olup döküman , kod ya da diğer hertürlü veri paylaşımına uygundur. Bitmesine birkaç satır kodluk zaman kaldı :=).
Tüm işler arkada kullanılan bir webservis ile yürümektedir direk veritabanı ulaşımı olmadığı için hem hızlı hem güvenli olmaktadır. Program aynı zamanda güncel sürümünü internet aracılığıyla kontrol edip, yeni bir sürüm var ise otomatik olarak onu indirmekte ve açılırken en güncel sürümüyle açılmasını sağlamaktadır. Ayrıca yakın bir zamanda, SAP'a direk bağlanıp istediğinz bir programı tüm strucure,include ve diğer Z li ögelerle birlikte indiren bir Report Downloader ve hiç kod yazmadan rapor üretebileceğiniz bir ABAP Generator yayınlıyacağım.
Bir kaç ekran görüntüsünü göstermek gerekirse;

.NET : Unable to find manifest signing certificate in the certificate store.

2008-09-07T21:23:00.002+03:00

Bilgisayarımıza format attıktan sonra veya başka biryerden projemizi kendimize kopyaladığımızda, .NET te yazdığımız windows projelerimizi açıp, build etmek istersek;
"Unable to find manifest signing certificate in the certificate store. "
gibi bir hatayla karşılaşabiliriz.
Bu hata yüzünden projemiz build edilmeyecektir.
Düzeltmek için tek yapmamız gereken, Solution Explorer'dan projemize sağ tıklayıp
oradan Properties sekmesine tıklarız. Açılan pencereden Signing sekmesine gelip
"Create Test Certificate" butonuna tıklarsak, sorunun çözüldüğünü görürüz.

İyi çalışmalar :=)

SQL : Management Studio Kurulumu Sorunu

2008-09-07T15:31:00.003+03:00

SQL 2005 Developer Edition ya da SQL 2005 Enterprise Edition kurarken,
eğer daha öncesinde bir SQL 2005 Express Edition kurulu ise (elle kurduysak
veya Visual Studio kurulumundan gelen bir SQL 2005 Express Edition varsa)
SQL 2005 Developer Edition veya diğerini kurarken, her nekadar Database Service'leri
kurulsada Management Studio'nun kurulmadığını, kurulumu sadece Management Studio'yu kurmak için
tekrar başlattığımızda ise karşımıza;
"The SQL Server 2005 Express Tools are installed. To continue, remove the SQL Server 2005 Express Tools"
gibi bir hatayı verdiğini ve Management Studio kurulmadığını görürüz.
Bunu aşmak için , Visual Studio 2008 i tekrar kaldırsanız veya SQL'i tamamen kaldırsanız ve tekrar kurmaya çalışsanız
yine aynı sorunla karşılacaksınız. Regedit ile oynarak bu sorun çözülse de ;
Bunu aşmak için "Microsft Windows Installer CleanUp Utility" adında bir tool geliştirmiş.

İlgili tool ; http://support.microsoft.com/kb/290301/en-us adresinden indirilebilir.

İndirdikten sonra tek yapmanız gereken, "SQL 2005 Express Edition Tools" sekmesine tıklayıp "Remove" tuşuna basmak.

Tekrar SQL 2005 Developer Edition kurduğumuzda, Management Studio'nun da kurulduğunu göreceğiz.

İyi çalışmalar :=)

ABAP : TRY ENDTRY kullanimi

2008-09-05T14:40:00.005+03:00

Hata yakalama, yazdığımız programın büyüklüğüne göre çok önemli olan bir konudur (aslında her zaman önemlidir ama bakmayın üşeniyoruz :) ). Özellikle ABAP için user-exitleri yazarken veya herhangi bir programımızda hata çıktığında programımızın patlamadan , hataya rağmen çalışmasını istiyorsak TRY ENDTRY bizim için vazgeçilmez bir yapıdır.

Örneğin, sıfıra bölmelerden kaynaklanan hatalarda veya bir Z'li tablomuzun bir satırını güncellerken oluşabilecek problemlerde programın bir şekilde çalışmasını ve ekrana RUN TIME ERROR hatasını getirmesini istemiyorsak
aşşağıdaki yapıyı kullanabiliriz.
Özellikle user-exit yazarken, SAP standart programının patlamasını engelleriz.

REPORT ZTEST_001.

*Örneğin aşşağıda sıfıra bölmeden kaynaklanan bir hata var fakat program
*Run Time Error vermeden çalışmaya devam edecektir.
*Burada ki CX_ROOT , tüm hataları tutabilen genel bir sınıftır.

data: lv_i type i.
data OREF type ref to CX_ROOT.

TRY
lv_i = 10 / 0.
CATCH CX_ROOT into OREF. "burada OREF'in içi CX_SY_ZERODIVIDE olarak dolacaktır.
write 'hata'.

ENDTRY.
write: / 'program devam ediyor'.

ABAP : OO ALV'de yapilan degisiklikleri yakalama

2008-09-03T11:42:00.004+03:00

Herhangi bir screende kullanacağımız OO ALV'nin düzenlenebilir sütunlarında herhangi bir değişiklik yaptığımızda , yakalamak için kullanacağımız basit bir metod mevcut.

CALL METHOD cl_alv_dilim->check_changed_data.

Burada ki cl_alv_dilim , bizim

Data:

cl_alv_dilim TYPE REF TO cl_gui_alv_grid.

şeklinde tanımladığımız GRID'in adı. Dikkat etmemiz gereken, bu metodun çalışması için bir screendeki container için sadece bir ALV eşleştirmek , aksi halde bu metod çalışmayacaktır. Yani bir screendeki bir container için, if koşuluyla birden fazla ALV atarsak bu metod çalışmaz.

Yukarıda ki metod çalıştırıldığında, Internal Table içinin değiştiğini göreceğiz.

ABAP : ALV de box ve checkbox kullanimi

2008-08-28T14:28:00.005+03:00

Kullandığımız ALV'de sol kısımda seçim yapmak için sadece bir kutu veya tık atabilmemiz için checkbox kullanmamız gerekebilir.
Kutu kullanıldığımız zaman, tıklanan kutuları yakalamak için bir fonksiyon ya da metod çağırmamız gerekemez fakat checkbox kullandığımız da check_changed_data isimli bir metod çağırmamız gerekir.

İkisini de örneklersek;
Öncelikle , interal table tanımalasında mutlaka char1 tipinde bir değişkenimiz olmalı.
Mesela;
data:
begin of gt_itab occurs 0,
box(1) type c,
.
.
.
end of gt_itab.

Sadece kutu kullanacaksak;

DATA : layout TYPE slis_layout_alv .
layout-box_fieldname = 'BOX'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
is_layout = layout
.burada diğer export parametreleri yollanacak
.
TABLES
t_outtab = gt_itab.

Seçilen satırları görmek içinse;

DATA ref1 TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = ref1.
CALL METHOD ref1->check_changed_data.

yukarıdaki kod, reuse_alv'mizi, OO_ALV gibi convert edip, check_changed_data metodunu çağırmamızı sağlar.

Checkbox kullanımı içinse yapmamız gereken, manuel field katalog oluştururken (eski gönderdiklerimde bulabilirsiniz) checkbox seçeneğine X değerini göndermemiz.

http://bilencekic.blogspot.com/2008/07/abap-fieldcatalog-oluturma.html

DATA : gt_fcat TYPE slis_t_fieldcat_alv,
gf_fcat LIKE LINE OF gt_fcat.

gf_fcat-checkbox = 'X'.
gf_fcat-edit = 'X' *eğer edit sekmesine X koymazsak checkbox a tıklanamaz

ABAP : BAPI yada BATCH INPUT mesaj tablosunu popup olarak gosterme

2008-08-28T11:44:00.003+03:00

Batch input yada bapi sonrası dönen mesaj tablosunu popup olarak güzel bir biçimde göstermek için kullanacağımız iki adet fonksiyon mevcut (bildiğim). Fakat dikkat edilmesi gereken, bapi için olan fonksiyon (convert edilirse batch input içinde kullanılabilir) 6.0 dan sonra mevcuttur . 6.0 dan eski versiyonlar için kullanacağımız fonksiyon;

data: BEGIN OF gt_mess occurs 0,
MSGID LIKE SY-MSGID,
MSGTY LIKE SY-MSGTY,
MSGNO LIKE SY-MSGNO,
MSGV1 LIKE SY-MSGV1,
MSGV2 LIKE SY-MSGV2,
MSGV3 LIKE SY-MSGV3,
MSGV4 LIKE SY-MSGV4,
LINENO LIKE MESG-ZEILE,
END OF gt_mess.
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
* EXPORTING
* I_MSGID =
* I_MSGTY =
* I_MSGNO =
* I_MSGV1 =
* I_MSGV2 =
* I_MSGV3 =
* I_MSGV4 =
* I_LINENO =
TABLES
I_MESSAGE_TAB = gt_mess.

Oluşacak popup şu şekilde olacaktır.

***************************************************
6.0 da kullanacağımız fonksiyo ise;

data:
it_return LIKE TABLE OF bapiret2 WITH HEADER LINE.

CALL FUNCTION 'RSCRMBW_DISPLAY_BAPIRET2'
TABLES
it_return = it_return.

ABAP : ALV de yapilan degisiklikleri alma

2008-08-27T14:54:00.003+03:00

Kullandığımız ALV içersinde değiştirilebilir satır,hücre veya checkbox kullandığımızda ve bunlara uygulanan değişiklikleri almaya çalıştığımızda kullanacağımız basit bir metod mevcuttur.

USER_COMMAND formumuzun içerisinde , ekranda bir butona bastığımızda ve formumuzun içine düşürdüğümüzde.

DATA ref1 TYPE REF TO cl_gui_alv_grid.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = ref1.

CALL METHOD ref1->check_changed_data.

buradan sonra internal table kontrolu yaparsak, ekrandaki değişiklikleri aldığını görürüz.

ABAP : Domain icinde ki degerleri&textleri okuma

2008-08-27T12:10:00.003+03:00

Bir domain içersindeki değerlerinizin açıklamalarını okumanız gerekebilir. Örneğin ALV de listelerken
01
02
03
gibi değerler yerine onların domain içersinde bulunan (eğer varsa) değerleri almamız gerekebilir.

Bunun için kullanacağımız bir den fazla fonksiyon mevcuttur, bir örneği aşşağıda bulabilirsiniz.

FORM read_dom_text USING
p_domname like DD07L-DOMNAME
p_domvalue like DD07L-DOMVALUE_L
CHANGING
p_text like DD07T-DDTEXT.

CALL FUNCTION 'FI_CUST_READ_DOMVALUETEXT'
EXPORTING
domname = p_domname "domain adını buraya yazıyoruz örnek: ''ZSDIC_BLT"
domvalue = p_domvalue "hangi değerin textini alacaksak onun value değeri örnek: "01"
spras = sy-langu "dil
IMPORTING
ddtext = p_text
EXCEPTIONS
TEXT_NOT_FOUND = 1
VALUE_NOT_FOUND = 2
OTHERS = 3 .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

ENDFORM.

ABAP : Smartform Cagirma

2008-08-12T10:27:00.004+03:00

Smartform tasarlama işlemi bittikten sonra , çağırma aşamasında dikkat etmemiz gereken;
fonksiyonumuzu smartformda üretilen /1BCDWB/SF00000031 kodlarıyla çağırmamak.
"Call Function /1BCDWB/SF00000031
Exporting
...
...
Importing
..."
Bu metod sadece canlı ve test serveri aynı ise sorun çıkarmayacaktır. Diğer türlü yani serverlar farklı ise her formumuz için test serverında üretilen numara, canlı server da farkı olacaktır. Programımızda direk numara ile çağırdığımız için doğal olarak canlıda bulamayacaktır ve hata verecektir. Bu durumu şöyle çözebiliriz;

************************************************************

DATA:
fm_name TYPE rs38l_fnam.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = 'ZTST_DummyForm' * formumuzun adı
IMPORTING
fm_name = fm_name *burası bize formumuzun kodunu döndürüyor
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.

IF sy-subrc <> 0.
WRITE: / 'ERROR 1'.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

*formumuzu çağıralım
CALL FUNCTION fm_name
EXPORTING
...

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ABAP : Manuel Yazici Secme

2008-08-12T10:17:00.004+03:00

Zaman zaman belirli yazıcılara toplu çıktılar gönderip daha sonra ekranlarınızdan çıkmadan işlemlerinize devam etmeniz istenebilir veya yazıcıyı tüm işlemlerinizin başında seçip ona göre devam etmeniz gerekebilir.
Bu aşamada yapacağınız manuel olarak yazıcıyı seçtirmenizdir.

Bir screen yaptığınızı ve
p_yazici LIKE tsp01_sp0r-rqdestl,
tipindeki p_yazici degiskenini eklediğinizi varsayıyorum.

Daha sonra smartform'u çağırmadan değişkenlerimizi tanımlamamız ve gereken atamaları yapmamız gerekir.

DATA:
g_out TYPE ssfcompop,
control TYPE ssfctrlop.

..
..

DATA:
lv_yazici(8) TYPE c,
lv_kname(4) TYPE c.

SELECT SINGLE patype kname FROM sh_prin INTO
(lv_yazici, lv_kname)
WHERE lname = p_yazici.

g_out-tdprinter = lv_yazici..
g_out-tddest = lv_kname.

control-device = 'PRINTER'.

Smartformumuzu çağırırken bu değerleri göndermeyi unutmayalım.

**********************************************
CALL FUNCTION xxx

EXPORTING
control_parameters = control
output_options = g_out
user_settings = '' *manuel ayarlarda burası boş gönderilmi

**********************************************

ABAP : Hotspot Click Degeri

2008-07-29T13:26:00.005+03:00

ALV içersinde kullandığımız bir hotspot'un tıklanan değerini almak için, User_Command formumuza ufak bir değişken eklememiz yeterli olacaktır.

FORM user_command USING u_ucomm LIKE sy-ucomm us_selfield TYPE slis_selfield. "#EC

data: lv_belnr type belnr.

*slis_selfield ALV'de ki cursor pozisyon bilgisini tutan tiptir.

lv_belnr = us_selfield-value. "tıklanan değeri value alanı tutacaktır.
endform.

SAP : Sistem Tabloları

2008-07-29T10:17:00.003+03:00

Hepsi olmasada, bir şekilde en çok kullanabileceğiniz tablolar;

ADCP	Person/Address assignment (central address administration)
ADIRACCESS	Table to store keys for TADIR objects
ADR2	Telephone numbers (central address admin.)
ADRP	Persons (central address administration)
APQD	DATA DEFINITION Queue
APQI	Queue info definition
D010SINF	ABAP- Information about ABAP program source code
E071	Change and Transport System- Object Entries of Requests/Tasks
E07T	Change and Transport System- Short Texts for Requests/Tasks
ENLFDIR	Additional Attributes for Function Modules
INDX	System table INDX
NAST	Message Status
STXH	STXD SAPscript text file header
T005	Countries
T005S	Taxes- Region (Province) Key
T005U	Taxes- Region Key- Texts
T006	Units of Measurement
T015M	Names of the months
T247	Month name and short text
T777A	Building Addresses
TADIR	Directory of Repository Objects
TBTCO	Job status overview table
TBTCP	Batch job step overview
TFDIR	Function Module
TFTIT	Function Module Short Text
TSP03L	Spool- Long device names
TSTC	SAP Transaction Codes
TSTCT	Transaction Code Texts
TUTYP	User Types in Current Price List in SAP System
TUZUS	Special versions
TVARV	Table of variables in selection criteria
TVDIR	View Directory
US930	Data Relevant to Measurement for User Master Record
USR01	User master record (runtime data)
USR02	Logon data
USR04	User master authorizations
USR06	Additional Data per User
USR14	Surchargeable Language Versions per User
USR21	Assign user name address key
ARCH_OBJ	Objects for archiving and reorganization
BTCUED	Description of user event IDs for background processing
BTXSUPB	BSI- Upgrade-Information
CCCFLOW	Client Copy Control Flow
DBSTATC	DB Optimizer Control (Statistics Creation)
DEVACCESS	Table for development users
DEVL	OBSOLETE- Do not use (See TCETRAL)
E070	Change and Transport System- Header of Requests/Tasks
E070L	CTS- Index for Assigning Numbers to Requests/Tasks
INSTVERS	Documentation for installation Status and History
PAT03	Patch Directory
SDBAC	DBA Action Table
T100	Messages
TAPLT	Program Application Long Texts
TASYS	OBSOLETE- Do not use, see TCEDELI
TDEVC	Development Classes
TEMSE	Temp Sequential table.
TLOCK	Change and Transport System- Lock Table
TNAPR	Processing programs for output. Can be very handy to find the print program for a SAPScript.
TNAST	Printed output control table
TPFET	Table of profile parameters
TPFHT	Profile header, administration data for profiles in DB
TPROT	Table contains all DD tables to be logged
TRBAT	Communication Table for Transport Control
TRDIRT	Title texts for programs in TRDIR
TRESN	Table of Naming Conventions in ABAP Workbench
TRJOB	Job ID for Coordinating Batch-ABAP/UNIX for Transports
TSP03C	Spool- Device Description Extension
TST03	TemSe data
TSYST	OBSOLETE- Do not use (see TCESYST)
TWSYS	OBSOLETE- Do not use (See TCETRAL)
USOBT	Relation transaction - authorization object
USR03	User address data
USR05	User Master Parameter ID
USR12	User master authorization values
USR40	Table for illegal passwords
USR41	User master- Additional data
UST04	User masters
VARIT	Variant texts
VARID	Variant directory
D010TAB	Table for Use Report---Tables
DD02L	SAP tables
DD02T	R/3 DD- SAP table texts
DD03L	Table Fields
DD03T	DD- Texts for fields (language dependent)
EDIDC	IDOC Control Records
EDIDOT	Short description of IDoc types
EDID2	IDOC segments (version 3.1)
EDID4	IDOC segments (version 4.6)
EDSEA	EDI- Table of all segments of current release
VRSX2	Central Table for Version Management (Report Source)
TSE05	Can add parameters to the INSERT COMMAND (IC). Then, when you insert command, your info appears in the editor. Useful for comment blocks, common section of code, etc.
CDPOS	Change document items
CDHDR	Change document header
T529A	governs the foreground sequence of infotypes the system will use to prompt the user during online and batch processing. You will have to code your BDC to follow that sequence of creating infotypes.
T588Z	governs the dynamic event processing that will only take place during online user inputs. For BDC's you will have to create separate BDC's to handle any infotypes that are inserted dynamically by this table.
T588M	Infotype Screen Control

ABAP : Malzeme Olcu Donusumu

2008-07-28T15:04:00.006+03:00

Malzemelerle uğraşırken zaman zaman ölçü dönüşümü yapmamız gerekebilir. Örneğin 1 KG kaç M2 ya da
5 Koli kaç Adet yapar gibi.
Bu çevirimleri yapmak için, MARC tablosuna gidip dönüşümlerle uğraşmak yerine;

MD_CONVERT_MATERIAL_UNIT

Fonksiyonunu kullanabiliriz.

Örnek;

DATA:
pmatnr LIKE mara-matnr,
pmein1 LIKE mara-meins,
pmein2 LIKE mara-meins,
pmeng1 LIKE ekpo-menge,
pmeng2 LIKE ekpo-menge.

CLEAR : pmatnr, pmein1, pmein2, pmeng1, pmeng2.

CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
EXPORTING
i_matnr = pmatnr "malzeme numaramız
i_in_me = pmein1 "dönüşecek ölçü birimi
i_out_me = pmein2 "hangi ölçüye dönüşecek ?
i_menge = pmeng1 "miktar
IMPORTING
e_menge = pmeng2 "dönen miktar
EXCEPTIONS
error_in_application = 1
error = 2
OTHERS = 3.

ABAP : Dialog Ekranini Popup Olarak Cagirma

2008-07-28T14:58:00.003+03:00

Normalde , bir dialog ekranını çağırırken basitçe call screen metodunu kullanırırız,
çağırdığımız ekran tüm ekranı kapladığı için, zaman zaman bunun olmasını istemeyiz.
İstediğimiz boyutlarda popup ekranı gibi çağırmak için sonuna starting at komutunu ekleriz. Daha sonra vereceğimiz kordinatlara göre ekran gelecektir.

call screen '0300' starting at 20 11 ending at 70 24.

ABAP : Text Dosyasindan ITAB'a Upload Islemi

2008-07-21T13:02:00.003+03:00

TAB Delimeted olarak ayrılmış bir text dosyasını ITAB'a upload etme ve daha sonra yüklenen verileri ALV olarak gösterme işlemi.

REPORT ZDTS_UPLOAD .
type-pools: slis.

datA:
begin of gt_data occurs 0,
ad(10) type c,
soyad(10) type c,
end of gt_grup.

*ALV data declarations
DATA:
fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid,
gt_events TYPE slis_t_event,
gd_prntparams TYPE slis_print_alv,
is_variant LIKE disvariant.

DATA : gt_fcat TYPE slis_t_fieldcat_alv,
gf_fcat LIKE LINE OF gt_fcat.

DATA : layout TYPE slis_layout_alv .

PARAMETERS : FILEX LIKE RLGRAP-FILENAME
DEFAULT
'C:\'
OBLIGATORY.

initialization.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILEX .
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FILEX .

start-of-selection.
perform read_data. "okuma işlemini yapalım
end-of-selection.

*&---------------------------------------------------------------------*
*& Form read_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text *----------------------------------------------------------------------*
FORM read_data .
data: yol type string. yol = filex.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = yol
FILETYPE = 'ASC'
* HAS_FIELD_SEPARATOR = ' '. "göndermediğiniz takdirde tab delimeted olarak ayarlar
TABLES
DATA_TAB = gt_data
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7 .
* <-- p2 text *----------------------------------------------------------------------* FORM write_data.
*FCAT'imizi oluşturuyoruz

PERFORM appalv USING 'AD' 'GT_DATA' 'Adı' '' 'X' ''. "ad alanını key alan yaptık
PERFORM appalv USING 'SOYAD' 'GT_DATA' 'Soyadı' '' '' ''.

layout-zebra = 'X' .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = gt_fcat
is_layout = layout
is_variant = is_variant
i_save = 'A'
i_callback_program = sy-repid

TABLES
t_outtab = GT_DATA.

ENDFORM. " write_data

*&---------------------------------------------------------------------*
*& Form appalv
*&---------------------------------------------------------------------*
FORM appalv USING p_fn
p_tn
p_txt
p_fix
p_key
p_no_zero .
CLEAR gf_fcat.
gf_fcat-fieldname = p_fn .
gf_fcat-tabname = p_tn .
gf_fcat-seltext_m = p_txt .
gf_fcat-fix_column = p_fix .
gf_fcat-key = p_key .
gf_fcat-no_zero = p_no_zero .

APPEND gf_fcat TO gt_fcat.

ENDFORM. " appalv

*&---------------------------------------------------------------------*

ABAP : Dinamik Search Help Olusturma

2008-07-18T11:58:00.012+03:00

1000 ekranında , "Select-options" kullanırken zaman zaman direk tablo referansı ile atadığımız "search help"ler yeterli olamayabilir ya da hiç search help olmayabilir. Bu gibi durumlarda yapmamız gereken ; dinamik bir search help oluşturmaktır. Dinamik search help oluşturmak için yapmamız gereken hangi alan için kullanılacağını seçmemiz ve ITAB'ımızı oluşturduktan sonra fonksiyonumuzu çağırmaktır.

*****

Referans ile yaptığımız "select-opitons"lar da arkasında hangi search help veya checktable varsa onun içeriğini getirir.

Örneğin,

Select-Opitons:

So_BUKRS for BSEG-BUKRS.

Tanımlamasını yaptığımızda, SO_BUKRS'nin içi BSEG-BUKRS alanının C_T001 isimli search help'i ile otomatik olarak dolmaktadır . Yukarıda ki resimde gördüğünüz gibi , hangi alan hangi search help'e veya check table'a bağlanmış görebiliriz. Her zaman search help olmayabilir =)

Örneğin ZSINIF bir tablomuz olsun ve onun OBJID alanı için search help yazalım.

Sütun isimleri de ;

NO,

AD ,

SOYAD,

OBJID olsun.

Gelelim dinamik search help oluşturmaya.

Report Z_DINAMIK_SEARCHELP.

*Değişkenleri tanımlıyoruz.

Data:

So_OBJ for ZINIF-OBJID.

*Internal Table tanımlaması

*Kullanıcı F4 e bastığında karşısında ne görecek buradan belirliyoruz

*Tablonu tüm sütunlarını listelemeye gerek yok o yüzden hangilerini göstereceğimizi

*seçiyoruz

Begin of gt_data occurs 0,

OBJID like ZINIF-OBJID,

NO like ZINIF-NO,

AD like ZINIF-AD,

SOYAD like ZINIF-SOYAD,

End of gt_data.

*Select-options'da hem LOW hemde HIGH için aynı işlemleri yaparız böylece Select-Options için oluşan iki kutucuğun da search help' i olmasını sağlarız.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_OBJ-LOW.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'OBJID' "seçim sonucu hangi alanı yazdıracağız, burada AD yazarsak seçili AD satırını so_obj-low alanına yazdırır.

dynpprog = sy-repid "program adı

dynpnr = '1000' "ekran numarası

dynprofield = 'SO_OBJ-LOW' "ekrandaki alan adının LOW kısmı

value_org = 'S' "iki değer almaktadır C ve S , C : cell by cell , S: structured

TABLES

value_tab = gt_data. "Doldurduğumuz tablonun adını buraya yazıyoruz

*High için

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_OBJ-HIGH.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'OBJID'

dynpprog = sy-repid

dynpnr = '1000'

dynprofield = 'SO_OBJ-HIGH'

value_org = 'S'

TABLES

value_tab = gt_data.

*Bu işlemler bittikten sonra program çalışır çalışmaz tetiklenen INITIALIZATION sekmesinde GT_DATA isimli ITAB'ımızı doldururz böylece kullanıcı F4 e bastığı anda veriler karşısına gelir.

INITIALIZATION.

Perform Generate_DATA_SearchHelp. "ITAB'ımızı dolduracak olan form

START-OF-SELECTION.

Perform …

Perform … "buralarda kendi perform işlemlerimizi yapıyoruz SEARCH_HELP'den bağımsız olarak

END-OF-SELECTION.

*ITAB'I dolduracak olan formu yaratıyoruz

FORM Generate_DATA_SearchHelp.

Clear gt_data[]. "içini temizleyelim

*Sorgumuzu yazalım ve ITAB dolsun

Select

OBJID

SOYAD

From ZSINIF

into corresponding fields of table GT_DATA.

ENDFORM.

ABAP : Field Catalog Olusturma

2008-07-16T16:39:00.004+03:00

ALV'mizi gösterirken, üzerinde bazı değişiklikler sütunlara özel işlemler yapmamız gerekebilir. Bu gibi durumlarda REUSE_ALV_FIELDCATALOG_MERGE fonksiyonunu kullanıp daha sonra üretilen fieldcatalog'da looplar yapıp değişiklik yapmak yerine , sıfırdan manuel olarak fieldcatalog yaratmak en temiz yöntemdir. Hem yukarıda ki fonksiyonda karşılaştığımız sorunlar ortaya çıkmayacaktır (örneğin like yerine type ile tanımladığımız sütun isimleri gibi) hem de her sütuna özel işlemi çok rahat bir biçimde yapabilme imkaanımız olacaktır.

Verileri okuyup ITAB'ımızı (internal table) doldurduğumuzu varsayıyorum.
ITAB'ımız da şöyle olsun,

data:
begin of gt_itab occurs 0,
sira type i,
ad(10) type c,
soyad(10) type c,
no(10) type c,
end of gt_itab.

*** ALV için değişkenler .
DATA : gt_fcat TYPE slis_t_fieldcat_alv,
gf_fcat LIKE LINE OF gt_fcat.
DATA : layout TYPE slis_layout_alv .
DATA : variant TYPE disvariant .
****************
start-of-selection.
perform read_data. "ITAB ımız burada doldu.
perform generate_fcat. "fieldcatalog işlemleri
perform display_alv. "ALV yi görüntüleme
end-of-selection.
****************
ITAB'ımızı veri ile doldurduktan sonra fieldcatalog yaratma kısmına geçebiliriz.

FORM GENERATE_FCAT.

PERFORM appalv USING 'SIRA' 'GT_ITAB' 'Sıra Numarası' 'X' 'X' ' '.
PERFORM appalv USING 'AD' 'GT_ITAB' 'İsim' 'X' 'X' ' '.
PERFORM appalv USING 'SOYAD' 'GT_ITAB' 'Soyisim' ' ' ' ' ' '.
PERFORM appalv USING 'NO' 'GT_ITAB' 'Numara' ' ' ' ' 'X'.

ENDFORM.

FORM appalv USING p_fn
p_tn
p_txt
p_fix
p_key
p_no_zero .
CLEAR gf_fcat.
gf_fcat-fieldname = p_fn . "ITAB da tanımladığımız sütun adı
gf_fcat-tabname = p_tn . "ITAB adı
gf_fcat-seltext_m = p_txt . "ALV de görünecek sütun başlığı
gf_fcat-fix_column = p_fix . "İşaretlendiği takdirde sütunu sabitleyecektir
gf_fcat-key = p_key . "Anahtar bir alan mı ?
gf_fcat-no_zero = p_no_zero . "Soldaki sıfırlar silinsin mi ?

APPEND gf_fcat TO gt_fcat.

ENDFORM.

Bu işlemler bittikten sonra, tek yapacağımız ALV Display fonksiyonunu çalıştırmak.
FORM DISPLAY_ALV.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
it_fieldcat = gt_fcat "oluşturduğumuz fieldcatalog
is_variant = variant "variantlar olsun mu ?
i_save = 'A' "variantlar kaydedilebilsin mi ?
i_callback_program = 'Programızın adı büyük harflerle' "program adı buraya

TABLES
t_outtab = gt_itab. "ITAB adını buraya yazıyoruz

ENDFORM.

****************************************************************
Manuel olarak yarattığımız FieldCatalog'da daha bir sürü opsiyon mevcuttur. Örneğin, istediğiniz sütunu checkbox yapabilir, istediğiniz sütunu gizleyebilir, düzenlenebilir (editable) yapabilir, renklendirebilir ve daha bir çok opsiyonla değiştirebilirsiniz. Esnek olduğu için müdahele etmek çok basittir.

Fakat REUSE_ALV_FIELDCATALOG_MERGE metodunu kullanarak oluşturduğunuz fieldcataloglarda değişiklik yapmak için epey takla atmanız gerekecektir. Yine de ihtiyacınız ve zamanınız doğrultusunda istediğinizi seçebilirsiniz =).

ABAP : Kur Donusumu

2008-07-16T15:05:00.006+03:00

Kur dönüşümü için kullanılabilecek birden fazla fonksiyon mevcuttur, bizim kullanacağımız ise
"CONVERT_TO_LOCAL_CURRENCY" fonksiyonudur.

CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = '20080716' "buraya kur dönüşüm için baz alınacak tarih değişkeniniz gelecek
foreign_amount = '1000' "buraya dönüştürülecek tutar girilecek
foreign_currency = 'EUR' "hangi para biriminden dönüştürülüyor
local_currency = 'TRY' "hangi para birimine dönüştürülüyor
IMPORTING
local_amount = p_local_amount "dönüştürülen tutarı tutacak olan değişkenimiz
EXCEPTIONS
no_rate_found = 1
overflow = 2
no_factors_found = 3
no_spread_found = 4
derived_2_times = 5
OTHERS = 6.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

Daha önceden tanımladığımız "p_local_amount" değişkeninin 1000 EURO'nun TRY karşılığında ki değeri olduğunu fonksiyon bitiminde görürüz.
********
Sistemde EUR > TRY ve TRY > USD dönüşümü var ise ve biz 1000 EUR değerinin USD karşılığını istiyorsak, fonksiyonda ayrı ayrı önce EUR'dan TRY'ye daha sonra TRY'den de USD ye çevirmeye GEREK YOKTUR. Fonksiyon çapraz kur dönüşümünü kendisi yapacaktır.

********
Not : Eğer belirtilen tarihte bir kur girişi yapılmadı ise, sistem ona en yakın tarihi alacaktır. Eğer kur dönüşüm için hiç bir veri yoksa , fonksiyon hata verecektir.

ABAP : Select-Options Secim Sinirmalamasi

2008-07-15T17:04:00.005+03:00

Kullanıcının seçimini sınırlar.
*************************************************************************

REPORT z_sinir.

* Include
TYPE-POOLS sscr.

TABLES :
marc.

* selection-screen leri tanımlarız
select-options :
s_matnr for marc-matnr,
s_werks for marc-werks.

* Ana objelerimizi tanımlıyoruz
DATA restrict TYPE sscr_restrict.

* Sınırlandırmada kullanacağımız değişkenler
DATA : optlist TYPE sscr_opt_list,
         ass type sscr_ass.

INITIALIZATION.

* MATNR nin sadece  EQ ve 'BT' olarak 
*seçilebilmesini sağlayalım.
optlist-name = 'OBJECTKEY1'.
optlist-options-eq = 'X'.
optlist-options-bt = 'X'.
  APPEND optlist TO restrict-opt_list_tab.

ass-kind = 'S'.
ass-name = 'S_MATNR'.
ass-sg_main = 'I'.
ass-sg_addy = space.
ass-op_main = 'OBJECTKEY1'.
  APPEND ass TO restrict-ass_tab.

* WERK alanın da CP, GE, LT, NE ile sınırlayalım.
optlist-name = 'OBJECTKEY2'.
optlist-options-cp = 'X'.
optlist-options-ge = 'X'.
optlist-options-lt = 'X'.
optlist-options-ne = 'X'.
  APPEND optlist TO restrict-opt_list_tab.

ass-kind = 'S'.
ass-name = 'S_WERKS'.
ass-sg_main = 'I'.
ass-sg_addy = space.
ass-op_main = 'OBJECTKEY2'.
  APPEND ass TO restrict-ass_tab.

 CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
 EXPORTING
  restriction                  = restrict
 EXCEPTIONS
   TOO_LATE                     = 1
   REPEATED                     = 2
   SELOPT_WITHOUT_OPTIONS       = 3
   SELOPT_WITHOUT_SIGNS         = 4
   INVALID_SIGN                 = 5
   EMPTY_OPTION_LIST            = 6
   INVALID_KIND                 = 7
   REPEATED_KIND_A              = 8
   OTHERS                       = 9
          .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
       WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ABAP : Select-Options Gizleme islemi

2008-07-15T16:56:00.003+03:00

Birinci yol, 1000 ekranında daha raporumuzun içinde ki seçim durumları ekrana gelmeden çalışan "AT SELECTION-SCREEN OUTPUT" sekmesinde yapılanıdır.

**************************************************
select-options:
SO_BELNR for bkpf-belnr modif id g1.
...
...
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'G1'.
screen-active = '0'.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.

**************************************************
İkinci yol ise, No-Display kullanmaktır.

SO_BELNR for bkpf-belnr no-display.

SAP : MM tablolari

2008-07-15T16:53:00.003+03:00

EINA	Purchasing Info Record- General Data
EINE	Purchasing Info Record- Purchasing Organization Data
MAKT	Material Descriptions
MARA	General Material Data
MARC	Plant Data for Material
MARD	Storage Location Data for Material
MAST	Material to BOM Link
MBEW	Material Valuation
MKPF	Header- Material Document
MSEG	Document Segment- Material
MVER	Material Consumption
MVKE	Sales Data for materials
RKPF	Document Header- Reservation
T023	Mat. groups
T024	Purchasing Groups
T156	Movement Type
T157H	Help Texts for Movement Types
MOFF	Lists what views have not been created

ABAP : Alan Donusumu

2008-07-15T16:32:00.007+03:00

Varolan bir değişkendeki içeriğin soluna , değişkenin uzunluğunu doldurana kadar sıfır koyar.
Örneğin malzeme numarasını sorgulayacaksak ve elimizde o uzunluğa uygun bir veri yoksa , sorgulama başarısız olacaktır. Örneğin "123" ile malzeme numarası bazında sorgulama yapamayız, onu aşşağıda ki fonksiyonu kullanarak "0000000123" formatına çevirmemiz gerekir.

Aşşağıda "123" sayısının char18 tipinde tanımlanan bir değişken ile kullanılışı gösterilmektedir.

************************************************

DATA:
lv_matnr(18) type c.

lv_matnr = '123'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = lv_matnr

IMPORTING

output = lv_matnr.

Sonuç:

input  = 123
output = 000000000000000123
************************************************

Aynı şekilde, "000000000000000123" olarak girilmiş bir değerin solundaki
sıfırlardan kurtulmak istiyorsak; CONVERSION_EXIT_ALPHA_OUTPUT fonksiyonunu
kullanabiliriz.

DATA: lv_matnr(18) type c.

lv_matnr = '123'.


CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING
input = lv_matnr

IMPORTING
output = lv_matnr.


Sonuç:
input = 000000000000000123
output = 123

ABAP : Secim Ekraninda DropDownList kullanimi

2008-07-15T14:59:00.006+03:00

PROGRAM z_drop.

TYPE-POOLS: vrm.

DATA: name TYPE vrm_id, list TYPE vrm_values, value LIKE LINE OF list.

PARAMETERS: ps_parm(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

name = 'PS_PARM'.

value-key = '1'. value-text = 'Line 1'. APPEND value TO list.

value-key = '2'. value-text = 'Line 2'. APPEND value TO list.

*Key: Seçildikten sonra yakalayacağımız anahtar alan.

*Text: Seçim ekranında listbox içinde ki text değer.

CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = name values = list.

Start-Of-Selection.

...

End-Of-Selection.

ABAP : Semboller & Ikonlar

2008-07-15T14:16:00.002+03:00

REPORT Z_SHOWICON.

*  symbols & icons
INCLUDE: , .

* Gösterim
WRITE: / SYM_PHONE     AS SYMBOL, 'Telefon',
      / SYM_FAX       AS SYMBOL, 'Faks',
      / SYM_CAUTION   AS SYMBOL, 'Dikkat',
      / ICON_CHECKED  AS ICON,   'checked; okay',
      / ICON_DELETE   AS ICON,   'delete',
      / ICON_PRINT    AS ICON,   'print'.

ABAP : String islemleri

2008-07-15T14:01:00.008+03:00

* Ayıraç olmadan birleştirme
DATA: FIRST_NAME(25), MIDDLE_NAME(2), LAST_NAME(25),
FULL_NAME(54).
FIRST_NAME  = 'John'.
MIDDLE_NAME = 'F.'.
LAST_NAME   = 'Kennedy'.
CONCATENATE FIRST_NAME MIDDLE_NAME LAST_NAME INTO FULL_NAME.
WRITE / FULL_NAME.

* Ayıraçlı birleştirme
DATA: DIRECTORY_1(2), DIRECTORY_2(10), FILE_NAME(10),
PATH(24).
DIRECTORY_1 = 'a:'.
DIRECTORY_2 = 'usr'.
FILE_NAME = 'programs'.
CONCATENATE DIRECTORY_1 DIRECTORY_2 FILE_NAME
     INTO PATH
     SEPARATED BY '\'.
WRITE / PATH.

* Split işlemi
DATA: LIST(40),
NAME_1(25), NAME_2(25), NAME_3(25).
LIST = 'Edison,Smith,Young'.
SPLIT LIST AT ',' INTO NAME_1 NAME_2 NAME_3.
WRITE: / NAME_1, NAME_2, NAME_3.

*Stringleri split ederek bir internal tabloya atma
DATA NAMES LIKE NAME_1 OCCURS 10 WITH HEADER LINE.
LIST = 'Edison,Smith,Young,Edwards'.
SPLIT LIST AT ',' INTO TABLE NAMES.
LOOP AT NAMES.
WRITE / NAMES.
ENDLOOP.

*Stringlerde shift işlemleri
NAME_1 = 'Edison'.
NAME_2 = 'Smith'.
NAME_3 = 'Young'.
SHIFT NAME_1.
SHIFT NAME_2 BY 3 PLACES.
SHIFT NAME_3 RIGHT.
WRITE: / NAME_1, NAME_2, NAME_3.

*Shift Up To kullanımı
NAMES = 'Alexander Bill Charles'.
SHIFT NAMES UP TO 'Bill'.
WRITE / NAMES.

*Boşlukları silerek shift işlemi
NAMES = 'Joanne___'.
SHIFT NAMES RIGHT DELETING TRAILING SPACE.
WRITE / NAMES.

* Replacing & translating .
DATA: STRING(80),
EXPRESSION(30).
STRING = 'Variable: &. The variable & is substituted later.'.
REPLACE '&' WITH 'X' INTO STRING.
WRITE / STRING.
TRANSLATE STRING USING '&X'.
WRITE / STRING.
EXPRESSION = 'a ** 2 + b ** 2 = c ** 2'.
TRANSLATE EXPRESSION USING 'axbycz'.
WRITE / EXPRESSION.




   REPLACE ',' WITH '' INTO lv_degisken.

   REPLACE ALL OCCURRENCES OF ',' IN lv_degisken WITH ''.

*ITAB da aradığımız string var mı ?
DATA TEXT(100) VALUE 'Texas California New Mexico Louisiana Oregon'.
SEARCH TEXT FOR 'California'.
IF SY-SUBRC NE 0. WRITE 'Not found'. ENDIF.
SEARCH TEXT FOR 'cAliforniA'.
IF SY-SUBRC NE 0. WRITE 'Not found'. ENDIF.
SEARCH TEXT FOR 'New M'.
IF SY-SUBRC NE 0. WRITE 'Not found'. ENDIF.

*Fieldların belli parçalarını alma
DATA: S(8) VALUE 'ABCDEFGH',
T(8) VALUE '12345678',
OFF1 TYPE I, OFF2 TYPE I,
LEN1 TYPE I, LEN2 TYPE I.

OFF1 = 2.
LEN1 = 3.
OFF2 = 4.
LEN2 = 3.
MOVE S+OFF1(LEN1) TO T+OFF2(LEN2).
WRITE / T.

ABAP : Progress Bar yapimi

2008-07-15T13:52:00.006+03:00

*İşlemin ne kadarının tamamlandığını ve ne kadarının kaldığını gösterir

REPORT  Z_Progress.

TYPES: BEGIN OF t_mara,
    matnr LIKE mara-matnr,
  END OF t_mara.
DATA: it_mara TYPE STANDARD TABLE OF t_mara INITIAL SIZE 0,
 wa_mara TYPE t_mara.
DATA: mara_lines TYPE i,
 gd_percent TYPE i.

 START-OF-SELECTION.

SELECT matnr
INTO TABLE it_mara
FROM mara.

CHECK sy-subrc EQ 0.
mara_lines = sy-dbcnt.
clear: gd_percent.

  LOOP AT it_mara INTO wa_mara.
PERFORM progress_bar USING 'Veriler alınıyor...'(001)
                          sy-tabix
                          mara_lines.

  ENDLOOP.

FORM progress_bar USING    p_value
                           p_tabix
                           p_nlines.

DATA: w_text(40),
   w_percentage TYPE p,
   w_percent_char(3).

w_percentage = ( p_tabix / p_nlines ) * 100.
w_percent_char = w_percentage.
SHIFT w_percent_char LEFT DELETING LEADING ' '.
CONCATENATE p_value w_percent_char '% Tamamlandı'(002) INTO w_text.

*bu kontrolü büyük verilerde loop yaptığımızda tekrar
*tekrar görünmesini engellemek için yapıyoruz
if w_percentage gt gd_percent or p_tabix eq 1.
 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
      percentage = w_percentage
      text       = w_text.
gd_percent = w_percentage.
endif.
endform.                    " PROGRESS_BAR

WRITE: /20 'Bitti" OK'.

SAP : SD Tablolari

2008-07-15T13:42:00.006+03:00

KONV	Conditions for Transaction Data
KONP	Conditions for Items
LIKP	Delivery Header Data
LIPS	Delivery: Item data
VBAK	Sales Document: Header Data
VBAP	Sales Document: Item Data
VBBE	Sales Requirements: Individual Records
VBEH	Schedule line history
VBEP	Sales Document: Schedule Line Data
VBFA	Sales Document Flow
VBLB	Sales document: Release order data
VBLK	SD Document: Delivery Note Header
VBPA	Sales Document: Partner
VBRK	Billing: Header Data
VBRP	Billing: Item Data
VBUK	Sales Document: Header Status and Administrative Data
VBUP	Sales Document: Item Status
VEKP	Handling Unit - Header Table
VEPO	Packing: Handling Unit Item (Contents)
VEPVG	Delivery Due Index

SAP : FI Tablolari

2008-07-15T13:39:00.005+03:00

AGKO	Cleared Accounts
ANAR	Asset Types
ANAT	Asset type text
ANEK	Document Header Asset Posting
ANEP	Asset Line Items
ANEV	Asset downpymt settlement
ANKT	Asset classes- Description
ANLA	Asset Master Record Segment
ANLB	Depreciation terms
ANLC	Asset Value Fields
ANLH	Main asset number
AT02T	Transaction Activity Category- Description
AT02A	Transaction Code for Menu TIMN
AT10	Transaction type
AT10T	Name of Transaction Type
BKDF	Document Header Supplement for Recurring Entry
BKORM	Accounting Correspondence Requests
BKPF	Accounting Document Header
BLPK	Document log header
BLPP	Document log item
BLPR	Document Log Index and Planned Order (Backflush)
BNKA	Bank master record
BP000	Business Partner Master (General Data)
BPBK	Doc.Header Controlling Obj.
BPEG	Line Item Total Values Controlling Obj.
BPEJ	Line Item Annual Values Controlling Obj.
BPEP	Line Item Period Values Controlling Obj.
BPGE	Totals Record for Total Value Controlling obj.
BPJA	Totals Record for Annual Total Controlling Obj.
BSAD	Accounting- Secondary Index for Customers (Cleared Items)
BSAK	Accounting- Secondary Index for Vendors (Cleared Items)
BSAS	Accounting- Secondary Index for G/L Accounts (Cleared Items)
BSEC	One-Time Account Data Document Segment
BSEG	Accounting Document Segment
BSID	Accounting- Secondary Index for Customers
BSIK	Accounting- Secondary Index for Vendors
BSIM	Secondary Index, Documents for Material
BSIS	Accounting- Secondary Index for G/L Accounts
CEPC	Profit Center Master Data Table
CEPCT	Texts for Profit Center Master Data
COBRA	Settlement Rule for Order Settlement
COBRB	Distribution Rules Settlement Rule Order Settlement
COKA	CO Object- Control Data for Cost Elements
COSP	CO Object- Cost Totals for External Postings
COSS	CO Object- Cost Totals for Internal Postings
CRCO	Assignment of Work Center to Cost Center
CSKA	Cost Elements (Data Dependent on Chart of Accounts)
CSKB	Cost Elements (Data Dependent on Controlling Area)
CSLA	Activity master
FEBEP	Electronic Bank Statement Line Items
FPLA	Billing Plan
FPLT	Billing Plan- Dates
GLPCT	EC-PCA- Totals Table
KNA1	General Data in Customer Master
KOMK	Pricing Communication Header
MAHNV	Management Records for the Dunning Program
REGUT	TemSe - Administration Data
SKA1	G/L Account Master (Chart of Accounts)
SKAT	G/L Account Master Record (Chart of Accounts- Description)
SKB1	G/L account master (company code)
T003T	Document Type Texts
T007S	Tax Code Names
T087J	Text
TAPRFT	Text tab. for investment profile
TKA01	Controlling Areas
TKA09	Basic Settings for Versions
TKVS	CO Versions
TZB0T	Flow types text table
TZPAT	Financial Assets Management product type texts
VBSEGS	Document Segment for G/L Accounts Document Parking
VTBFHA	Transaction
VTBFHAPO	Transaction Flow
VTBFHAZU	Transaction Activity
VTBFINKO	Transaction Condition
VTIDERI	Master Data Listed Options and Futures
VTIFHA	Underlying transaction
VTIFHAPO	Underlying transaction flows
VTIFHAZU	Underlying transaction status table
VTIOF	Options Additional Data
VWPANLA	Asset master for securities

ABAP : Transaction kodu bazinda USER EXIT listesi

2008-07-15T12:40:00.002+03:00

*&---------------------------------------------------------------------*
*& Report Z_ListUserExits
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_ListUserExits .
TABLES : TSTC,
TADIR,
MODSAPT,
MODACT,
TRDIR,
TFDIR,
ENLFDIR,
SXS_ATTRT ,
TSTCT.

DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
DATA : FIELD1(30).
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.

PARAMETERS : P_TCODE LIKE TSTC-TCODE,
P_PGMNA LIKE TSTC-PGMNA .

DATA wa_tadir type tadir.

START-OF-SELECTION.

IF NOT P_TCODE IS INITIAL.
SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.

ELSEIF NOT P_PGMNA IS INITIAL.
TSTC-PGMNA = P_PGMNA.
ENDIF.

IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'PROG'
AND OBJ_NAME = TSTC-PGMNA.

MOVE : TADIR-DEVCLASS TO V_DEVCLASS.

IF SY-SUBRC NE 0.
SELECT SINGLE * FROM TRDIR
WHERE NAME = TSTC-PGMNA.
IF TRDIR-SUBC EQ 'F'.
SELECT SINGLE * FROM TFDIR
WHERE PNAME = TSTC-PGMNA.

SELECT SINGLE * FROM ENLFDIR
WHERE FUNCNAME = TFDIR-FUNCNAME.

SELECT SINGLE * FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'FUGR'
AND OBJ_NAME EQ ENLFDIR-AREA.

MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
ENDIF.
ENDIF.

SELECT * FROM TADIR INTO TABLE JTAB
WHERE PGMID = 'R3TR'
AND OBJECT in ('SMOD', 'SXSD')
AND DEVCLASS = V_DEVCLASS.

SELECT SINGLE * FROM TSTCT
WHERE SPRSL EQ SY-LANGU
AND TCODE EQ P_TCODE.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) P_TCODE,
45(50) TSTCT-TTEXT.
SKIP.
IF NOT JTAB[] IS INITIAL.
WRITE:/(105) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.

* ITAB ı sıralarız

sort jtab by OBJECT.
data : wf_txt(60) type c,
wf_smod type i ,
wf_badi type i ,
wf_object2(30) type C.
clear : wf_smod, wf_badi , wf_object2.

* Toplam SMOD

LOOP AT JTAB into wa_tadir.
at first.
FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 SY-VLINE,
2 'Enhancement/ Business Add-in',
41 SY-VLINE ,
42 'Description',
105 SY-VLINE.
WRITE:/(105) SY-ULINE.
endat.
clear wf_txt.
at new object.
if wa_tadir-object = 'SMOD'.
wf_object2 = 'Enhancement' .
elseif wa_tadir-object = 'SXSD'.
wf_object2 = ' Business Add-in'.

endif.
FORMAT COLOR COL_GROUP INTENSIFIED ON.

WRITE:/1 SY-VLINE,

2 wf_object2,
105 SY-VLINE.
endat.

case wa_tadir-object.
when 'SMOD'.
wf_smod = wf_smod + 1.
SELECT SINGLE MODTEXT into wf_txt
FROM MODSAPT
WHERE SPRSL = SY-LANGU
AND NAME = wa_tadir-OBJ_NAME.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

when 'SXSD'.

*BADi

wf_badi = wf_badi + 1 .
select single TEXT into wf_txt
from SXS_ATTRT
where sprsl = sy-langu
and EXIT_NAME = wa_tadir-OBJ_NAME.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.

endcase.

WRITE:/1 SY-VLINE,
2 wa_tadir-OBJ_NAME hotspot on,
41 SY-VLINE ,
42 wf_txt,
105 SY-VLINE.
AT END OF object.
write : /(105) sy-ULINE.
ENDAT.

ENDLOOP.

WRITE:/(105) SY-ULINE.

SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No.of Exits:' , wf_smod.
WRITE:/ 'No.of BADis:' , wf_badi.

ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'No userexits or BADis exist'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'Transaction does not exist'.
ENDIF.

AT LINE-SELECTION.

data : wf_object type tadir-object.
clear wf_object.

GET CURSOR FIELD FIELD1.
CHECK FIELD1(8) EQ 'WA_TADIR'.
read table jtab with key obj_name = sy-lisel+1(20).
move jtab-object to wf_object.

case wf_object.
when 'SMOD'.
SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
when 'SXSD'.
SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).
CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
endcase.

ABAP : ALV de TOP OF PAGE olusturma

2008-07-15T12:07:00.006+03:00

data:
alv_events TYPE slis_t_event WITH HEADER LINE,
alv_header TYPE slis_t_listheader WITH HEADER LINE.

.
.
.
start-of-selection.
perform read_data. "verileri burada okuyoruz
perform generate_header. "burada top of page i generate ediyoruz
perform show_data. " son olarak alvmizi gösteriyoruz
end-of-selection.
******************************
FORM Read_Data.
*sorgularımız burada
ENDFORM.

FORM GENERATE_HEADER.

alv_header-typ = 'H'. " H tipi Header olduğunu gösterir font boyutu daha büyüktür
*Yukarıda ki resimde belge numarası yazan kısım bu formattadır.
alv_header-key = 'B'.
alv_header-info = 'Açıklama buraya gelecek' .
APPEND alv_header TO alv_header[].
alv_header-typ = 'S'. " S tipi alt başlık gibidir, font boyutu daha küçüktür.
alv_header-key = 'Açıklama:'.
alv_header-info = 'Açıklama buraya gelecek'.
APPEND alv_header TO alv_header[].

ENDFORM.

Form Show_Alv.

CLEAR alv_events.
alv_events-name = slis_ev_top_of_page.
alv_events-form = 'TOP_OF_PAGE'. " formumuzun adı
APPEND alv_events.

.
.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
.
.
it_events = alv_events[] "<>
.
.
TABLES
.
.

ENDFORM.

***TOP OF PAGE FORMUMUZ
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = alv_header[].
ENDFORM. "TOP_OF_PAGE

ABAP : 1000 ekranında dosya secme islemi

2008-07-15T12:01:00.001+03:00

PARAMETERS : FILEX LIKE RLGRAP-FILENAME DEFAULT 'C:\' OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILEX .
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FILEX .