ON CASE在Infor ERP LN中的应用例子

去年的时候用过一次ON CASE，今天又在做一个报表时用到，不得不说我挺喜欢这个语法的。

使用时的注意事项： 1、CASE后面的值只能是长整型或者字符型（LONG or STRING） 2、必要时设定Default，并且不需要Break 3、当使用字符型的ON CASE时，如果Case后面的字符不是可打印型（如ESC,F1等），可以直接写ASCII值不用双引号。

长整型的ON CASE用法：

<br/>ON CASE weekday<br/>CASE 1:<br/>        day = "Sunday"<br/>        BREAK<br/>CASE 2:<br/>        day = "Monday"<br/>        BREAK<br/>CASE 3:<br/>        day = "Tuesday"<br/>        BREAK<br/>DEFAULT:<br/>        day = "other day"<br/>ENDCASE<br/>

字符型的ON CASE用法：

<br/>ON CASE choice_char<br/>CASE "A":<br/>CASE "E":<br/>        abort()<br/>CASE "N":<br/>        next_screen()<br/>        BREAK<br/>CASE "P":<br/>        last_screen()<br/>        BREAK<br/>CASE 27:<br/>        escape()<br/>        BREAK<br/>DEFAULT:<br/>        message("unknown choice")<br/>ENDCASE<br/>