1 /* BEGIN INCLUDE FILE ... user_forms_info.incl.pl1 */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(88-02-26,Brunelle), approve(88-06-08,MCR7911),
 6      audit(88-10-12,Wallman), install(88-10-28,MR12.2-1199):
 7      Created.
 8                                                    END HISTORY COMMENTS */
 9 
10 /* format: style4 */
11 
12 /* structure used to return information for iod_info_$forms_info call */
13 
14 dcl  forms_info_ptr ptr;
15 dcl  1 forms_info based (forms_info_ptr),
16        2 version char (8),
17        2 no_entries fixed bin,                              /* # entries in table */
18        2 no_names fixed bin,                                /* # of names in table */
19        2 no_comments fixed bin,                             /* # of comments in table */
20        2 no_types fixed bin,                                /* # of type names in table */
21        2 no_uses fixed bin,                                 /* # of uses entries in table */
22        2 no_specials fixed bin,                             /* # of special entries in table */
23        2 default_forms_length fixed bin,
24        2 default_form char (forms_info_default_forms_length refer (forms_info.default_forms_length)),
25        2 entry (forms_info_entry_count refer (forms_info.no_entries)),
26          3 first_name_index fixed bin,                      /* index into names for first name for this entry */
27          3 last_name_index fixed bin,                       /* index into names for last name for this entry */
28          3 comment_index fixed bin,                         /* index into comments for this entry */
29          3 type_index fixed bin,                            /* index into types for this entry */
30          3 uses_index fixed bin,                            /* index into uses for this entry */
31          3 special_index fixed bin,                         /* index into specials for this entry */
32        2 names (forms_info_name_count refer (forms_info.no_names)) char (32),
33        2 comments (forms_info_comment_count refer (forms_info.no_comments)) char (128),
34        2 types (forms_info_types_count refer (forms_info.no_types)) fixed bin,
35        2 uses (forms_info_uses_count refer (forms_info.no_uses)) char (128),
36        2 specials (forms_info_specials_count refer (forms_info.no_specials)) char (64);
37 
38 dcl  (forms_info_entry_count,
39      forms_info_name_count,
40      forms_info_comment_count,
41      forms_info_types_count,
42      forms_info_uses_count,
43      forms_info_specials_count,
44      forms_info_default_forms_length) fixed bin;
45 dcl  FORMS_INFO_VERSION_1 char (8) int static options (constant) init ("FIxx0001");
46 %page;
47 
48 /* input structure for call to iod_info_$validate_forms_info */
49 
50 dcl  validate_forms_info_input_ptr ptr;
51 dcl  1 validate_forms_info_input aligned based (validate_forms_info_input_ptr),
52        2 version char (8),
53        2 request_type char (32),                            /* request_type to use to evaluate the forms string */
54        2 user_area_ptr ptr,                                 /* ptr to user area to allocate return structure in */
55        2 max_forms_string_length fixed bin,                 /* max allowed size of returned forms string */
56        2 forms_string_length fixed bin,                     /* # of chars in input forms string to validate */
57        2 forms_string char (input_forms_string_length       /* forms string to validate */
58             refer (validate_forms_info_input.forms_string_length));
59 
60 dcl  input_forms_string_length fixed bin;
61 dcl  VALIDATE_FORMS_INFO_INPUT_VERSION_1 char (8) int static options (constant) init ("VFII0001");
62 
63 
64 /* output structure returned for call to iod_info_$validate_forms_info */
65 
66 dcl  validate_forms_info_output_ptr ptr;
67 dcl  1 validate_forms_info_output aligned based (validate_forms_info_output_ptr),
68        2 version char (8),
69        2 lines_per_page fixed bin,
70        2 chars_per_line fixed bin,
71        2 lines_per_inch fixed bin,
72        2 forms_allowed bit (1),
73        2 forms_length fixed bin,
74        2 error_length fixed bin,
75        2 returned_forms char (returned_forms_length
76             refer (validate_forms_info_output.forms_length)),
77        2 error_string char (error_string_length
78             refer (validate_forms_info_output.error_length));
79 
80 dcl  (returned_forms_length, error_string_length) fixed bin;
81 
82 dcl  VALIDATE_FORMS_INFO_OUTPUT_VERSION_1 char (8) int static options (constant) init ("VFIO0001");
83 
84 /* END INCLUDE FILE ... user_forms_info.incl.pl1 */