COBOL 如何实现打印不换行

来源：百度知道 编辑：UC知道 时间：2024/06/30 05:03:40
想要打印99 乘法表 利用PERFORM UNTIL 实现的循环 但是利用DISPLAY 打印结果则出现
1
2
3
·······
想要实现 1 2 3 ·····
2 4 6 ·····

display A.
display B.
display C.
的结果是:
A
B
C
display A B C.的结果是:A B C.

01 COUNTNUM PIC 9(02).
01 NUM PIC X(36).
01 NUMR REDEFINES NUM.
03 NUMAREA OCCURS 9
05 NUMA PIC 9(02).
05 NUMB PIC X(02).

MOVE SPACE TO NUM.
PERFORM VARYING IDX1 FROM 1 BY 1 UNTIL IDX1 > 9
PERFORM VARYING IDX2 FROM 1 BY 1 UNTIL IDX2 > IDX1
COMPUTE COUNTNUM = IDX1 * IDX2
MOVE COUNTNUM TO NUMA(IDX2)
MOVE SPACE TO NUMB(IDX2)
END-PERFORM
DISPLAY NUM