REPORT ZABAP1903_11_BASIC06.
PARAMETERS:sex(4) type c,
height(6) type p DECIMALS 2.
data: s type p DECIMALS 2 ,
t(20) type c.
if sex = 'F'.
if height >= '1.00' and height <= '3.00'.
s = height * '1.09'.
write:/ s.
else.
t = '输出的身高有误'.
endif.
elseif sex = 'M'.
if height >= '1.00' and height <= '3.00'.
s = height / '1.09'.
write:/ s.
else.
t = '输出的身高有误'.
endif.
else.
t = '输出性别有误'.
endif.
WRITE:/ t.
