如何删除前导零并将数字移动到整数变量的最左侧

Question

所以,假设我有一个存储两位数字的变量.01 my-int PIC 99.但是当my-int取一个数字值时01,我希望它1在打印时采用表格,其中数字总是在最左边,空间在右边.关于如何定义my-int以实现这一点的任何想法？
谢谢!

Answer 1

定义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