He encontrado este ejemplo por si te sirve de algo
He encontrado este ejemplo por si te sirve.
*************** Beginning of data *************************************
H DFTACTGRP(*NO) BNDDIR('QC2LE')
d
d cvtch pr extproc('cvtch')
d target 26a
d src_chars 52a const
d src_len 10I 0 value
d
d cvthc pr extproc('cvthc')
d target 52A
d src_bits 26A const
d src_len 10I 0 value
d
d buf s 26a
d hexdump s 52a
d
c callp cvthc(hexdump: 'HELLOW': %size(hexdump))
c
c callp cvtch(buf: hexdump: %size(buf)*2)
c hexdump dsply
c dsply buf
c return
****************** End of data ****************************************
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. L.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este e-mail es confidencial. Si usted no es el receptor apropiado, rogamos
no use la información contenida en el mismo por ser personal e
intransferible.
Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el
e-mail inmediatamente al remitente y destruya el documento.
EXCLUSIVAS CAMACHO S.L. no se hará responsable del mal uso de la
información recibida en estas condiciones, tomando las pertinentes acciones
legales contra la persona o entidad que incumpla el siguiente clausulado.
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: viernes, 09 de noviembre de 2007 11:19
Para: forum.help400
Asunto: RE: Convertir numérico a hexadecimal
Gracias Javier
Voy a investigarlo --> cvtch (Convert Character to Hex)
Un Saludo.
"Javier Mora" <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
09/11/2007 10:50
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
RE: Convertir numérico a hexadecimal
De memoria, existe una función de la MI que realiza esta operación:
cvthc (Convert Hex to Character)
No tengo ahora un ejemplo a mano, tendría que buscarlo. Si estás interesado
en esta opción puedo intentar algo.
Un saludo,
Javier Mora
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: viernes, 09 de noviembre de 2007 10:17
Para: forum.help400
Asunto: RE: Convertir numérico a hexadecimal
Hola Javier
Quería convertir un decimal en hexadecimal, por ejemplo: 1204 --> 04B4
Lo primero que pensé fue hacerlo con un SQL:
SELECT HEX(1204)
FROM fichero
FETCH FIRST 1 ROW ONLY
Si bien esto funciona en una sesión interactiva de SQL, cuando lo hacía en
un programa, no me lo convertía correctamente. La solución para hacerlo en
programa que he encontrado ha sido, primero convertir el parámetro que
recibo a decimal y luego a hexadecimal.
C/EXEC SQL
C+ SELECT substr(HEX(INT(:p_Num)), 5, 4) into :p_Hex
C+ FROM BI2DF00
C+ FETCH FIRST 1 ROW ONLY
C/END-EXEC
Ahora ya lo tengo resuelto, pero no se si hay alguna forma mejor o más
directa de convertir un decimal a hexadecimal.
Gracias y Un Saludo.
"Javier Mora" <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED]
09/11/2007 09:37
Por favor, responda a
"forum.help400" <[email protected]>
Para
"forum.help400" <[email protected]>
cc
Asunto
RE: Convertir numérico a hexadecimal
Hola Emilio:
¿Qué es lo quieres hacer? ¿Convertir un número a su representación interna
en hexadecimal? ¿Ver una serie de caracteres con la ristra de pares en
hexadecimal? Por ejemplo:
El valor 10 internamente se representa como X'010F' en empaquetado.
Sin embargo, puedes querer verlo como "0A" que es el valor 10 en
hexadecimal.
No se si me he explicado.
Un saludo,
Javier Mora
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de
[EMAIL PROTECTED]
Enviado el: jueves, 08 de noviembre de 2007 19:10
Para: forum.help400
Asunto: Convertir numérico a hexadecimal
Hola
Como se puede convertir un numérico a hexadecimal.
Gracias y Un Saludo.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
<<image001.jpg>>
__________________________________________________ Forum.HELP400 es un servicio m&#225;s de NEWS/400. &#169; Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
