Home | Mainframe Wiki | Free Downloads | Sample Programs | More References | Mainframe Forum

IBMMainframes.com

Quick References for IBM Mainframe Programming

COBOL USAGE CLAUSES

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

 

Back to QUICK REFERENCES

Copyright 2003-2016 IBMMAINFRAMES.com

Home | Mainframe Wiki | Downloads | Programs | JCLs | Info | References | Mainframe Forum