Easytrieve-删除数字变量中的前导零

时间:2019-01-15 12:56:59

标签: db2 mainframe easytrieve

使用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) 

有人可以帮我这个忙吗?

0 个答案:

没有答案