*&---------------------------------------------------------------------*
*& Report  ZGL156PROGRAMC3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZGL156PROGRAMC3.

* declaratie de tip
types: begin of ty_tip1,
      counter type n length 2,
      short_desc type c length 20,
      long_desc type c length 60,
  end of ty_tip1.


 data: gs_struct1 type ty_tip1,
       gv_var1  type n length 3.


 parameters p_par1 type n length 3.


 start-of-selection.

 write p_par1.

 move p_par1 to gv_var1.
 skip 2.
 write / gv_var1.


 move: 11 to gs_struct1-counter,
       'descriere scurta' to gs_struct1-short_desc,
       'descriere lunga' to gs_struct1-long_desc.


* afisare continut structura
 skip 1.
 write: gs_struct1-counter,
        / gs_struct1-short_desc,
        / gs_struct1-long_desc.

* instructiunea if
skip 1.
 IF p_par1 < 100.
   write / 'mai mic de 100'.
ELSEIF  p_par1 > 100.
  write / 'mai mare ca 100'.
 else.
   write / 'egal 100'.
 ENDIF.

* instructiunea case
 skip 3.
 CASE  p_par1.
    WHEN '100'.
    write 'egal 100'.
    WHEN OTHERS.
    write 'diferit de 100'.
 ENDCASE.

 skip 1.

 write sy-datum to gs_struct1-short_desc.

* afisare
 write gs_struct1-short_desc.