HP 3000 Manuals HP 3000 Manuals
Descriptions of Directives (cont) 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. Syntax:.Parameters:. None 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. Syntax:.Parameters:. None Default:. NOWB2 Phase:. Syntax check Environment:. All $SET:. No WRITELOCK 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. Syntax:.Parameters:. None 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 WRITETHRU Specifies that disk writes are not to be buffered. Syntax:.Parameters:. None Default:. NOWRITETHROUGH 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. This directive only has an effect if the CALLFH directive is used. When WRITETHRU is specified, the file handler EXTFH does not buffer disk writes. If the operating system allows the choice, the operating system does not buffer disk writes either. See also:. CALLFH XNIM Makes the Compiler compile your program for animation as if ANIM had been specified, and then invoke Animator. Syntax:.Parameters:. None 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 non-nested program, it is the last program in the source file that is animated. See also:. Animator Directives XOPEN Specifies that words reserved under the X/Open definition of COBOL are to be treated as reserved words. Syntax:.Parameters:. level Must be 3 or 4. The level of X/Open definition COBOL to be compatible with. Default:. NOXOPEN Phase:. Syntax check Environment:. All $SET:. Initial Dependencies:. XOPEN sets RTNCODE-SIZE"4" immediately Remarks:. The possible values of level 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 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, NLS, RTNCODE-SIZE XREF Makes the Compiler produce a cross-reference listing. Syntax:.Parameters:. None Default:. NOXREF Phase:. Syntax check Environment:. All $SET:. Initial Dependencies:. XREF sets RESEQ immediately. Set to NOXREF at end by NOLIST and RNIM. 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: * the name of the data item * the type of the data item * the line number where the data item was defined, shown as n# * the line numbers where the data item was updated, shown as n* * the line numbers where the data item was tested, shown as n? * the 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). 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 ZEROLENGTHFALSE Changes the way that class tests involving zero-length items are carried out. Syntax:.Parameters:. None 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 through 6. Syntax:.Parameters:. None 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. Syntax:.Parameters:. None 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
![[]](../../pic3k/M015153/FFN2953c50.gif)
![[]](../../pic3k/M015153/FFN2963c50.gif)
![[]](../../pic3k/M015153/FFN2973c50.gif)
![[]](../../pic3k/M015153/FFN2983c50.gif)
![[]](../../pic3k/M015153/FFN2993c50.gif)
![[]](../../pic3k/M015153/FFN3003c50.gif)
![[]](../../pic3k/M015153/FFN3013c50.gif)
![[]](../../pic3k/M015153/FFN3023c50.gif)
![[]](../../pic3k/M015153/FFN3033c50.gif)
![[]](../../pic3k/M015153/FFN3043c50.gif)