1 /* Begin mca_data_area.incl.pl1 */
  2 
  3 /****^  HISTORY COMMENTS:
  4   1) change(86-03-19,Fawcett), approve(86-03-19,MCR7374),
  5      audit(86-04-28,Lippard), install(86-09-16,MR12.0-1159):
  6      Created for control of the MCA. This is a template for the ioi workspace
  7      needed for the MCA communications.
  8                                                    END HISTORY COMMENTS */
  9 
 10 /* Created Sept 84 by R. A. Fawcett from information in
 11    "EPS-1 DIPPER Maintainability" REV A (MAY 3, 1983) */
 12 
 13 
 14 
 15 dcl  data_header_ptr ptr;
 16 
 17 dcl  (data_size_1, data_size_2) fixed bin (21) init (0);
 18 
 19 dcl  io_param_blk_ptr ptr;
 20 
 21 dcl  mca_dcw_list_ptr ptr;
 22 
 23 dcl  mca_work_space_ptr ptr;
 24 
 25 dcl  1 mca_work_space based (mca_work_space_ptr),
 26        2 list_of_dcw like mca_dcw_list,
 27        2 status_area like istat,
 28 
 29        2 data_header_1 aligned like data_header,
 30        2 data_1 char (data_size_1),
 31        2 data_header_2 aligned like data_header,
 32        2 data_2 char (data_size_2);
 33 
 34 
 35 dcl  1 data_header based (data_header_ptr) aligned,
 36        2 type bit (9) unal,                                 /* must be equal to "000"b3 (MBZ) */
 37        2 definer fixed bin (9) unal unsigned,               /* defines type of info in header */
 38        2 ctl_sw bit (18) unal,                              /* "currently undfined" mbz  = "000000"b3 */
 39 
 40        2 host_sts_ign1 bit (1) unal,
 41        2 host_sts_msb bit (8) unal,
 42        2 host_sts_ign2 bit (1) unal,
 43        2 host_sts_lsb bit (8) unal,
 44 
 45        2 rd_flpy fixed bin (9) unal unsigned,               /* 0 = data files from host */
 46                                                             /* 1 = data files from flopy */
 47        2 io_param_blk like io_parameter_block unal;
 48 
 49 
 50 dcl  1 io_parameter_block based (io_param_blk_ptr) unal,
 51        2 open fixed bin (9) unal unsigned,
 52        2 cmd bit (18),
 53        2 sts_ptr bit (18),                                  /* Unused */
 54        2 file_name char (8),                                /* file name for this request */
 55        2 options bit (18),                                  /* Unused */
 56        2 source_ptr bit (18),                               /* Unused */
 57        2 source_len,
 58                                                             /* data_size = source_len_msb||source_len_lsb MCA to HOST */
 59          3 source_len_ign1 bit (1),
 60          3 source_len_msb bit (8),
 61          3 source_len_ign2 bit (1),
 62          3 source_len_lsb bit (8),
 63        2 dest_ptr bit (18),                                 /* Unused */
 64        2 blk_ct,
 65                                                             /* if MCA to HOST blk_ct_msb||blk_ct_lsb = MAX number of 256 byte BLOCKS  */
 66                                                             /* else not used */
 67          3 blk_ct_ign1 bit (1),
 68          3 blk_ct_msb bit (8),
 69          3 blk_ct_ign2 bit (1),
 70          3 blk_ct_lsb bit (8),
 71        2 dest_len,
 72                                                             /* supplied by host as the number of bytes in data_field max value is 16128 */
 73                                                             /* dest_len_msb = substr(unspec(data_size),21,8) */
 74                                                             /* dest_len_lsb = substr(unspec(data_size),29,8) */
 75          3 dest_len_ign1 bit (1),
 76          3 dest_len_msb bit (8),
 77          3 dest_len_ign2 bit (1),
 78          3 dest_len_lsb bit (8);
 79 
 80 
 81 dcl  1 mca_dcw_list based (mca_dcw_list_ptr),
 82        2 idcw1 like idcw,
 83        2 dcw1 like dcw,
 84        2 idcw2 like idcw,
 85        2 dcw2 like dcw;
 86 
 87 
 88 %include iom_dcw;
 89 %skip (4);
 90 %include iom_pcw;
 91 %skip (4);
 92 %include ioi_stat;
 93 %skip (4);
 94 /* Constants used for data_header.definer */
 95 
 96 dcl  DATA_FROM_HOST
 97           fixed bin (9) unsigned init (0) static options (constant);
 98 dcl  WRITE_CONSOLE
 99           fixed bin (9) unsigned init (1) static options (constant);
100 dcl  WRITE_READ_CONSOLE
101           fixed bin (9) unsigned init (2) static options (constant);
102 dcl  DATA_FROM_MCA
103           fixed bin (9) unsigned init (3) static options (constant);
104 dcl  REQ_DATA_FROM_HOST
105           fixed bin (9) unsigned init (4) static options (constant);
106 dcl  STATUS_FROM_MCA
107           fixed bin (9) unsigned init (5) static options (constant);
108 dcl  SEEK
109           fixed bin (9) unsigned init (6) static options (constant);
110 dcl  CON_DATA_FROM_HOST
111           fixed bin (9) unsigned init (7) static options (constant);
112 dcl  BIN_DATA_FROM_HOST
113           fixed bin (9) unsigned init (8) static options (constant);
114 dcl  ABORT_SES_FROM_HOST
115           fixed bin (9) unsigned init (9) static options (constant);
116 
117 
118 /* End mca_data_area.incl.pl1 */
119