COBOLのゼロサプレスの仕様
IDENTIFICATION DIVISION.
PROGRAM-ID. CALC.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TESTCALCARRAY.
03 TESTVAR OCCURS 5 PIC 9(5) VALUE 0.
01 TESTDISPARRAY.
03 TESTDISP OCCURS 5 PIC ZZZZ9.
01 SUMVAR PIC 99999 VALUE 0.
PROCEDURE DIVISION.
MAIN SECTION.
ADD 5 TO TESTVAR(1) TESTVAR(2) TESTVAR(3) TESTVAR(4) TESTVAR(5).
SUBTRACT 1 FROM TESTVAR(2).
DIVIDE TESTVAR(1) BY 3 GIVING TESTVAR(4) REMAINDER TESTVAR(3).
MULTIPLY TESTVAR(1) BY 0 GIVING TESTVAR(5).
COMPUTE SUMVAR = TESTVAR(1)+TESTVAR(2)+TESTVAR(3)+TESTVAR(4)+TESTVAR(5)
DISPLAY TESTCALCARRAY.
DISPLAY SUMVAR.
MOVE TESTCALCARRAY TO TESTDISPARRAY.
DISPLAY TESTDISPARRAY.
STOP RUN.
このようなコードを書いたのですが、
最後のDISPLAY TESTDISPARRAYが
0000500004000020000100000
となってしまいます。
□□□□5□□□□4□□□□2□□□□1□□□□0
となる想定なのですが、どの部分が違っているでしょうか?
よろしくお願いします。