DATA: gv_1 TYPE c.

DATA: gv_2 TYPE i.

gv_2 = 60.

IF gv_2 >= 0 AND gv_2 < 60 .

gv_1 = 'A'.

ELSEIF gv_2 >= 60 AND gv_2 < 70.

gv_1 = 'B'.

ELSEIF gv_2 >= 70 AND gv_2 < 80.

gv_1 = 'C'.

ELSEIF gv_2 >= 80 AND gv_2 < 90.

gv_1 = 'D'.

ELSEIF gv_2 >= 90 AND gv_2 <= 100.

gv_1 = 'E'.

else.

gv_1 = 'F'.

ENDIF.

CASE gv_1.

WHEN 'A'.

*   MESSAGE '.BACK.' TYPE 'i'.

WRITE: / gv_2 ,'不及格'.

WHEN 'B'.

*    MESSAGE '.CANCEL.' TYPE 'i'.

WRITE: / gv_2,'及格'.

WHEN 'C'.

*    MESSAGE '.exit.' TYPE '1'.

WRITE: / gv_2,'中'.

WHEN 'D'.

*    MESSAGE '.CANCEL.' TYPE 'i'.

WRITE: / gv_2,'良好'.

WHEN 'E'.

*    MESSAGE '.CANCEL.' TYPE 'i'.

WRITE: / gv_2,'優秀'.

WHEN 'F'.

*    MESSAGE '.CANCEL.' TYPE 'i'.

WRITE: / gv_2,'大於100，請輸入0~100中間的數值！'.

*  WHEN OTHERS.

**    MESSAGE '.OTHERS.' TYPE 'i'.

*    WRITE: / gv_2 ,'大於100，請輸入0~100中間的數值！'.

ENDCASE.

abap case when 例子的更多相关文章

  1. ABAP：从例子学习ABAP

    1.插入内表行: *插入内表行: DATA: BEGIN OF man, name(20) TYPE c, high TYPE p DECIMALS 2, weight TYPE p DECIMALS ...

  2. ABAP table control例子

    [转自]http://blog.csdn.net/lhx20/article/details/3039909Table control用于在screen上以表格的形式显示数据,在table contr ...

  3. case使用例子

    echo 'Input a number between 1 to 4' echo 'Your number is:\c' read aNum case $aNum in 1) echo 'You s ...

  4. verilog学习笔记(3)_task/case小例子及其tb

    module ex_case `timescale lns/1ns module ex_case( input wire rst_n, input wire sclk, output reg [7:0 ...

  5. oracle 存储过程和函数例子

    关于 游标 if,for 的例子 create or replace procedure peace_if is cursor var_c is select * from grade; begin ...

  6. Oracle中是用case...when语句进行判断

    使用case...when语句进行判断,其语法格式如下: case<selector> when<expression_1> then pl_sqlsentence_1; wh ...

  7. mysql中 case when的使用

    SELECT a.hsid, a.house_code, a.sale_date, a.pjid, COUNT( sdid ) AS num, b.hsid, b.pscid, b.hscode, b ...

  8. oracle 存储过程和函数例子 --2

    关于 游标 if,for 的例子 create or replace procedure peace_if is cursor var_c is select * from grade; begin ...

  9. CASE WHEN 小结

    1.简单的一个case when 例子: CASE sex ' THEN '男' ' THEN '女' ELSE '其他' END 2. case when 在一整个表为空强行让其显示出一个值,在其后 ...

随机推荐

  1. Confluence 5.4实现与JIRA前所未有的集成

    http://www.blogjava.net/qileilove/archive/2014/03/03/410520.html 软件开发过程是一个讲求高度协作的过程,它需要很多不同领域团队的共同努力 ...

  2. shell 工具

    http://zouqingyun.blog.51cto.com/782246/1696340

  3. yii 主从数据库分离-转载http://www.yiichina.com/doc/guide/2.0/db-dao

    数据库复制和读写分离 很多数据库支持数据库复制 database replication来提高可用性和响应速度. 在数据库复制中,数据总是从主服务器 到 从服务器. 所有的插入和更新等写操作在主服务器 ...

  4. 每日学习心得：Js获取Checkboxlist所选值、instanceof 和typeof区别、为Array添加contains方法

    2013-11-24 前言: 上周在工作中遇到了一些跟JS以及前台交互的问题,虽然算不上多么高深,但是在解决时也走了一些弯路,所以就总结一下. 1.    JS获取checkboxList所选的值 这 ...

  5. 读书笔记：Sheldon Ross：概率论基础教程：随机变量

    例1b 一个坛子里装有编号1-20的球,无放回抽取3个,取出球中至少一个号码大于等于17的概率是多少? 除了书上的解法外,还有一种解法: 考虑相反的情况:三个球的号码都小于17. 第一次从编号1-16 ...

  6. SDC文件模版

    # 1. Define clock create_clock -name "clk_in" -period 20ns [get_ports {clk_in}] # 2. tco c ...

  7. read,for,case,while,if简单例子

    Read多用于从某文件中取出每行进行处理 $ cat read.sh #!/bin/bash echo "using read" cat name.txt | while read ...

  8. TextBox(只允许输入字母或者数字)

    实现如下: using System;using System.Collections.Generic;using System.Linq;using System.Text;using System ...

  9. python安装psycopg2

    vim ~/.bash_profile export PATH=/Applications/Postgres.app/Contents/Versions/9.4/bin/:$PATH pip inst ...

  10. 文件压缩与挤压ZIP

    /// <summary> /// Zip压缩与解压缩 /// </summary> public class ZipHelper { /// <summary> ...