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

S75A TERMINAL QBY=T,DCB=PG3270,RLN=1,TERM=327R,QUEUES=MO, *
ADDR=E2E240402D,NTBLKSZ=1856
POLLST1 INVLIST ORDER=(TRM1+02)
POLLST2 INVLIST ORDER=(TRM2+02)
POLL70R INVLIST ORDER=(T32C-C1C17F7F2D,S70A+C1C140402D, *
S70B+C1C1C1C12D, *
S75A+C2C27F7F2D,S75A+C2C240402D), *
EOT=37
*
TOTCAM STARTMH LC=OUT 2260 MH
INHDR PROCESS INCOMING MSG HEADER
CODE
FORWARD DEST=C'RIS1'
INMSG PROCESS INCOMING COMPLETE MSG
INEND END OF INCOMING SECTION
OUTHDR PROCESS OUTGOING MSG HEADER
OUTEND END OF OUTGOING SECTION
*
MH3270 STARTMH LC=OUT,CONV=YES,STOP=YES 3270 MH
INHDR, PROCESS INCOMING MSG HEADER
MSGTYPE X'6C' IS IT A STATUS MESSAGE
B SOH IF SO, BRANCH ROUND
MSGTYPE ALL OTHER MSGS TO HERE
MSGEDIT ((R,CONTRACT,SCAN,(2))),BLANK=NO REMOVE CUDV BYTES
SOH EQU * or DS 0H
CODE
FORWARD DEST=C'R70I'
INBUF INCOMING MSG SEGMENT SECTION
INMSG SECTION FOR COMPLETE MSGS
INEND END INCOMING SECTION
OUTHDR
SETSCAN 1
MSGEDIT ((R,,SCAN)) REMOVE CCB
MSGFORM SETS IN LINE CONTROL CHARS
CODE
OUTBUF,
OUTMSG
OUTEND END OUTPUT SECTION
TOCICS STARTMH LC=OUT MH FOR APPLICATION
INHDR
CODE TRANSLATE TO EBCDIC
FORWARD DEST=PUT WRITE TO CICS
INEND
OUTHDR
OUTEND
DCBOFLGS EQU X'10'
END
Figure 105. Example of a TCAM message control program (non-SNA) (Part 2 of 2)
Chapter 26. Using TCAM with CICS 711