HP 3000 Manuals

Micro Focus COBOL Language Reference - Additional Topics

Data Division 

The VALUE OF LABEL Clause 

General Format.   

The following clause is accepted in an FD entry:


            

General Rule.   

It is treated as documentary.

Length of Nonnumeric Literals 

In the Data Division, nonnumeric literals up to 2047 characters long are
allowed if you set the RM system directive when you submit your source
code to your COBOL system.

Default Sign Representation 

The syntax:


            

is assumed in the SPECIAL-NAMES paragraph if you set the RM system
directive when you submit your source code to your COBOL system.

However, if you specify the RM"ANSI" system directive when you submit
your source code to your COBOL system, this phrase is not assumed.

The USAGE Clause 

General Format.   

The following format of the USAGE clause is supported:


            

Syntax Rules.   

   1.  COMPand COMPUTATIONALare synonymous.

   2.  COMP-1and COMPUTATIONAL-1are synonymous.

   3.  COMP-6and COMPUTATIONAL-6are synonymous.

General Rules.   

   1.  The COBOL system allocates a 2-byte signed binary data item,
       capable of holding values in the range -32k to +32k, for each data
       item declared as USAGE COMP-1 in the source program, regardless of
       its picture string.  That is, each USAGE COMP-1 data item is
       treated as though it had a standard COBOL picture-string of S9(4)
       COMP.

   2.  COMP-6 data items are converted to COBOL COMP format.  If, as a
       result of this, less data space is allocated to each item than
       would be under the RM/COBOL system, the space is padded with null
       bytes (that is, bytes containing X"00").  See your Compatibility 
       Guide for further details of the USAGE clause under RM/COBOL.

   3.  USAGE IS COMPUTATIONAL is treated the same as USAGE IS DISPLAY.

MPE/iX 5.0 Documentation