ABAP while ,do ,case

REPORT zabap12.

data : inc type i value 1 .


start-of-selection.

*while inc <= 100.
*  write : / inc .
*  inc += 1 .
*
*endwhile .

do 10 times.
  write : / inc .
  inc += 1 .
enddo.

 

if chk_oprt = 'X'.
    case oprt.
        when '+'.
        opr_desc = 'Addition'.
        when '-'.
        opr_desc = 'Subtraction'.
        when '*'.
        opr_desc = 'Multification'.
        when '/'.
        opr_desc = 'Division'.
    endcase.
    write: / 'Operater:' ,oprt,
           / 'Operation description:', opr_desc.
endif.