Work
Set Work keyword value …
(Initially: Block 8, Temp ON, Labels OFF,
Jumbo ON, Random OFF, Trailingspaces OFF, Size 3200)
Set Work specifies the default size, attributes and functions of Qedit workfiles. The syntax of Set Work is as follows:
Set WORK [ options ]
| Jumbo | ON | OFF | Control use of Jumbo workfiles | default ON |
| Random | ON | OFF | Control use of random scratch file name | default OFF |
| Block | nn | Average lines expected to fit per block | default is 8, minimum is 2 |
| Labels | ON | Force Text to retain user labels | default OFF |
| Size | nn | Default size for new workfiles in lines | default 3200, min. 200, max. 99,999,999 |
| Temp | ON | Create Qeditscr temporary workfile or random scratchfiles | default ON |
| Trailingspaces | ON | OFF | Preserves or removes trailing spaces | default OFF |
Workfile Size. Qedit workfiles have a file code of 111 and their physical block size is 512 bytes (original format), 1,024 bytes (Jumbo format), or 8,192 bytes (Wide-Jumbo format). As many lines as possible are compressed and packed into each block, making it difficult to decide on the exact number of blocks to allocate for a new Qedit file. The default workfile size is 3,200 lines, assuming that each block can fit 8 lines. You can make the default workfile size smaller or larger by using Set Work Block nn Size nn. A workfile in original format cannot contain more than 65,535 lines or 32,767 blocks. A Jumbo or Wide-Jumbo workfile can hold up to 99,999,999 lines (maximum size is 4 GB). To make very small default workfiles, use Set Work Block 16 Size 200. To make the largest possible workfiles, use Set Work Block 2 Size 99999999. In either case, the Text command will increase the size of a new workfile above the default if needed to hold the file being copied.
Qeditscr. By default, Qedit creates a temporary workfile called Qeditscr whenever necessary. You can force Qedit to use only named (by you), permanent workfiles with Set Work Temp OFF (this might be helpful if you use unreliable telephone lines).
If you have Set Work Random ON, Qedit will use a random file name (determined when Qedit first starts up) in the form QEDnnnnn. This allows you to have multiple Qedit sessions running at the same time. Even though random scratch files are created in MPE’s permanent domain, they are temporary in the sense that they are purged upon exit.
You must have Set Work Temp ON in order to use random scratch files.
User Labels. Set Work Labels ON forces the Text command to retain user labels unless you do Text filename,Nolabels (the default is to discard the user labels unless you do Text filename,Labels).
Trailing Spaces. By default, Qedit removes trailing spaces on all lines in a variable-length file. Set Work Trailingspaces ON requests that Qedit preserves trailing spaces and make them significant characters. The option also allows creation of odd-length lines. Once enabled, all workfiles created or opened from that point will have trailingspaces preserved. To check the current status, do:
/Verify Work { Checks global setting } Set WOrk Jumbo ON Block 8 Labels OFF Temp ON Size 3200 Random ON Set WOrk TRailingspaces ON /Verify Keep { Checks current workfile } Set Keep Ascii OFF Cctl OFF COde 0 Lab 0 Num OFF Var ON Checktimestamp ON Set Keep COBfree ON NAme AFILE.GROUP.ACCT Set Keep LF ON /Verify Info Saved modification timestamp 2003/04/30 13:23:17 Trailing spaces preserved
The last line shows that trailing spaces are preserved in this workfile. If the option is disabled, that line reads Trailing spaces trimmed. Disabling the global setting with Set Work Trailing Off does not disable the option in the workfile. You have to clear the workfile after disabling it.