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 |
DFHDLPDS |
DL/I INTERFACE PARM DSECT |
CICS - DL/I INTERFACE PARAMETERS
|
| (0) |
CHARACTER |
8 |
DLPEYE |
DLP Eyecatcher |
| (8) |
FULLWORD |
4 |
|
Reserved |
| (C) |
ADDRESS |
4 |
DLPDLI |
ADDR OF ENTRY TO DFHDLI |
| (10) |
BITSTRING |
1 |
DLPDLFLG |
DLI support flags |
| (10) |
.1.. .... |
|
DLPDLRE |
"X'40'" Remote DLI is supported |
| (10) |
...1 .... |
|
DLPXRF |
"X'10'" XRF takeover was performed |
| (11) |
ADDRESS |
3 |
|
Reserved |
| (14) |
ADDRESS |
4 |
DLPDGB |
Address of the DBCTL global block |
| (18) |
ADDRESS |
4 |
DLPDPEP |
Address of DFHDLIDP (the DBCTL call processor) |
| (1C) |
ADDRESS |
4 |
DLPRPEP |
Address of DFHDLIRP (the Remote call processor) |
| (20) |
ADDRESS |
4 |
|
Reserved |
| (24) |
ADDRESS |
4 |
DLPEDPEP |
Address of DFHEDP (the EXEC DLI program) |
| (28) |
ADDRESS |
4 |
DLPRPDIR |
Address of the remote PDIR |
| (2C) |
ADDRESS |
4 |
|
Reserved |
| (30) |
BITSTRING |
1 |
DLPFLG |
Flag Byte |
| (30) |
.... ..1. |
|
DLPPSBCK |
"X'02'" User Security Checking Required CF DFHSIT PSBCHK=YES|NO |
| (31) |
ADDRESS |
3 |
|
Reserved |
| (34) |
ADDRESS |
4 |
DLPLCKDGB |
Lock Manager Token for DFHDGB |
| (38) |
ADDRESS |
4 |
DLPLCKGWA |
Lock Manager Token for Global Work Area |
| (38) |
..11 11.. |
|
DLPDFEND |
"*" End of dlp |
| (38) |
.... 1... |
|
DLPDISPL |
"8" DISPLACEMENT IN PDIR FROM COUNT FIELD TO START OF THE DIRECTORY |