*&---------------------------------------------------------------------*
*& Report Z_SKOLENIE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_skolenie.

*&---------------------------------------------------------------------*
*&  DEKLARACIA PREMENNYCH
*&---------------------------------------------------------------------*
*&  Dolezite:
*&  - prikaz DATA sa pouzije k deklaracii premennych pre urcity datovy typ
*&
*&  Cislo1 TYPE i VALUE 30
*&  .. typ I, pre cele cislo s prednastavenou hodnotou 30
*&
*&  VysledokD TYPE p DECIMALS 2
*&  .. typ P, pre desatinne cislo s presnostou na 2 desatinne miesta
*&
*&  - ak by bolo treba ako prednastavenu hodnotu zadat desatinne alebo
*&    zaporne cislo, potom priklad na zapis VALUE je nasledovny..
*&       DATA: CisloX TYPE i VALUE '-123',
*&             CisloZ TYPE p DECIMALS 2 VALUE '1.23'.
*&---------------------------------------------------------------------*

DATA: cislo1    TYPE i VALUE 30,
      cislo2    TYPE i VALUE 12,
      vysledokp TYPE i,
      vysledokm TYPE i,
      vysledokk TYPE i,
      vysledokd TYPE p DECIMALS 2,
      napis     TYPE string VALUE 'Vysledok vypoctu:'.

* /// ---------------------------------------------------------------- /

*&---------------------------------------------------------------------*
*&  MATEMATICKE OPERACIE - SPRACOVANIE
*&---------------------------------------------------------------------*

vysledokp = cislo1 + cislo2.        " pre sucet hodnot
vysledokm = cislo1 - cislo2.        " pre rozdiel hodnot
vysledokk = cislo1 * cislo2.        " pre sucin hodnot
vysledokd = cislo1 / cislo2.        " pre podiel hodnot

* /// ---------------------------------------------------------------- /


*&---------------------------------------------------------------------*
*&  VYKRESLENIE TABULKY
*&---------------------------------------------------------------------*
*&- WRITE:/5 'XYZ'        ...vypise text XYZ 5 znakov od zaciatku riadku
*&- WRITE:/5 sy-uline(50) ...vykresli horizontalnu ciaru 5 znakov od
*&-                          zaciatku riadku s dlzkou 50 znakov
*&- WRITE:/5 sy-vline     ...vykresli vertikalnu ciaru 5 znakov od
*&-                          zaciatku riadku v ramci riadku
*&
*&- Pre farbu nazov stlpca tabulky mozno pouzit prikaz ĆOLOR nasledovne:
*&- COL_HEADING           ...alebo zadat COLOR 1, co je farba sivo-modra
*&- COL_NORMAL            ...alebo zadat COLOR 2, co je farba svetlo-siva
*&- COL_TOTAL             ...alebo zadat COLOR 3, co je farba zlta
*&- COL_KEY               ...alebo zadat COLOR 4, co je farba modro-zelena
*&- COL_POSITIVE          ...alebo zadat COLOR 5, co je farba zelena
*&  COL_NEGATIVE          ...alebo zadat COLOR 6, co je farba cervena
*&- COL_GROUP             ...alebo zadat COLOR 7, co je farba fialova
*&---------------------------------------------------------------------*

SKIP.
WRITE:/8 'Jednoduche matematicke vypocty:'.
SKIP. " alebo   SKIP 3   , toto by vytvorilo az 3 prazdne riadky

WRITE:/10 sy-uline(38).

WRITE:/10  sy-vline,
      (5) 'Cislo' COLOR COL_HEADING, sy-vline,
      (2) 'Zn' , sy-vline,
      (5) 'Cislo' COLOR COL_KEY, sy-vline,
      (2) 'Zn' , sy-vline,
      (8) 'Vysledok'  COLOR COL_TOTAL, sy-vline.

WRITE:/10 sy-uline(38).

WRITE:/10  sy-vline,
      (5) cislo1, sy-vline,
      (2) '+' , sy-vline,
      (5) cislo2, sy-vline,
      (2) '=' , sy-vline,
      (8) vysledokp, sy-vline.

WRITE:/10 sy-uline(38).

WRITE:/10  sy-vline,
      (5) cislo1, sy-vline,
      (2) '-' , sy-vline,
      (5) cislo2, sy-vline,
      (2) '=' , sy-vline,
      (8) vysledokm, sy-vline.

WRITE:/10 sy-uline(38).

WRITE:/10  sy-vline,
      (5) cislo1, sy-vline,
      (2) '*' , sy-vline,
      (5) cislo2, sy-vline,
      (2) '=' , sy-vline,
      (8) vysledokk, sy-vline.

WRITE:/10 sy-uline(38).

WRITE:/10  sy-vline,
      (5) cislo1, sy-vline,
      (2) '/' , sy-vline,
      (5) cislo2, sy-vline,
      (2) '=' , sy-vline,
      (8) vysledokd, sy-vline.

WRITE:/10 sy-uline(38).

* /// ---------------------------------------------------------------- /