Hola M� Jes�s:
As� de pronto se me ocurre (es un poco chapucero, la verdad) que recuperes
el mes del proceso y vayas comparando su valor y forzando el hexadecimal
correspondiente, algo asi como:
IF COND(&MES *EQ 1) THEN(DO)
CHGDTAARA DTAARA(*LDA (25 26)) VALUE(X'001F')
GOTO FINLDA
ENDDO
IF COND(&MES *EQ 2) THEN(DO)
CHGDTAARA DTAARA(*LDA (25 26)) VALUE(X'002F')
GOTO FINLDA
ENDDO
y as� hasta:
FINLDA: xxxxxxx
En RPG es sencill�simo, pero en un CL no se me ocurre (de momento) otra
cosa.
Un saludo.
Juanra
Al repasar lo escrito creo que tambi�n podr�a funcionar as�:
CHGVAR VAR(&MES) VALUE('X' *CAT '''' *CAT '0' *CAT &MESN *CAT 'F' *CAT
'''')
----- Original Message -----
From: M� Jesus Carcamo <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, March 22, 2002 1:57 PM
Subject: Variables hexadecimales en CL
>
> Necesito grabar en la LDA un campo Hexadecimal.
>
> Si utilizo CHGDTAARA DTAARA(*LDA (25 26)) VALUE(X'012F')
>
> Me funciona bien, pero necesito que el valor este en funcion del mes de
> proceso.
>
> He intentado formar la variable como
>
> CHGVAR VAR(&MES) VALUE('X' *CAT ' " ' *CAT '0' *CAT &MESN *CAT 'F' *CAT '
"
> ')
>
> pero me lo graba literalmente X"012F" no como un valor Hexadecimal. Las
> comillas las he puesto dobles, porque no me deja ponerlas todas sencillas.
>
> Seguramente sera una chorrada pero no doy con ello, tampoco lo encuentro
en
> los manuales.
>
>
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
