Преобразование массива символов упакованного десятичного числа в целое в программе на Си

Question

Мне нужно написать программу на C для преобразования упакованного десятичного поля в буфер в целочисленное значение. Точность упакованного десятичного числа равна 9, а Scale равна 0. Как лучше всего преобразовать это в программу C мэйнфрейма IBM? В Cobol используется формат упакованного десятичного числа: Comp-3. Любая помощь приветствуется.

Answer 1

Если вы запускаете программу на мэйнфрейме Zos, то компилятор C изначально поддерживает упакованные десятичные числа.

Google для "Десятичного типа с фиксированной запятой Zos C" должен найти правильную страницу справочника просто:

#include <decimal.h>
decimal(9,0) mynum;

Answer 2

The one way I think it can be done, is
long long MyGetPackedDecimalValue(char* pdIn, int length)
{   
    // Convert packed decimal to long   
   const  int PlusSign = 0x0C;       // Plus sign   
   const int MinusSign = 0x0D;      // Minus   `enter code here`
   const int NoSign = 0x0F;         // Unsigned   
   const int DropHO = 0xFF;         // AND mask to drop HO sign bits   
   const int GetLO  = 0x0F;         // Get only LO digit   
    long long val = 0;                    // Value to return    

    printf ("in side ****GetPDVal \n ");
   for(int i=0; i < length; i++)
    {   
      int aByte = pdIn[i] & DropHO; // Get next 2 digits & drop sign bits   
      if(i == length - 1)
        {    // last digit?   
         int digit = aByte >> 4;    // First get digit   
         val = val*10 + digit;   
            printf("digit= %d, val= %lld \n",
                digit,
                val);   
         int sign = aByte & GetLO;  // now get sign   
         if (sign == MinusSign)
            {
            val = -val;
            }
         else 
            {   
            // Do we care if there is an invalid sign?   
            if(sign != PlusSign && sign != NoSign)   
               perror("SSN:Invalid Sign nibble in Packed Decimal\n");   
         }   
      }
        else
        {   
         int digit = aByte >> 4;    // HO first      
         val = val*10 + digit;   
            printf("digit= %d, val= %lld \n",
                digit,
                val);   
            digit = aByte & GetLO;      // now LO   
         val = val*10 + digit;   
            printf("digit= %d, val= %lld \n",
                digit,
                val);   
      }   
   }`enter code here`
    printf ("**** coming out GetPDVal \n ");
    return val;
}