mainframe - 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) 

有人可以帮我解决这个问题。