1 /* Begin include file window_call_info_.incl.pl1 */
 2 /* Written by Benson I. Margulies, sometime in 1981 */
 3 /* Modified by Chris Jones, 29 October 1981, to add "undocumented" names */
 4 /* Modified by Jon A. Rochlis, 14 June 1983, to add C_TERMINAL_TYPE control arg and bumped N_CTL_ARGS to 9 */
 5 /* Modified by C. Marker, 6 September 1984, to add C_LINE_SPEED control arg and bumped N_CTL_ARGS to 10 */
 6 /* format: style3 */
 7 
 8 declare   1 packed_string     aligned,
 9             2 index           fixed bin (21),
10             2 length          fixed bin (21);
11 
12 declare   1 ctl_arg           unaligned based,
13             2 allowed         bit (1) unaligned,
14             2 required        bit (1) unaligned;
15 
16 declare   1 function          aligned based,
17             2 args            (10 /* N_CTL_ARGS */) unaligned like ctl_arg,
18             2 af_allowed      bit (1) unaligned,            /* just for check */
19             2 usage           like packed_string aligned;
20 
21 declare   1 ctl_arg_info      aligned based,
22             2 name            aligned,
23               3 long          character (16) unaligned,
24               3 undocumented_long
25                               character (16) unaligned,
26               3 short         character (8) unaligned,
27               3 undocumented_short
28                               character (8) unaligned,
29             2 argument        fixed bin;
30 
31 declare   (
32           A_NONE              init (1),
33           A_NUMBER            init (2),
34           A_STRING            init (3)
35           )                   fixed bin internal static options (constant);
36 
37 declare   (
38           C_LINE              init (1),
39           C_COLUMN            init (2),
40           C_COUNT             init (3),
41           C_N_LINES           init (4),
42           C_SWITCH            init (5),
43           C_SCREEN            init (6),
44           C_STRING            init (7),
45           C_N_COLUMNS         init (8),
46           C_TERMINAL_TYPE     init (9),
47           C_LINE_SPEED        init (10),
48           N_CTL_ARGS          init (10)
49           )                   internal static options (constant) fixed bin;
50 
51 declare   window_call_data_$n_keys
52                               fixed bin external static;
53 declare   window_call_data_$n_ctl_args
54                               fixed bin external static;
55 declare   window_call_data_$string_length
56                               fixed bin (21) external static;
57 
58 declare   wcd_string_ptr      pointer;
59 declare   window_call_data_$string
60                               bit (36) aligned external static;
61 
62 declare   window_call_data_string
63                               character (window_call_data_$string_length) aligned based (wcd_string_ptr);
64 
65 declare   wcd_names_ptr       pointer;
66 declare   window_call_data_$names
67                               bit (36) aligned external static;
68 
69 declare   1 window_call_data_names
70                               (window_call_data_$n_keys) aligned based (wcd_names_ptr),
71             2 long            character (32) unaligned,
72             2 undocumented_long
73                               character (32) unaligned,
74             2 short           character (8) unaligned,
75             2 undocumented_short
76                               character (8) unaligned;
77 
78 declare   wcd_functions_ptr   pointer;
79 declare   window_call_data_$functions
80                               bit (36) aligned external static;
81 
82 declare   1 window_call_data_functions
83                               (window_call_data_$n_keys) aligned like function based (wcd_functions_ptr);
84 
85 declare   wcd_ctl_args_ptr    pointer;
86 declare   window_call_data_$ctl_args
87                               bit (36) aligned external static;
88 
89 declare   1 window_call_data_ctl_args
90                               (window_call_data_$n_ctl_args) aligned like ctl_arg_info based (wcd_ctl_args_ptr);
91 
92 /* End include file window_call_info_.incl.pl1 */