COBOL Manual for TNS and TNS/R Programs

Program Execution
HP COBOL Manual for TNS and TNS/R Programs—522555-006
12-7
ASSIGN Command
sec-extent-size
is an unsigned integer specifying the secondary extent size. If EXT is
omitted, sec-extent-size defaults to 20. If sec-extent-size is
omitted, the secondary extent size defaults to the primary extent size.
file-code
is 101 (for an EDIT file) or an unsigned integer in the range 0 through 99 or in
the range 1000 through 32767, which specifies a file code for disk file creation.
If the CODE clause is omitted, a file-code of 0 is used.
EXCLUSIVE
SHARED
PROTECTED
specify an exclusion mode for disk file reading or writing. This can override an
implied exclusion mode, but not an explicit exclusion mode specification in the
OPEN statement.
I-O
INPUT
OUTPUT
specify an access mode for the disk file; however, the run-time routines ignore
the value. The COBOL OPEN statement controls the access mode entirely.
record-size
is an integer accepted by TACL as specifying record length, but the run-time
routines ignore the value. The record declaration in the COBOL program
controls the record size entirely.
block-size
is an integer accepted by TACL as specifying block size. In the non-CRE
environment, the run-time routines ignore the value and the BLOCK
CONTAINS clause in the COBOL program controls the block size entirely. In
the CRE, block-size determines the block size.
Usage Considerations:
•
Places for ASSIGN Commands
You can give ASSIGN commands individually at the TACL prompt before you enter
the RUN command, or you can place the ASSIGN commands in an EDIT-format
file and use the OBEY command to execute all the commands in the file. You could
also include the RUN command in the OBEY command file.
Note. To see what ASSIGN commands are currently in force, enter just ASSIGN followed by a
carriage return.