すみません。ちょっと教えて頂きたいのですが・・・

月をACCEPTで入力する時に、1〜12以外の数字が入力された場合
エラーを表示するプログラムなんですが、うまく動いてくれません。

01　CHK　PIC　(01)　VALUE　"0"
　　88　OK　　　　　VALUE　"1"

01　TSUKI　PIC　X(02).

05　M-TSUKI　PIC　X(02).

DISPLAY　"月を入力して下さい（1-12）"
PERFORM　UNTIL　OK
　ACCEPT　TSUKI
　IF　TSUKI　>=　1　AND　TSUKI　<=　12
　　THEN
　　　MOVE　TSUKI　TO　M-TSUKI
　　　SET　OK　TO　TRUE
　　ELSE
　　　DISPLAY　"エラー：1から12までの数字を入力して下さい"
　END-IF
END-PERFORM

1,10,11,12の場合はTHENの方に分岐するのですが
2〜9がELSEの方に分岐してしまいます。
TSUKIを9(02)にしてもダメでした。

よろしくお願いします。