CONTROL BLOCK NAME = DFHTCRWE
DESCRIPTIVE NAME = CICS/ESA Remote Install Work Element
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1990, 1995
FUNCTION = Store remote install/remote delete data for use by
module DFHZATS. The DSECT is used exclusively by
DFHZTSP DFHCRS and DFHZATS.
The WE contains:
FIELD LENGTH
===== ======
Request type 1 byte
ECB 1 byte
Reserved 2 bytes
Terminal ID 4 bytes
Remote system ID 4 bytes
TCSE address 4 bytes
Netname 8 bytes
Pointer to BPS 4 bytes
New TCTTE address 4 bytes
Token 8 bytes
LIFETIME = Storage is obtained by a GETMAIN issued by the calling
module (DFHZTSP or DFHCRS) and released by a FREEMAIN
following completion or failure of the remote install or
remote delete. In the event of the calling program
ABENDing before completion of the remote install or
delete storage is released by DFHZATS.
STORAGE CLASS = Shared
LOCATION = The address is placed in TCAFCAAA for retrieval by
DFHZATS
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = NONE
MODULE TYPE = DSECT
--------------------------------------------------------------------
PLS DECLARATION OF THE REMOTE WORK ELEMENT
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
56 |
TCTRWE |
(0) |
CHARACTER |
1 |
RWETYPE |
Request type |
(1) |
CHARACTER |
1 |
RWEECB |
ECB |
(1) |
1... .... |
|
RWEIHA |
Initiating program has ABENDed |
(1) |
.1.. .... |
|
RWEPOST |
TCTTE built OK |
(1) |
..1. .... |
|
RWESHA |
Remote install prog. ABENDed |
(1) |
...1 .... |
|
RWEDUP |
Duplicate TCTTE found |
(1) |
.... 1... |
|
* |
Reserved |
(1) |
.... .1.. |
|
RWETOK |
TCTTE has a token |
(1) |
.... ..1. |
|
RWEBITM |
RT bit map used |
(1) |
.... ...1 |
|
* |
Reserved |
(2) |
BIT(8) |
1 |
RWE_FLAG |
Input flags |
(2) |
1... .... |
|
RWERSE |
Remote system entry |
(2) |
.1.. .... |
|
RWESTERM |
Shipped terminal definition |
(2) |
..1. .... |
|
RWE_VT |
Virtual Terminal |
(3) |
CHARACTER |
1 |
RWEPAD |
Reserved |
(4) |
CHARACTER |
52 |
RWEVAR |
(4) |
CHARACTER |
4 |
RWETERM |
Terminal ID |
(8) |
CHARACTER |
4 |
RWESID |
Remote system ID |
(C) |
ADDRESS |
4 |
RWESADDR |
TCSE address |
(10) |
CHARACTER |
8 |
RWENETN |
Netname |
(18) |
ADDRESS |
4 |
RWEBPS |
Address of BPS |
(1C) |
ADDRESS |
4 |
RWETCTAD |
New TCTTE address |
(20) |
CHARACTER |
8 |
RWETOKEN |
Token |
(28) |
CHARACTER |
8 |
RWECORID |
Correlation Id of terminal |
(30) |
CHARACTER |
8 |
RWENETOR |
TOR Netname |
Table 2.
Len |
Type |
Value |
Name |
Description |
1 |
HEX |
08 |
RWEINST |
Install requested |
1 |
HEX |
04 |
RWEDEL |
Remote delete request |
1 |
HEX |
02 |
RWEMDEL |
Mass delete request |
1 |
HEX |
01 |
RWEFDEL |
Mass flag request |