Figure 6-3 Screen Cobol Code That Accesses A Tacl Server - HP TACL Programming Manual

Figure 6-3 contains the Screen COBOL source code for the requester. This requester
displays a screen and waits until the user presses the F1 key to send a request to TACL
or SF16 to exit the program. If the user sends a request, the requester displays the
response from TACL and waits until the user presses the F1 key to clear the message.
The requester then prompts for input again.
To compile this program, type a statement, such as the following, with appropriate file
and spooler names for your system:
SCOBOLX/IN SCOBSRC, OUT $S.#TCP/
When you compile the requester, Screen COBOL produces two files: POBJCOD and
POBJDIR.
Figure 6-3. Screen COBOL Code That Accesses a TACL Server (Page 1 of 2)
Identification Division.
Program-Id.
TEST-TACL.
Environment Division.
Configuration Section.
Source-Computer.
EXT.
Object-Computer.
EXT, Terminal Is T16-6530.
Special-Names.
REVERSE Reverse
F1 F1
SF16 Sf16.
Data Division.
Working-Storage Section.
1 TOTACL Pic X(80).
1 TACL Pic X(80).
1 REPCOD Pic 9(4) Comp.
1 FEOJ Pic 9 Value 0.
88 EXI Value 1.
Screen Section.
1 FRAME.
2 Filler At 1, 31 Value "**** TACL SERVER ****" REVERSE".
2 Filler At 7, 1 Value "ENTER REQUEST:".
2 Filler At 8, 1 Value "CREATE file, PRINT file, or ".
2 Filler At 9,
2 Filler At 10, 1 Value "-- or --
2 Filler At 11, 1 Pic X(80) To TOTACL.
2 Filler At 15, 1 Value "TACL Response; F1 to continue:".
2 RESPONSE At 16, 1 Pic X(80) From TACL.
107365 Tandem Computers Incorporated
1 Value "PURGE file, then press F1".
Running TACL as a Server
Using TACL as a Pathway Server
press SF16 to exit:".
6–9