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

Program Execution
HP COBOL Manual for TNS/E Programs—520347-003
12-8
PARAM Command
The temporary file in Example 12-3 is purged when it is closed.
PARAM Command
The PARAM command creates a PARAM message in your current environment.
When a process compiled by the compiler begins to execute, the run-time routines
automatically request the PARAM message and use its contents to set the options
defined for HP COBOL. Application code within the program can also use the SMU
procedures to copy the PARAM message into the Working-Storage area and examine
it for additional parameters that apply to the program. Further, the program can
manipulate the saved parameters and cause them to be passed to any processes it
initiates using the CREATEPROCESS or CLU_PROCESS_CREATE_ routine.
Example 12-3. ASSIGN Command With Special COBOL Names
11>ASSIGN REPORT-OUT, $TERM4
12>RUN MYPROG
13>ASSIGN IN-MASTER,$DATA.ZZ.INFILE
14>RUN MYPROG1
15> == FD INPUT-FILE is the
16>ASSIGN INPUT-FILE, #IN == file named in the
17> == IN option.
18> == FD WORK-FILE is to be
19>ASSIGN WORK-FILE, #TEMP == a temporary disk file
20> == on the default volume.
21> == FD OUTPUT-FILE is the
22>ASSIGN OUTPUT-FILE, #OUT == file named in the
23> == OUT option.
24>ASSIGN RECEIVE-FILE, $RECEIVE
25> == Run the loadfile,
26> == designating NEWINP as
27> == the IN file (thus
28>RUN PROG3 /IN NEWINP,OUT NEWOUT/ == equating it with the
29> == fd-name INPUT-FILE)
30> == and NEWOUT as the OUT
31> == file (thus equating it
32> == with the fd-name
33> == OUTPUT-FILE).
Note. PARAM commands for files in a DLL are ignored.