HP 3000 Manuals HP 3000 Manuals
Chapter 22 Individual Features Directives
Key to Notation
The table displayed later in this section shows directives whose presence
enables individual features: enabling new syntax or changing run-time
behavior. (See your Language Reference and COBOL System Reference for
full details of the behavioral changes caused by each directive.) The
key contains the following sections:
* Effects of the directives
* Meaning of the entries
* Effects of the directives listed as "unchanging"
* Synonyms
Effects of the Directives
Directive Effect
MF(3) Changes behavior of ALPHABETIC test to include
lower- case, provided ANS85 is on. MF(n), n>3,
includes MF(3).
MS* Changes behavior of certain features to be as
in Microsoft COBOL up to V2.2.
IBM-MS Changes behavior of certain features to be as
in IBM COBOL V1.1 (a Microsoft product for the
IBM PC).
IBMCOMP Makes COMP data items occupy the space they
would in IBM OS/VS COBOL and IBM VS COBOL II:
up tov1.4, by padding; from V1.5, by making
them use the whole space. Also synchronizes
COMP SYNC items as those compilers do.
VSC2(2) Changes the date format in ACCEPT FROM DATE to
be as in IBM VS COBOL II.
ANS85 Changes behavior of certain ANSI 74 features to
be as in ANSI 85 Standard COBOL (with the
SYNTAX option it does not). For example, it
changes the I-O-status values returned to those
specified in ANSI 85.
DE-EDIT(2) Changes the behaviour of edited to numeric
moves.
DG Changes behavior of certain features to be as
in DG Interactive COBOL.
PERFORM-TYPE (OSVS) Makes the PERFORM verb behave as in IBM OS/VS
COBOL (flat PERFORM).
PERFORM-TYPE (RM) Makes the PERFORM verb behave as in
Ryan-McFarland COBOL and Microsoft COBOL.
TRUNC(ANSI) Makes values be truncated to the PIC size,
rather than space available, of the receiving
item, on moves into COMP items.
TRUNC Makes values be truncated to the PIC size,
rather than space available, of the receiving
item, on all operations storing into COMP
items.
SPZERO Makes spaces in numeric items equivalent to
zeros; affects generated code only.
OPTIONAL-FILE Makes an OPEN I-O of an absent file create the
file, unless the SELECT has the NOT OPTIONAL
phrase.
OLDINDEX Makes INDEXED BY items always 9(4) COMP-X and
treated like any other such items in moves,
arithmetic, etc.
CICS Makes the Checker expect the program to be
written to use CICS.
CICSOPT Optimizes CICS code, preventing BLL cells being
updated except at SERVICE LABEL statements.
BOUND Causes tables to be bound-checked.
TRACE Activates READY TRACE and RESET TRACE
statements .
VSC2 (1) Makes the Checker treat explicit scope
terminators and the ALSO in EVALUATE as in IBM
VS COBOL II version 1.
ODOSLIDE Causes items following a variable-length table
in the same record to remain in the same
position when the table length is varied.
DBCS Enables the Double-Byte Character Set, used for
characters such as Japanese.
NLS Enables the National Language System, used for
European (continental) languages.
* The IBM-MS and MS(1) dialects are the same, but the MS directive was
not introduced until VS COBOL V2.1. You can get MS(1) features by
setting the IBM-MS directive.
Note: Some changes in screen-handling behavior are brought about not
by directives but by the ADISCF configuration utility, described
in your COBOL Reference
Effects of Directives Listed as Unchanging
Directive Effect
ALTER Allows ALTER statements.
AUTOLOCK Makes the default lock mode AUTOMATIC for files
opened I-O, and removes file locking on files opened
EXTEND.
COMP Converts COMP data items to COMP-X wherever
possible.
OLDCOPY Includes data-name from main file in generated text.
QUAL Allows qualification.
SEG Allows segmentation.
WRITELOCK Makes WRITEs and REWRITEs obtain locks.
Synonyms
In some Micro Focus products synonyms are available for some directives.
Usual Synonym Products
Directive
CICSOPT CICSOPTIMIZE All that contain the directive
IBM-MS PC1 From VS COBOL V1.4 onwards
IBM-MS MS(1) From VS COBOL V2.1 onwards
MF MFLEVEL All that contain the directive
AUTOLOCK } FILESHARE All that contain the directives
WRITELOCK }
PERFORM-TYPE (OSVS) OSVS-PERFORMS VSCOBOL V1.5 to V2.1