in reply to Re: Perl Unpack Cobol Binary File and Fields
in thread Perl Unpack Cobol Binary File and Fields

BINARY, COMP, and COMP-4 are synonyms. Binary-format numbers occupy 2, 4, or 8 bytes of storage. If the PICTURE clause specifies that an item is signed, the leftmost bit is used as the operational sign.

A binary number with a PICTURE description of four or fewer decimal digits occupies 2 bytes; five to nine decimal digits, 4 bytes; and 10 to 18 decimal digits, 8 bytes. Binary items with nine or more digits require more handling by the compiler.
  • Comment on Re^2: Perl Unpack Cobol Binary File and Fields

Replies are listed 'Best First'.
Re^3: Perl Unpack Cobol Binary File and Fields
by Anonymous Monk on May 05, 2020 at 00:03 UTC
    Full disclosure: "if the picture does not specify that the binary operand is "signed," COBOL will automagically disregard two's complement. (However, not the case here.)
      (The S picture-character indicates a signed value.)