1 /* Begin include file ..... iox_modes.incl.pl1 */
 2 
 3 /* Written by C. D. Tavares, 03/17/75 */
 4 /* Updated 10/31/77 by CDT to include short iox mode strings */
 5 
 6 dcl  iox_modes (13) char (24) int static options (constant) aligned initial
 7     ("stream_input", "stream_output", "stream_input_output",
 8      "sequential_input", "sequential_output", "sequential_input_output", "sequential_update",
 9      "keyed_sequential_input", "keyed_sequential_output", "keyed_sequential_update",
10      "direct_input", "direct_output", "direct_update");
11 
12 dcl  short_iox_modes (13) char (4) int static options (constant) aligned initial
13     ("si", "so", "sio", "sqi", "sqo", "sqio", "squ", "ksqi", "ksqo", "ksqu", "di", "do", "du");
14 
15 dcl (Stream_input initial (1),
16      Stream_output initial (2),
17      Stream_input_output initial (3),
18      Sequential_input initial (4),
19      Sequential_output initial (5),
20      Sequential_input_output initial (6),
21      Sequential_update initial (7),
22      Keyed_sequential_input initial (8),
23      Keyed_sequential_output initial (9),
24      Keyed_sequential_update initial (10),
25      Direct_input initial (11),
26      Direct_output initial (12),
27      Direct_update initial (13)) fixed bin int static options (constant);
28 
29 /* End include file ..... iox_modes.incl.pl1 */