6100 ADCCP Programming Manual

ADCCP Programming Example Using Transaction Application Language (TAL)
069225 Tandem Computers Incorporated B–3
Definitions of files:
recfile: $RECEIVE
outfile: normally the home
terminalrfnum: used to read from the line
wfnum: used to write from the line
asynfnum: used to accept asynchronous responses
recfile,
outfile,
rfnum,
wfnum,
asynfnum, !file no. associated with async response
iosize,
last^addr,
addresses,
write^dex,
out^key,
in^key,
buf^ptrs[0:6],
read^posted,
read^buf,
rbuf[0:256], !buffer for asynchronous response
recbuff,
outbuf[0:80];
This is the template for a command or response buffer, including a Text field. The
fields are illustrated and described in in Section 6, "Requests and Responses.”
STRUCT SAMPLEMSG^FORMAT(*);
BEGIN
STRUCT MSG;
BEGIN
STRING CMD;
STRING MOD;
INT REQ^ID;
INT TEXT^OUT;
INT TEXT^IN;
STRUCT TEXT;
BEGIN STRING BYTE[1:2048];
END;
END;
STRUCT COMMAND^RESPONSE = MSG;
BEGIN
STRING RSP;
STRING MOD;
INT REQ^ID;
INT TEXT^OUT;
INT TEXT^IN;
STRUCT TEXT;
BEGIN
STRING BYTE[1:2048];
END;
INT TXT[1:1000] =TEXT; !REDEFINED TEXT INTO WORDS
END;
STRUCT BASIC = MSG;
BEGIN
STRING CMD;
STRING MOD;
INT REQ^ID;
INT TEXT^OUT;
INT TEXT^IN;
END;