COBOL Manual for TNS/E Programs (H06.03+)

Executing and Debugging HP COBOL Programs
HP COBOL Manual for TNS/E Programs—520347-003
25-4
Specifying Characteristics of Files That a Program
Creates
The number of ASSIGN commands the command interpreter can store is limited by the
amount of memory allocated to the command interpreter. The default amount of
memory allocated to the command interpreter is 8 pages, which accommodates up to
19 ASSIGN commands. To allocate more memory to the command interpreter, use the
MEM option in the RUN command that you use to run the command interpreter. Each
additional page of memory allocated to the command interpreter accommodates an
additional 19 ASSIGN commands.
Specifying Characteristics of Files That a Program Creates
If your program is to create a file, you can specify these characteristics of that file with
an ASSIGN command:
•
The actual file name with which the COBOL file name is to be associated
•
The size of the file (extent size)
•
A file code
•
An exclusion mode (EXCLUSIVE, SHARED, or PROTECTED) for reading and
writing (but it does not override any exclusion mode that the program explicitly
specifies)
The ASSIGN command Example 25-2 specifies that the file that the program calls
NEWFILE has the system file name \AKRON.$SLB.MAJ.NEWFILE, is allocated five
file pages, is an EDIT file (type 101), and EXCLUSIVE exclusion mode (unless the
OPEN statement that opens the file specifies a different exclusion mode).
You can also specify file characteristics with a DEFINE. For details on specifying file
characteristics with either the ASSIGN command or DEFINEs, see ASSIGN Command
and DEFINEs.
Overriding the NONSTOP Directive
If your program was compiled with a NONSTOP directive (which causes it to execute
as a process pair), and you want to override the NONSTOP directive (until you have
debugged the program, for example), you must execute the command PARAM
NONSTOP OFF before executing your program. The PARAM NONSTOP OFF
command is:
PARAM NONSTOP OFF
Example 25-2. ASSIGN Command
ASSIGN PROG1.NEWFILE,
\AKRON.$SLB.MAJ.NEWFILE,
EXT 5,
CODE 101,
EXCLUSIVE