Using TACL as a Pathway Server
Running TACL as a Sever
6–10 107365 Tandem Computers Incorporated
Figure 6-3. Screen COBOL Code That Accesses a TACL Server (Page 2 of 2)
Procedure Division.
0-DEBUT.
Display Base FRAME
Perform 1-LOOP Until EXI
Stop Run.
1-LOOP.
Accept FRAME Until F1 Escape SF16
If Termination-Status = 1
* Then
Send TOTACL To "TACL"
Reply Code 0 Yields REPCOD TACL
Display RESPONSE
Accept Escape F1
Reset RESPONSE
Clear Input
Else
Move 1 To FEOJ.
* End-If
The following commands start the Pathway environment. You can store these
commands in an OBEY file:
PATHMON /NAME $tst, NOWAIT/
PATHCOM /IN pathcnfg/$tst
To Next Page
Loading...
