1
2
3
4
5
6 declare signal_io_info_ptr pointer;
7 declare 1 signal_io_info aligned based (signal_io_info_ptr),
8 2 header aligned like condition_info_header,
9 2 iocb_ptr pointer,
10 2 iocb_name char (32) unaligned,
11 2 operation char (32),
12 2 control_order_info_ptr pointer,
13 2 position_type fixed bin,
14 2 position_amount fixed bin (35),
15 2 data_ptr pointer,
16 2 data_length fixed bin (21),
17 2 returned_data_length fixed bin (21),
18 2 returned_error_code fixed bin (35),
19 2 old_modes aligned,
20 3 pointer pointer,
21 3 length fixed bin (21),
22 2 new_modes aligned,
23 3 pointer pointer,
24 3 length fixed bin (21),
25 2 key char (256) varying;
26
27 declare (
28 SGI_OP_GET_LINE init ("get_line"),
29 SGI_OP_GET_CHARS init ("get_chars"),
30 SGI_OP_PUT_CHARS init ("put_chars"),
31 SGI_OP_MODES init ("modes"),
32 SGI_OP_POSITION init ("position"),
33 SGI_OP_CONTROL init ("control"),
34 SGI_OP_READ_RECORD init ("read_record"),
35 SGI_OP_WRITE_RECORD init ("write_record"),
36 SGI_OP_REWRITE_RECORD init ("rewrite_record"),
37 SGI_OP_DELETE_RECORD init ("delete_record"),
38 SGI_OP_SEEK_KEY init ("seek_key"),
39 SGI_OP_READ_KEY init ("read_key"),
40 SGI_OP_READ_LENGTH init ("read_length")
41 ) char (32) int static options (constant);
42
43 declare signal_io_io_buffer char (signal_io_info.data_length) based (signal_io_info.data_ptr);
44 declare signal_io_order_name char (signal_io_info.data_length) based (signal_io_info.data_ptr);
45 declare signal_io_old_modes char (signal_io_info.old_modes.length) based (signal_io_info.old_modes.pointer);
46 declare signal_io_new_modes char (signal_io_info.new_modes.length) based (signal_io_info.new_modes.pointer);
47
48