IBMMainframes.com

Quick References for IBM Mainframe Programming

COBOL USAGE CLAUSES

BINARY

Integer Data in Binary Format

COMP

Integer Data in Binary Format (same as BINARY)

COMP-1

Single precision floating point in hexadecimal format, 4 bytes long

COMP-2

Double precision floating point in hexadecimal format, 8 bytes long

COMP-3

Integer data in Packed decimal format/ 8421 code / (Int((n/2)+1)))

COMP-4

Integer Data in Binary format (same as COMP/BINARY)

COMP-5

Integer Data in Native/Extended Binary (No Truncation due to PICTURE clause size)

COMP-6

Unsigned Packed Decimal (No Sign) (Int(n/2)) (RM/COBOL Only)

DISPLAY

EBCDIC Char string with single byte (8 BITS) per character, Default clause

DISPLAY-1

EBCDIC Char string with two bytes per character (DBCS or DBCS-EDITED)

INDEX

32 Bit Binary Format to hold the displacement of a table, Assigned by SET statement

NATIONAL

Unicode Char string (UTF-16) with one byte per character

NATIVE

NATIVE phrase is syntax checked, but has no effect on the execution of the program

PACKED-DECIMAL

Integer data in Packed decimal / 8421 code  (same as COMP-3)

POINTER

32 Bit Binary Format to hold the address of a variable

PROCEDURE-POINTER

64 Bit Binary data to hold the address of a primary/alternative entry point of a COBOL program

FUNCTION-POINTER

32 Bit Binary data to hold the address of a primary/alternative entry point of a COBOL program

OBJECT-REFERENCE

 

Handle for accessing a class in OO Cobol

 

Home | Mainframe Wiki | Downloads | Programs | Mainframe Forum