HP 3000 Manuals HP 3000 Manuals
Key to Notation This 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 to v1.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 behavior 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 System 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 FILESHARE All that contain the | | directives | | | | PERFORM-TYPE "OSVS" OSVS-PERFORMS VSCOBOL V1.5 to V2.1 | | | ------------------------------------------------------------------------------------------