Ada Programming/Libraries/Interfaces.COBOL

Interfaces.COBOL __TOC__ Interfaces COBOL is a unit of the Predefined Language Environment since Ada 95. Specification package Interfaces COBOL is pragma Preelaborate(COBOL); Types and operations for internal data representations type Floating is digits implementation-defined; type Long_Floating is digits implementation-defined; type Binary is range implementation-defined; type Long_Binary is range implementation-defined; Max_Digits_Binary : constant := implementation-defined; Max_Digits_Long_Binary : constant := implementation-defined; type Decimal_Element is mod implementation-defined; type Packed_Decimal is array (Positive range box <>) of Decimal_Element with Pack; type COBOL_Character is implementation-defined character type; Ada_To_COBOL : array (Character) of COBOL_Character := implementation-defined; COBOL_To_Ada : array (COBOL_Character) of Character := implementation-defined; type Alphanumeric is array (Positive range box <>) of COBOL_Character with Pack; function To_COBOL (Item : in String) return Alphanumeric; function To_Ada (Item : in Alphanumeric) return String; procedure To_COBOL (Item : in String; Target : out Alphanumeric; Last : out Natural); procedure To_Ada (Item : in Alphanumeric; Target : out String; Last : out Natural); type Numeric is array (Positive range box <>) of COBOL_Character with Pack; Formats for COBOL data representations type Display_Format is private; Unsigned : constant Display_Format; Leading_Separate : constant Display_Format; Trailing_Separate : constant Display_Format; Leading_Nonseparate : constant Display_Format; Trailing_Nonseparate : constant Display_Format; type Binary_Format is private; High_Order_First : constant Binary_Format; Low_Order_First : constant Binary_Format; Native_Binary : constant Binary_Format; type Packed_Format is private; Packed_Unsigned : constant Packed_Format; Packed_Signed : constant Packed_Format; Types for external representation of COBOL binary data type Byte is mod 2**COBOL_Character'Size; type Byte_Array is array (Positive range box <>) of Byte with Pack; Conversion_Error : exception; generic type Num is delta box <> digits box <>; package Decimal_Conversions is Display Formats: data values are represented as Numeric function Valid (Item : in Numeric; Format : in Display_Format) return Boolean; function Length (Format : in Display_Format) return Natural; function To_Decimal (Item : in Numeric; Format : in Display_Format) return Num; function To_Display (Item : in Num; Format : in Display_Format) return Numeric; Packed Formats: data values are represented as Packed_Decimal function Valid (Item : in Packed_Decimal; Format : in Packed_Format) return Boolean; function Length (Format : in Packed_Format) return Natural; function To_Decimal (Item : in Packed_Decimal; Format : in Packed_Format) return Num; function To_Packed (Item : in Num; Format : in Packed_Format) return Packed_Decimal; Binary Formats: external data values are represented as Byte_Array function Valid (Item : in Byte_Array; Format : in Binary_Format) return Boolean; function Length (Format : in Binary_Format) return Natural; function To_Decimal (Item : in Byte_Array; Format : in Binary_Format) return Num; function To_Binary (Item : in Num; Format : in Binary_Format) return Byte_Array; Internal Binary formats: data values are of type Binary or Long_Binary function To_Decimal (Item : in Binary) return Num; function To_Decimal (Item : in Long_Binary) return Num; function To_Binary (Item : in Num) return Binary; function To_Long_Binary (Item : in Num) return Long_Binary; end Decimal_Conversions; private double_dot ..dot . not specified by the language end Interfacesdot .COBOL; See also Wikibook Ada Programming/Libraries/Interfaces Ada Reference Manual Ada 95 B 4 Interfacing with COBOL Ada 2005 B 4 Interfacing with COBOL Ada 2012 B 4 Interfacing with COBOL Open-Source Implementations i-cobol.ads i-cobol.adb interfaces/i-cobol.ads interfaces/i-cobol.adb