MACRO NAME = DFHTEPCA
DESCRIPTIVE NAME = CICS TS TEP commarea mapper and descriptor
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1989
FUNCTION =
This macro provides a DSECT description and a storage
mapper for the terminal error program (TEP) commarea.
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS =
See OPERANDS sections.
MODULE TYPE = Executable macro
--------------------------------------------------------------------
Meaning of permissible TYPE operands:
DSECT
Build a DSECT named DFHTEPCA
STORAGE
If a DSECT has already been built, then define
a storage area to hold DFHTEPCA;
otherwise, build a storage area using the
named DSECT fields.
--------------------------------------------------------------------
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHTEPCA |
Invocation descriptor. - COMMAREA for the TEP user
replaceable module
|
| (0) |
BITSTRING |
1 |
TEPCALDS |
Local descriptor |
| (1) |
BITSTRING |
2 |
TEPCAGDS |
Global descriptor |
| (3) |
BITSTRING |
1 |
|
Reserved |
Address of control blocks required by the TEP
|
| (4) |
ADDRESS |
4 |
TEPCATCA |
Address of the TACLE |
| (8) |
ADDRESS |
4 |
TEPCECIA |
Address of the TCTUA |
| (C) |
HALFWORD |
2 |
TEPCECIL |
Length of the TCTUA |
Action byte. Initially set to the default actions.
User can change these default actions.
|
| (E) |
BITSTRING |
1 |
TEPCAACT |
User actions |
| (E) |
1... .... |
|
LINEOS |
"X'80'" Line out of service |
| (E) |
.1.. .... |
|
NONPRGT |
"X'40'" Non purgable task |
| (E) |
..1. .... |
|
TERMOS |
"X'20'" Terminal out of service |
| (E) |
...1 .... |
|
ABENDT |
"X'10'" Abend transaction |
| (E) |
.... 1... |
|
ABORTWR |
"X'08'" Abort write |
| (E) |
.... .1.. |
|
RELTTIOA |
"X'04'" Release TIOA |
| (E) |
.... ..1. |
|
SIGNOFF |
"X'02'" Sign off terminal |
Useful information. The fields below may be of use to
the TEP or TET. All of the following fields are read only.
|
| (F) |
CHARACTER |
4 |
TEPCATID |
Terminal ID |
| (14) |
FULLWORD |
4 |
TEPCATDB |
Current time of day binary |
| (14) |
...1 1... |
|
TEPCADLN |
"*-TEPCALDS" Length of this DSECT |