cobol 特定の値でevaluate を抜けたい

cobolで自動販売機のプログラムを作成しています。

コンソールに1〜4の数字を入力して商品を選択し、0を入力するまで繰り返す仕様です。

コーディングで、evaluate を使って1〜4を入力した場合には商品を設定し、0を入力した場合にはevaluate を終了し、それ以外の時はエラーメッセージを表示したいです。

入力の内容が0の時end evaluate と記載するとコンパイルエラーになってしまうのですが、以下のプログラムをどのように修正すれば良いでしょうか

IDENTIFICATION DIVISION.
PROGRAM-ID. wrok.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRODUCT.
03 PRODUCT-NAME PIC X(16) .
03 PRODUCT-PRICE PIC 9(4) .
03 PRODUCT-NO PIC 9(1).
03 PRODUCT-COUNT PIC 9(2).
03 PRODUCT1-STOCK PIC 9(2) VALUE 10.
03 PRODUCT2-STOCK PIC 9(2) VALUE 10.
03 PRODUCT3-STOCK PIC 9(2) VALUE 10.
03 PRODUCT4-STOCK PIC 9(2) VALUE 10.

01 PRODUCTNO PIC 9(1). *>商品NO>
01 PRODCUTQUANTITY PIC 9(1). *>商品個数>
01 MONYQUANTITY PIC 9(2). *>購入硬貨.紙幣数>
01 MONYTYPE PIC 9(4). *>硬貨の種類>

PROCEDURE DIVISION.
ACCEPT PRODUCTNO FROM CONSOLE.
ACCEPT PRODCUTQUANTITY FROM CONSOLE.

 *>商品名．個数の入力
 EVALUATE PRODUCT-NO
 
 WHEN 1
      MOVE "水" TO PRODUCT-NAME
      MOVE 100  TO PRODUCT-PRICE
      COMPUTE PRODUCT1-STOCK = PRODUCT1-STOCK - PRODCUTQUANTITY
 
 WHEN 2
      MOVE "お茶" TO PRODUCT-NAME
      MOVE  150  TO PRODUCT-PRICE
      COMPUTE PRODUCT2-STOCK = PRODUCT1-STOCK - PRODCUTQUANTITY

 WHEN 3
     MOVE "オレンジジュース" TO PRODUCT-NAME
     MOVE      200     TO PRODUCT-PRICE
     COMPUTE PRODUCT3-STOCK = PRODUCT1-STOCK - PRODCUTQUANTITY
     
 WHEN 4
    MOVE "コーラ" TO PRODUCT-NAME
    MOVE  250   TO PRODUCT-PRICE 
    COMPUTE PRODUCT4-STOCK = PRODUCT1-STOCK - PRODCUTQUANTITY

 
 


 WHEN OTHER  
 DISPLAY "商品選択が間違っています。1~4の数字で商品をしていしてください" UPON CONSOLE
 WHEN 0   *>ここでコンパイルエラー