如何删除前导零和移动数字到最左边的一个整型变量

Question

所以我们可以说，我有一个存储二位数字的变量。 01 my-int PIC 99。但是，当my-int需要一个数字值，如01，我想在印刷中的数字总是在最左边和空间右边它采取的形式1。关于我应该怎么才能确定my-int任何想法来实现这一目标？ 谢谢！

Answer 1

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