Micro Focus Compiler Options U, V, W, X, Z

The Micro Focus compiler options are listed here alphabetically, you may browse them, click on the link to go directly to the error code or you may use the search feature of your browser to search for the information.

---

USE

USE is used in two ways.

COBOL verb

Compiler directive

---

VERBBOSE

Sends messages from the Compiler to the screen.

> >-|---|-|----|--VERBOSE------------------- > < |-/-| |-NO-|

Properties:
Default: VERBOSE (on DOS, Windows and OS/2) NOVERBOSE (on UNIX)
Phase: Syntax check
Environment: All
$SET: No

Dependencies: VERBOSE sets CONFIRM immediately.

Remarks: When VERBOSE is specified, messages concerning accepted directives and the size of code and data areas are displayed on the screen.

---

VSC2

Specifies that words reserved in IBM VS COBOL II are to be treated as reserved words, and enables selected features for compatibility with a given level of that system.

> >-|---|-|-------VSC2--"integer"-|--------- > < |-/-| ||----|-VSC2------------| |-NO-|

Parameters:
integer The level of IBM VS COBOL II to be compatible with.

Properties:
Default: NOVSC2
Phase: Syntax check
Environment: All
$SET: Initial

Dependencies: If (integer) > 1, VSC2"(integer)" sets DBSPACE and DBCS"2" immediately. VSC2"3" sets ANS85 at end.

Remarks: The possible values of (integer) are:

1 VS COBOL II release 1.0 (Replaces the directives OLDVSC2 VSC2.)

No explicit scope delimiter is allowed in a statement without a conditional phrase (for example, AT END or ON SIZE ERROR).

The word ALSO in an EVALUATE statement must be omitted.

The CLASS and SYMBOLIC CHARACTERS clauses are not allowed.

Conditional phrases with NOT (for example NOT AT END, NOT ON SIZE ERROR) are not allowed.

2 VS COBOL II release 2.0
VS COBOL II release 3. (when compiled with its CMPR2 directive)
VS COBOL II release 4. (when compiled with its CMPR2 directive)
COBOL/370 V1R1 (when compiled with its CMPR2 directive)

The CLASS and SYMBOLIC CHARACTERS clauses are not allowed.

Conditional phrases with NOT (for example, NOT AT END, NOT ON SIZE

When used with FLAG"VSC2" it provides similar functionality to VS COBOL II release 2.

3 VS COBOL II release 3. (when compiled with its NOCMPR2 directive)

For complete compatibility in this instance, the directive REMOVE"FUNCTION" also should be specified. However, for upward compatibility, we recommend that you do not use FUNCTION as a user-defined word.

When used with FLAG"VSC2" it provides similar functionality to VS COBOL II release 3.

4 Synonymous with VSC2"3".

When VSC2 is specified without integer, VSC2"4" is assumed.

ANSI'85 status codes are used when VSC2"3" is selected.

Do not use the NOANS85 directive after VSC2"3"; it turns off some of the ANSI'85 behavior turned on by VSC2"3".

---

WARNING

Specifies the lowest severity level of errors to report.

> >-|---|-|----|-WARNING--|-"integer"-|----- > < |-/-| | |-WARNINGS-| | |-NO-|-WARNING--|-----------| |-WARNINGS-|

Parameters:
integer 1, 2, or 3.

Properties:
Default: WARNING"1"
Phase: Syntax check
Environment: All
$SET: Any

Remarks: The possible values of (integer) are:

• 1 - Only those of level U, S, or E.
• 2 - Only those of level U, S, E, or W.
• 3 - All levels, that is, levels U, S, E, W, and I.

With NOWARNING only those of level U or S are reported.

See also:
FLAGAS Compiler directive
FLAGCD Compiler directive

---

WB

This directive is used with Micro Focus integrated products to make the Compiler compatible with the integration. 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.

> >-|---|-|----|--WB------------------------ > < |-/-| |-NO-|

Properties:
Default: NOWB
Phase: Syntax check
Environment: All
$SET: No

Dependencies: WB sets ANIM immediately.

---

WB2

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.

> >-|---|-|----|--WB2----------------------- > < |-/-| |-NO-|

Properties:
Default: NOWB2
Phase: Syntax check
Environment: All
$SET: No

---

WB3

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.

> >-|---|-|----|--WB3----------------------- > < |-/-| |-NO-|

Properties:
Default: NOWB3
Phase: Syntax check
Environment: All
$SET: No

---

WRITELOCK or WRITE-LOCK

Makes the WRITE and REWRITE statements acquire a record lock when the program is locking multiple records in a shared data file in a multi-user environment.

> >-|---|-|----|-|-WRITELOCK--|------------- > < |-/-| |-NO-| |-WRITE-LOCK-|

Properties:
Default: NOWRITELOCK
Phase: Syntax check
Environment: All
$SET: Initial

Remarks: This directive is included for compatibility with earlier file-sharing products. When writing new programs you should use the relevant locking syntax rather than this directive.

---

WRITETHROUGH or WRITETHRU

Specifies that disk writes are not to be buffered.

> >-|---|-|----|-|-WRITETHROUGH-|----------- > < |-/-| |-NO-| |-WRITETHRU----|

Properties:
Default: NOWRITETHROUGH
Phase: Syntax check
Environment: All
$SET: Initial

Dependencies: Requires CALLFH to be set.

Remarks: This directive is not available in the Micro Focus COBOL system for DOS, Windows and OS/2 without Toolset, Workbench or similar add-on products from Micro Focus. Do not change its setting unless you have an appropriate system.

When WRITETHRU is specified, the system does not buffer disk writes.

Using WRITETHRU helps improve the integrity of data files by ensuring that every write operation goes to the disk file straight away, reducing the possibility of losing data if your computer crashes. However, it also bypasses all cacheing and blocking methods, resulting in poorer performance.

See also:
CALLFH Compiler directive

---

XNIM

Makes the Compiler compile your program for animation as if ANIM had been specified, and then invoke Animator.

> >-|---|-|----|--XNIM---------------------- > < |-/-| |-NO-|

Properties:
Default: NOXNIM
Phase: Syntax check
Environment: All
$SET: No

Remarks: You can use Animator directives with XNIM.

With XNIM, no object file is produced by default.

When it finishes, Animator does not save the files required for a subsequent animation.

If the source file contains more than one nonnested program, it is the last program in the source file that is animated.

---

XOPEN

Specifies that words reserved under the X/Open definition of COBOL are to be treated as reserved words.

> >-|---|-|-------XOPEN--"level"-|---------- > < |-/-| ||----|-XOPEN----------| |-NO-|

Parameters:
level Must be 3 or 4. The level of X/Open definition COBOL to be compatible with.

Properties:
Default: NOXOPEN
Phase: Syntax check
Environment: All
$SET: Initial

Dependencies: XOPEN sets RTNCODE-SIZE"4" immediately.

Remarks: The possible values of are:

• 3 Compatible with X/Open Portability Guide 1988 (XPG-3)
• 4 Compatible with X/Open CAE Specification (XPG-4)

Specifying XOPEN with no parameter is the same as specifying XOPEN"4". XPG-4 specifies options for several environments. If available, the options available are as follows:

• Single Byte Internationalization Support is enabled using the NLS directive
• National Character Support is enabled using the DBCS"3" directive

See also:
DBCS Compiler directive
NLS Compiler directive
RTNCODE-SIZE Compiler directive

---

XREF

Makes the Compiler produce a cross-reference listing.

> >-|---|-|----|--XREF---------------------- > < |-/-| |-NO-|

Properties:
Default: NOXREF
Phase: Syntax check
Environment: All
$SET: Initial

Dependencies: XREF sets RESEQ immediately.
Set to NOXREF at end by NOLIST and RNIM.
On UNIX, to produce the message "*End of cross reference listing" in the cross reference listing you must also specify the verbose compiler option, -v.

Remarks: This directive has no effect if the LIST directive is not specified.

To produce the cross-reference listing the Compiler needs extra work space on the disk. The space needed depends on the number of data items and procedure names and the number of times they are referenced.

When the XREF directive is specified, extra information is added to the end of the .lst file produced:

• Name of the data item
• Type of the data item
• Line number where the data item was defined, shown as n#
• Line numbers where the data item was updated, shown as n*
• Line numbers where the data item was tested, shown as n?
• Number of times the data item appeared in the cross-reference listing, shown as (X n)
• Procedure name
• Type of procedure

Example: The following is an extract from a .lst file for a simple program: 1 working-storage section. 2 01 a pic 9(2). 3 4 procedure division. 5 main section. 6 move 1 to a 7 if a = 1 display "HELLO" end-if 8 stop run. ... * A Numeric DISPLAY * 2# 6* 7? (X 3) * * 1 data-names * * MAIN Section * 5# (X 1) * * * 1 procedure-names * End of cross reference listing The cross-referencing information shows that there is one data item, A, of type numeric display, which is defined on line 2, updated on line 6, and tested on line 7. The (X 3) at the end of the line refers to the number of times the data item appears in the cross-reference listing. The procedure name Main also appears in the listing, as a Section which is referenced only once.

See also:
RESEQ Compiler directive

---

ZEROLENGTHFALSE

Changes the way that class tests involving zero-length items are carried out.

> >-|---|-|----|--ZEROLENGTHFALSE----------- > < |-/-| |-NO-|

Properties:
Default: NOZEROLENGTHFALSE
Phase: Syntax check
Environment: All
$SET: Any

Remarks: When ZEROLENGTHFALSE is set, all comparisons between zero-length group items, and between zero-length items and figurative constants, return false; when it is not set, they all return true.

For conformance to ANSI and SAA you must set ZEROLENGTHFALSE.

---

ZEROSEQ

Causes leading zeros to appear in the sequence numbers in columns 1 thru 6.

> >-|---|-|----|--ZEROSEQ------------------- > < |-/-| |-NO-|

Properties:
Default: NOZEROSEQ
Phase: Syntax check
Environment: All
$SET: Any

Remarks: NOZEROSEQ suppresses these leading zeros.

---

ZWB

Affects the operation of comparisons between integer numeric data items of USAGE DISPLAY and alphanumeric literals or figurative constants.

> >-|---|-|----|--ZWB----------------------- > < |-/-| |-NO-|

Properties:
Default: NOZWB
Phase: Syntax check
Environment: All
$SET: Any

Remarks: The ZWB directive affects the range of comparisons that HOST-NUMCOMPARE applies to. With ZWB on, only unsigned comparisons are affected. Otherwise, all comparisons are affected.

See also:
HOST-NUMCOMPARE Compiler directive

If you experience a problem with this page, please send a message to JTate@JaTomes.Com including a description of the problem.

Last modified: Thursday Aug-06-1998.