HP 3000 Manuals HP 3000 Manuals
Descriptions of Directives (cont.) ASM Causes the Compiler to insert disassembled generated code into the Generator report (.grp) file. Syntax:.Parameters:. None Default:. NOASM Phase:. Generate Environment:. 16-bit $SET:. Initial Dependencies:. NOASM sets NOMASM at end. Set to ASM immediately by ASMLIST. Remarks:. ASM is automatically switched on when the ASMLIST directive is specified. You can produce a .grp file which contains Generator messages without assembler code by specifying ASMLIST() and NOASM (in that order). ASMLIST Makes the Compiler produce an assembly listing. Syntax:.Parameters:. destination A full file specification or a device-name. Default:. NOASMLIST Phase:. Generate Environment:. 16-bit $SET:. Initial Dependencies:. ASMLIST sets ASM immediately. NOASMLIST sets NOREF at end. Remarks:. If you specify an existing file it is overwritten. When NOASMLIST is specified, no assembly listing is produced. If you specify ASMLIST with no file-name, the assembly listing is sent to the screen. ASMLIST() causes the assembly listing to be put in the file source-name.grp, where source-name is the root of the name of the program being compiled. If you use ASMLIST together with SOURCEASM and you follow ASMLIST by the word NOASM, you get an assembly listing showing source code but not assembly code. This is useful because of the "BADCODE" comments you get on the source lines. See also:. MASM, PARAS, SOURCEASM (for details of "BADCODE") ASSIGN Specifies how to assign a file-name when neither EXTERNAL nor DYNAMIC appear in the SELECT statement. Syntax:.Parameters:. assign-type EXTERNAL or DYNAMIC. Defines the method. Default:. ASSIGN"DYNAMIC" Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. For more details, see the chapter File Handling in your COBOL System Reference. ASSIGN-PRINTER Specifies how to assign the output from an ASSIGN TO PRINTER clause when the clause does not specify a file-name. Syntax:.Parameters:. file-name The file to be associated with the ASSIGN TO PRINTER clause. Default:. NOASSIGN-PRINTER Phase:. Syntax check Environment:. All $SET:. Any Remarks:. This directive has no effect if you specify a file-name as part of the ASSIGN TO PRINTER clause. On DOS, Windows and OS/2, NOASSIGN-PRINTER causes the output to be sent to the device LST:. On UNIX it causes the output to be placed in a file called LPT1. ASSIGN-PRINTER"file-name" causes the output to be directed to the file-name specified. The file-name can be fully specified, including a device, path-name, base-name, and extension. ASSIGN-PRINTER() results in the same behavior as including the following COBOL statement: select file-name-1 assign to printer file-name-1 That is, the file-name used in your COBOL program is also used as the file-name for your output. If the internal file-name is too long for your operating system to handle, it is truncated to the maximum length the operating system allows. By default, the file-name does not include an extension, but you can specify an extension by using the PRINT-EXT directive. See also:. PRINT-EXT ASSUME Controls the interaction between certain generator directives. Syntax:.Parameters:. None Default:. ASSUME Phase:. Generate Environment:. 16-bit $SET:. Initial Dependencies:. If ASSUME then the following dependencies apply: NOTRICKLE sets NOALTER at end. REGPARM"OUT" sets LITLINK at end. REGPARM"IN" sets NOFASTLINK at end. AUTOLOCK Makes the default locking AUTOMATIC rather than EXCLUSIVE for files opened I-O or EXTEND in a multi-user environment. Syntax:.Parameters:. None Default:. NOAUTOLOCK Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. This directive does not appear in the SETTING list if its state is the same as WRITELOCK. In this case, the state of the two directives is indicated by the FILESHARE directive. This directive is included for compatibility with earlier file-sharing products. When writing new programs you should use the locking syntax rather than this directive. BADSIGNS Allows arithmetic with COMP-3 items with illegal sign nibbles (such as those produced by a redefinition of the item) to produce the desired result. Syntax:.Parameters:. None Default:. NOBADSIGNS Phase:. Generate Environment:. 16-bit $SET:. Initial Remarks:. Specifying BADSIGNS causes COMP-3 arithmetic to be performed by a non-optimized route, thus reducing the efficiency of your programs. For smaller, faster code you should not specify BADSIGNS. BELL Makes the bell sound at points such as when compilation stops, either because of an error or because it has finished). Syntax:.Parameters:. None Default:. NOBELL Phase:. Both Environment:. All (syntax check), 16-bit (generate) $SET:. Initial BOUND Specifies that on each table access the subscript or index value is to be checked to ensure it is within the limits defined by the OCCURS clause. Syntax:.Parameters:. None Default:. BOUND Phase:. Both Environment:. All $SET:. Initial Dependencies:. BOUND sets NOTABLESEGCROSS and NOBOUNDOPT at end BOUNDOPT Optimizes the code generated for USAGE DISPLAY subscripts. Syntax:.Parameters:. None Default:. BOUNDOPT Phase:. Generate Environment:. 16-bit $SET:. Initial (DOS, Windows and OS/2) No (UNIX) Dependencies:. Set to NOBOUNDOPT at end by BOUND or TABLESEGCROSS Remarks:. If BOUNDOPT is used, any digits in a USAGE DISPLAY subscript above the size of the table are ignored. Can only be used when NOBOUND is specified, and only affects optimized code (created with OPT"1" or above). NOBOUNDOPT must be specified if a program references beyond the end of a table. Example:. For example, for a table with 50 entries, a PIC 9(3) subscript is treated as PIC 9(2), with the most significant digit ignored. BRIEF Makes the Compiler produce only error numbers and no message texts. Syntax:.Parameters:. None Default:. NOBRIEF Phase:. Syntax check Environment:. All $SET:. Any
![[]](../../pic3k/M015153/FFN543c50.gif)
![[]](../../pic3k/M015153/FFN553c50.gif)
![[]](../../pic3k/M015153/FFN563c50.gif)
![[]](../../pic3k/M015153/FFN573c50.gif)
![[]](../../pic3k/M015153/FFN583c50.gif)
![[]](../../pic3k/M015153/FFN593c50.gif)
![[]](../../pic3k/M015153/FFN603c50.gif)
![[]](../../pic3k/M015153/FFN613c50.gif)
![[]](../../pic3k/M015153/FFN623c50.gif)
![[]](../../pic3k/M015153/FFN633c50.gif)
![[]](../../pic3k/M015153/FFN643c50.gif)