CONTROL BLOCK NAME = DFHWLGPS
DESCRIPTIVE NAME = CICS TS (XRF) LIFO Workspace
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1985
FUNCTION =
Workspace for XRF trace calls from LIFO and dispatcher
services. Single instance.
LIFETIME =
Created by XRF INITIAL ATTACH (DFHWDINA) and destroyed
by XRF SIGNOFF.
STORAGE CLASS =
Non-CICS storage above 16M line. Suballocated from XRF
WS Global allocation created at XRF SIGNON.
LOCATION =
Addressed by WCGLFA in DFHWCGPS
INNER CONTROL BLOCKS =
WLGSA Standards OS Register save area.
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS =
None
MODULE TYPE = Control block definition
------------------------------------------------------------------
EXTERNAL REFERENCES =
DATA AREAS =
None
CONTROL BLOCKS =
DFHWTRPS. An instance of an XRF Trace parameter area
is imbedded.
GLOBAL VARIABLES (Macro pass) =
None
------------------------------------------------------------------
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
100 |
DFHWLGPS |
Addressed from WS Global |
| (0) |
CHARACTER |
72 |
WLGSAVE |
Standard OS Save Area |
| (48) |
CHARACTER |
28 |
WLGTRACE |
Space for trace parameter block. |
| (64) |
CHARACTER |
0 |
WLGEND |
Standard OS Save Area
Table 2.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
72 |
WLGSA |
Standard Save Area |
| (0) |
ADDRESS |
4 |
* |
| (4) |
ADDRESS |
4 |
WLGSABCN |
backward chain |
| (8) |
ADDRESS |
4 |
WLGSAFCN |
forward chain |
| (C) |
CHARACTER |
60 |
WLGSAREG |
Registers 14-12 |
| (C) |
ADDRESS |
4 |
WLGSAR14 |
R14 |
| (10) |
ADDRESS |
4 |
WLGSAR15 |
R15 |
| (14) |
ADDRESS |
4 |
WLGSAR00 |
R0 |
| (18) |
ADDRESS |
4 |
WLGSAR01 |
R1 |
| (1C) |
ADDRESS |
4 |
* (9) |
R2 - R10 |
| (40) |
ADDRESS |
4 |
WLGSAR11 |
R11 |
| (44) |
ADDRESS |
4 |
WLGSAR12 |
R12 |