internal tableda bir önceki kaydı bulma

TYPES : BEGIN OF gty_s_data,
        index TYPE i,
        END OF gty_s_data.

DATA: gt_data TYPE STANDARD TABLE OF gty_s_data,
      gs_data TYPE gty_s_data,
      gs_data_onceki TYPE gty_s_data,
      gr_s_onceki TYPE REF TO gty_s_data.

FIELD-SYMBOLS: <fs_s_data> TYPE gty_s_data.

gs_data-index = 1.
APPEND gs_data TO gt_data.
gs_data-index = 2.
APPEND gs_data TO gt_data.
gs_data-index = 3.
APPEND gs_data TO gt_data.

LOOP AT gt_data ASSIGNING <fs_s_data>.
  IF gr_s_onceki IS NOT INITIAL.
    gs_data_onceki = gr_s_onceki->*.
  ENDIF.
  GET REFERENCE OF <fs_s_data> INTO gr_s_onceki.
ENDLOOP.

Ref : http://wiki.scn.sap.com/wiki/display/Snippets/Look-back+in+internal+table

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

CONVERSION_EXIT_ALPHA_INPUT - CONVERSION_EXIT_ALPHA_OUTPUT -Değişken başına sıfır eklemek ve değişkenin başındaki sıfırları silmek

Resim
DATA  :  gv_data1  TYPE c  LENGTH  5  VALUE  '12345' ,        gv_data2  TYPE c  LENGTH  10 . "gv_data1 in önüne 5 tane sıfır ekliyoruz CALL FUNCTION  'CONVERSION_EXIT_ALPHA_INPUT'    EXPORTING      input   =  gv_data1    IMPORTING      output  =  gv_data2 . WRITE : / gv_data2 . CLEAR  :  gv_data1 . "gv_data2 den 5 tane sıfır siliyoruz CALL FUNCTION  'CONVERSION_EXIT_ALPHA_OUTPUT'    EXPORTING      input   =  gv_data2    IMPORTING      output  =  gv_data1 . WRITE : / gv_data1 . SONUÇ :
Devamı

Sap Netweaver 7.52 SP04 (Trial)Deneme Sürümü Kurulumu(Vagrant)

Resim
Sap Netweaver 7.52 SP04 (Trial)Deneme Sürümü Kurulumu(Vagrant) Bu yazıda,Sap abap S/4 Hana geliştirmelerini yapabilmek için vagrant* kullanılarak Sap Netweaver 7.52 SP04 (Trial)Deneme Sürümü Kurulumu(Vagrant) nasıl yapıldığından bahsedilecektir. Sap Netweaver 7.52 SP04 Deneme Sürümü kurulumu vagrant kullanılmadan virtualbox,vmware gibi sanal bilgisayarlara linux sürümü kurularak da yapılabilir fakat bu yazının konusu dışındandır. Ayrıca bu kurulum sırasında alınan birkaç hatanın çözümünden bahsedilecektir. Öncelikle kurulum için gerekli olan dosyalar indirilir. Abap ve Vagrant'ı biraraya getiren github dosyası indirilir : https://github.com/sbcgua/sap-nw-abap-vagrant Virtualbox şu linkten indirilir :  https://www.virtualbox.org/wiki/Downloads Güncel vagrant şu linkten indirilir ve kurulur:  https://www.vagrantup.com/downloads  ( Kurulum yaparken bu exe dosyasının güncel sürümü olduğundan emin olunması gerekir,vagrant up komutu çalıştırılırken birçok hata bu sürümün güncel...
Devamı