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

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