HP TACL Programming Manual page 154

Running TACL as a Sever
Using TACL as a Pathway Server
6–8
Figure 6-2. Running a TACL Program as a Server (Page 2 of 2)
| 4 | {invalid request}
#RESULT Invalid request !
#UNFRAME
#RETURN
]
#UNFRAME
]
[#DEF reply ROUTINE |BODY|
#FRAME
#PUSH text
[#DEF answer80 STRUCT
BEGIN
CHAR byte(0:79);
END;
]
#IF [#ARGUMENT /VALUE text/ TEXT]
#SET #REPLYPREFIX 0
#SET answer80
[#IF [#INTERACTIVE] |THEN|
#OUTPUT [answer80]
|ELSE|
#REPLYV answer80
]
#UNFRAME
]
==main loop
#PUSH request prompt outcome end_flag
#SET end_flag 0
[#LOOP |DO|
== Read a record
#INPUTV / NOECHO / request prompt
[#IF [#INPUTEOF] |THEN|
#SET end_flag 0
|ELSE|
#SET outcome [process [request] ]
reply [outcome]
]
|UNTIL| end_flag
]
#UNFRAME
107365 Tandem Computers Incorporated
== Reply to Screen COBOL
== 80-character text response
== constant reply code
[#CHARGET text 1 to 80]
== Display the result
== or
== Reply