作者:海洋无限广 | 来源:互联网 | 2022-11-19 09:44
所以,假设我有一个存储两位数字的变量.01 my-int PIC 99
.但是当my-int
取一个数字值时01
,我希望它1
在打印时采用表格,其中数字总是在最左边,空间在右边.关于如何定义my-int
以实现这一点的任何想法?
谢谢!
1> Simon Sobisc..:
定义my-int来存储数据01 my-int PIC 99
,然后使用编辑01 my-edit PIC z9
和使用MOVE my-int TO my-edit
和DISPLAY FUNCTION TRIM (my-edit LEADING)
(在这种特殊情况下你只有一个空格):
IF my-int > 9
DISPLAY my-int
ELSE
DISPLAY my-int (2:)
END-IF