Удаление ведущих нулей

  1. data a(9) value '000012345'.
  2. SHIFT a LEFT DELETING LEADING '0'.
  3. write:/ a.

На выходе получим : 12345

Комментарии