Exchange/SNA Manual

Send/Receive Program Example
Example Programs
104700 Tandem Computers Incorporated E–11
Page 11 [1] $RJE.EXCHAPPL.EXAPPL 1991-06-04 13:36:52
EXCHANGE/SNA PROGRAMMATIC EXAMPLE
472. 000000 0 0 !***************************************************************
473. 000000 0 0
474. 000000 0 0 PROC exchange^example MAIN;
475. 000000 1 0
476. 000000 1 0 BEGIN
477. 000000 1 1
478. 000000 1 1 CALL initialize;
479. 000001 1 1
480. 000001 1 1 CALL send;
481. 000002 1 1 CALL open^line^printer;
482. 000003 1 1 CALL print^it;
483. 000004 1 1
484. 000004 1 1 CALL CLOSE (server^fnum);
485. 000011 1 1 CALL CLOSE (term^fnum);
486. 000016 1 1
487. 000016 1 1 END;
Page 12 [1] $RJE.EXCHAPPL.EXAPPL 1991-06-04 13:36:52
BINDER AND COMPILER STATISTICS
BINDER - OBJECT FILE BINDER - T9621C20 - (31DEC90) SYSTEM \SNAX
Copyright Tandem Computers Incorporated 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1989, 1990
Object file $RJE.EXCHAPPL.example
TIMESTAMP 1991-06-04 13:36:52
2 Code pages
18 Primary data words
243 Secondary data words
2 Data pages
0 Resident code pages
0 Extended data pages
261 Top of stack location in words
1 Code segment
0 Binder Warnings
0 Binder Errors
TAL - Transaction Application Language - T9250C30 - (01DEC90)
Number of compiler errors = 0
Number of unsuppressed compiler warnings = 0
Number of warnings suppressed by NOWARN = 0
Maximum symbol table space used was = 24160 bytes
Number of source lines = 6572
Compile cpu time = 00:00:01
Total Elapsed time = 00:00:16