1 /* Begin mca_area.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-03-19,Fawcett), approve(86-03-19,MCR7374),
 6      audit(86-04-28,Lippard), install(86-09-16,MR12.0-1159):
 7      This is the structure returned to the user after IO completion.
 8                                                    END HISTORY COMMENTS */
 9 
10 dcl  1 mca_area aligned based (mca_area_ptr),
11        2 version char (8),                 /* version of structure */
12        2 io_outstanding bit (1) aligned,   /* true if section is not complete */
13        2 mca_attach_state fixed bin (17),  /* State of the attachment process, refer to mca_data.incl.pl1 */
14        2 mca_status bit (72),              /* status from io */
15        2 ret_len fixed bin (21);           /* length in characters of data returned */
16 
17 dcl  mca_area_ptr ptr;
18 
19 dcl  MCA_area_version_1 char (8) int static options
20           (constant) init ("MCA00001");     /* current version */
21 
22 
23 /* End mca_area.incl.pl1 */