1 /* BEGIN INCLUDE FILE ... system_forms_info.incl.pl1 */
 2 
 3 /****^  HISTORY COMMENTS:
 4   1) change(88-02-26,Brunelle), approve(88-06-08,MCR7911),
 5      audit(88-10-12,Wallman), install(88-10-28,MR12.2-1199):
 6      Created.
 7                                                    END HISTORY COMMENTS */
 8 
 9 /* format: style4 */
10 
11 /* input structure for call to iod_info_$evaluate_forms_info */
12 
13 dcl  evaluate_forms_info_input_ptr ptr;
14 dcl  1 evaluate_forms_info_input aligned based (evaluate_forms_info_input_ptr),
15        2 version char (8),
16        2 ithp ptr,                                          /* ptr to io daemon tables */
17        2 qgtep ptr,                                         /* request type entry ptr */
18        2 idtep ptr,                                         /* major device entry ptr */
19        2 mdtep ptr,                                         /* minor device entry ptr */
20        2 max_forms_string_length fixed bin,                 /* max allowed size of forms string */
21        2 forms_string_length fixed bin,                     /* # of chars in forms string */
22        2 forms_string char (system_input_forms_string_length/* forms string to evaluate */
23             refer (evaluate_forms_info_input.forms_string_length)),
24        2 area_ptr ptr;                                      /* ptr to user area */
25 dcl  system_input_forms_string_length fixed bin;
26 dcl  EVALUATE_FORMS_INFO_INPUT_VERSION_1 char (8) int static options (constant) init ("EFII0001");
27 
28 
29 /* output structure for call to iod_info_$evaluate_forms_info */
30 
31 dcl  evaluate_forms_info_output_ptr ptr;
32 dcl  1 evaluate_forms_info_output aligned based (evaluate_forms_info_output_ptr),
33        2 version char (8),
34        2 lines_per_page fixed bin,
35        2 chars_per_line fixed bin,
36        2 lines_per_inch fixed bin,
37        2 forms_length fixed bin,
38        2 error_length fixed bin,
39        2 escape_length fixed bin,
40        2 special_length fixed bin,
41        2 returned_forms char (system_returned_forms_length
42             refer (evaluate_forms_info_output.forms_length)),
43        2 error_string char (system_error_string_length
44             refer (evaluate_forms_info_output.error_length)),
45        2 escape_string char (system_escape_string_length
46             refer (evaluate_forms_info_output.escape_length)),
47        2 special_string char (system_special_string_length
48             refer (evaluate_forms_info_output.special_length));
49 
50 dcl  (system_returned_forms_length, system_error_string_length,
51      system_escape_string_length, system_special_string_length) fixed bin;
52 
53 dcl  EVALUATE_FORMS_INFO_OUTPUT_VERSION_1 char (8) int static options (constant) init ("EFIO0001");
54 
55 /* END INCLUDE FILE ... system_forms_info.incl.pl1 */