HP 3000 Manuals HP 3000 Manuals
Descriptions of Directives (cont) DBCSSOSI Defines the two characters used as the shift-out and shift-in delimiters in DBCS literals. Syntax:.Parameters:. integer-1 ASCII code of the shift-out character, in decimal. integer-2 ASCII code of the shift-in character, in decimal. Default:. NODBCSSOSI Phase:. Syntax check Environment:. All $SET:. Any Remarks:. When shift-out and shift-in characters are specified by this directive, every DBCS literal must have the shift-out character immediately after the opening quotation mark and the shift-in character immediately before the closing quotation mark. They act as additional delimiters to the literal, and are not part of its value. With NODBCSSOSI, no shift-out and shift-in characters are needed or recognized. This feature might not be supported by your Compiler. DBSPACE Makes the Compiler interpret the figurative constant SPACE, when used as a DBCS figurative constant, as the double-byte space character supplied by the system. Syntax:.Parameters:. None Default:. NODBSPACE Phase:. Syntax check Environment:. All $SET:. Any Dependencies:. Set to DBSPACE immediately by SAA, VSC2"2", VSC2"3" or COBOL370. DBSPACE sets NOCONVSPACE at end. Remarks:. With DBSPACE, the Compiler uses the system supplied double-byte space character. NODBSPACE provides compatibility with previous versions of this Compiler, where the double-byte space character was two ASCII space characters (x"2020"). This feature might not be supported by your Compiler. DE-EDIT Specifies the behavior of de-editing moves from numeric-edited items to other numeric-edited items or to numeric items. Syntax:.Parameters:. integer Must be 1 or 2. Indicates which compatibility required. Default:. DE-EDIT"2" Phase:. Syntax check Environment:. All $SET:. Any Remarks:. The possible values of integer are: 1 Behavior as in earlier versions of this Compiler. Ignores the PICTURE clause of the sending field. 2 De-edits according to the PICTURE clause of the sending field. This provides ANSI'85 conformance. Example:. 01 A pic 909V99 value "30456". 01 B pic 9(5). ... move A to B With DE-EDIT"1", B contains 30456. With DE-EDIT"2", B contains 00034; the 0 after the 3 is dropped because it corresponds to the insertion character 0 in the picture-string of A, and the .56 is dropped because B has no decimal places. DEFAULTBYTE Initializes each otherwise undefined byte of the Data Division to the character given. Syntax:.Parameters:. integer ASCII code of the character, in decimal. Default:. DEFAULTBYTE"32" Phase:. Syntax check Environment:. All $SET:. Initial Dependencies:. Set to DEFAULTBYTE"32" immediately by CHARSET"ASCII". Set to DEFAULTBYTE"0" immediately by CHARSET"EBCDIC", MS, IBM-MS or PC1. DEFAULTCALLS Specifies the default calling convention. Syntax:.Parameters:. integer Default CALL convention Default:. NODEFAULTCALLS Phase:. Syntax check Environment:. All $SET:. Any Remarks:. DEFAULTCALLS without the optional argument specifies that the calling convention specified in the PROCEDURE DIVISION USING statement is to be used as the default calling convention. DEFAULTCALLS"integer" specifies that the calling convention indicated by "integer" is to be used as the default calling convention. NODEFAULTCALLS is equivalent to DEFAULTCALLS"0". Individual CALL statements can override these defaults (see your Language Reference). See your COBOL User Guide for a list of available calling conventions. DEFFILE Makes the Compiler produce a .def file, which can be used if a .dll file is to be created from an .obj file. Syntax:.Parameters:. file-name A full file specification. Default:. NODEFFILE Phase:. Generate Environment:. 16-bit on Windows and OS/2 $SET:. Any Dependencies:. If OMF"GNT", DEFFILE sets OMF"OBJ" at end Remarks:. This directive only affects .obj files. The name of this file is included on the command line to the linker. If file-name is omitted, the name of the file created is source-name.def. where source-name is the base part of the file-name of the source file. file-name can be specified as *.ext to set the extension to .ext but use source-name as the root. The file created contains the following lines: LIBRARY INITINSTANCE PROTMODE DATA NONSHARED EXPORTS entry-point @integer where an EXPORTS line exists for each entry point in the program, with entry-point being the name of the entry point, and integer a unique number starting at 1. If you also specify the directive NODLL, the line LIBRARY INITINSTANCE is replaced by NAME. Example:. DEFFILE"*.dfa" creates a file called source-name.dfa containing the lines: LIBRARY INITINSTANCE PROTMODE DATA NONSHARED EXPORTS source-name @1 See also:. DEFFILETYPE, DLL DEFFILETYPE Specifies the type of .def file to be produced (as specified by the DEFFILE directive), according to whether a Windows or OS/2 .dll file is required. Syntax:.Parameters:. type Must be OS2 or WIN. Default:. DEFFILETYPE"OS2" Phase:. Generate Environment:. 16-bit on Windows and OS/2 $SET:. Initial Remarks:. The possible values of type are: OS2 produces a .def file suitable for linking to create a .dll file for use with OS/2 WIN produces a .def file suitable for linking to create a .dlw file for use with Windows V3.0 or later. This directive affects only .obj files. DETECTLOCK DETECT-LOCK Makes READ statements detect when a record is locked by another program. Syntax:.Parameters:. None Default:. DETECTLOCK Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. With DETECTLOCK, if a READ statement reads a record locked by another program, it returns an I/O status of 9/068. With NODETECTLOCK, it returns 0/000. In both cases it reads the record successfully. When DETECTLOCK is specified, individual READ statements might be made to ignore locks by using the READ...IGNORELOCK syntax. See your Language Reference for details of this syntax. DG Changes the behavior of certain features to be compatible with Data General Interactive COBOL rev 1.30. Syntax:.Parameters:. None Default:. NODG Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. See your Language Reference - Additional Topics for details of syntax support for Data General Interactive COBOL rev 1.30. DIRECTIVES Makes the Compiler read directives from a file. Syntax:.Parameters:. file-name A full file specification. Default:. None Phase:. Both Environment:. All (syntax check), 16-bit (generate) $SET:. Initial Remarks:. Directives in the file must be separated by a space and a directive cannot be broken across two lines. The directives are read from the file until the end of file is reached or another DIRECTIVES directive is encountered. The maximum length of a line is 128 characters. You can specify more than one directives file in a program by either specifying DIRECTIVES"file-name" within a directives file or by writing more than one $SET statement at the beginning of your program. If you specify the DIRECTIVES directive within a directives file, the Compiler switches to the new directives file, reads all the directives in it, returns to the original directives file, and continues to read the directives specified after the DIRECTIVES directive. You can nest directives files to any depth. The directives file is searched for in the current and COBOL system directories. If no extension is specified, a file extension of .dir is added before the search is made. If no file is found, the search is repeated with no extension. DLL Makes the Compiler include a LIBRARY INITINSTANCE line in the .def file that is produced when you specify the DEFFILE directive. Syntax:.Parameters:. None Default:. DLL Phase:. Generate Environment:. OS/2 $SET:. Initial Remarks:. This directive only affects .obj files. The inclusion of this line in the .def file means that, if the name of the .def file is specified to the Linker, linking produces a .dll file instead of an .exe file. See also:. DEFFILE DOSVS Specifies that words reserved in IBM DOS/VS COBOL are to be treated as reserved words. Syntax:.Parameters:. None Default:. NODOSVS Phase:. Syntax check Environment:. All $SET:. Initial Dependencies:. Set to NODOSVS immediately by OSVS See also:. OSVS DYNAM Specifies that CANCEL statements are not to be ignored. Syntax:.Parameters:. None Default:. DYNAM Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. With NODYNAM, CANCEL statements in the program are ignored. EANIM Makes the Compiler put information on line numbers and symbols into the .obj file for use by a run-time debugger such as Microsoft CodeView. Syntax:.Parameters:. integer Indicates the type of debugger support to enable. Default:. NOEANIM Phase:. Both Environment:. DOS, Windows and OS/2 $SET:. Initial Dependencies:. If OMF"GNT", EANIM sets OMF"OBJ" at end. If OPT"0", EANIM sets OPT"1" at end. EANIM sets ANIM immediately. Remarks:. This directive only affects .obj files. integer can be one of two values: 1 Enables support for versions of Microsoft Codeview other than V3.50, and other .exe level debuggers. COBOL data types cannot be examined directly, but the CodeView command DB can be used to give a memory dump of a COBOL variable. 2 Enables support for Microsoft CodeView version 3.50, such that you can examine and modify most COBOL data types within the debugger. Specifying EANIM is the same as specifying EANIM"2". If you subsequently link the program using the options /CO, the debugging information is copied into the .exe file. EANIM causes FILLER data items to be placed in the dictionary, as is required by a number of debuggers. If you are compiling for CodeView, also specify the NOFORM directive. EARLY-RELEASE Enables support for Early User Syntax. Syntax:.Parameters:. None Default:. NOEARLY-RELEASE Phase:. Syntax check Environment:. All $SET:. Initial Remarks:. You must specify this directive if you wish to use any of the early-release directives or the following Early User Syntax: CALL prototypes, OMITTED parameters and TYPEDEF phrase. For details on this syntax see the appropriate on-disk document. ECHO Makes the Compiler display error lines and error messages on the screen. Syntax:.Parameters:. None Default:. ECHO Phase:. Syntax check Environment:. All $SET:. Any Dependencies:. Set to NOECHO immediately by ECHOALL Remarks:. For each error, the source line is displayed together with an error number and (unless BRIEF is set) an explanatory message. Remarks:. BRIEF ECHOALL Sends a full listing to the screen as well as to a printer or other device specified with the LIST or PRINT directive. Syntax:.Parameters:. None Default:. NOECHOALL Phase:. Syntax check Environment:. All $SET:. No Dependencies:. ECHOALL sets NOECHO immediately EDITOR Makes the Compiler send error messages to a file in a format compatible with a specified editor. Syntax:.Parameters:. editor-id Must be MF or MS. Default:. NOEDITOR Phase:. Both Environment:. All (syntax check), 16-bit (generate) $SET:. No Dependencies:. EDITOR " " and EDITOR"MS" set NOENSUITE immediately. EDITOR"MF" sets ENSUITE"1" immediately. Remarks:. The possible values of editor-id are: MF Micro Focus Editor MS Microsoft Programmer's Workbench You are recommended to use the NOECHO and NOQUERY directives in addition to the EDITOR directive. See also:. ECHO, FLAGSINEDIT, QUERY ERRLIST Specifies that the listing is to contain no source lines except those that have errors or flags. Syntax:.Parameters:. None Default:. NOERRLIST Phase:. Syntax check Environment:. All $SET:. No
![[]](../../pic3k/M015153/FFN1043c50.gif)
![[]](../../pic3k/M015153/FFN1053c50.gif)
![[]](../../pic3k/M015153/FFN1063c50.gif)
![[]](../../pic3k/M015153/FFN1073c50.gif)
![[]](../../pic3k/M015153/FFN1083c50.gif)
![[]](../../pic3k/M015153/FFN1093c50.gif)
![[]](../../pic3k/M015153/FFN1103c50.gif)
![[]](../../pic3k/M015153/FFN1113c50.gif)
![[]](../../pic3k/M015153/FFN1123c50.gif)
![[]](../../pic3k/M015153/FFN1133c50.gif)
![[]](../../pic3k/M015153/FFN1143c50.gif)
![[]](../../pic3k/M015153/FFN1153c50.gif)
![[]](../../pic3k/M015153/FFN1163c50.gif)
![[]](../../pic3k/M015153/FFN1173c50.gif)
![[]](../../pic3k/M015153/FFN1183c50.gif)
![[]](../../pic3k/M015153/FFN1193c50.gif)
![[]](../../pic3k/M015153/FFN1203c50.gif)
![[]](../../pic3k/M015153/FFN1213c50.gif)
![[]](../../pic3k/M015153/FFN1223c50.gif)