Easytrieve - удаление начального нуля в числовой переменной

Question

С помощью программы Easytrieve пытаюсь получить подробности из DB2. Но один из столбцов имеет целочисленный тип данных, и я перемещаю данные в двоичную переменную. И мне нужно выполнить арифметическую операцию с этой переменной, и результат будет перемещен в выходной файл.

Когда я пытаюсь переместить двоичное значение в буквенно-цифровой, я получаю ведущий ноль.

Не уверен, как удалить эти ведущие значения.

Например:

DB2 column name (Period_value) = 240 
Easytrieve : 
FILE TEMP1 
  TEMP-PERIOD     1   5  A 

WS-VAL1    W  4 B 0    
WS-TEMP    W  4 N 

.... 
....

используя курсор, чтобы получить значение из Db2

WS-VAL1 держит значение 240

DISPLAY  WS-VAL1                  => OUTPUT : 240 

* CALCULATION

WS-VAL1 = WS-VAL1 + 1 

WS-TEMP = WS-VAL1

DISPLAY WS-TEMP         ->  OUTPUT : 0241 

MOVE  WS-TEMP to TEMP-PERIOD

PUT TEMP1 

Но выходной файл содержит

0241 

Expected output 
241 
242 (without leading zero) 

Может ли кто-нибудь помочь мне в этом.