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

Question

假设我有一个存储两位数的变量。 01 my-int PIC 99。但是当 my-int 取一个数字值时，例如 01，我希望它在打印时采用 1 的形式，其中数字总是在最左边，而 space 在最左边正确的。关于我应该如何定义 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) 或者（在这种特殊情况下，您只有一个 space):

IF my-int > 9
  DISPLAY my-int
ELSE
  DISPLAY my-int (2:)
END-IF

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

How to remove leading zeroes and move the digits to the left most in an integer variable

format

integer

cobol