FiveTech Support Forums

Ni con el cobol rebuild.exe que converte para txt?

Regards, saludos.

Miguel,

gracias por avisarme, ya lo encontré, fué a la carpeta de spam

Miguel Angel,

Aqui tienes unas funciones en C# y VB que facilmente (son pequeñas) puedes pasar a Harbour:

https://newbedev.com/c-convert-comp-3-packed-decimal-to-human-readable-value

https://stackoverflow.com/questions/142972/c-convert-comp-3-packed-decimal-to-human-readable-value

Miguel,

Copia aqui lo que hayas hecho y lo revisamos

Antonio acá te lo dejo... es muy poco lo que hice .... mis conocimientos en C son totalmente nulos
De hecho no sé por donde empezar.

#include <Windows.h>
#include <hbapi.h>

HB_FUNC( Pack2Text )
{

private Decimal Unpack(byte[] inp, int scale)
{
long lo = 0;
long mid = 0;
long hi = 0;
bool isNegative;

// this nybble stores only the sign, not a digit.
// "C" hex is positive, "D" hex is negative, and "F" hex is unsigned.
switch (nibble(inp, 0))
{
case 0x0D:
isNegative = true;
break;
case 0x0F:
case 0x0C:
isNegative = false;
break;
default:
throw new Exception("Bad sign nibble");
}
long intermediate;
long carry;
long digit;
for (int j = inp.Length * 2 - 1; j > 0; j--)
{
// multiply by 10
intermediate = lo * 10;
lo = intermediate & 0xffffffff;
carry = intermediate >> 32;
intermediate = mid * 10 + carry;
mid = intermediate & 0xffffffff;
carry = intermediate >> 32;
intermediate = hi * 10 + carry;
hi = intermediate & 0xffffffff;
carry = intermediate >> 32;
// By limiting input length to 14, we ensure overflow will never occur

digit = nibble(inp, j);
if (digit > 9)
{
throw new Exception("Bad digit");
}
intermediate = lo + digit;
lo = intermediate & 0xffffffff;
carry = intermediate >> 32;
if (carry > 0)
{
intermediate = mid + carry;
mid = intermediate & 0xffffffff;
carry = intermediate >> 32;
if (carry > 0)
{
intermediate = hi + carry;
hi = intermediate & 0xffffffff;
carry = intermediate >> 32;
// carry should never be non-zero. Back up with validation
}
}
}
return new Decimal((int)lo, (int)mid, (int)hi, isNegative, (byte)scale);
}

private int nibble(byte[] inp, int nibbleNo)
{
int b = inp[inp.Length - 1 - nibbleNo / 2];
return (nibbleNo % 2 == 0) ? (b & 0x0000000F) : (b >> 4);
}
}

encontre, esto, no tengo muy claro la parte de la lectura del archivo...

m_str = fread( ifp, m_cnt )

http://www.verycomputer.com/165_a88f85a8a4ea61b7_1.htm