CONTROL BLOCK NAME = DFHIRRDS
NAME OF MATCHING PLS CONTROL BLOCK = None.
DESCRIPTIVE NAME = CICS TS Interregion Session Recovery
Data Stream.
FUNCTION =
This DSECT describes the datastream sent by both primary
and secondary at the start of an IRC session. The datastream
is used to perform session recovery immediately after a
new IRC connection has been established between two
systems.
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
0 |
DFHIRRDS |
(0) |
BITSTRING |
1 |
IRRSTRT (0) |
START |
(0) |
BITSTRING |
4 |
IRFLGS (0) |
FLAGS |
(0) |
BITSTRING |
1 |
IRFLG1 |
FLAG BYTE 1 |
(0) |
1... .... |
|
IRFLGFX |
"X'80'" .. FAST PATH XFORMER SUPPORTED |
(0) |
.1.. .... |
|
IRFLFACC |
"X'40'" .. Revised State-after-Rollback rules are required |
(0) |
..1. .... |
|
IRFLBSND |
"X'20'" .. Sender is 'new batch' |
(0) |
...1 .... |
|
IRFLBREJ |
"X'10'" .. Sender is non-batch connection reject |
(0) |
.... 1... |
|
IRFLCONT |
"X'08'" .. More bind data after IRLEN (see IRCONT DSECT below) |
(0) |
.... .1.. |
|
IRFLRSYN |
"X'04'" .. Sender is capable of new (LU62-style) resync |
(0) |
.... ..1. |
|
IRFLFCTK |
"X'02'" .. Sender can handle FC Tokens |
(0) |
.... ...1 |
|
IRFRRS |
"X'01'" .. Sender supports transactional EXCI |
(1) |
BITSTRING |
1 |
IRFLG2 |
(1) |
1... .... |
|
IRFLRTST |
"X'80'" .. Routable START support |
(1) |
.1.. .... |
|
IRFLRQST |
"X'40'" .. Requeststreams |
(1) |
..1. .... |
|
IRFLCHAN |
"X'20'" .. Sender can handle Channels |
(1) |
...1 .... |
|
IRFLEWLM |
"X'10'" .. Sender can handle EWLM correlators |
(1) |
.... 1... |
|
IRFLTXBK |
"X'08'" .. TEXCI BACKOUT AFTER ABEND |
EQU X'04' Reserved - Do not use
|
(1) |
.... ..1. |
|
IRFLICRX |
"X'02'" .. Sender can handle ICRX's |
(1) |
.... ...1 |
|
IRFLODRP |
"X'01'" .. Sender can handle Origin Data |
(2) |
BITSTRING |
1 |
IRFLG3 |
(2) |
1... .... |
|
IRFLSTIX |
"X'80'" .. Sender supports ICRX on start |
(2) |
.1.. .... |
|
IRFLACTX |
"X'40'" .. Sender supports initial app ctxt |
(2) |
..1. .... |
|
IRFLCACX |
"X'20'" .. Sender supports current app ctxt |
(2) |
...1 .... |
|
IRFLXCHAN |
"X'10'" .. Sender can handle Tran Channels |
(3) |
BITSTRING |
1 |
|
RESERVED |
(4) |
BITSTRING |
4 |
IRRELNO |
SENDER'S RELEASE LEVEL (SAME FORMAT AS ISC RLSE NO IN USER AREA IN BIND) |
(8) |
CHARACTER |
4 |
IRSNAM |
SENDER'S NAME |
(C) |
CHARACTER |
4 |
IRRNAM |
NAME TO WHICH SENDER WAS CONNECTED IN PREV. SESSION (BLANKS IF NONE OR UNKNWN) |
(10) |
BITSTRING |
2 |
IRLONO |
LOGICAL OUTBOUND SEQUENCE NO. AT END OF LAST SESSION (ZEROS IF COLD-STARTED) |
(12) |
BITSTRING |
2 |
IRLINO |
LOGICAL OUTBOUND SEQUENCE NO. AT END OF LAST SESSION (ZEROS IF COLD-STARTED) |
(12) |
...1 .1.. |
|
IRLEN |
"*-IRRSTRT" LENGTH OF DATASTREAM |
The IRCONT DSECT describes a bind continuation element.
The presence of such an element is signalled by the
setting of the IRFLCONT flag in IRFLGS (see the DFHIRRDS
DSECT above). The element appears immediately after
the bind data (ie at offset IRLEN from DFHIRRDS).
Table 2.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
0 |
IRCONT |
(0) |
HALFWORD |
2 |
IRCONT_LTH |
lth of data item (including lth field itself) |
(2) |
HALFWORD |
2 |
IRCONT_TYPE |
type of data item |
(2) |
.... ...1 |
|
IRCONT_JOBID |
"X'01'" type value for jobid data item |
(2) |
.... ..1. |
|
IRCONT_XLN |
"X'02'" type value for bind XLN data |
(4) |
BITSTRING |
1 |
IRCONT_DATA (0) |
start of data proper |
(2) |
BITSTRING |
1 |
IRCONT_FLAG |
flag at start of type field |
(2) |
1... .... |
|
IRCONT_MORE |
"X'80'" IRCONT_FLAG value indicating presence of another data item |