Hola,
en V5R2 la BIF %Char ya convierte num�ricos a char:
For numeric data, if the value of the expression is float, the result will
be in float
format (for example '+1.125000000000000E+020'). Otherwise, the result will
be in
decimal format with a leading negative sign if the value is negative, and
without
leading zeros. The character used for any decimal point will be the
character
indicated by the control specification DECEDIT keyword (default is '.').
For
example, %CHAR of a packed(7,3) expression might return the value '-1.234'.
Por lo que un EvalR cod5 = %Char(num5) a lo mejor te funciona.
si los blancos han de ser zero... tendr�s que hacer el %Xlate.
fins aviat...
�lex Corretg�
Fernando P�rez
<[EMAIL PROTECTED]> Para: "Foro 400 ([EMAIL
PROTECTED])" <[EMAIL PROTECTED]>
Enviado por: cc:
[EMAIL PROTECTED] Asunto: De num�rico a char
COMBIOS.ES
02/03/2004 09:50
Por favor, responda a
forum.help400
Hola.
Para conseguir el equivalente de un movel de num�rico a alfanum�rico, lo
m�s sencillo que he encontrado es lo siguiente :
cod5 = %xlate(' ': '0': %editc(num5: 4) ) ;
�Alguien conoce alguna otra forma menos enrevesada de hacerlo? (movel y
move no valen ;) )
Saludos.
Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
<<Fernando P�rez.vcf>>
(See attached file: Fernando P�rez.vcf)
Fernando P�rez.vcf
Description: Binary data
