Inspect Manual

Debugging PATHWAY Applications
Inspect Manual—429164-006
5-5
Preparation and Configuration
either, but the data access and retrieval services they provide are required to insure
the requester program's proper functioning.
Preparation and Configuration
To use Inspect to debug a requester program, you must first ensure that the requester
program's program file includes symbol information. Consequently, you must include
the SYMBOLS compiler directive in the source code or on the command line when you
compile a SCREEN COBOL program (SCREEN COBOL defaults to NOSYMBOLS).
The symbol information produced by the SYMBOLS directive enables Inspect to
associate names of data items with data storage locations, and names of labels and
programs with pseudocode locations. If a requester program's program file does not
include symbol information, all attempts to debug the requester program with Inspect
will produce the error message “Symbol not defined.”
Configuring the TCP
Before you can start debugging a requester program, you must configure its TCP so
that the TCP can perform the execution control tasks.
If you are creating a TCP specifically to debug the requester program, you can
configure the TCP using the SET TCP INSPECT command provided by PATHCOM:
This SET command performs three functions:

Configures the TCP so that it can provide execution control services

Enables the communication link between the TCP and the Inspect process

Specifies the command terminal on which the Inspect process will run and prompt
Example 5-1
presents an example of configuring and starting a TCP, highlighting the
PATHCOM command that enables requester program debugging.
If you are using an existing TCP, you must configure the TCP using the ALTER TCP
Inspect command provided by PATHCOM:
=SET TCP INSPECT ON (FILE $INSPECT-command-term)
Example 5-1. Starting a TCP for Requester Program Debugging
=SET TCP CPUS 8:9
=SET TCP MAXTERMS 5
=SET TCP TCLPROG $pway.reqpgms.pobj
=SET TCP INSPECT ON (FILE $mydbug)
=ADD TCP debug-tcp
=START TCP debug-tcp
=ALTER TCP TCP-name, INSPECT ON (FILE $INSPECT-command-term)