1 /*  BEGIN INCLUDE FILE: tolts_rspd_workspace.incl.pl1  */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(85-12-11,Fakoury), approve(86-08-21,MCR7514),
 7      audit(86-12-03,Martinson), install(86-12-04,MR12.0-1235):
 8      Created by Rick Fakoury to support the Colts rspd request.
 9                                                    END HISTORY COMMENTS */
10 
11 /* tolts_rspd_workspace defines the wired workspace used for tolts responder io to the DN8.            */
12 
13 
14 dcl tolts_rspd_wksp ptr;
15 
16 dcl  1 tolts_rspd_workspace aligned based (tolts_rspd_wksp),
17        2  mailbox aligned,
18           3  pcw aligned like direct_channel_pcw,
19           3  num_int,
20              4  lvl7 fixed bin (18) unsigned unaligned,
21              4  lvl3 fixed bin (18) unsigned unaligned,
22           3  status_word bit (36) aligned,
23           3  pad1 bit (144) aligned,
24       2  ima_level(0:7) like intercom_mbx_area,
25       2  tcw like direct_channel_tcw,
26       2  data_buf area (320);
27 
28 
29 dcl 1  intercom_mbx_area aligned,
30        2 word (0:7) bit (36);
31 
32 %include ioi_direct_channel_dcls;
33 
34 
35 /* END INCLUDE FILE tolts_rspd_workspace.incl.pl1 */
36