COBOL Condition-name条件 - Cobol示例代码™

COBOL Condition-name条件

不拉小（这个家伙很懒，什么都没有写。）所在分类：Cobol示例代码

2018-07-30 2475 0

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM PIC 9(3).
   88 PASS VALUES ARE 041 THRU 100.
   88 FAIL VALUES ARE 000 THRU 40.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE 65 TO WS-NUM.

   IF PASS 
      DISPLAY 'Passed with ' WS-NUM ' marks'.

   IF FAIL 
      DISPLAY 'FAILED with ' WS-NUM 'marks'.

STOP RUN.