6100 ADCCP Programming Manual

ADCCP Programming Example Using Transaction Application Language (TAL)
B–32 069225 Tandem Computers Incorporated
Establish the session.
!
! Loop Forever
!
while true do
begin
call check(base);
while not start^session do; !loop until session started
session := true;
call stamp^msg(sbuf);
sbuf[9] ':=' "============ SESSION STARTED =============" -> @ptr;
call write(outfile,outbuf,@ptr '-' @sbuf);
call awaitio(outfile);
call stamp^msg(sbuf);
sbuf[9] ':=' "==========================================" -> @ptr;
call write(outfile,outbuf,@ptr '-' @sbuf);
call awaitio(outfile);
call some^more^init;
call check(base);
call timestamp(start^time); !set starting time
records^read := 0;
records^written := 0;
Issue and complete I/O requests. Every 30 seconds, report how many frames have
been read and written.
while session do
begin
call post^ios;
case next^event(time^out) of
begin
!0! call frame^in;
!1! call frame^out;
!2! call timed^out;
!3! begin
sbuf[9]':='"??? Dangling CNTRL-SABM or READ TAG invalid"->@ptr;
call write^err^msg;
read^posted := false;
end;
otherwise call debug;
end;
call see^if^30^seconds^has^passed;
end;
end;
end;