EDF - EDF Communication area
Applicable releases
beta 6.3 6.2 6.1
CONTROL BLOCK NAME = DFHEDFDS
NAME OF MATCHING PLS CONTROL BLOCK = DFHEDFCA.
DESCRIPTIVE NAME = CICS TS EDF Debug Linkage Area
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-YA1
(C) Copyright IBM Corp. 1981, 2012
FUNCTION =
This DSECT describes the user task data that is used by EDF
to display the status information, etc.
It is obtained in DFHEDFX for each EDF call. It is then
filled with data describing the user transaction state.
It is passed to the EDF task as an ATTACH parm, and is used
by the attached EDF task. The storage is freed in DFHEDFX
when the user task is resumed.
| Offset Hex | Type | Len | Name (Dim) | Description |
|---|---|---|---|---|
| (0) | STRUCTURE | 0 | DFHEDFDS | |
| (0) | FULLWORD | 4 | EDFUEIA | TCTTE EXEC INTERFACE ADDR |
| (4) | FULLWORD | 4 | EDFUTCA | ADDRESS OF USER'S TCA |
| (8) | FULLWORD | 4 | EDFUR1 | ADDRESS OF USER PARM LIST |
| (C) | FULLWORD | 4 | EDFUEISP | ADDRESS OF USER'S EIS |
| (10) | FULLWORD | 4 | EDFUEIBP | ADDRESS OF USER'S EIB EDF TASK MANAGEMENT INFO |
| (14) | BITSTRING | 1 | EDFXA | TASK SWITCH ATTRIBUTE |
| (14) | 1111 1111 | EDFLINK | "X'FF'" CEDF ATTACHED TO LINK EDFD | |
| (14) | 1111 111. | EDFSTRT | "X'FE'" CEDF ATTACHED TO START CEDF DEBUG MODE INFO | |
| (15) | BITSTRING | 1 | EDFCTL1 | COPY OF EISEDFDM REQUEST BYTE INFO |
| (16) | BITSTRING | 1 | EDFCTL2 | COPY OF EISEDFRB EDF CONTROL INFO |
| (17) | BITSTRING | 1 | EDFCTL3 | EDF CONTROL BITS |
| (17) | 1... .... | EDFOUTD | "X'80'" DISP=OUT FOR PAGE BUILD | |
| (17) | .1.. .... | EDFDBCNT | "X'40'" EDF DEBUG MODE CONTINUES | |
| (17) | ..1. .... | EDFIVPS | "X'20'" INVALID PAGE SIZE | |
| (17) | ...1 .... | EDFUTPG | "X'10'" USER TASK HAS BEEN PURGED | |
| (17) | .... 1... | EDFPAGD | "X'08'" DISP=PAGING FOR BMS | |
| (17) | .... .1.. | EDFDTMOK | "X'04'" EDFD TERMINATED CORRECTLY | |
| (17) | .... ..1. | EDFSECV | "X'02'" SECURITY VIOLATION | |
| (17) | .... ...1 | EDFIPIC | "X'01'" IPIC transaction | |
| (18) | BITSTRING | 1 | EDFCTL4 | USER LANGUAGE INFO |
| (19) | BITSTRING | 1 | EDFTOS | BIT PATTERN=OUT OF SERVICE |
| (19) | .... ..1. | EDFNIS | "X'02'" TERMERR RECEIVED | |
| (1A) | BITSTRING | 1 | RESERVED | |
| (1B) | CHARACTER | 1 | EDFOPSYS | OPERATING SYS FROM CSAOPSYS |
| (1C) | FULLWORD | 4 | EDFUASTG | ADDRESS OF USER'S AUTO STG |
| (20) | FULLWORD | 4 | EDFURE | USER'S RETURN REGISTER |
| (24) | FULLWORD | 4 | EDFUCDB | USER'S CODE BASE |
| (28) | CHARACTER | 8 | EDFPGMID | USER'S PROGRAM NAME |
| (30) | BITSTRING | 1 | EDFENV | Current Environment |
| (30) | 1... .... | EDFURM | "X'80'" URM | |
| (31) | BITSTRING | 2 | Reserved FILE CONTROL INFO | |
| (33) | BITSTRING | 1 | EDFFCRF | FILE CONTROL RECORD FORMAT |
| (33) | 1... .... | EDFFCF | "X'80'" FC FIXED FORMAT | |
| (33) | .1.. .... | EDFFCV | "X'40'" FC VARYING FORMAT | |
| (33) | ..1. .... | EDFBDAM | "X'20'" FC ACCESS METHOD=BDAM | |
| (33) | ...1 .... | EDFVSAM | "X'10'" FC ACCESS METHOD=VSAM | |
| (33) | .... 1... | EDFISAM | "X'08'" FC ACCESS METHOD=ISAM | |
| (34) | HALFWORD | 2 | EDFFCRL | FILE CONTROL RECORD LENGTH |
| (36) | BITSTRING | 1 | EDFFCKL | FILE CONTROL KEY LENGTH |
| (37) | BITSTRING | 1 | EDFUTCTR | User's send/receive flags |
| (38) | FULLWORD | 4 | EDFABRA | ADDRESS of EDF ABEND info |
| (3C) | FULLWORD | 4 | EDFUACP | ADDR OF USER ABCODE SLOT |
| (40) | FULLWORD | 4 | EDFACP | ADDR OF EDF ABCODE SLOT |
| (44) | FULLWORD | 4 | EDFURSAP | ADDRESS OF USER REGISTERS |
| (48) | FULLWORD | 4 | EDFPLBA | PARTITION LOWER BOUND ADDR |
| (4C) | FULLWORD | 4 | EDFPUBA | PARTITION UPPER BOUND ADDR |
| (50) | FULLWORD | 4 | EDFUTCTA | USER'S TCTTE ADDRESS |
| (54) | CHARACTER | 4 | EDFUQTID | USER'S TERMID/TRANID |
| (58) | FULLWORD | 4 | EDFUARSA | ADDR OF USER RSA |
| (5C) | HALFWORD | 2 | EDFUTRTO | READ TIMEOUT VALUE |
| (5E) | HALFWORD | 2 | EDFCALEN | USER'S EIBCALEN |
| (60) | FULLWORD | 4 | EDFCOMAA | USER'S COMMAREA ADDR |
| (64) | FULLWORD | 4 | EDFUTEDA | COPY OF TCTTEDA AS SET FOR APPLICATION REQUESTS |
| (68) | FULLWORD | 4 | EDFUEIEX | COPY OF TCTEEIEX AS SET FOR APPLICATION REQUESTS |
| (6C) | FULLWORD | 4 | EDFPGMLN | PROGRAM LENGTH |
| (70) | FULLWORD | 4 | EDFTSADR | TERM. STATUS FIELD ADDR |
| (74) | FULLWORD | 4 | EDFMSA | MODULE START ADDRESS |
| (78) | FULLWORD | 4 | EDFUR1SA | ADDRESS OF EISEIPR1 (USED AND SET BY DFHEDFCC) |
| (7C) | FULLWORD | 4 | EDFUEILR | COPY OF TCTEEILR AS SET FOR APPLICATION REQUESTS |
| (80) | FULLWORD | 4 | EDFUSESS | User issb (if IPIC) |
| (84) | CHARACTER | 4 | EDFSYST | sysid from which remote DPL abend was received |
| (88) | FULLWORD | 4 | EDF_USRTASK_SUSPTOK | User task suspend token |
| (8C) | FULLWORD | 4 | EDFSECCL | Security switch routine |
| (90) | ADDRESS | 4 | EDF_APPL_STATIC_STG_ PTR | User program's static storage |
| (94) | ADDRESS | 4 | EDF_APPL_STATIC_STG_ LEN | User's static storage length |
| (98) | CHARACTER | 16 | EDFPSW | PSW |
| (A8) | CHARACTER | 8 | EDFINT | INTERRUPT INFORMATION |
| (B0) | CHARACTER | 2 | EDFUEIDL | COPY OF TCTEEIDL AS SET FOR APPLICATION REQUESTS |
| (B2) | BITSTRING | 1 | EDFUOPT2 | SAVE TCTEOPT2 |
| (B3) | BITSTRING | 1 | EDFUJSA | Save TCTEJSA |
| (B4) | FULLWORD | 4 | EDFWSLN | LENGTH OF WORKING STORAGE |
| (B8) | 4 | EDFUTXNO | User task's transaction number | |
| (BC) | FULLWORD | 4 | EDFERMSA | NEW ERM EDF INTERFACE |
| (C0) | FULLWORD | 4 | EDFSITOD | IPL TIME OF DAY IN SECONDS |
| (C4) | CHARACTER | 4 | EDFUTXID | User's transaction id |
| (C8) | BITSTRING | 1 | EDFCTL5 | FLAG BYTE INDICATING NEW ERM IFC |
| (C8) | .... .1.. | EDFSTKCM | "X'04'" Command from user exit | |
| (C9) | BITSTRING | 1 | EDFCTL6 | flag byte |
| (C9) | 1... .... | EDFRABND | "X'80'" DPL remote abend indicator | |
| (C9) | .1.. .... | EDFRPEND | "X'40'" User task suspended, pending RESUME | |
| (CA) | HALFWORD | 2 | EDFSTKC | Programs EDF stack level |
| (CC) | FULLWORD | 4 | EDFTCAAD | 1st EDF Task's TCA address |
| (D0) | FULLWORD | 4 | (0) | |
| (D0) | CHARACTER | 128 | EDFREGS (0) | |
| (D0) | DBL WORD | 8 | (16) | GP registers 0-15 at abend |
--------------------------------------------------------------------- The DLA_USAGE fields are flags to identify those tasks which have need of the Debug Linkage Area. The DLA can only be freed when all of the tasks have relinquished ownership. --------------------------------------------------------------------- |
||||
| (150) | CHARACTER | 8 | EDF_DLA_USAGE (0) | Area controlling DLA |
| (150) | 4 | EDF_DLA_USER_TASK_USE | Task running DFHEDFX | |
| (154) | 4 | EDF_DLA_CEDF_TASK_USE | CEDF running EDFP/EDFD | |
| (154) | 0 | EDFDSLEN | "*-DFHEDFDS" LENGTH OF DFHEDFDS | |