Práca s premennými a operátormi

REPORT  z_skolenie_ita LINE-SIZE 80.   " LINE-SIZE 80 nastaví šírku oblasti obrazovky
                                                                     " na 80 znakov, bez zadania tejto modifikácie
                                                                     " bude k dispozícii celá obrazovka

*&-----------------------------------------------------------------------------------------------------------------*
*&-  PREMENNÉ PROGRAMU - DEKLARÁCIA                                                                               -*
*&-----------------------------------------------------------------------------------------------------------------*
*&- Príkaz DATA deklaruje premenné pre určitý typ dát. Medzi základné dátové typy      -*
*&- v jazyku ABAP patrí typ I a P.                                                                                                  -*
*&-                                                                                                                                                      -*
*&- cislo1 TYPE i VALUE 20  ...typ I, pre celé číslo s prednastavenou hodnotou 20             -*
*&- vysledoka TYPE p LENGTH 3 DECIMALS 2 ...typ P, pre desatinné číslo s 3 číslicami      -*
*&-                                         s presnosťou na 2 desatinné miesta                                              -*
*&-                                                                                                                                                      -*
*&- Ak by bolo potrebné ako prednastavenú hodnotu zadať desatinné alebo záporné     -*
*&- číslo, potom zápis VALUE musí byť nasledovný...                                                                -*
*&-      DATA: cislox TYPE i VALUE '-125',                                                                                      -*
*&-                  cisloy TYPE p DECIMALS 2 VALUE '1.25'.                                                              -*
*&-----------------------------------------------------------------------------------------------------------------*

DATA: cislo1 TYPE i VALUE 20,
            cislo2 TYPE i VALUE 3,
            vysledoka TYPE p LENGTH 3 DECIMALS 2,
            vysledokb TYPE p LENGTH 3 DECIMALS 2,
            vysledokc TYPE p LENGTH 3 DECIMALS 2,
            vysledokd TYPE p LENGTH 3 DECIMALS 2.

* /// PREMENNÉ PROGRAMU - DEKLARÁCIA - - - - - - - - - - - - - - - - - - - - - - - - - - - - END - -


*&------------------------------------------------------------------------------------------------------------*
*&-  MATEMATICKÉ OPERÁCIE - SPRACOVANIE                                                                  -*
*&------------------------------------------------------------------------------------------------------------*

vysledoka = cislo1 + cislo2.        " súčet hodnôt
vysledokb = cislo1 - cislo2.        " rozdiel hodnôt
vysledokc = cislo1 * cislo2.        " súčin hodnôt
vysledokd = cislo1 / cislo2.        " podiel hodnôt

* /// MATEMATICKÉ OPERÁCIE - SPRACOVANIE - - - - - - - - - - - - - - - - - - - - - - - - END - -


*&-------------------------------------------------------------------------------------------------------------*
*&-  TABUĽKA – VYKRESLENIE                                                                                                  -*
*&-------------------------------------------------------------------------------------------------------------*
*&- WRITE:/10 'ABC'        ...vypíše text ABC 10 znakov od začiatku riadku                      -*
*&- WRITE:/10 sy-uline(68) ...vykreslí horizontálnu čiaru 10 znakov od začiatku          -*
*&-                                               riadku s dĺžkou 68 znakov                                                    -*
*&- WRITE:/10 sy-vline     ...vykreslí vertikálnu čiaru 10 znakov od začiatku                  -*
*&-                                           riadku, v rámci daného riadku                                                -*
*&- SKIP                               ...zobrazí sa iba jeden prázdny riadok, alebo pre SKIP 3       -*
*&-                                           by sa vytvorili až 3 prázdne riadky                                         -*
*&-                                          (použitie: pre zlepšenie čitateľnosti na obrazovke)             -*
*&-                                                                                                                                                -*
*&- Pre názvy stĺpcov tabuľky, je možné použiť farbu COLOR nasledovne:                    -*
*&- COL_HEADING            ...alebo zadať číslo 1, je to farba Sivo-modrá                         -*
*&- COL_NORMAL             ...alebo zadať číslo 2, je to farba Svetlo-sivá                         -*
*&- COL_TOTAL                 ...alebo zadať číslo 3, je to farba Žltá                                       -*
*&- COL_KEY                      ...alebo zadať číslo 4, je to farba Modro-zelená                     -*
*&- COL_POSITIVE            ...alebo zadať číslo 5, je to farba Zelená                                  -*
*&  COL_NEGATIVE           ...alebo zadať číslo 6, je to farba Červená                              -*
*&- COL_GROUP               ...alebo zadať číslo 7, je to farba Fialová                                  -*
*&-----------------------------------------------------------------------------------------------------------*

* Upozornenie: Po sebe nasledujúce príkazy by bolo možné zapísať aj takto, ale tento
* spôsob zápisu sa z dôvodu prehľadnosti v kóde neodporúča
SKIP. WRITE:/8 'Jednoduché matematické operácie:'. SKIP.


WRITE:/10 sy-uline(68).

WRITE:/10  sy-vline,                " ak po sebe nasleduje viac rovnakých príkazov,
                                                    " potom na konci každého riadku sa použije čiarka
                                                   " a na konci posledného riadku sa zapíše bodka
      (10) 'Hodnota A' COLOR COL_HEADING, sy-vline,
      (10) 'Hodnota B' COLOR COL_HEADING, sy-vline,
      (10) 'Výsledok'  COLOR COL_TOTAL, sy-vline,
      (25) 'Poznámka k výpočtu'  COLOR 5, sy-vline.

WRITE:/10 sy-uline(68).

WRITE:/10  sy-vline,                " znak / za príkazom WRITE zabezpečí po vykreslení
                                                    " čiary prechod na nový riadok
      (10) cislo1, sy-vline,
      (10) cislo2, sy-vline,
      (10) vysledoka, sy-vline,
      (25) 'Súčet hodnôt', sy-vline.

WRITE:/10 sy-uline(68).

WRITE:/10  sy-vline,
      (10) cislo1, sy-vline,
      (10) cislo2, sy-vline,
      (10) vysledokb, sy-vline,
      (25) 'Rozdiel hodnôt', sy-vline.

WRITE:/10 sy-uline(68).

WRITE:/10  sy-vline,
      (10) cislo1, sy-vline,
      (10) cislo2, sy-vline,
      (10) vysledokc, sy-vline,
      (25) 'Súčin hodnôt', sy-vline.

WRITE:/10 sy-uline(68).

WRITE:/10  sy-vline,
      (10) cislo1, sy-vline,
      (10) cislo2, sy-vline,
      (10) vysledokd, sy-vline,
      (25) 'Podiel hodnôt', sy-vline.

WRITE:/10 sy-uline(68).

* /// TABUĽKA – VYKRESLENIE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - END - -

SKIP.
ULINE.                              " samostatná vodorovná čiara sa môže pre celý nový
                                          " riadok vykresliť cez príkaz ULINE