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.

 

posted @ 2023-05-18 20:22  donkey8  阅读(36)  评论(0)    收藏  举报