HP 3000 Manuals

Micro Focus COBOL System Reference, Volume 2

Descriptions of Directives (cont) 

BROWSE  

Makes the Compiler create an .sbr file for use with the Microsoft Source
Browser supplied with the Microsoft utilities.  Requires the Microsoft
components to be present at compile time.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOBROWSE

Phase:.   

Syntax check

Environment:.   

DOS, Windows and OS/2

$SET:.   

Any

Dependencies:.   

BROWSE sets ANIM immediately

BWZSTAR  

Determines whether the BLANK WHEN ZERO clause is allowed in the Data
Division for those fields defined with the '*' PICTURE symbol.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOBWZSTAR

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Any

Remarks:.   

The BWZSTAR directive is Early User Syntax support.  You must set the
EARLY-RELEASE directive to enable this feature.  This directive may
change or be removed in a later revision of this product.

If BWZSTAR is specified, the BLANK WHEN ZERO clause is allowed with
fields defined using the '*' PICTURE symbol, and BLANK WHEN ZERO is
effective when the field is the target of an editing operation and the
result is zero.  If NOBWZSTAR is specified, a BLANK WHEN ZERO clause
associated with a PIC * field is rejected.

See also:.   

EARLY-RELEASE

CALLADIS  

Causes all format 1 ACCEPT, DISPLAY and EXHIBIT statements to be routed
through the specified handler.  The output generated by TRACE will also
be routed through the specified handler.

Syntax:.   


            

Parameters:.   

 handler-name       Root-name of a program to be called to act as the
                    handler.

Default:.   

NOCALLADIS

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

The CALLADIS directive is Early User Syntax support.  You must set the
EARLY-RELEASE directive to enable this feature.  This directive may
change or be removed in a later revision of this product.

If CALLADIS is specified with no handler-name, calls are generated to the
module Extadis.

See also:.   

EARLY-RELEASE

CALLFH  

Makes the Compiler generate direct calls for all file I/O operations,
using the Callable File Handler interface.

Syntax:.   


            

Parameters:.   

 handler-name       Root-name of a program to be called to act as the
                    file handler.

Default:.   

NOCALLFH (on DOS, Windows and OS/2) CALLFH"EXTFH" (on UNIX)

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

handler-name can be:

EXTFH               the file handler supplied with this COBOL system

FHREDIR             for use with Fileshare Version 2, available in an
                    add-on product from Micro Focus

XFH2BTR             for use with the Extfh-to-Btrieve call conversion
                    module

prog-name           Your own file handler

If NOCALLFH is specified, file I/O is handled by the run-time system.
When CALLFH is specified, all file I/O statements are converted to calls
to the file handler specified by the directive.

If handler-name is not specified, Extfh is assumed.

This directive is also used to direct all file handling calls through
converter modules, such as XFH2BTR, to make use of non COBOL file
handlers.

An add-on product from Micro Focus provides information that enables you
to create your own file handler.  You use this directive to make your
programs call your file handler instead of the standard file handler.

CALLMAP  

Causes all call operations to be converted to calls to the specified call
handler program.

Syntax:.   


            

Parameters:.   

 handler-name       Root-name of a program to be called to act as the
                    handler.

Default:.   

NOCALLMAP

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Any

Remarks:.   

The CALLMAP directive is Early User Syntax support.  You must set the
EARLY-RELEASE directive to enable this feature.  This directive may
change or be removed in a later revision of this product.

See also:.   

EARLY-RELEASE

CALLMCS  

This directive is reserved for internal use by the system.  Because it
might appear in the list of settings, it is included for completeness.
It is not intended for users' applications, and its setting should not be
changed.

Causes all Message Control System operations to be routed through the
specified handler.

Syntax:.   


            

Parameters:.   

 mcs-name           Root-name of a program to be called to process
                    message control system (mcs) operations.

Default:.   

NOCALLMCS

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

If CALLMCS is specified with no mcs-name, calls are generated to the
module Extmcs.

CALLSORT  

Defines the program to be called to handle all SORT and MERGE operations.

Syntax:.   


            

Parameters:.   

 sort-name          Root-name of a program to be called to process sorts
                    and merges.

Default:.   

CALLSORT"_SORT" (on DOS, Windows and OS/2) NOCALLSORT (on UNIX)

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

This directive is reserved for future use.  Do not change its setting.

CANCELLBR  

Makes the Compiler close an .lbr file used as a library in a COPY
statement once that copy operation is complete.

Syntax:.   


            

Parameters:.   

None

Default:.   

CANCELLBR

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Any

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.

NOCANCELLBR causes such .lbr files to be left open until the end of the
compilation.  Subsequent COPY statements that do not specify a library
search for the COPY-file in all open .lbr libraries (last one opened is
searched first) before the current directory.

This directive is only relevant if COPYLBR is on.

[NO]CANCELLBR can be used on any $SET. Only .lbr libraries referenced in
COPY statements after the $SET are affected.  Any left open from previous
COPY statements are only closed if specified again on a COPY statement
following a CANCELLBR directive.

CASE  

Prevents external symbols (such as Program-ID and names of called
programs) being converted to upper case.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOCASE

Phase:.   

Generate

Environment:.   

16-bit

$SET:.   

Any

Remarks:.   

This is useful if you are calling a program written in C, where names are
case dependent.

CHARSET  

Defines the character set of the environment.

Syntax:.   


            

Parameters:.   

 char-set           "ASCII" or "EBCDIC".

Default:.   

CHARSET"ASCII"

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Dependencies:.   

CHARSET"ASCII" sets DEFAULTBYTE"32", SIGN"ASCII" and NATIVE"ASCII"
immediately.  CHARSET"EBCDIC" sets DEFAULTBYTE"0" immediately and
SIGN"EBCDIC" and NATIVE"EBCDIC" at end.

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.

All literals and collating sequences are handled in the character set
specified.

For current limitations see the documentation for the appropriate add-on
product.

CHECKDIV  

Controls the behavior of your program if it tries to divide by zero in a
statement that has no ON SIZE ERROR phrase.

Syntax:.   


            

Parameters:.   

 dialect            Must be ANSI, OSVS, VSC2, or COBOL370.

Default:.   

CHECKDIV"ANSI"

Phase:.   

Both (16-bit), Syntax check (32-bit)

Environment:.   

All

$SET:.   

Initial

Remarks:.   

With CHECKDIV or CHECKDIV"ANSI" specified, the program continues with an
undefined result if it tries to divide by zero.  With NOCHECKDIV set, the
behavior is undefined.  Setting NOCHECKDIV results in optimal code for
divides.

Specifying CHECKDIV"OSVS", CHECKDIV"VSC2", or CHECKDIV"COBOL370" has the
same effect; trying to divide by zero produces run-time error 48 (Attempt
to divide by zero (fatal)).  This error can be disabled using the -O RTS
switch.

This directive has no effect on arithmetic statements that use the ON
SIZE ERROR phrase.

See also:.   

O RTS switch

CHECKNUM  

Checks whether numeric fields contain valid data before performing
operations on them.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOCHECKNUM

Phase:.   

Generate

Environment:.   

16-bit

$SET:.   

Initial

Remarks:.   

Specifying this directive causes extra code to be generated to ensure
that numeric fields contain valid data before any operations are
performed on them.  With CHECKNUM set, run-time error message 163
(Illegal character in numeric field (fatal)) is displayed if any numeric
field is found to contain non-numeric data.  This error can be disabled
using the -F RTS switch.

Specifying CHECKNUM causes extra code to be produced, reducing the
efficiency of your programs.  For smaller, faster code you should not
specify CHECKNUM.

See also:.   

F RTS switch

CHIP  

Tells the Compiler that a specific microprocessor architecture is in use.

Syntax:.   


            

Parameters:.   

 integer            Must be 16.

Default:.   

CHIP"16"

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

The information produced is only relevant for 16-bit environments.

In the case of the Intel 80x86 family, the use of CHIP"16" indicates that
the maximum segment addressability is given by 16 bits, and anything over
this size is split over an addressing boundary.  Knowing this, the
Compiler can alter certain code structures to avoid potential crossing
boundaries conditions (for example, the internal print buffer used with
Report Writer syntax).

When used with the directive FLAG-CHIP, this directive causes the
Compiler to indicate chip specific boundary conditions.  These might
indicate potential problems or performance losses on the particular chip.

CICS  

Allows EXEC CICS statements in your program.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOCICS

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

No

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.  This is not for use with CICS OS/2.

With CICS, if CICS-CPY is also set, the Compiler inserts:

      COPY "CICS.CPY"

at the beginning of your Linkage Section.  If your program has no Linkage
Section, the Compiler inserts one as follows:

      LINKAGE SECTION.
     COPY "CICS.CPY".
     01 DFHCOMMAREA  PIC X(n).

where:

CICS.CPY            contains a definition of the CICS EXEC INTERFACE
                    BLOCK and DLI INTERFACE BLOCK compatible with Version
                    1, Release 6 (or earlier) of CICS.

n = 1               there is no DFHCOMMAREA

other value         there is a DFHCOMMAREA.

The Linkage Section item following the DFHCOMMAREA record is assumed to
contain the BLL cells, each named and with the description PIC S9(8)
COMP. The BLL cells are matched with the corresponding Linkage Section
records according to CICS rules.

If the Compiler inserts the DFHCOMMAREA record, it is not visible during
animation or in printer listings.  However, the record can be queried
during animation.  If you intend to animate a program that uses BLL
cells, set this directive on.

CICSOPTIMIZE  

Optimizes the handling of CICS BLL cells.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOCICSOPTIMIZE

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

No

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.  This is not for use with CICS OS/2.

With NOCICSOPTIMIZE, the Compiler inserts instructions whenever a
BLL-cell is updated to ensure that the addressability of Linkage Section
items corresponds to the current values in the BLL cells.  With
CICSOPTIMIZE, the Compiler does not insert these instructions.  You must
use the SERVICE RELOAD instruction to ensure that the addressability is
updated.

CICS-CPY  

Inserts the statement COPY "CICS.CPY" provided the CICS directive is
specified.

Syntax:.   


            

Parameters:.   

None

Default:.   

CICS-CPY

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

No

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.  This is not for use with CICS OS/2.

See also:.   

CICS

COBFSTATCONV  

Causes Extfh to use the user-supplied module specified in the
COBFSTATCONV environment variable to convert the file status codes if an
I/O error is encountered on a file.

Syntax:.   


            

Parameters:.   

None

Default:.   

NOCOBFSTATCONV

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Remarks:.   

This directive is reserved for use with add-on products supplied by Micro
Focus.  Do not change its setting unless you have an appropriate add-on
product.

COBIDY  

Specifies the path where the Animator information file (.idy file) and
COBOL Source Information file (.csi) are to be written.

Syntax:.   


            

Parameters:.   

 path-name          Path specification.

Default:.   

NOCOBIDY

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

No

Remarks:.   

If you do not specify a path-name, the path-name in the COBIDY
environment variable is used; if the environment variable contains
multiple path-names the first of them is used.  With NOCOBIDY, the .idy
and .csi files are written to the same path as the object program.

The .csi files are only produced if the CSI directive is used.  This
should only be used if you have the appropriate add-on product from Micro
Focus.

See also:.   

CSI

COBOL370  

Specifies that words reserved in IBM COBOL/370 are to be treated as
reserved words, and allows features selectively for compatibility with a
given level of that product.

Syntax:.   


            

Parameters:.   

 integer            Must be 1.  The level of IBM COBOL/370 to be
                    compatible with.

Default:.   

NOCOBOL370

Phase:.   

Syntax check

Environment:.   

All

$SET:.   

Initial

Dependencies:.   

COBOL370 sets DBSPACE and DBCS"3" immediately

Remarks:.   

Specifying COBOL370 without a parameter is the same as specifying
COBOL370"1".  This specifies compatibility with Version 1 Release 1 of
IBM COBOL/370.

MPE/iX 5.0 Documentation