CL中如何对DEC和CHAR的变量进行互相转换

rosteedluo

CL中：
DCL        VAR(&SPLNBR) TYPE(*CHAR) LEN(6)
DCL        VAR(&SPLDEC) TYPE(*DEC) LEN(6)

SPLNBR为‘123456’，如何给到变量SPLDEC：SPLDEC=123456

rosteedluo

没人知道？还是转不了？

caomangyu

直接  CHGVAR     VAR(&SPLDEC) VALUE(&SPLNBR)

如果&SPLNBR含小数  两个变量 长度一样
如果 &SPLNBR 含小数 &SPLDEC 长度要加一位

rosteedluo

昨日就试过了，这样不行的：
detected an error at statement number 2600. Message text for CPF0818 is:
Value cannot be converted to type implied by receiver.                  

两边类型不匹配。

caomangyu

看下是否有其他错误吧~! 刚试了一下,我这是可以的
PGM                                       
DCL        VAR(&A) TYPE(*DEC) LEN(6)      
DCL        VAR(&B) TYPE(*CHAR) LEN(6)     
CHGVAR     VAR(&B) VALUE(123456)         
CHGVAR     VAR(&A) VALUE(&B)              
ENDPGM                                    
Variable  . . . . . . . . . . . . . . . : &B           
  Type  . . . . . . . . . . . . . . . . :   CHARACTER  
  Length  . . . . . . . . . . . . . . . :   6         
  *...+....1....+....2....+....3....+....4....+....5   
'123456'                                             
Variable  . . . . . . . . . . . . . . . : &A      
   Type  . . . . . . . . . . . . . . . . :   PACKED
   Length  . . . . . . . . . . . . . . . :   6 0   
  ' 123456'