SET

SET BATCH/POLL. SET BATCH and SET POLL relate to where EDIT/3000 expects to find commands, text records, and where output will be sent. SET POLL is the default condition and means that EDIT/3000 expects to find commands and text records in the INPUT file. To operate in an interactive session in full batch mode (with text records following command records) in the USE file, SET BATCH is declared. SET POLL can be set to return to interactive mode and read text from the INPUT file.

SET DELTA = increment. SET DELTA defines the interval between lines in the WORK file. The default increment is 1 or 0.1, depending on the SET FORMAT option in effect. If SET FORMAT = DEFAULT (the default condition), the increment is 1; if SET FORMAT = COBOL, the increment is 0.1. The SET DELTA value establishes line number increments which are used in the ADD, GATHER, and JOIN commands, and (when the UNNUMBERED parameter is used) in TEXT commands. The SET DELTA value in effect can be overridden with the BY increment parameter of GATHER, INSERT, and JOIN commands.

SET DEPTH = limit. SET DEPTH defines the maximum nesting of USE commands (how many times a USE command can call itself or another USE command); and the number of BEGIN-END pairs allowed in a WHILE block. The default limit is 10.

SET FIXED/VARIABLE. SET FIXED and SET VARIABLE specify whether the WORK file contents are saved with a KEEP command into a file with fixed-length or variable-length records. The default condition is FIXED.

SET FORMAT = COBOL/DEFAULT. SET FORMAT = COBOL and SET FORMAT = DEFAULT are used to inform EDIT/3000 whether EDIT/3000 operation is related to a COBOL source program or not. The default condition is DEFAULT.

SET FORMAT = COBOL informs EDIT/3000 that the current WORK file contents, when kept, must be acceptable to a COBOL compiler. The chosen SET FORMAT option also determines certain other SET command default conditions as shown in Table 3-1 “Default EDIT/3000 Operating Conditions”.

In addition, when SET FORMAT = DEFAULT, the smallest increment allowed for line number intervals is .001. The maximum line number count allowed is 99999.999. This restricts sequence numbers derived from line numbers with the KEEP command to eight bytes, with a range from 00000001 through 99999999. If SET FORMAT = COBOL, the smallest increment allowed for line number intervals is .001 and the maximum line number count allowed is 999.999. This restricts sequence numbers derived from line numbers with the KEEP command to six bytes, with a range from 000001 to 999999.

SET FROM = linenumber. SET FROM = linenumber specifies the starting line number for text entered into the WORK file with an ADD command, or for text copied by the GATHER, JOIN, or TEXT filename, UNNUMBERED commands. The default is 1 (new text will start at line 1 in the WORK file).

SET FRONT/REAR. SET FRONT and SET REAR request EDIT/3000 to form sequence numbers from the front bytes (SET FRONT) of each record or from the rear bytes (SET REAR) of each record. The default condition depends on the SET FORMAT option in effect. If SET FORMAT = DEFAULT, the last eight bytes of each record are used. If SET FORMAT = COBOL, the first six bytes of each record are used.

SET LEFT = colnum. This parameter specifies the left margin for text records in the WORK file. The default condition is 1 and text will start in column number 1 of each record. SET LEFT must be less than or equal to SET RIGHT and SET LENGTH.

SET LENGTH = colnum. This parameter specifies the maximum length (record size) of all records in the WORK file and may not exceed 255 bytes. The default length depends on the SET FORMAT option in effect. If SET FORMAT = DEFAULT, length = 72; if SET FORMAT = COBOL, length = 74. SET LENGTH must never be less than SET RIGHT.

Some EDIT/3000 commands can increase the length of a line in the WORK file up to 50 percent larger than the length in effect (a warning message will be displayed but the command will execute). If a command attempts to increase the length of a line by more than 50 percent, however, an error message is displayed and the command terminates. In batch mode, EDIT/3000 operation also is terminated.

SET LINES = maxlines. This parameter specifies the number of lines that will be printed on each page of an offline listing. The default is 60 lines. A minimum of 10 and maximum of 9999 lines can be specified; the number includes 3 lines for the page title.

SET QUIET/DISPLAY. DISPLAY is the default condition (EDIT/3000 will display line numbers for lines to be added, and so forth). SET QUIET is equivalent to using the Q option for EDIT/3000 commands (except KEEP).

SET RIGHT = colnum. This parameter specifies the right margin for text records in the WORK file. The default is 72 if the SET FORMAT = DEFAULT parameter has been declared and 74 if the SET FORMAT = COBOL parameter has been declared. Colnum must be greater than or equal to that set with a SET LEFT command and may not exceed the length established for records. SET RIGHT must never exceed SET LENGTH.

SET SHORT/LONG. SET SHORT and SET LONG determine the length of EDIT/3000 messages. SET LONG is the default condition. SET SHORT cancels SET LONG and causes messages to be shortened. For example,

   /END

   IF IT IS OK TO CLEAR RESPOND "YES"

   CLEAR? YES



    END OF SUBSYSTEM



   /SET SHORT;END

   CLEAR? YES



    END OF SUBSYSTEM

SET SHORT also is used to inhibit display of commands in a WHILE block.

SET SIZE = integer. SET SIZE establishes the actual size of the WORK file, in lines. The default is 0, when EDIT/3000 begins operation. With the default condition in effect, EDlT/3000 sets the size of the WORK file according to the source of text records, as follows:

If the source device is a terminal, a card reader, or a magnetic tape unit, EDIT/3000 sets the size to allow up to 2000 records (unless the SET SIZE command has set the size to some other value in lines). If the source device is a disc file, EDIT/3000 sets the size as shown below:

Note that for every 8 lines of text, EDIT/3000 uses one record for its own purpose. A numbered file also contains a directory at the end of the file. Because of this, approximately 88% of the records can be used for text lines. For example, if you do not SET SIZE explicitly before texting in a file with less than 1000 records, EDIT/3000 allows up to 2000 records in your WORK file, which means that approximately 1,767 (88% of 2000) lines of text are allowed.

Size should be set explicitly whenever possible, especially if less than 2000 records (approximately 1,767 lines of text) is sufficient space in the WORK file.

SET TABCHAR = string. SET TABCHAR defines a tab character to be used when entering text beginning at a specific tab stop. The default tab character if none is specified is Control I. The length of string may not be greater than one character. A decimal value may be specified for string if the digits are preceded by an apostrophe. The decimal value for Control I is '9 (the ASCII Horizontal Tab character).

When entering a line of text with the ADD or REPLACE command, the tab character is used to tab to the next column defined as a tab stop. To position at the second tab stop two tab characters are entered. For example, if the tab character is defined as follows:

      /SET TABCHAR = "!"

and a line of text is to begin at the second tab stop, the addition looks like this:

    /ADD

        1       !!45.85

        2

When the text is moved into the work file, the tab characters are replaced with a sufficient number of blanks to position up to the second tab stop and the number 45.85 is moved into the next five columns.

SET TABS=(colnum,...)/NOTABS. SET TABS=defines up to 12 tab stops to allow text to be entered beginning at a specified column. If no SET TABS command is used, the default condition is SET NOTABS. If SET TABS is used but no column numbers are specified, the default column numbers are:

(4,7,10,13,16,19,22,25,28,31,65,71) if FORMAT=DEFAULT is set,

(6,10,14,18,22,26,30,34,38,46,54,67) if FORMAT=COBOL is set.

Each colnum parameter must be larger than the preceding colnum parameter and must lie between the LEFT and RIGHT limits.

When using the TAB key (provided on some terminals) in conjunction with the Editor SET TABS feature, the following considerations apply:

It is the user's responsibility to make sure that the tab stops set on the terminal correspond to the tab stop column numbers specified with the Editor SET TABS command. The column positions depend upon the command that is to be used. The ADD and REPLACE commands print ten characters on the terminal before the first column of the line. The ADDQ command accepts the first column of the line beginning with the first cursor position.

When the TAB key is pressed, the Editor enters one tab character (Control I or a decimal 9) in the current line. The terminal positions the cursor to the next tab stop set on the terminal. When the line is moved into the WORK file, the Editor converts the tab character to the appropriate number of blanks to position the information at the proper columns. It is important to remember this when using the backspace (Control H). In this case, the terminal moves the cursor back one position but the Editor backspaces one character in the current line. If that character happens to be a tab character, the effect of backspacing is to return to the column position preceding the tab. For example, suppose a terminal tab stop is set at position 10 and the following commands are entered.

   /SET TABS = (10)

   /ADDQ

   145Ic       Hc

              ^

              |

    Cursor position

	NOTE: Ic indicates the tab key has been pressed and Hc indicates Control H or backspace entered.

The terminal moves the cursor one character position to the left when the backspace character is entered. However, the Editor considers the cursor position to be the 4th column since it backspaced over the tab character.

     145Ic         Current line according to Editor

The tab stops may be set on the terminal either manually, or programmatically with an Editor USE file specified by the user. The code for TAB SET is Escape 1 (1^e). The following USE file (named TABFIL) sets tabs in columns 10 and 20 of lines to be entered with the ADD command:

         SET TABS (10,20);

          Q "            1e    1e ";  (1e indicates Escape 1)

To execute the USE file, enter the USE command and the file name. For example:

          /USE TABFIL

Before setting new tabs, existing tabs should be reset with one of the following:

SET TIME = limit. SET TIME defines the maximum number of times an EDIT/3000 WHILE block will execute. The default is 50 iterations.

SET DELTA

SET FROM

SET QUIET AND SET DISPLAY

SET TABCHAR AND SET TABS