COBOL Manual for TNS and TNS/R Programs

Executing and Debugging HP COBOL Programs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
25-8
Finding Out What Preparation Commands Are
Already Active
You can achieve the same result with one command, OBEY PREP2, by putting these
commands in an OBEY command file named PREP2:
ADD DEFINE =BIGCUST, FILE \NICE.$FRNC.SIGNIF.CUST
ASSIGN PROG1.NEWFILE,&
\NICE.$FRNC.SIGNIF.NEWFILE,&
EXT 5, CODE 101, EXCLUSIVE
PARAM NONSTOP OFF
PARAM INSPECT ON
PARAM EXECUTION-LOG \NICE.$FRNC.SIGNIF.ERRMSG
PARAM PRINTER-CONTROL THE-PRINTER
PARAM SWITCH-1 ON, SWITCH-2 ON
An equivalent command sequence with the PARAM commands combined is:
ADD DEFINE =BIGCUST, FILE \NICE.$FRNC.SIGNIF.CUST
ASSIGN PROG1.NEWFILE,&
\NICE.$FRNC.SIGNIF.NEWFILE,&
EXT 5, CODE 101, EXCLUSIVE
PARAM NONSTOP OFF, INSPECT ON, SWITCH-1 ON, SWITCH-2 ON,&
EXECUTION-LOG \NICE.$FRNC.SIGNIF.ERRMSG,&
PRINTER-CONTROL THE-PRINTER
Finding Out What Preparation Commands Are Already Active
To find out if any DEFINEs are active, use this TACL command:
INFO DEFINE =*
To find out the characteristics of a DEFINE that you know is active, such as DEFINE
FILE $BEA.LEACH.HYER, use either of these commands:
SHOW DEFINE FILE
SHOW DEFINE *
To find out what ASSIGN commands are active, give the ASSIGN command with no
parameters:
ASSIGN
To find out what PARAM commands are active, give the PARAM command with no
parameters:
PARAM
Note. The maximum number of DEFINES, ASSIGN commands, and PARAM commands that
can be active at one time depends on the amount of memory allocated to the TACL command
interpreter. For more information, see the TACL Reference Manual.