HP 3000 Manuals

COBOL/HP-UX Language Reference for the Series 700 and 800

Data Division 

The VALUE OF LABEL Clause 

The following clause is accepted in an FD entry:

     VALUE OF LABEL IS literal

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:

     NUMERIC SIGN IS TRAILING SEPARATE 

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 ANSI parameter with the RM 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.  COMP and COMPUTATIONAL are synonymous.

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

   3.  COMP-6 and COMPUTATIONAL-6 are 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 the 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