Lab5 ABAP

*&---------------------------------------------------------------------*
*& Report ZMAGDAKACPER5
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZMAGDAKACPER5.


WRITE:/ 'ZAD1'.

TYPES: BEGIN OF samochody,
  id(5) TYPE n,
  nr_rejestracyjny(15) TYPE c,
  marka(10) TYPE c,
  model(10) TYPE c,
  data_pierwszej_rejestracji TYPE d,
  vin(20) TYPE c,
  wlasciciel(40) TYPE c,
  silnik_typ(20) TYPE c,
  pojemnosc(5) TYPE p DECIMALS 2,
  END OF samochody.

DATA: samochody2 TYPE samochody.
DATA: tabela TYPE TABLE OF samochody.

samochody2-id = 1.
samochody2-nr_rejestracyjny = '768 341'.
samochody2-marka = 'Opel'.
samochody2-model = 'Adam'.
samochody2-data_pierwszej_rejestracji = '19960106'.
samochody2-vin = '000000000'.
samochody2-wlasciciel = 'Kacper Niwczyk'.
samochody2-silnik_typ = 'Spalinowy'.
samochody2-pojemnosc = 1900.
INSERT samochody2 INTO TABLE tabela.

samochody2-id = 2.
samochody2-nr_rejestracyjny = '759 069'.
samochody2-marka = 'Ford '.
samochody2-model = 'Fiesta'.
samochody2-data_pierwszej_rejestracji = '20040213'.
samochody2-vin = 'MDSAY12341'.
samochody2-wlasciciel = 'Magdalena Miłowska'.
samochody2-silnik_typ = 'Spalinowy'.
samochody2-pojemnosc = 2000.
INSERT samochody2 INTO TABLE tabela.


samochody2-id = 3.
samochody2-nr_rejestracyjny = 'FSD 321'.
samochody2-marka = 'Chrystler'.
samochody2-model = 'Voyager'.
samochody2-data_pierwszej_rejestracji = '20050114'.
samochody2-vin = 'DSFASD312341'.
samochody2-wlasciciel = 'Jan Nowak'.
samochody2-silnik_typ = 'Elektryczny'.
samochody2-pojemnosc = 4000.
INSERT samochody2 INTO TABLE tabela.

LOOP AT tabela INTO samochody2.
  WRITE:/ samochody2-id, samochody2-nr_rejestracyjny, samochody2-marka, samochody2-model, samochody2-data_pierwszej_rejestracji, samochody2-vin, samochody2-wlasciciel, samochody2-silnik_typ, samochody2-pojemnosc.
  ENDLOOP.


  WRITE:/ 'ZAD2'.


  DELETE tabela INDEX: 1.

LOOP AT tabela INTO samochody2.
  WRITE:/ samochody2-id, samochody2-nr_rejestracyjny, samochody2-marka, samochody2-model, samochody2-data_pierwszej_rejestracji, samochody2-vin, samochody2-wlasciciel, samochody2-silnik_typ, samochody2-pojemnosc.
  ENDLOOP.


  WRITE:/ 'ZAD3'.

  samochody2-wlasciciel = 'Jan Kowalski'.
MODIFY tabela FROM samochody2 INDEX 2.

LOOP AT tabela INTO samochody2.
  WRITE:/ samochody2-id, samochody2-nr_rejestracyjny, samochody2-marka, samochody2-model, samochody2-data_pierwszej_rejestracji, samochody2-vin, samochody2-wlasciciel, samochody2-silnik_typ, samochody2-pojemnosc.
  ENDLOOP.


WRITE:/ 'ZAD4'.

samochody2-silnik_typ = 'Diesel'.
MODIFY tabela FROM samochody2 TRANSPORTING silnik_typ WHERE pojemnosc = 1900.

LOOP AT tabela INTO samochody2.
  WRITE:/ samochody2-id, samochody2-nr_rejestracyjny, samochody2-marka, samochody2-model, samochody2-data_pierwszej_rejestracji, samochody2-vin, samochody2-wlasciciel, samochody2-silnik_typ, samochody2-pojemnosc.
  ENDLOOP.