Для удаления ведущих нулей используется следующее выражение:
|
1 2 3 |
data a(9) value '000012345'. SHIFT a LEFT DELETING LEADING '0'. write:/ 'a = ', a. |
Вывод:
a = 12345
Удаление ведущих нулей
ТЕХНОЛОГИИ И ЗАМЕТКИ
ТЕХНОЛОГИИ И ЗАМЕТКИ
Для удаления ведущих нулей используется следующее выражение:
|
1 2 3 |
data a(9) value '000012345'. SHIFT a LEFT DELETING LEADING '0'. write:/ 'a = ', a. |
Вывод:
a = 12345