Как убрать начальные нули и переместить цифры влево больше всего в целочисленной переменной

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