CL中如何對DEC和CHAR的變量進行互相轉(zhuǎn)換

rosteedluo

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

SPLNBR為‘123456’，如何給到變量SPLDEC：SPLDEC=123456

rosteedluo

沒人知道？還是轉(zhuǎn)不了？

caomangyu

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

如果&SPLNBR含小數(shù)  兩個變量 長度一樣
如果 &SPLNBR 含小數(shù) &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'