Распаковать мэйнфрейм упакованную десятичную (BCD) с PHP

Question

Я получил файл данных с мэйнфрейма. Я уже обработал преобразование EBCDIC в latin1 с PHP. Но теперь эти упакованные десятичные поля остались.

Для нелогич- числа 12345 упакована в 3 байта и выглядит следующим образом: x'12345C «

Отрицательный бы как: x'12345D»

Так правая половина Byte говорит знак. Есть ли способ сделать это легко с PHP?

Теперь я делаю это так:

$bin = "\x12\x34\x5C"; 
var_dump(
    unpack("H*", $bin) 
); 

Это приводит к:

array(1) { 
    [1]=> 
    string(4) "123c" 
} 

Теперь я могу проверить, если последний знак C или D и делать все вручную. Но, может быть, есть более приятное решение?

Answer 1

Как сказал Билл, заставить людей мэйнфрейма преобразовать файл в Текст на мейнфрейме и отправить текстовый файл, такие утилиты, как сортировка и т. Д., Могут сделать это на мэйнфрейме. Также есть ли только что упакованный десятичный номер в файл или у вас есть либо двоичный код, либо Zoned Decimal?

Если вы настаиваете делать это в PHP, вам нужно сделать упакованное десятичное преобразование перед тем вы делаете EBCDIC преобразование, потому что для уплотненного десятичной как x'400c « EBCDIC преобразователь будет выглядеть на х» 40 'и скажите, что это пространство и преобразовать его в x'20', поэтому ваш x'400c станет x'200c '.

Также окончательный nyble в Packed-decimal может быть f - без знака, а также c и d.

Наконец, если у вас есть Cobol прописи, мой проект JRecord имеет Cobol к Csv & & Cobol для конверсионных программ Xml (написано в Java). См

• Cobol to Csv notes
• Cobol To Xml notes

Answer 2

Хорошо, потому что я не нашел более хорошее решение, я сделал PHP-класс для обрабатывать записи из этого набора данных:

<?php 
namespace Mainframe; 

/** 
* Mainframe main function 
* 
* @author vp1zag4 
*   
*/ 
class Mainframe 
{ 

    /** 
    * Data string for reading 
    * 
    * @var string | null 
    */ 
    protected $data = null; 

    /** 
    * Default ouput charset 
    * 
    * @var string 
    */ 
    const OUTPUT_CHARSET = 'latin1'; 

    /** 
    * Record length of dataset 
    * 
    * @var integer 
    */ 
    protected $recordLength = 10; 

    /** 
    * Inits the 
    * 
    * @param unknown $data    
    */ 
    public function __construct($data = null) 
    { 
     if (! is_null($data)) { 
      $this->setData($data); 
     } 
    } 

    /** 
    * Sets the data string and validates 
    * 
    * @param unknown $data    
    * @throws \LengthException 
    */ 
    public function setData($data) 
    { 
     if (strlen($data) != $this->recordLength) { 
      throw new \LengthException('Given data does not fit to dataset record length'); 
     } 

     $this->data = $data; 
    } 

    /** 
    * Unpack packed decimal (BCD) from mainframe format to integer 
    * 
    * @param unknown $str    
    * @return number 
    */ 
    public static function unpackBCD($str) 
    { 
     $num = unpack('H*', $str); 
     $num = array_shift($num); 
     $sign = strtoupper(substr($num, - 1)); 
     $num = (int) substr($num, 0, - 1); 
     if ($sign == 'D') { 
      $num = $num * - 1; 
     } 
     return (int) $num; 
    } 

    /** 
    * convert EBCDIC to default output charset 
    * 
    * @param string $str    
    * @return string 
    */ 
    public static function conv($str, $optionalCharset = null) 
    { 
     $charset = (is_string($optionalCharset)) ? $optionalCharset : self::OUTPUT_CHARSET; 
     return iconv('IBM037', $charset, $str); 
    } 

    /** 
    * Reads part of data string and converts or unpacks 
    * 
    * @param integer $start 
    * @param integer $length 
    * @param bool $unpack 
    * @param bool | string $conv 
    */ 
    public function read($start, $length, $unpack = false, $conv = true) 
    { 
     if (empty($this->data)) { 
      return null; 
     } 

     $result = substr($this->data, $start, $length); 

     if($unpack) { 
      return self::unpackBCD($result); 
     } 

     if ($conv) { 
      return self::conv($result, $conv); 
     } 

     return $result; 
    } 
} 

С $ class-> read (1, 3, True) можно прочитать часть данных и конвертировать/распаковать ее в одно и то же время.

Возможно, это тоже поможет любому в любое время.

Но, конечно же, я попытаюсь настроить какой-то Job, который будет делать это для меня непосредственно на мэйнфрейме с некоторыми данными JSON в качестве вывода.