DATA : satir1 VALUE '1', satir2 VALUE '2'.
AT LINE-SELECTION.
BREAK-POINT.
START-OF-SELECTION.
WRITE : / 'SATIR1'. HIDE satir1.
WRITE : / 'SATIR2'. HIDE satir2.
Programcılar için altın değerindeki örnek kodlar , bilgiler. Bunları başka yerlerde bulamazsınız...
at etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
at etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster
8 Şubat 2011 Salı
At komutu örneği
DATA : itab1 LIKE sflight OCCURS 0 WITH HEADER LINE.
DATA : itab2 TYPE TABLE OF sflight WITH HEADER LINE.
SELECT * FROM sflight INTO TABLE itab1.
data : k type i.
LOOP AT itab1.
k = 0.
AT NEW connid.
ADD 1 TO k.
ENDAT.
AT NEW carrid.
ADD 1 TO k.
ENDAT.
IF k >= 1.
ULINE.
ENDIF.
WRITE : / itab1-carrid, itab1-connid.
ENDLOOP.
DATA : itab2 TYPE TABLE OF sflight WITH HEADER LINE.
SELECT * FROM sflight INTO TABLE itab1.
data : k type i.
LOOP AT itab1.
k = 0.
AT NEW connid.
ADD 1 TO k.
ENDAT.
AT NEW carrid.
ADD 1 TO k.
ENDAT.
IF k >= 1.
ULINE.
ENDIF.
WRITE : / itab1-carrid, itab1-connid.
ENDLOOP.
Kaydol:
Kayıtlar (Atom)