OSI/AS Programming Manual

Example 1: Session Layer
Sample Programs
E–2 056783 Tandem Computers Incorporated
Example 1:
Session Layer
The following program establishes a wait-mode Session Layer connection between
two Tandem OSI/AS applications, sends 100 bytes of data in a data request, and then
releases the connection. All primitives that can send data also send 100 bytes of data.
This example combines both applications in a single program. Program variables
ending in “1” are associated with Application 1 (APPL1), and variables ending in “2”
are associated with Application 2 (APPL2).
To run this program, you must first configure an OSI/AS subsystem with an OSI
manager process named $OMGR and two applications named APPL1 and APPL2.
Either session version 1 or session version 2 can be used.
TAL Version
? INSPECT, SYMBOLS
? NOCODE, NOMAP, NOLMAP
? PAGE "OSI/AS Sample Program 1"
--
-- File: EXAPST1
--
-- OSI/AS Sample Program 1
--
-- This sample program establishes a wait-mode Session Layer
-- connection between two Tandem OSI/AS applications, sends
-- 100 bytes of data, and releases the connection.
-- All primitives that can send data also send 100 bytes of
-- data. To run this program, you must have an OSI/AS
-- subsystem configured with an OSI manager process named
-- $OMGR and two applications named APPL1 and APPL2. You can
-- configure either session version 1 or session version 2.
--
-- Program variables ending with 1 indicate Application 1.
-- Program variables ending with 2 indicate Application 2.
--
--
-- This program assumes that the ZAPSTAL file is in this
-- program's subvolume unless you ASSIGN it to be elsewhere.
--
? NOLIST, SOURCE ZAPSTAL( zaps^constants
? , zaps^ddl^activity^id
? , zaps^ddl^appl^addr
? , zaps^ddl^data^element^hdr
? , zaps^ddl^data^hdr
? , zaps^ddl^diag^buf
? , zaps^ddl^environment
? , zaps^ddl^filename
? , zaps^ddl^l5^conid
? , zaps^ddl^l5^rqmnts
? , zaps^ddl^original^error
? , zaps^ddl^tokens
? )
? LIST