1 /* Begin include file ..... io_call_info.incl.pl1 */
 2 
 3 /* This include file defines the info_structure used by an I/O module to perform an "io_call" order
 4    on behalf of the io_call command. */
 5 /* Coded April 1976 by Larry Johnson */
 6 /* Changed June 1977 by Larry Johnson for "io_call_af" order */
 7 
 8      dcl     io_call_infop          ptr;
 9 
10      dcl     1 io_call_info         aligned based (io_call_infop),
11                2 version            fixed bin,
12                2 caller_name        char (32),              /* Caller name for error messages */
13                2 order_name         char (32),              /* Actual name of the order to be performed */
14                2 report             entry variable options (variable),
15                                                             /* Entry to ioa_ like procedure to report results */
16                2 error              entry variable options (variable),
17                                                             /* Entry to com_err_ like procedure to report results */
18                2 af_returnp         ptr,                    /* Pointer to return string if "io_call_af"  order */
19                2 af_returnl         fixed bin,              /* Length of string */
20                2 fill               (5) bit (36) aligned,
21                2 nargs              fixed bin,              /* Number of additional command arguments provided */
22                2 max_arglen         fixed bin,              /* Length of longest argument (used to define array) */
23                2 args               (0 refer (io_call_info.nargs)) char (0 refer (io_call_info.max_arglen)) varying;
24 
25      dcl     io_call_af_ret         char (io_call_info.af_returnl) based (io_call_info.af_returnp) varying;
26                                                             /* Return string for active function */
27 
28 /* End include file ..... io_call_info.incl.pl1 */