>>787
プログラム本体ではなくて、
画面の定義のほうです。

画面の定義ができないのであれば
01　TSUKI.
　03　TSUKI1　PIC　X(01).
　03　TSUKI2　PIC　X(01).
と定義して
IF　TSUKI2　=　SPACE
　THEN
　　MOVE　TSUKI1　TO　TSUKI2
　　MOVE　"0"　TO　TSUKI1
END-IF
でどうよ？

普段はCOBOLでもCOBOL/SやIDL-2ばかりなんで
昔ながらの記述はかなりあやふやだけど。