MACRO NAME = DFHDLP
DESCRIPTIVE NAME = CICS DL/I General Purpose Macro
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1981, 2016
FUNCTION =
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = NONE
REGISTER CONVENTIONS = SEE COMMENTS IN CODE
MODULE TYPE = EXECUTABLE
A31849
D96439 700 141031 HD2GJST: Fix DFHDLI info messages
D97034 700 141117 HD2GJST: Fix Control block formatting
R126793 710 160727 HDFVGMB: Save DBCTLID over disconnect
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHCTXPA |
, |
| (0) |
ADDRESS |
4 |
CTEINIT |
Init Token - Addresses the DGB |
| (4) |
CHARACTER |
4 |
CTEDBCTL |
DCBTL ID |
| (8) |
CHARACTER |
2 |
CTEOFUNC (0) |
DRA Over-all function code |
| (8) |
CHARACTER |
1 |
CTEFUNC |
DRA Function code |
| (8) |
.... ..1. |
|
CTERSYN |
"X'02'" Resync |
| (8) |
.... .1.1 |
|
CTEFAIL |
"X'05'" DRA/DBCTL Failure |
| (9) |
BITSTRING |
1 |
CTESFUNC |
DRA Sub-function code |
| (9) |
.... ...1 |
|
CTEIDFL |
"X'01'" IDENTIFY Failed |
| (9) |
.... ..1. |
|
CTECANC |
"X'02'" INIT request failed |
| (9) |
.... ..11 |
|
CTEDBCF |
"X'03'" DBCTL has terminated |
| (9) |
.... .1.. |
|
CTEDRAF |
"X'04'" DRA Abnormally terminating |
| (9) |
.... .1.1 |
|
CTEDBCC |
"X'05'" /CHR FREEZE issued |
| (A) |
HALFWORD |
2 |
CTEIDLEN |
In-doubt List Length ( -1 indicates failure in Adapter ) |
| (C) |
ADDRESS |
4 |
CTEIDPTR |
In-doubt List pointer |
| (10) |
CHARACTER |
8 |
CTEJOBNM |
Jobname of active DBCTL sub-system |
| (18) |
CHARACTER |
1 |
CTECRC |
DBCTL Command Recognition character |
| (19) |
CHARACTER |
1 |
CTERGTY |
DBCTL Region type |
| (19) |
.... ...1 |
|
CTEDBCX |
"X'01'" DB/DC with XRF |
| (19) |
.... ..1. |
|
CTEDBCO |
"X'02'" DB/DC Only |
| (19) |
.... .1.. |
|
CTEDBCL |
"X'04'" DBCTL |
| (1A) |
BITSTRING |
2 |
CTEMITCB |
Minimum number of TCBs |
| (1C) |
BITSTRING |
2 |
CTEMATCB |
Maximum number of TCBs |
| (1E) |
CHARACTER |
1 |
CTERCOD |
DBCTL Failure reason code |
| (1E) |
.... ...1 |
|
CTESSF |
"X'01'" MVS SSI Failure |
| (1E) |
.... ..1. |
|
CTEABND |
"X'02'" DBCTL Abend |
| (1E) |
.... ..11 |
|
CTEGMF |
"X'03'" DRA Getmain Failure during INIT |
| (1E) |
.... .1.. |
|
CTEOPC |
"X'04'" System Operator cancelled Init |
| (1E) |
.... .1.1 |
|
CTEDBNZ |
"X'05'" DBCTL set non-zero ret on Identify |
| (1E) |
.... .11. |
|
CTEESTF |
"X'06'" DRA could not establish ESTAE |
| (1E) |
.... .111 |
|
CTEDRAA |
"X'07'" DRA abended |
| (1E) |
.... 1... |
|
CTENTUP |
"X'08'" DBCTL is not active |
| (1E) |
.... 1..1 |
|
CTENOSS |
"X'09'" DBCTL does not exist |
| (1E) |
.... 1.1. |
|
CTENINT |
"X'0A'" DBCTL is in initialisation process |
| (1E) |
.... 1.11 |
|
CTERSTN |
"X'0B'" DBCTL init done, waiting for restart |
| (1E) |
.... 11.. |
|
CTERST |
"X'0C'" DBCTL is in restart process |
| (1E) |
.... 11.1 |
|
CTEBRST |
"X'0D'" Backup in ERE mode |
| (1E) |
.... 111. |
|
CTETKOV |
"X'0E'" Takeover mode |
| (1E) |
.... 1111 |
|
CTEITCF |
"X'0F'" Internal DRA TERM after CHEFZ |
DS CL3
|
| (1F) |
BITSTRING |
4 |
CTEPARETC |
PAPARETC |
| (23) |
BITSTRING |
2 |
CTEASID |
DBCTL ASID |
| (25) |
CHARACTER |
8 |
CTEJOBID |
DBCTL JES Job ID |
| (2D) |
CHARACTER |
8 |
CTERSEN |
DBCTL RSE Name |
| (38) |
FULLWORD |
4 |
CTENOMITHD |
Number of times min thread hit |
| (3C) |
FULLWORD |
4 |
CTENOMATHD |
Number of times max thread hit |
| (40) |
FULLWORD |
4 |
CTEELMAX |
Elapsed time at max thread |
| (44) |
FULLWORD |
4 |
CTEHIWAT |
Highest number of threads attached |
| (44) |
.1.. 1... |
|
CTELNGTH |
"*-DFHCTXPA" End of Control Exit Parameter List |