IBM SC33-1683-02 - Manual (Page 742)

TCAM message control program (non-SNA)
This section gives an example of a non-SNA TCAM message control program. This
MCP shows the relationship between the MCP definition and the CICS terminal
control table generation. It should not be construed as a typical or usable MCP for
CICS. For further information about MCP definition for a variety of devices, see the
ACF/TCAM Installation and Migration Guide. An example of a CICS terminal control
table for TCAM is given in the
CICS Resource Definition Guide.
Note: Two sample TCAM message control programs for use in an SNA network
are provided in CICSTS13.CICS.SDFHSAMP. These are DFHSPTM1 (in
which control of SNA sessions is independent of the CICS application
programs), and DFHSPTM2 (in which control of SNA sessions is according
to the requirements of the CICS application programs).
MCPCICS CSECT
TCAMINIT INTRO DISK=NO, *
PROGID=TCAM/CICS, *
LUNITS=40, *
MSUNITS=20, *
KEYLEN=132, *
CROSSRF=4, *
DLQ=TRM1, *
STARTUP=CY, *
TRACE=10, *
LINETYP=BOTH, *
OLTEST=0
LTR 15,15
BZ OPENLINE
NOEXEC ABEND 123,DUMP
OPENLINE OPEN (PG3270,(INOUT))
TM PG3270+48,DCBOFLGS
BNO NOEXEC
WTO 'TIME TO START APPLICATION PROGRAM'
READY
FINISH CLOSE (,PG3270)
L 13,4(13)
RETURN (14,12)
PG3270 DCB DSORG=TX,MACRV=(G,P),CPRI=S,DDNAME=DDPG3270, *
MH=MH3270,PCI=(N,N),BUFSIZE=464, *
INVLIST=(POLL70R,,),TRANS=EBCD
QPROC PCB MH=TOCICS, *
BUFSIZE=464, *
RESERVE=(20)
TTABLE LAST=TRM2
RIS1 TPROCESS PCB=QPROC,QUEUES=MO *
WIS1 TPROCESS PCB=QPROC
R70I TPROCESS PCB=QPROC,QUEUES=MO
R700 TPROCESS PCB=QPROC
T32C TERMINAL QBY=T,DCB=LG3270R,RLN=1,TERM=327C,QUEUES=MO
S70A TERMINAL QBY=T,DCB=PG3270,RLN=1,TERM=327R,QUEUES=MO, *
ADDR=616140402D,NTBLKSZ=1856,SECTERM=YES
S70B TERMINAL QBY=T,DCB=PG3270,RLN=1,TERM=327R,QUEUES=MO, *
ADDR=6161C1C12D,NTBLKSZ=1856,SECTERM=YES
Figure 105. Example of a TCAM message control program (non-SNA) (Part 1 of 2)
CICS-TCAM program interrelationship
710 CICS TS for OS/390: CICS Customization Guide